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.22 (AbstractSyntax.ag) +-- UUAGC 0.9.21 (AbstractSyntax.ag) module AbstractSyntax where {-# LINE 2 "AbstractSyntax.ag" #-} @@ -19,9 +19,9 @@ child tp : {Type} child inh : {Attributes} child syn : {Attributes} - child higherOrder : {Bool} + child virtual : {Maybe (Maybe Type)} -} -data Child = Child (Identifier) (Type) (Attributes) (Attributes) (Bool) +data Child = Child (Identifier) (Type) (Attributes) (Attributes) (Maybe (Maybe Type)) -- Children ---------------------------------------------------- {- alternatives: @@ -30,7 +30,7 @@ child tl : Children alternative Nil: -} -type Children = [Child ] +type Children = [(Child)] -- Grammar ----------------------------------------------------- {- alternatives: @@ -48,7 +48,7 @@ child augmentsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} -} -data Grammar = Grammar (TypeSyns) (UseMap) (Derivings) ((Set NontermIdent)) (Nonterminals ) (PragmaMap) (AttrOrderMap) (ParamMap) (ContextMap) (UniqueMap) ((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))) ((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))) +data Grammar = Grammar (TypeSyns) (UseMap) (Derivings) (Set NontermIdent) (Nonterminals) (PragmaMap) (AttrOrderMap) (ParamMap) (ContextMap) (UniqueMap) (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -- Nonterminal ------------------------------------------------- {- alternatives: @@ -59,7 +59,7 @@ child syn : {Attributes} child prods : Productions -} -data Nonterminal = Nonterminal (NontermIdent) (([Identifier])) (Attributes) (Attributes) (Productions ) +data Nonterminal = Nonterminal (NontermIdent) ([Identifier]) (Attributes) (Attributes) (Productions) -- Nonterminals ------------------------------------------------ {- alternatives: @@ -68,7 +68,7 @@ child tl : Nonterminals alternative Nil: -} -type Nonterminals = [Nonterminal ] +type Nonterminals = [(Nonterminal)] -- Production -------------------------------------------------- {- alternatives: @@ -78,7 +78,7 @@ child rules : Rules child typeSigs : TypeSigs -} -data Production = Production (ConstructorIdent) (Children ) (Rules ) (TypeSigs ) +data Production = Production (ConstructorIdent) (Children) (Rules) (TypeSigs) -- Productions ------------------------------------------------- {- alternatives: @@ -87,7 +87,7 @@ child tl : Productions alternative Nil: -} -type Productions = [Production ] +type Productions = [(Production)] -- Rule -------------------------------------------------------- {- alternatives: @@ -99,7 +99,7 @@ child origin : {String} child explicit : {Bool} -} -data Rule = Rule ((Maybe Identifier)) (Pattern) (Expression) (Bool) (String) (Bool) +data Rule = Rule (Maybe Identifier) (Pattern) (Expression) (Bool) (String) (Bool) -- Rules ------------------------------------------------------- {- alternatives: @@ -108,7 +108,7 @@ child tl : Rules alternative Nil: -} -type Rules = [Rule ] +type Rules = [(Rule)] -- TypeSig ----------------------------------------------------- {- alternatives: @@ -125,4 +125,4 @@ child tl : TypeSigs alternative Nil: -} -type TypeSigs = [TypeSig ] +type TypeSigs = [(TypeSig)] 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.22 (AbstractSyntaxDump.ag) +-- UUAGC 0.9.21 (AbstractSyntaxDump.ag) module AbstractSyntaxDump where {-# LINE 6 "AbstractSyntaxDump.ag" #-} @@ -47,13 +47,13 @@ child tp : {Type} child inh : {Attributes} child syn : {Attributes} - child higherOrder : {Bool} + child virtual : {Maybe (Maybe Type)} -} -- cata sem_Child :: Child -> T_Child -sem_Child (Child _name _tp _inh _syn _higherOrder ) = - (sem_Child_Child _name _tp _inh _syn _higherOrder ) +sem_Child (Child _name _tp _inh _syn _virtual ) = + (sem_Child_Child _name _tp _inh _syn _virtual ) -- semantic domain newtype T_Child = T_Child (( PP_Doc)) data Inh_Child = Inh_Child {} @@ -69,9 +69,9 @@ Type -> Attributes -> Attributes -> - Bool -> + (Maybe (Maybe Type)) -> T_Child -sem_Child_Child name_ tp_ inh_ syn_ higherOrder_ = +sem_Child_Child name_ tp_ inh_ syn_ virtual_ = (T_Child (let _lhsOpp :: PP_Doc -- "AbstractSyntaxDump.ag"(line 35, column 33) _lhsOpp = @@ -99,7 +99,7 @@ -- semantic domain newtype T_Children = T_Children (( PP_Doc,([PP_Doc]))) data Inh_Children = Inh_Children {} -data Syn_Children = Syn_Children {pp_Syn_Children :: PP_Doc,ppL_Syn_Children :: ([PP_Doc])} +data Syn_Children = Syn_Children {pp_Syn_Children :: PP_Doc,ppL_Syn_Children :: [PP_Doc]} wrap_Children :: T_Children -> Inh_Children -> Syn_Children @@ -317,7 +317,7 @@ -- semantic domain newtype T_Nonterminals = T_Nonterminals (( PP_Doc,([PP_Doc]))) data Inh_Nonterminals = Inh_Nonterminals {} -data Syn_Nonterminals = Syn_Nonterminals {pp_Syn_Nonterminals :: PP_Doc,ppL_Syn_Nonterminals :: ([PP_Doc])} +data Syn_Nonterminals = Syn_Nonterminals {pp_Syn_Nonterminals :: PP_Doc,ppL_Syn_Nonterminals :: [PP_Doc]} wrap_Nonterminals :: T_Nonterminals -> Inh_Nonterminals -> Syn_Nonterminals @@ -411,9 +411,9 @@ sem_Pattern (Underscore _pos ) = (sem_Pattern_Underscore _pos ) -- semantic domain -newtype T_Pattern = T_Pattern (( Pattern ,PP_Doc)) +newtype T_Pattern = T_Pattern (( Pattern,PP_Doc)) data Inh_Pattern = Inh_Pattern {} -data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: Pattern ,pp_Syn_Pattern :: PP_Doc} +data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: Pattern,pp_Syn_Pattern :: PP_Doc} wrap_Pattern :: T_Pattern -> Inh_Pattern -> Syn_Pattern @@ -428,10 +428,10 @@ T_Pattern sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) = (T_Pattern (let _lhsOpp :: PP_Doc - _lhsOcopy :: Pattern - _patIcopy :: Pattern + _lhsOcopy :: Pattern + _patIcopy :: Pattern _patIpp :: PP_Doc - _partsIcopy :: Patterns + _partsIcopy :: Patterns _partsIpp :: PP_Doc _partsIppL :: ([PP_Doc]) -- "AbstractSyntaxDump.ag"(line 46, column 33) @@ -459,8 +459,8 @@ T_Pattern sem_Pattern_Constr name_ (T_Patterns pats_ ) = (T_Pattern (let _lhsOpp :: PP_Doc - _lhsOcopy :: Pattern - _patsIcopy :: Patterns + _lhsOcopy :: Pattern + _patsIcopy :: Patterns _patsIpp :: PP_Doc _patsIppL :: ([PP_Doc]) -- "AbstractSyntaxDump.ag"(line 44, column 33) @@ -485,8 +485,8 @@ T_Pattern sem_Pattern_Irrefutable (T_Pattern pat_ ) = (T_Pattern (let _lhsOpp :: PP_Doc - _lhsOcopy :: Pattern - _patIcopy :: Pattern + _lhsOcopy :: Pattern + _patIcopy :: Pattern _patIpp :: PP_Doc -- use rule "AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = @@ -511,8 +511,8 @@ T_Pattern sem_Pattern_Product pos_ (T_Patterns pats_ ) = (T_Pattern (let _lhsOpp :: PP_Doc - _lhsOcopy :: Pattern - _patsIcopy :: Patterns + _lhsOcopy :: Pattern + _patsIcopy :: Patterns _patsIpp :: PP_Doc _patsIppL :: ([PP_Doc]) -- "AbstractSyntaxDump.ag"(line 45, column 33) @@ -537,7 +537,7 @@ T_Pattern sem_Pattern_Underscore pos_ = (T_Pattern (let _lhsOpp :: PP_Doc - _lhsOcopy :: Pattern + _lhsOcopy :: Pattern -- "AbstractSyntaxDump.ag"(line 47, column 25) _lhsOpp = ({-# LINE 47 "AbstractSyntaxDump.ag" #-} @@ -577,9 +577,9 @@ sem_Patterns list = (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) ) -- semantic domain -newtype T_Patterns = T_Patterns (( Patterns ,PP_Doc,([PP_Doc]))) +newtype T_Patterns = T_Patterns (( Patterns,PP_Doc,([PP_Doc]))) data Inh_Patterns = Inh_Patterns {} -data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: Patterns ,pp_Syn_Patterns :: PP_Doc,ppL_Syn_Patterns :: ([PP_Doc])} +data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: Patterns,pp_Syn_Patterns :: PP_Doc,ppL_Syn_Patterns :: [PP_Doc]} wrap_Patterns :: T_Patterns -> Inh_Patterns -> Syn_Patterns @@ -593,10 +593,10 @@ sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) = (T_Patterns (let _lhsOppL :: ([PP_Doc]) _lhsOpp :: PP_Doc - _lhsOcopy :: Patterns - _hdIcopy :: Pattern + _lhsOcopy :: Patterns + _hdIcopy :: Pattern _hdIpp :: PP_Doc - _tlIcopy :: Patterns + _tlIcopy :: Patterns _tlIpp :: PP_Doc _tlIppL :: ([PP_Doc]) -- "AbstractSyntaxDump.ag"(line 55, column 33) @@ -628,7 +628,7 @@ sem_Patterns_Nil = (T_Patterns (let _lhsOppL :: ([PP_Doc]) _lhsOpp :: PP_Doc - _lhsOcopy :: Patterns + _lhsOcopy :: Patterns -- "AbstractSyntaxDump.ag"(line 56, column 33) _lhsOppL = ({-# LINE 56 "AbstractSyntaxDump.ag" #-} @@ -723,7 +723,7 @@ -- semantic domain newtype T_Productions = T_Productions (( PP_Doc,([PP_Doc]))) data Inh_Productions = Inh_Productions {} -data Syn_Productions = Syn_Productions {pp_Syn_Productions :: PP_Doc,ppL_Syn_Productions :: ([PP_Doc])} +data Syn_Productions = Syn_Productions {pp_Syn_Productions :: PP_Doc,ppL_Syn_Productions :: [PP_Doc]} wrap_Productions :: T_Productions -> Inh_Productions -> Syn_Productions @@ -809,7 +809,7 @@ T_Rule sem_Rule_Rule mbName_ (T_Pattern pattern_ ) (T_Expression rhs_ ) owrt_ origin_ explicit_ = (T_Rule (let _lhsOpp :: PP_Doc - _patternIcopy :: Pattern + _patternIcopy :: Pattern _patternIpp :: PP_Doc _rhsIpp :: PP_Doc -- "AbstractSyntaxDump.ag"(line 38, column 33) @@ -842,7 +842,7 @@ -- semantic domain newtype T_Rules = T_Rules (( PP_Doc,([PP_Doc]))) data Inh_Rules = Inh_Rules {} -data Syn_Rules = Syn_Rules {pp_Syn_Rules :: PP_Doc,ppL_Syn_Rules :: ([PP_Doc])} +data Syn_Rules = Syn_Rules {pp_Syn_Rules :: PP_Doc,ppL_Syn_Rules :: [PP_Doc]} wrap_Rules :: T_Rules -> Inh_Rules -> Syn_Rules @@ -946,7 +946,7 @@ -- semantic domain newtype T_TypeSigs = T_TypeSigs (( PP_Doc,([PP_Doc]))) data Inh_TypeSigs = Inh_TypeSigs {} -data Syn_TypeSigs = Syn_TypeSigs {pp_Syn_TypeSigs :: PP_Doc,ppL_Syn_TypeSigs :: ([PP_Doc])} +data Syn_TypeSigs = Syn_TypeSigs {pp_Syn_TypeSigs :: PP_Doc,ppL_Syn_TypeSigs :: [PP_Doc]} wrap_TypeSigs :: T_TypeSigs -> Inh_TypeSigs -> Syn_TypeSigs 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.22 (Code.ag) +-- UUAGC 0.9.21 (Code.ag) module Code where {-# LINE 2 "Code.ag" #-} @@ -37,7 +37,7 @@ child left : Lhs child expr : Expr -} -data CaseAlt = CaseAlt (Lhs ) (Expr ) +data CaseAlt = CaseAlt (Lhs) (Expr) -- CaseAlts ---------------------------------------------------- {- alternatives: @@ -46,7 +46,7 @@ child tl : CaseAlts alternative Nil: -} -type CaseAlts = [CaseAlt ] +type CaseAlts = [(CaseAlt)] -- Chunk ------------------------------------------------------- {- alternatives: @@ -61,7 +61,7 @@ child semFunctions : Decls child semNames : {[String]} -} -data Chunk = Chunk (String) (Decl ) (Decls ) (Decls ) (Decls ) (Decls ) (Decls ) (Decls ) (([String])) +data Chunk = Chunk (String) (Decl) (Decls) (Decls) (Decls) (Decls) (Decls) (Decls) ([String]) -- Chunks ------------------------------------------------------ {- alternatives: @@ -70,7 +70,7 @@ child tl : Chunks alternative Nil: -} -type Chunks = [Chunk ] +type Chunks = [(Chunk)] -- DataAlt ----------------------------------------------------- {- alternatives: @@ -81,8 +81,8 @@ child name : {String} child args : NamedTypes -} -data DataAlt = DataAlt (String) (Types ) - | Record (String) (NamedTypes ) +data DataAlt = DataAlt (String) (Types) + | Record (String) (NamedTypes) -- DataAlts ---------------------------------------------------- {- alternatives: @@ -91,7 +91,7 @@ child tl : DataAlts alternative Nil: -} -type DataAlts = [DataAlt ] +type DataAlts = [(DataAlt)] -- Decl -------------------------------------------------------- {- alternatives: @@ -129,15 +129,15 @@ child params : {[String]} child tp : Type -} -data Decl = Bind (Lhs ) (Expr ) - | BindLet (Lhs ) (Expr ) +data Decl = Bind (Lhs) (Expr) + | BindLet (Lhs) (Expr) | Comment (String) - | Data (String) (([String])) (DataAlts ) (Bool) (([String])) - | Decl (Lhs ) (Expr ) ((Set String)) ((Set String)) - | NewType (String) (([String])) (String) (Type ) + | Data (String) ([String]) (DataAlts) (Bool) ([String]) + | Decl (Lhs) (Expr) (Set String) (Set String) + | NewType (String) ([String]) (String) (Type) | PragmaDecl (String) - | TSig (String) (Type ) - | Type (String) (([String])) (Type ) + | TSig (String) (Type) + | Type (String) ([String]) (Type) -- Decls ------------------------------------------------------- {- alternatives: @@ -146,7 +146,7 @@ child tl : Decls alternative Nil: -} -type Decls = [Decl ] +type Decls = [(Decl)] -- Expr -------------------------------------------------------- {- alternatives: @@ -187,19 +187,19 @@ alternative UnboxedTupleExpr: child exprs : Exprs -} -data Expr = App (String) (Exprs ) - | Case (Expr ) (CaseAlts ) - | Do (Decls ) (Expr ) - | Lambda (Exprs ) (Expr ) - | Let (Decls ) (Expr ) - | LineExpr (Expr ) - | PragmaExpr (Bool) (Bool) (String) (Expr ) +data Expr = App (String) (Exprs) + | Case (Expr) (CaseAlts) + | Do (Decls) (Expr) + | Lambda (Exprs) (Expr) + | Let (Decls) (Expr) + | LineExpr (Expr) + | PragmaExpr (Bool) (Bool) (String) (Expr) | SimpleExpr (String) - | TextExpr (([String])) - | Trace (String) (Expr ) - | TupleExpr (Exprs ) - | TypedExpr (Expr ) (Type ) - | UnboxedTupleExpr (Exprs ) + | TextExpr ([String]) + | Trace (String) (Expr) + | TupleExpr (Exprs) + | TypedExpr (Expr) (Type) + | UnboxedTupleExpr (Exprs) -- Exprs ------------------------------------------------------- {- alternatives: @@ -208,7 +208,7 @@ child tl : Exprs alternative Nil: -} -type Exprs = [Expr ] +type Exprs = [(Expr)] -- Lhs --------------------------------------------------------- {- alternatives: @@ -227,12 +227,12 @@ child name : {String} child sub : Lhs -} -data Lhs = Fun (String) (Exprs ) +data Lhs = Fun (String) (Exprs) | Pattern3 (Pattern) | Pattern3SM (Pattern) - | TupleLhs (([String])) - | UnboxedTupleLhs (([String])) - | Unwrap (String) (Lhs ) + | TupleLhs ([String]) + | UnboxedTupleLhs ([String]) + | Unwrap (String) (Lhs) -- NamedType --------------------------------------------------- {- alternatives: @@ -241,7 +241,7 @@ child name : {String} child tp : Type -} -data NamedType = Named (Bool) (String) (Type ) +data NamedType = Named (Bool) (String) (Type) -- NamedTypes -------------------------------------------------- {- alternatives: @@ -250,14 +250,14 @@ child tl : NamedTypes alternative Nil: -} -type NamedTypes = [NamedType ] +type NamedTypes = [(NamedType)] -- Program ----------------------------------------------------- {- alternatives: alternative Program: child chunks : Chunks -} -data Program = Program (Chunks ) +data Program = Program (Chunks) -- Type -------------------------------------------------------- {- alternatives: @@ -292,18 +292,18 @@ alternative UnboxedTupleType: child tps : Types -} -data Type = Arr (Type ) (Type ) - | CtxApp (([(String, [String])])) (Type ) - | List (Type ) - | NontermType (String) (([String])) +data Type = Arr (Type) (Type) + | CtxApp ([(String, [String])]) (Type) + | List (Type) + | NontermType (String) ([String]) | SimpleType (String) - | TEither (Type ) (Type ) - | TIntMap (Type ) - | TMap (Type ) (Type ) - | TMaybe (Type ) - | TupleType (Types ) - | TypeApp (Type ) (Types ) - | UnboxedTupleType (Types ) + | TEither (Type) (Type) + | TIntMap (Type) + | TMap (Type) (Type) + | TMaybe (Type) + | TupleType (Types) + | TypeApp (Type) (Types) + | UnboxedTupleType (Types) deriving ( Show) -- Types ------------------------------------------------------- {- @@ -313,4 +313,4 @@ child tl : Types alternative Nil: -} -type Types = [Type ] +type Types = [(Type)] 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.22 (CodeSyntax.ag) +-- UUAGC 0.9.21 (CodeSyntax.ag) module CodeSyntax where {-# LINE 2 "CodeSyntax.ag" #-} @@ -22,14 +22,14 @@ child contextMap : {ContextMap} child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Set Identifier))} -} -data CGrammar = CGrammar (TypeSyns) (Derivings) ((Set NontermIdent)) (CNonterminals ) (PragmaMap) (ParamMap) (ContextMap) ((Map NontermIdent (Map ConstructorIdent (Set Identifier)))) +data CGrammar = CGrammar (TypeSyns) (Derivings) (Set NontermIdent) (CNonterminals) (PragmaMap) (ParamMap) (ContextMap) (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -- CInterface -------------------------------------------------- {- alternatives: alternative CInterface: child seg : CSegments -} -data CInterface = CInterface (CSegments ) +data CInterface = CInterface (CSegments) -- CNonterminal ------------------------------------------------ {- alternatives: @@ -41,7 +41,7 @@ child prods : CProductions child inter : CInterface -} -data CNonterminal = CNonterminal (NontermIdent) (([Identifier])) (Attributes) (Attributes) (CProductions ) (CInterface ) +data CNonterminal = CNonterminal (NontermIdent) ([Identifier]) (Attributes) (Attributes) (CProductions) (CInterface) -- CNonterminals ----------------------------------------------- {- alternatives: @@ -50,17 +50,17 @@ child tl : CNonterminals alternative Nil: -} -type CNonterminals = [CNonterminal ] +type CNonterminals = [(CNonterminal)] -- CProduction ------------------------------------------------- {- alternatives: alternative CProduction: child con : {ConstructorIdent} child visits : CVisits - child children : {[(Identifier,Type,Bool)]} + child children : {[(Identifier,Type,Maybe (Maybe Type))]} child terminals : {[Identifier]} -} -data CProduction = CProduction (ConstructorIdent) (CVisits ) (([(Identifier,Type,Bool)])) (([Identifier])) +data CProduction = CProduction (ConstructorIdent) (CVisits) ([(Identifier,Type,Maybe (Maybe Type))]) ([Identifier]) -- CProductions ------------------------------------------------ {- alternatives: @@ -69,7 +69,7 @@ child tl : CProductions alternative Nil: -} -type CProductions = [CProduction ] +type CProductions = [(CProduction)] -- CRule ------------------------------------------------------- {- alternatives: @@ -99,7 +99,7 @@ child mbNamed : {Maybe Identifier} -} data CRule = CChildVisit (Identifier) (NontermIdent) (Int) (Attributes) (Attributes) (Bool) - | CRule (Identifier) (Bool) (Bool) (NontermIdent) (ConstructorIdent) (Identifier) ((Maybe NontermIdent)) ((Maybe Type)) (Pattern) (([String])) ((Map Int (Identifier,Identifier,Maybe Type))) (Bool) (String) ((Set (Identifier, Identifier))) (Bool) ((Maybe Identifier)) + | CRule (Identifier) (Bool) (Bool) (NontermIdent) (ConstructorIdent) (Identifier) (Maybe NontermIdent) (Maybe Type) (Pattern) ([String]) (Map Int (Identifier,Identifier,Maybe Type)) (Bool) (String) (Set (Identifier, Identifier)) (Bool) (Maybe Identifier) -- CSegment ---------------------------------------------------- {- alternatives: @@ -116,7 +116,7 @@ child tl : CSegments alternative Nil: -} -type CSegments = [CSegment ] +type CSegments = [(CSegment)] -- CVisit ------------------------------------------------------ {- alternatives: @@ -127,7 +127,7 @@ child intra : Sequence child ordered : {Bool} -} -data CVisit = CVisit (Attributes) (Attributes) (Sequence ) (Sequence ) (Bool) +data CVisit = CVisit (Attributes) (Attributes) (Sequence) (Sequence) (Bool) -- CVisits ----------------------------------------------------- {- alternatives: @@ -136,7 +136,7 @@ child tl : CVisits alternative Nil: -} -type CVisits = [CVisit ] +type CVisits = [(CVisit)] -- Sequence ---------------------------------------------------- {- alternatives: @@ -145,4 +145,4 @@ child tl : Sequence alternative Nil: -} -type Sequence = [CRule ] +type Sequence = [(CRule)] 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.22 (CodeSyntaxDump.ag) +-- UUAGC 0.9.21 (CodeSyntaxDump.ag) module CodeSyntaxDump where {-# LINE 5 "CodeSyntaxDump.ag" #-} @@ -29,9 +29,9 @@ {-# LINE 30 "../src-derived/CodeSyntaxDump.hs" #-} {-# LINE 15 "CodeSyntaxDump.ag" #-} -ppChild :: (Identifier,Type,Bool) -> PP_Doc +ppChild :: (Identifier,Type,Maybe (Maybe Type)) -> PP_Doc ppChild (nm,tp,b) - = pp nm >#< "::" >#< pp (show tp) >#< "<" >|< ppBool b >|< ">" + = pp nm >#< "::" >#< pp (show tp) ppVertexMap :: Map Int (Identifier,Identifier,Maybe Type) -> PP_Doc ppVertexMap m @@ -223,7 +223,7 @@ -- semantic domain newtype T_CNonterminals = T_CNonterminals (( PP_Doc,([PP_Doc]))) data Inh_CNonterminals = Inh_CNonterminals {} -data Syn_CNonterminals = Syn_CNonterminals {pp_Syn_CNonterminals :: PP_Doc,ppL_Syn_CNonterminals :: ([PP_Doc])} +data Syn_CNonterminals = Syn_CNonterminals {pp_Syn_CNonterminals :: PP_Doc,ppL_Syn_CNonterminals :: [PP_Doc]} wrap_CNonterminals :: T_CNonterminals -> Inh_CNonterminals -> Syn_CNonterminals @@ -279,7 +279,7 @@ alternative CProduction: child con : {ConstructorIdent} child visits : CVisits - child children : {[(Identifier,Type,Bool)]} + child children : {[(Identifier,Type,Maybe (Maybe Type))]} child terminals : {[Identifier]} -} -- cata @@ -300,7 +300,7 @@ in (Syn_CProduction _lhsOpp )) sem_CProduction_CProduction :: ConstructorIdent -> T_CVisits -> - ([(Identifier,Type,Bool)]) -> + ([(Identifier,Type,Maybe (Maybe Type))]) -> ([Identifier]) -> T_CProduction sem_CProduction_CProduction con_ (T_CVisits visits_ ) children_ terminals_ = @@ -335,7 +335,7 @@ -- semantic domain newtype T_CProductions = T_CProductions (( PP_Doc,([PP_Doc]))) data Inh_CProductions = Inh_CProductions {} -data Syn_CProductions = Syn_CProductions {pp_Syn_CProductions :: PP_Doc,ppL_Syn_CProductions :: ([PP_Doc])} +data Syn_CProductions = Syn_CProductions {pp_Syn_CProductions :: PP_Doc,ppL_Syn_CProductions :: [PP_Doc]} wrap_CProductions :: T_CProductions -> Inh_CProductions -> Syn_CProductions @@ -465,7 +465,7 @@ T_CRule sem_CRule_CRule name_ isIn_ hasCode_ nt_ con_ field_ childnt_ tp_ (T_Pattern pattern_ ) rhs_ defines_ owrt_ origin_ uses_ explicit_ mbNamed_ = (T_CRule (let _lhsOpp :: PP_Doc - _patternIcopy :: Pattern + _patternIcopy :: Pattern _patternIpp :: PP_Doc -- "CodeSyntaxDump.ag"(line 69, column 33) _lhsOpp = @@ -532,7 +532,7 @@ -- semantic domain newtype T_CSegments = T_CSegments (( PP_Doc,([PP_Doc]))) data Inh_CSegments = Inh_CSegments {} -data Syn_CSegments = Syn_CSegments {pp_Syn_CSegments :: PP_Doc,ppL_Syn_CSegments :: ([PP_Doc])} +data Syn_CSegments = Syn_CSegments {pp_Syn_CSegments :: PP_Doc,ppL_Syn_CSegments :: [PP_Doc]} wrap_CSegments :: T_CSegments -> Inh_CSegments -> Syn_CSegments @@ -648,7 +648,7 @@ -- semantic domain newtype T_CVisits = T_CVisits (( PP_Doc,([PP_Doc]))) data Inh_CVisits = Inh_CVisits {} -data Syn_CVisits = Syn_CVisits {pp_Syn_CVisits :: PP_Doc,ppL_Syn_CVisits :: ([PP_Doc])} +data Syn_CVisits = Syn_CVisits {pp_Syn_CVisits :: PP_Doc,ppL_Syn_CVisits :: [PP_Doc]} wrap_CVisits :: T_CVisits -> Inh_CVisits -> Syn_CVisits @@ -742,9 +742,9 @@ sem_Pattern (Underscore _pos ) = (sem_Pattern_Underscore _pos ) -- semantic domain -newtype T_Pattern = T_Pattern (( Pattern ,PP_Doc)) +newtype T_Pattern = T_Pattern (( Pattern,PP_Doc)) data Inh_Pattern = Inh_Pattern {} -data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: Pattern ,pp_Syn_Pattern :: PP_Doc} +data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: Pattern,pp_Syn_Pattern :: PP_Doc} wrap_Pattern :: T_Pattern -> Inh_Pattern -> Syn_Pattern @@ -759,10 +759,10 @@ T_Pattern sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) = (T_Pattern (let _lhsOpp :: PP_Doc - _lhsOcopy :: Pattern - _patIcopy :: Pattern + _lhsOcopy :: Pattern + _patIcopy :: Pattern _patIpp :: PP_Doc - _partsIcopy :: Patterns + _partsIcopy :: Patterns _partsIpp :: PP_Doc _partsIppL :: ([PP_Doc]) -- "CodeSyntaxDump.ag"(line 75, column 33) @@ -790,8 +790,8 @@ T_Pattern sem_Pattern_Constr name_ (T_Patterns pats_ ) = (T_Pattern (let _lhsOpp :: PP_Doc - _lhsOcopy :: Pattern - _patsIcopy :: Patterns + _lhsOcopy :: Pattern + _patsIcopy :: Patterns _patsIpp :: PP_Doc _patsIppL :: ([PP_Doc]) -- "CodeSyntaxDump.ag"(line 73, column 33) @@ -816,8 +816,8 @@ T_Pattern sem_Pattern_Irrefutable (T_Pattern pat_ ) = (T_Pattern (let _lhsOpp :: PP_Doc - _lhsOcopy :: Pattern - _patIcopy :: Pattern + _lhsOcopy :: Pattern + _patIcopy :: Pattern _patIpp :: PP_Doc -- use rule "CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = @@ -842,8 +842,8 @@ T_Pattern sem_Pattern_Product pos_ (T_Patterns pats_ ) = (T_Pattern (let _lhsOpp :: PP_Doc - _lhsOcopy :: Pattern - _patsIcopy :: Patterns + _lhsOcopy :: Pattern + _patsIcopy :: Patterns _patsIpp :: PP_Doc _patsIppL :: ([PP_Doc]) -- "CodeSyntaxDump.ag"(line 74, column 33) @@ -868,7 +868,7 @@ T_Pattern sem_Pattern_Underscore pos_ = (T_Pattern (let _lhsOpp :: PP_Doc - _lhsOcopy :: Pattern + _lhsOcopy :: Pattern -- "CodeSyntaxDump.ag"(line 76, column 25) _lhsOpp = ({-# LINE 76 "CodeSyntaxDump.ag" #-} @@ -908,9 +908,9 @@ sem_Patterns list = (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) ) -- semantic domain -newtype T_Patterns = T_Patterns (( Patterns ,PP_Doc,([PP_Doc]))) +newtype T_Patterns = T_Patterns (( Patterns,PP_Doc,([PP_Doc]))) data Inh_Patterns = Inh_Patterns {} -data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: Patterns ,pp_Syn_Patterns :: PP_Doc,ppL_Syn_Patterns :: ([PP_Doc])} +data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: Patterns,pp_Syn_Patterns :: PP_Doc,ppL_Syn_Patterns :: [PP_Doc]} wrap_Patterns :: T_Patterns -> Inh_Patterns -> Syn_Patterns @@ -924,10 +924,10 @@ sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) = (T_Patterns (let _lhsOppL :: ([PP_Doc]) _lhsOpp :: PP_Doc - _lhsOcopy :: Patterns - _hdIcopy :: Pattern + _lhsOcopy :: Patterns + _hdIcopy :: Pattern _hdIpp :: PP_Doc - _tlIcopy :: Patterns + _tlIcopy :: Patterns _tlIpp :: PP_Doc _tlIppL :: ([PP_Doc]) -- "CodeSyntaxDump.ag"(line 82, column 33) @@ -959,7 +959,7 @@ sem_Patterns_Nil = (T_Patterns (let _lhsOppL :: ([PP_Doc]) _lhsOpp :: PP_Doc - _lhsOcopy :: Patterns + _lhsOcopy :: Patterns -- "CodeSyntaxDump.ag"(line 83, column 33) _lhsOppL = ({-# LINE 83 "CodeSyntaxDump.ag" #-} @@ -1000,7 +1000,7 @@ -- semantic domain newtype T_Sequence = T_Sequence (( ([PP_Doc]))) data Inh_Sequence = Inh_Sequence {} -data Syn_Sequence = Syn_Sequence {ppL_Syn_Sequence :: ([PP_Doc])} +data Syn_Sequence = Syn_Sequence {ppL_Syn_Sequence :: [PP_Doc]} wrap_Sequence :: T_Sequence -> Inh_Sequence -> Syn_Sequence 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.22 (ConcreteSyntax.ag) +-- UUAGC 0.9.21 (ConcreteSyntax.ag) module ConcreteSyntax where {-# LINE 2 "ConcreteSyntax.ag" #-} @@ -15,7 +15,7 @@ alternative AG: child elems : Elems -} -data AG = AG (Elems ) +data AG = AG (Elems) -- Alt --------------------------------------------------------- {- alternatives: @@ -24,7 +24,7 @@ child names : ConstructorSet child fields : {Fields} -} -data Alt = Alt (Pos) (ConstructorSet ) (Fields) +data Alt = Alt (Pos) (ConstructorSet) (Fields) -- Alts -------------------------------------------------------- {- alternatives: @@ -33,7 +33,7 @@ child tl : Alts alternative Nil: -} -type Alts = [Alt ] +type Alts = [(Alt)] -- Attrs ------------------------------------------------------- {- alternatives: @@ -58,9 +58,9 @@ child set2 : ConstructorSet -} data ConstructorSet = CAll - | CDifference (ConstructorSet ) (ConstructorSet ) + | CDifference (ConstructorSet) (ConstructorSet) | CName (ConstructorIdent) - | CUnion (ConstructorSet ) (ConstructorSet ) + | CUnion (ConstructorSet) (ConstructorSet) -- Elem -------------------------------------------------------- {- alternatives: @@ -114,16 +114,16 @@ child pos : {Pos} child set : NontSet -} -data Elem = Attr (Pos) (ClassContext) (NontSet ) (Attrs ) - | Data (Pos) (ClassContext) (NontSet ) (([Identifier])) (Attrs ) (Alts ) (Bool) - | Deriving (Pos) (NontSet ) (([NontermIdent])) +data Elem = Attr (Pos) (ClassContext) (NontSet) (Attrs) + | Data (Pos) (ClassContext) (NontSet) ([Identifier]) (Attrs) (Alts) (Bool) + | Deriving (Pos) (NontSet) ([NontermIdent]) | Module (Pos) (String) (String) (String) - | Pragma (Pos) (([NontermIdent])) - | Sem (Pos) (ClassContext) (NontSet ) (Attrs ) (SemAlts ) - | Set (Pos) (NontermIdent) (NontSet ) - | Txt (Pos) (Identifier) ((Maybe NontermIdent)) (([String])) - | Type (Pos) (ClassContext) (NontermIdent) (([Identifier])) (ComplexType) - | Wrapper (Pos) (NontSet ) + | Pragma (Pos) ([NontermIdent]) + | Sem (Pos) (ClassContext) (NontSet) (Attrs) (SemAlts) + | Set (Pos) (NontermIdent) (NontSet) + | Txt (Pos) (Identifier) (Maybe NontermIdent) ([String]) + | Type (Pos) (ClassContext) (NontermIdent) ([Identifier]) (ComplexType) + | Wrapper (Pos) (NontSet) -- Elems ------------------------------------------------------- {- alternatives: @@ -132,7 +132,7 @@ child tl : Elems alternative Nil: -} -type Elems = [Elem ] +type Elems = [(Elem)] -- NontSet ----------------------------------------------------- {- alternatives: @@ -153,11 +153,11 @@ child set2 : NontSet -} data NontSet = All - | Difference (NontSet ) (NontSet ) - | Intersect (NontSet ) (NontSet ) + | Difference (NontSet) (NontSet) + | Intersect (NontSet) (NontSet) | NamedSet (NontermIdent) | Path (NontermIdent) (NontermIdent) - | Union (NontSet ) (NontSet ) + | Union (NontSet) (NontSet) -- SemAlt ------------------------------------------------------ {- alternatives: @@ -166,7 +166,7 @@ child constructorSet : ConstructorSet child rules : SemDefs -} -data SemAlt = SemAlt (Pos) (ConstructorSet ) (SemDefs ) +data SemAlt = SemAlt (Pos) (ConstructorSet) (SemDefs) -- SemAlts ----------------------------------------------------- {- alternatives: @@ -175,7 +175,7 @@ child tl : SemAlts alternative Nil: -} -type SemAlts = [SemAlt ] +type SemAlts = [(SemAlt)] -- SemDef ------------------------------------------------------ {- alternatives: @@ -204,10 +204,10 @@ child ref : {Identifier} -} data SemDef = AroundDef (Identifier) (Expression) - | AttrOrderBefore (([Occurrence])) (([Occurrence])) + | AttrOrderBefore ([Occurrence]) ([Occurrence]) | AugmentDef (Identifier) (Expression) - | Def (Pos) ((Maybe Identifier)) (Pattern) (Expression) (Bool) - | SemPragma (([NontermIdent])) + | Def (Pos) (Maybe Identifier) (Pattern) (Expression) (Bool) + | SemPragma ([NontermIdent]) | TypeDef (Identifier) (Type) | UniqueDef (Identifier) (Identifier) -- SemDefs ----------------------------------------------------- @@ -218,4 +218,4 @@ child tl : SemDefs alternative Nil: -} -type SemDefs = [SemDef ] +type SemDefs = [(SemDef)] 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.22 (DeclBlocks.ag) +-- UUAGC 0.9.21 (DeclBlocks.ag) module DeclBlocks where {-# LINE 2 "DeclBlocks.ag" #-} @@ -17,12 +17,12 @@ child defs : {[Decl]} child result : {Expr} -} -data DeclBlocks = DeclBlock (([Decl])) (Decl) (DeclBlocks ) - | DeclTerminator (([Decl])) (Expr) +data DeclBlocks = DeclBlock ([Decl]) (Decl) (DeclBlocks) + | DeclTerminator ([Decl]) (Expr) -- DeclBlocksRoot ---------------------------------------------- {- alternatives: alternative DeclBlocksRoot: child blocks : DeclBlocks -} -data DeclBlocksRoot = DeclBlocksRoot (DeclBlocks ) +data DeclBlocksRoot = DeclBlocksRoot (DeclBlocks) 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.22 (DefaultRules.ag) +-- UUAGC 0.9.21 (DefaultRules.ag) module DefaultRules where {-# LINE 10 "DefaultRules.ag" #-} @@ -242,7 +242,7 @@ deprChild = maybe False (== _ACHILD) sel {-# LINE 244 "../src-derived/DefaultRules.hs" #-} -{-# LINE 397 "DefaultRules.ag" #-} +{-# LINE 401 "DefaultRules.ag" #-} addAugments :: (Identifier, [Expression]) -> [Rule] -> [Rule] addAugments (_, exprs) rules @@ -292,7 +292,7 @@ funRules = zipWith (\name expr -> Rule Nothing (Alias _LOC name (Underscore noPos) []) expr False "around function" False) funNames exprs {-# LINE 294 "../src-derived/DefaultRules.hs" #-} -{-# LINE 504 "DefaultRules.ag" #-} +{-# LINE 508 "DefaultRules.ag" #-} {- multiRule replaces @@ -358,7 +358,7 @@ nt : NontermIdent synthesized attributes: errors : Seq Error - field : (Identifier,Type,Bool) + field : (Identifier,Type,Maybe (Maybe Type)) inherited : Attributes name : Identifier output : SELF @@ -369,22 +369,22 @@ child tp : {Type} child inh : {Attributes} child syn : {Attributes} - child higherOrder : {Bool} + child virtual : {Maybe (Maybe Type)} visit 0: local output : _ -} -- cata sem_Child :: Child -> T_Child -sem_Child !(Child _name _tp _inh _syn _higherOrder ) = - (sem_Child_Child _name _tp _inh _syn _higherOrder ) +sem_Child !(Child _name _tp _inh _syn _virtual ) = + (sem_Child_Child _name _tp _inh _syn _virtual ) -- semantic domain newtype T_Child = T_Child (ConstructorIdent -> Bool -> NontermIdent -> - ( (Seq Error),( (Identifier,Type,Bool) ),Attributes,Identifier,Child ,Attributes)) + ( (Seq Error),( (Identifier,Type,Maybe (Maybe Type)) ),Attributes,Identifier,Child,Attributes)) data Inh_Child = Inh_Child {con_Inh_Child :: !(ConstructorIdent),cr_Inh_Child :: !(Bool),nt_Inh_Child :: !(NontermIdent)} -data Syn_Child = Syn_Child {errors_Syn_Child :: !((Seq Error)),field_Syn_Child :: !(( (Identifier,Type,Bool) )),inherited_Syn_Child :: !(Attributes),name_Syn_Child :: !(Identifier),output_Syn_Child :: !(Child ),synthesized_Syn_Child :: !(Attributes)} +data Syn_Child = Syn_Child {errors_Syn_Child :: !(Seq Error),field_Syn_Child :: !( (Identifier,Type,Maybe (Maybe Type)) ),inherited_Syn_Child :: !(Attributes),name_Syn_Child :: !(Identifier),output_Syn_Child :: !(Child),synthesized_Syn_Child :: !(Attributes)} wrap_Child :: T_Child -> Inh_Child -> Syn_Child @@ -396,9 +396,9 @@ Type -> Attributes -> Attributes -> - Bool -> + (Maybe (Maybe Type)) -> T_Child -sem_Child_Child !name_ !tp_ !inh_ !syn_ !higherOrder_ = +sem_Child_Child !name_ !tp_ !inh_ !syn_ !virtual_ = (T_Child (\ (!_lhsIcon) (!_lhsIcr) (!_lhsInt) -> @@ -406,8 +406,8 @@ Seq.empty {-# LINE 408 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 464 "DefaultRules.ag" #-} - (name_,tp_,higherOrder_) + (case (({-# LINE 468 "DefaultRules.ag" #-} + (name_,tp_,virtual_) {-# LINE 412 "DefaultRules.hs" #-})) of { !_lhsOfield -> (case (({-# LINE 155 "DefaultRules.ag" #-} @@ -418,11 +418,11 @@ name_ {-# LINE 420 "DefaultRules.hs" #-})) of { !_lhsOname -> - (case (({-# LINE 485 "DefaultRules.ag" #-} - Child name_ tp_ inh_ syn_ higherOrder_ + (case (({-# LINE 489 "DefaultRules.ag" #-} + Child name_ tp_ inh_ syn_ virtual_ {-# LINE 424 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output {-# LINE 428 "DefaultRules.hs" #-})) of { !_lhsOoutput -> @@ -440,7 +440,7 @@ nt : NontermIdent synthesized attributes: errors : Seq Error - fields : [(Identifier,Type,Bool)] + fields : [(Identifier,Type,Maybe (Maybe Type))] inputs : [(Identifier, Attributes)] output : SELF outputs : [(Identifier, Attributes)] @@ -463,9 +463,9 @@ newtype T_Children = T_Children (ConstructorIdent -> Bool -> NontermIdent -> - ( (Seq Error),([(Identifier,Type,Bool)]),([(Identifier, Attributes)]),Children ,([(Identifier, Attributes)]))) + ( (Seq Error),([(Identifier,Type,Maybe (Maybe Type))]),([(Identifier, Attributes)]),Children,([(Identifier, Attributes)]))) data Inh_Children = Inh_Children {con_Inh_Children :: !(ConstructorIdent),cr_Inh_Children :: !(Bool),nt_Inh_Children :: !(NontermIdent)} -data Syn_Children = Syn_Children {errors_Syn_Children :: !((Seq Error)),fields_Syn_Children :: !(([(Identifier,Type,Bool)])),inputs_Syn_Children :: !(([(Identifier, Attributes)])),output_Syn_Children :: !(Children ),outputs_Syn_Children :: !(([(Identifier, Attributes)]))} +data Syn_Children = Syn_Children {errors_Syn_Children :: !(Seq Error),fields_Syn_Children :: !([(Identifier,Type,Maybe (Maybe Type))]),inputs_Syn_Children :: !([(Identifier, Attributes)]),output_Syn_Children :: !(Children),outputs_Syn_Children :: !([(Identifier, Attributes)])} wrap_Children :: T_Children -> Inh_Children -> Syn_Children @@ -512,7 +512,7 @@ _hdIerrors Seq.>< _tlIerrors {-# LINE 514 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 460 "DefaultRules.ag" #-} + (case (({-# LINE 464 "DefaultRules.ag" #-} _hdIfield : _tlIfields {-# LINE 518 "DefaultRules.hs" #-})) of { !_lhsOfields -> @@ -520,11 +520,11 @@ (_hdIname, _hdIinherited) : _tlIinputs {-# LINE 522 "DefaultRules.hs" #-})) of { !_lhsOinputs -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} (:) _hdIoutput _tlIoutput {-# LINE 526 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output {-# LINE 530 "DefaultRules.hs" #-})) of { !_lhsOoutput -> @@ -542,7 +542,7 @@ Seq.empty {-# LINE 544 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 461 "DefaultRules.ag" #-} + (case (({-# LINE 465 "DefaultRules.ag" #-} [] {-# LINE 548 "DefaultRules.hs" #-})) of { !_lhsOfields -> @@ -550,11 +550,11 @@ [] {-# LINE 552 "DefaultRules.hs" #-})) of { !_lhsOinputs -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} [] {-# LINE 556 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output {-# LINE 560 "DefaultRules.hs" #-})) of { !_lhsOoutput -> @@ -595,9 +595,9 @@ (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap ) -- semantic domain newtype T_Grammar = T_Grammar (Options -> - ( (Seq Error),Grammar )) + ( (Seq Error),Grammar)) data Inh_Grammar = Inh_Grammar {options_Inh_Grammar :: !(Options)} -data Syn_Grammar = Syn_Grammar {errors_Syn_Grammar :: !((Seq Error)),output_Syn_Grammar :: !(Grammar )} +data Syn_Grammar = Syn_Grammar {errors_Syn_Grammar :: !(Seq Error),output_Syn_Grammar :: !(Grammar)} wrap_Grammar :: T_Grammar -> Inh_Grammar -> Syn_Grammar @@ -620,7 +620,7 @@ T_Grammar sem_Grammar_Grammar !typeSyns_ !useMap_ !derivings_ !wrappers_ !(T_Nonterminals nonts_ ) !pragmas_ !manualAttrOrderMap_ !paramMap_ !contextMap_ !uniqueMap_ !augmentsMap_ !aroundsMap_ = (T_Grammar (\ (!_lhsIoptions) -> - (case (({-# LINE 569 "DefaultRules.ag" #-} + (case (({-# LINE 573 "DefaultRules.ag" #-} manualAttrOrderMap_ {-# LINE 626 "DefaultRules.hs" #-})) of { !_nontsOmanualAttrOrderMap -> @@ -642,15 +642,15 @@ { !_nontsOo_rename -> (case ((nonts_ )) of { ( !_nontsIcollect_nts,!T_Nonterminals_1 nonts_1) -> - (case (({-# LINE 642 "DefaultRules.ag" #-} + (case (({-# LINE 646 "DefaultRules.ag" #-} aroundsMap_ {-# LINE 648 "DefaultRules.hs" #-})) of { !_nontsOaroundsIn -> - (case (({-# LINE 635 "DefaultRules.ag" #-} + (case (({-# LINE 639 "DefaultRules.ag" #-} augmentsMap_ {-# LINE 652 "DefaultRules.hs" #-})) of { !_nontsOaugmentsIn -> - (case (({-# LINE 481 "DefaultRules.ag" #-} + (case (({-# LINE 485 "DefaultRules.ag" #-} 1 {-# LINE 656 "DefaultRules.hs" #-})) of { !_nontsOuniq -> @@ -664,11 +664,11 @@ _nontsIerrors {-# LINE 666 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} Grammar typeSyns_ useMap_ derivings_ wrappers_ _nontsIoutput pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ uniqueMap_ augmentsMap_ aroundsMap_ {-# LINE 670 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output {-# LINE 674 "DefaultRules.hs" #-})) of { !_lhsOoutput -> @@ -721,9 +721,9 @@ TypeSyns -> Int -> UseMap -> - ( (Seq Error),Nonterminal ,Int)) -data Inh_Nonterminal = Inh_Nonterminal {aroundsIn_Inh_Nonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))),augmentsIn_Inh_Nonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))),cr_Inh_Nonterminal :: !(Bool),manualAttrOrderMap_Inh_Nonterminal :: !(AttrOrderMap),nonterminals_Inh_Nonterminal :: !((Set NontermIdent)),o_rename_Inh_Nonterminal :: !(Bool),typeSyns_Inh_Nonterminal :: !(TypeSyns),uniq_Inh_Nonterminal :: !(Int),useMap_Inh_Nonterminal :: !(UseMap)} -data Syn_Nonterminal = Syn_Nonterminal {collect_nts_Syn_Nonterminal :: !((Set NontermIdent)),errors_Syn_Nonterminal :: !((Seq Error)),output_Syn_Nonterminal :: !(Nonterminal ),uniq_Syn_Nonterminal :: !(Int)} + ( (Seq Error),Nonterminal,Int)) +data Inh_Nonterminal = Inh_Nonterminal {aroundsIn_Inh_Nonterminal :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))),augmentsIn_Inh_Nonterminal :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))),cr_Inh_Nonterminal :: !(Bool),manualAttrOrderMap_Inh_Nonterminal :: !(AttrOrderMap),nonterminals_Inh_Nonterminal :: !(Set NontermIdent),o_rename_Inh_Nonterminal :: !(Bool),typeSyns_Inh_Nonterminal :: !(TypeSyns),uniq_Inh_Nonterminal :: !(Int),useMap_Inh_Nonterminal :: !(UseMap)} +data Syn_Nonterminal = Syn_Nonterminal {collect_nts_Syn_Nonterminal :: !(Set NontermIdent),errors_Syn_Nonterminal :: !(Seq Error),output_Syn_Nonterminal :: !(Nonterminal),uniq_Syn_Nonterminal :: !(Int)} wrap_Nonterminal :: T_Nonterminal -> Inh_Nonterminal -> Syn_Nonterminal @@ -771,7 +771,7 @@ _lhsIo_rename {-# LINE 773 "DefaultRules.hs" #-})) of { !_prodsOo_rename -> - (case (({-# LINE 565 "DefaultRules.ag" #-} + (case (({-# LINE 569 "DefaultRules.ag" #-} _lhsImanualAttrOrderMap {-# LINE 777 "DefaultRules.hs" #-})) of { !_prodsOmanualAttrOrderMap -> @@ -795,7 +795,7 @@ inh_ {-# LINE 797 "DefaultRules.hs" #-})) of { !_prodsOinh -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _lhsIuniq {-# LINE 801 "DefaultRules.hs" #-})) of { !_prodsOuniq -> @@ -803,19 +803,19 @@ _lhsInonterminals {-# LINE 805 "DefaultRules.hs" #-})) of { !_prodsOnonterminals -> - (case (({-# LINE 636 "DefaultRules.ag" #-} + (case (({-# LINE 640 "DefaultRules.ag" #-} Map.findWithDefault Map.empty nt_ _lhsIaugmentsIn {-# LINE 809 "DefaultRules.hs" #-})) of { !_augmentsIn -> - (case (({-# LINE 633 "DefaultRules.ag" #-} + (case (({-# LINE 637 "DefaultRules.ag" #-} _augmentsIn {-# LINE 813 "DefaultRules.hs" #-})) of { !_prodsOaugmentsIn -> - (case (({-# LINE 643 "DefaultRules.ag" #-} + (case (({-# LINE 647 "DefaultRules.ag" #-} Map.findWithDefault Map.empty nt_ _lhsIaroundsIn {-# LINE 817 "DefaultRules.hs" #-})) of { !_aroundsIn -> - (case (({-# LINE 640 "DefaultRules.ag" #-} + (case (({-# LINE 644 "DefaultRules.ag" #-} _aroundsIn {-# LINE 821 "DefaultRules.hs" #-})) of { !_prodsOaroundsIn -> @@ -825,15 +825,15 @@ _prodsIerrors {-# LINE 827 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} Nonterminal nt_ params_ inh_ syn_ _prodsIoutput {-# LINE 831 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output {-# LINE 835 "DefaultRules.hs" #-})) of { !_lhsOoutput -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _prodsIuniq {-# LINE 839 "DefaultRules.hs" #-})) of { !_lhsOuniq -> @@ -884,9 +884,9 @@ TypeSyns -> Int -> UseMap -> - ( (Seq Error),Nonterminals ,Int)) -data Inh_Nonterminals = Inh_Nonterminals {aroundsIn_Inh_Nonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))),augmentsIn_Inh_Nonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))),cr_Inh_Nonterminals :: !(Bool),manualAttrOrderMap_Inh_Nonterminals :: !(AttrOrderMap),nonterminals_Inh_Nonterminals :: !((Set NontermIdent)),o_rename_Inh_Nonterminals :: !(Bool),typeSyns_Inh_Nonterminals :: !(TypeSyns),uniq_Inh_Nonterminals :: !(Int),useMap_Inh_Nonterminals :: !(UseMap)} -data Syn_Nonterminals = Syn_Nonterminals {collect_nts_Syn_Nonterminals :: !((Set NontermIdent)),errors_Syn_Nonterminals :: !((Seq Error)),output_Syn_Nonterminals :: !(Nonterminals ),uniq_Syn_Nonterminals :: !(Int)} + ( (Seq Error),Nonterminals,Int)) +data Inh_Nonterminals = Inh_Nonterminals {aroundsIn_Inh_Nonterminals :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))),augmentsIn_Inh_Nonterminals :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))),cr_Inh_Nonterminals :: !(Bool),manualAttrOrderMap_Inh_Nonterminals :: !(AttrOrderMap),nonterminals_Inh_Nonterminals :: !(Set NontermIdent),o_rename_Inh_Nonterminals :: !(Bool),typeSyns_Inh_Nonterminals :: !(TypeSyns),uniq_Inh_Nonterminals :: !(Int),useMap_Inh_Nonterminals :: !(UseMap)} +data Syn_Nonterminals = Syn_Nonterminals {collect_nts_Syn_Nonterminals :: !(Set NontermIdent),errors_Syn_Nonterminals :: !(Seq Error),output_Syn_Nonterminals :: !(Nonterminals),uniq_Syn_Nonterminals :: !(Int)} wrap_Nonterminals :: T_Nonterminals -> Inh_Nonterminals -> Syn_Nonterminals @@ -936,7 +936,7 @@ _lhsIo_rename {-# LINE 938 "DefaultRules.hs" #-})) of { !_tlOo_rename -> - (case (({-# LINE 565 "DefaultRules.ag" #-} + (case (({-# LINE 569 "DefaultRules.ag" #-} _lhsImanualAttrOrderMap {-# LINE 942 "DefaultRules.hs" #-})) of { !_tlOmanualAttrOrderMap -> @@ -956,7 +956,7 @@ _lhsIo_rename {-# LINE 958 "DefaultRules.hs" #-})) of { !_hdOo_rename -> - (case (({-# LINE 565 "DefaultRules.ag" #-} + (case (({-# LINE 569 "DefaultRules.ag" #-} _lhsImanualAttrOrderMap {-# LINE 962 "DefaultRules.hs" #-})) of { !_hdOmanualAttrOrderMap -> @@ -964,7 +964,7 @@ _lhsIcr {-# LINE 966 "DefaultRules.hs" #-})) of { !_hdOcr -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _lhsIuniq {-# LINE 970 "DefaultRules.hs" #-})) of { !_hdOuniq -> @@ -972,17 +972,17 @@ _lhsInonterminals {-# LINE 974 "DefaultRules.hs" #-})) of { !_hdOnonterminals -> - (case (({-# LINE 632 "DefaultRules.ag" #-} + (case (({-# LINE 636 "DefaultRules.ag" #-} _lhsIaugmentsIn {-# LINE 978 "DefaultRules.hs" #-})) of { !_hdOaugmentsIn -> - (case (({-# LINE 639 "DefaultRules.ag" #-} + (case (({-# LINE 643 "DefaultRules.ag" #-} _lhsIaroundsIn {-# LINE 982 "DefaultRules.hs" #-})) of { !_hdOaroundsIn -> (case ((hd_1 _hdOaroundsIn _hdOaugmentsIn _hdOcr _hdOmanualAttrOrderMap _hdOnonterminals _hdOo_rename _hdOtypeSyns _hdOuniq _hdOuseMap )) of { ( !_hdIerrors,!_hdIoutput,!_hdIuniq) -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _hdIuniq {-# LINE 988 "DefaultRules.hs" #-})) of { !_tlOuniq -> @@ -990,11 +990,11 @@ _lhsInonterminals {-# LINE 992 "DefaultRules.hs" #-})) of { !_tlOnonterminals -> - (case (({-# LINE 632 "DefaultRules.ag" #-} + (case (({-# LINE 636 "DefaultRules.ag" #-} _lhsIaugmentsIn {-# LINE 996 "DefaultRules.hs" #-})) of { !_tlOaugmentsIn -> - (case (({-# LINE 639 "DefaultRules.ag" #-} + (case (({-# LINE 643 "DefaultRules.ag" #-} _lhsIaroundsIn {-# LINE 1000 "DefaultRules.hs" #-})) of { !_tlOaroundsIn -> @@ -1004,15 +1004,15 @@ _hdIerrors Seq.>< _tlIerrors {-# LINE 1006 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} (:) _hdIoutput _tlIoutput {-# LINE 1010 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output {-# LINE 1014 "DefaultRules.hs" #-})) of { !_lhsOoutput -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _tlIuniq {-# LINE 1018 "DefaultRules.hs" #-})) of { !_lhsOuniq -> @@ -1041,15 +1041,15 @@ Seq.empty {-# LINE 1043 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} [] {-# LINE 1047 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output {-# LINE 1051 "DefaultRules.hs" #-})) of { !_lhsOoutput -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _lhsIuniq {-# LINE 1055 "DefaultRules.hs" #-})) of { !_lhsOuniq -> @@ -1115,9 +1115,9 @@ -- semantic domain newtype T_Pattern = T_Pattern (ConstructorIdent -> NontermIdent -> - ( Bool,Pattern ,(Set (Identifier,Identifier)),(Seq Error),(Set Identifier),Pattern )) + ( Bool,Pattern,(Set (Identifier,Identifier)),(Seq Error),(Set Identifier),Pattern)) data Inh_Pattern = Inh_Pattern {con_Inh_Pattern :: !(ConstructorIdent),nt_Inh_Pattern :: !(NontermIdent)} -data Syn_Pattern = Syn_Pattern {containsVars_Syn_Pattern :: !(Bool),copy_Syn_Pattern :: !(Pattern ),definedAttrs_Syn_Pattern :: !((Set (Identifier,Identifier))),errors_Syn_Pattern :: !((Seq Error)),locals_Syn_Pattern :: !((Set Identifier)),output_Syn_Pattern :: !(Pattern )} +data Syn_Pattern = Syn_Pattern {containsVars_Syn_Pattern :: !(Bool),copy_Syn_Pattern :: !(Pattern),definedAttrs_Syn_Pattern :: !(Set (Identifier,Identifier)),errors_Syn_Pattern :: !(Seq Error),locals_Syn_Pattern :: !(Set Identifier),output_Syn_Pattern :: !(Pattern)} wrap_Pattern :: T_Pattern -> Inh_Pattern -> Syn_Pattern @@ -1133,7 +1133,7 @@ sem_Pattern_Alias !field_ !attr_ !(T_Pattern pat_ ) !(T_Patterns parts_ ) = (T_Pattern (\ (!_lhsIcon) (!_lhsInt) -> - (case (({-# LINE 472 "DefaultRules.ag" #-} + (case (({-# LINE 476 "DefaultRules.ag" #-} True {-# LINE 1139 "DefaultRules.hs" #-})) of { !_lhsOcontainsVars -> @@ -1165,7 +1165,7 @@ _copy {-# LINE 1167 "DefaultRules.hs" #-})) of { !_lhsOcopy -> - (case (({-# LINE 454 "DefaultRules.ag" #-} + (case (({-# LINE 458 "DefaultRules.ag" #-} Set.insert (field_,attr_) _patIdefinedAttrs {-# LINE 1171 "DefaultRules.hs" #-})) of { !_lhsOdefinedAttrs -> @@ -1173,17 +1173,17 @@ _patIerrors Seq.>< _partsIerrors {-# LINE 1175 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 455 "DefaultRules.ag" #-} + (case (({-# LINE 459 "DefaultRules.ag" #-} if field_ == _LOC then Set.insert attr_ _patIlocals else _patIlocals {-# LINE 1181 "DefaultRules.hs" #-})) of { !_lhsOlocals -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} Alias field_ attr_ _patIoutput _partsIoutput {-# LINE 1185 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output {-# LINE 1189 "DefaultRules.hs" #-})) of { !_lhsOoutput -> @@ -1204,7 +1204,7 @@ { !_patsOcon -> (case ((pats_ _patsOcon _patsOnt )) of { ( !_patsIcontainsVars,!_patsIcopy,!_patsIdefinedAttrs,!_patsIerrors,!_patsIlocals,!_patsIoutput) -> - (case (({-# LINE 469 "DefaultRules.ag" #-} + (case (({-# LINE 473 "DefaultRules.ag" #-} _patsIcontainsVars {-# LINE 1210 "DefaultRules.hs" #-})) of { !_lhsOcontainsVars -> @@ -1216,7 +1216,7 @@ _copy {-# LINE 1218 "DefaultRules.hs" #-})) of { !_lhsOcopy -> - (case (({-# LINE 449 "DefaultRules.ag" #-} + (case (({-# LINE 453 "DefaultRules.ag" #-} _patsIdefinedAttrs {-# LINE 1222 "DefaultRules.hs" #-})) of { !_lhsOdefinedAttrs -> @@ -1224,15 +1224,15 @@ _patsIerrors {-# LINE 1226 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 448 "DefaultRules.ag" #-} + (case (({-# LINE 452 "DefaultRules.ag" #-} _patsIlocals {-# LINE 1230 "DefaultRules.hs" #-})) of { !_lhsOlocals -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} Constr name_ _patsIoutput {-# LINE 1234 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output {-# LINE 1238 "DefaultRules.hs" #-})) of { !_lhsOoutput -> @@ -1252,7 +1252,7 @@ { !_patOcon -> (case ((pat_ _patOcon _patOnt )) of { ( !_patIcontainsVars,!_patIcopy,!_patIdefinedAttrs,!_patIerrors,!_patIlocals,!_patIoutput) -> - (case (({-# LINE 469 "DefaultRules.ag" #-} + (case (({-# LINE 473 "DefaultRules.ag" #-} _patIcontainsVars {-# LINE 1258 "DefaultRules.hs" #-})) of { !_lhsOcontainsVars -> @@ -1264,7 +1264,7 @@ _copy {-# LINE 1266 "DefaultRules.hs" #-})) of { !_lhsOcopy -> - (case (({-# LINE 449 "DefaultRules.ag" #-} + (case (({-# LINE 453 "DefaultRules.ag" #-} _patIdefinedAttrs {-# LINE 1270 "DefaultRules.hs" #-})) of { !_lhsOdefinedAttrs -> @@ -1272,15 +1272,15 @@ _patIerrors {-# LINE 1274 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 448 "DefaultRules.ag" #-} + (case (({-# LINE 452 "DefaultRules.ag" #-} _patIlocals {-# LINE 1278 "DefaultRules.hs" #-})) of { !_lhsOlocals -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} Irrefutable _patIoutput {-# LINE 1282 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output {-# LINE 1286 "DefaultRules.hs" #-})) of { !_lhsOoutput -> @@ -1301,7 +1301,7 @@ { !_patsOcon -> (case ((pats_ _patsOcon _patsOnt )) of { ( !_patsIcontainsVars,!_patsIcopy,!_patsIdefinedAttrs,!_patsIerrors,!_patsIlocals,!_patsIoutput) -> - (case (({-# LINE 469 "DefaultRules.ag" #-} + (case (({-# LINE 473 "DefaultRules.ag" #-} _patsIcontainsVars {-# LINE 1307 "DefaultRules.hs" #-})) of { !_lhsOcontainsVars -> @@ -1313,7 +1313,7 @@ _copy {-# LINE 1315 "DefaultRules.hs" #-})) of { !_lhsOcopy -> - (case (({-# LINE 449 "DefaultRules.ag" #-} + (case (({-# LINE 453 "DefaultRules.ag" #-} _patsIdefinedAttrs {-# LINE 1319 "DefaultRules.hs" #-})) of { !_lhsOdefinedAttrs -> @@ -1321,15 +1321,15 @@ _patsIerrors {-# LINE 1323 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 448 "DefaultRules.ag" #-} + (case (({-# LINE 452 "DefaultRules.ag" #-} _patsIlocals {-# LINE 1327 "DefaultRules.hs" #-})) of { !_lhsOlocals -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} Product pos_ _patsIoutput {-# LINE 1331 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output {-# LINE 1335 "DefaultRules.hs" #-})) of { !_lhsOoutput -> @@ -1339,7 +1339,7 @@ sem_Pattern_Underscore !pos_ = (T_Pattern (\ (!_lhsIcon) (!_lhsInt) -> - (case (({-# LINE 469 "DefaultRules.ag" #-} + (case (({-# LINE 473 "DefaultRules.ag" #-} False {-# LINE 1345 "DefaultRules.hs" #-})) of { !_lhsOcontainsVars -> @@ -1351,7 +1351,7 @@ _copy {-# LINE 1353 "DefaultRules.hs" #-})) of { !_lhsOcopy -> - (case (({-# LINE 449 "DefaultRules.ag" #-} + (case (({-# LINE 453 "DefaultRules.ag" #-} Set.empty {-# LINE 1357 "DefaultRules.hs" #-})) of { !_lhsOdefinedAttrs -> @@ -1359,15 +1359,15 @@ Seq.empty {-# LINE 1361 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 448 "DefaultRules.ag" #-} + (case (({-# LINE 452 "DefaultRules.ag" #-} Set.empty {-# LINE 1365 "DefaultRules.hs" #-})) of { !_lhsOlocals -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} Underscore pos_ {-# LINE 1369 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output {-# LINE 1373 "DefaultRules.hs" #-})) of { !_lhsOoutput -> @@ -1405,9 +1405,9 @@ -- semantic domain newtype T_Patterns = T_Patterns (ConstructorIdent -> NontermIdent -> - ( Bool,Patterns ,(Set (Identifier,Identifier)),(Seq Error),(Set Identifier),Patterns )) + ( Bool,Patterns,(Set (Identifier,Identifier)),(Seq Error),(Set Identifier),Patterns)) data Inh_Patterns = Inh_Patterns {con_Inh_Patterns :: !(ConstructorIdent),nt_Inh_Patterns :: !(NontermIdent)} -data Syn_Patterns = Syn_Patterns {containsVars_Syn_Patterns :: !(Bool),copy_Syn_Patterns :: !(Patterns ),definedAttrs_Syn_Patterns :: !((Set (Identifier,Identifier))),errors_Syn_Patterns :: !((Seq Error)),locals_Syn_Patterns :: !((Set Identifier)),output_Syn_Patterns :: !(Patterns )} +data Syn_Patterns = Syn_Patterns {containsVars_Syn_Patterns :: !(Bool),copy_Syn_Patterns :: !(Patterns),definedAttrs_Syn_Patterns :: !(Set (Identifier,Identifier)),errors_Syn_Patterns :: !(Seq Error),locals_Syn_Patterns :: !(Set Identifier),output_Syn_Patterns :: !(Patterns)} wrap_Patterns :: T_Patterns -> Inh_Patterns -> Syn_Patterns @@ -1441,7 +1441,7 @@ { !_hdOcon -> (case ((hd_ _hdOcon _hdOnt )) of { ( !_hdIcontainsVars,!_hdIcopy,!_hdIdefinedAttrs,!_hdIerrors,!_hdIlocals,!_hdIoutput) -> - (case (({-# LINE 469 "DefaultRules.ag" #-} + (case (({-# LINE 473 "DefaultRules.ag" #-} _hdIcontainsVars || _tlIcontainsVars {-# LINE 1447 "DefaultRules.hs" #-})) of { !_lhsOcontainsVars -> @@ -1453,7 +1453,7 @@ _copy {-# LINE 1455 "DefaultRules.hs" #-})) of { !_lhsOcopy -> - (case (({-# LINE 449 "DefaultRules.ag" #-} + (case (({-# LINE 453 "DefaultRules.ag" #-} _hdIdefinedAttrs `Set.union` _tlIdefinedAttrs {-# LINE 1459 "DefaultRules.hs" #-})) of { !_lhsOdefinedAttrs -> @@ -1461,15 +1461,15 @@ _hdIerrors Seq.>< _tlIerrors {-# LINE 1463 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 448 "DefaultRules.ag" #-} + (case (({-# LINE 452 "DefaultRules.ag" #-} _hdIlocals `Set.union` _tlIlocals {-# LINE 1467 "DefaultRules.hs" #-})) of { !_lhsOlocals -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} (:) _hdIoutput _tlIoutput {-# LINE 1471 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output {-# LINE 1475 "DefaultRules.hs" #-})) of { !_lhsOoutput -> @@ -1478,7 +1478,7 @@ sem_Patterns_Nil = (T_Patterns (\ (!_lhsIcon) (!_lhsInt) -> - (case (({-# LINE 469 "DefaultRules.ag" #-} + (case (({-# LINE 473 "DefaultRules.ag" #-} False {-# LINE 1484 "DefaultRules.hs" #-})) of { !_lhsOcontainsVars -> @@ -1490,7 +1490,7 @@ _copy {-# LINE 1492 "DefaultRules.hs" #-})) of { !_lhsOcopy -> - (case (({-# LINE 449 "DefaultRules.ag" #-} + (case (({-# LINE 453 "DefaultRules.ag" #-} Set.empty {-# LINE 1496 "DefaultRules.hs" #-})) of { !_lhsOdefinedAttrs -> @@ -1498,15 +1498,15 @@ Seq.empty {-# LINE 1500 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 448 "DefaultRules.ag" #-} + (case (({-# LINE 452 "DefaultRules.ag" #-} Set.empty {-# LINE 1504 "DefaultRules.hs" #-})) of { !_lhsOlocals -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} [] {-# LINE 1508 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output {-# LINE 1512 "DefaultRules.hs" #-})) of { !_lhsOoutput -> @@ -1566,9 +1566,9 @@ TypeSyns -> Int -> (Map Identifier (String,String,String)) -> - ( (Seq Error),Production ,Int)) -data Inh_Production = Inh_Production {aroundsIn_Inh_Production :: !((Map ConstructorIdent (Map Identifier [Expression]))),augmentsIn_Inh_Production :: !((Map ConstructorIdent (Map Identifier [Expression]))),cr_Inh_Production :: !(Bool),inh_Inh_Production :: !(Attributes),manualAttrOrderMap_Inh_Production :: !(AttrOrderMap),nonterminals_Inh_Production :: !((Set NontermIdent)),nt_Inh_Production :: !(NontermIdent),o_rename_Inh_Production :: !(Bool),syn_Inh_Production :: !(Attributes),typeSyns_Inh_Production :: !(TypeSyns),uniq_Inh_Production :: !(Int),useMap_Inh_Production :: !((Map Identifier (String,String,String)))} -data Syn_Production = Syn_Production {errors_Syn_Production :: !((Seq Error)),output_Syn_Production :: !(Production ),uniq_Syn_Production :: !(Int)} + ( (Seq Error),Production,Int)) +data Inh_Production = Inh_Production {aroundsIn_Inh_Production :: !(Map ConstructorIdent (Map Identifier [Expression])),augmentsIn_Inh_Production :: !(Map ConstructorIdent (Map Identifier [Expression])),cr_Inh_Production :: !(Bool),inh_Inh_Production :: !(Attributes),manualAttrOrderMap_Inh_Production :: !(AttrOrderMap),nonterminals_Inh_Production :: !(Set NontermIdent),nt_Inh_Production :: !(NontermIdent),o_rename_Inh_Production :: !(Bool),syn_Inh_Production :: !(Attributes),typeSyns_Inh_Production :: !(TypeSyns),uniq_Inh_Production :: !(Int),useMap_Inh_Production :: !(Map Identifier (String,String,String))} +data Syn_Production = Syn_Production {errors_Syn_Production :: !(Seq Error),output_Syn_Production :: !(Production),uniq_Syn_Production :: !(Int)} wrap_Production :: T_Production -> Inh_Production -> Syn_Production @@ -1594,11 +1594,11 @@ (!_lhsItypeSyns) (!_lhsIuniq) (!_lhsIuseMap) -> - (case (({-# LINE 579 "DefaultRules.ag" #-} + (case (({-# LINE 583 "DefaultRules.ag" #-} Set.toList $ Map.findWithDefault Set.empty con_ $ Map.findWithDefault Map.empty _lhsInt _lhsImanualAttrOrderMap {-# LINE 1600 "DefaultRules.hs" #-})) of { !_orderDeps -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _lhsIuniq {-# LINE 1604 "DefaultRules.hs" #-})) of { !_rulesOuniq -> @@ -1626,7 +1626,7 @@ { !_childrenOcon -> (case ((children_ _childrenOcon _childrenOcr _childrenOnt )) of { ( !_childrenIerrors,!_childrenIfields,!_childrenIinputs,!_childrenIoutput,!_childrenIoutputs) -> - (case (({-# LINE 581 "DefaultRules.ag" #-} + (case (({-# LINE 585 "DefaultRules.ag" #-} let chldOutMap = Map.fromList [ (k, Map.keysSet s) | (k,s) <- _childrenIoutputs ] chldInMap = Map.fromList [ (k, Map.keysSet s) | (k,s) <- _childrenIinputs ] isInAttribute :: Identifier -> Identifier -> [Error] @@ -1692,7 +1692,7 @@ uRules = map (useRule locals _childrenIoutputs) useAttrs selfLocRules - = [ selfRule False attr (constructor [childSelf attr nm tp | (nm,tp,ho) <- _childrenIfields, not ho]) + = [ selfRule False attr (constructor [childSelf attr nm tp | (nm,tp,virt) <- _childrenIfields, childExists virt]) | attr <- Map.keys selfAttrs , not (Set.member attr locals) ] @@ -1706,6 +1706,9 @@ = "(" ++ concat (List.intersperse "," fs) ++ ")" | otherwise = getConName _lhsItypeSyns _lhsIo_rename _lhsInt con_ ++ " " ++ unwords fs + childExists Nothing = True + childExists (Just (Just _)) = True + childExists (Just Nothing) = False selfRules = [ selfRule True attr undefined | attr <- Map.keys selfAttrs @@ -1718,45 +1721,45 @@ locals (lhs_env, (_LHS, others)) in (uRules++selfLocRules++selfRules++rules5++rules1, errors1> (case (({-# LINE 330 "DefaultRules.ag" #-} __tup1 - {-# LINE 1726 "DefaultRules.hs" #-})) of + {-# LINE 1729 "DefaultRules.hs" #-})) of { !(_,!_errs) -> (case (({-# LINE 328 "DefaultRules.ag" #-} _childrenIerrors >< _errs >< _rulesIerrors >< _orderErrs - {-# LINE 1730 "DefaultRules.hs" #-})) of + {-# LINE 1733 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 644 "DefaultRules.ag" #-} + (case (({-# LINE 648 "DefaultRules.ag" #-} Map.findWithDefault Map.empty con_ _lhsIaroundsIn - {-# LINE 1734 "DefaultRules.hs" #-})) of + {-# LINE 1737 "DefaultRules.hs" #-})) of { !_aroundsIn -> - (case (({-# LINE 637 "DefaultRules.ag" #-} + (case (({-# LINE 641 "DefaultRules.ag" #-} Map.findWithDefault Map.empty con_ _lhsIaugmentsIn - {-# LINE 1738 "DefaultRules.hs" #-})) of + {-# LINE 1741 "DefaultRules.hs" #-})) of { !_augmentsIn -> (case (({-# LINE 330 "DefaultRules.ag" #-} __tup1 - {-# LINE 1742 "DefaultRules.hs" #-})) of + {-# LINE 1745 "DefaultRules.hs" #-})) of { !(!_newRls,_) -> - (case (({-# LINE 492 "DefaultRules.ag" #-} + (case (({-# LINE 496 "DefaultRules.ag" #-} foldr addAugments (_rulesIoutput ++ _newRls) (Map.assocs _augmentsIn ) - {-# LINE 1746 "DefaultRules.hs" #-})) of + {-# LINE 1749 "DefaultRules.hs" #-})) of { !_extra1 -> - (case (({-# LINE 493 "DefaultRules.ag" #-} + (case (({-# LINE 497 "DefaultRules.ag" #-} foldr addArounds _extra1 (Map.assocs _aroundsIn ) - {-# LINE 1750 "DefaultRules.hs" #-})) of + {-# LINE 1753 "DefaultRules.hs" #-})) of { !_extra2 -> (case ((typeSigs_ )) of { ( !_typeSigsIoutput) -> - (case (({-# LINE 494 "DefaultRules.ag" #-} + (case (({-# LINE 498 "DefaultRules.ag" #-} Production con_ _childrenIoutput _extra2 _typeSigsIoutput - {-# LINE 1756 "DefaultRules.hs" #-})) of + {-# LINE 1759 "DefaultRules.hs" #-})) of { !_lhsOoutput -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _rulesIuniq - {-# LINE 1760 "DefaultRules.hs" #-})) of + {-# LINE 1763 "DefaultRules.hs" #-})) of { !_lhsOuniq -> ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) -- Productions ------------------------------------------------- @@ -1807,9 +1810,9 @@ TypeSyns -> Int -> (Map Identifier (String,String,String)) -> - ( (Seq Error),Productions ,Int)) -data Inh_Productions = Inh_Productions {aroundsIn_Inh_Productions :: !((Map ConstructorIdent (Map Identifier [Expression]))),augmentsIn_Inh_Productions :: !((Map ConstructorIdent (Map Identifier [Expression]))),cr_Inh_Productions :: !(Bool),inh_Inh_Productions :: !(Attributes),manualAttrOrderMap_Inh_Productions :: !(AttrOrderMap),nonterminals_Inh_Productions :: !((Set NontermIdent)),nt_Inh_Productions :: !(NontermIdent),o_rename_Inh_Productions :: !(Bool),syn_Inh_Productions :: !(Attributes),typeSyns_Inh_Productions :: !(TypeSyns),uniq_Inh_Productions :: !(Int),useMap_Inh_Productions :: !((Map Identifier (String,String,String)))} -data Syn_Productions = Syn_Productions {errors_Syn_Productions :: !((Seq Error)),output_Syn_Productions :: !(Productions ),uniq_Syn_Productions :: !(Int)} + ( (Seq Error),Productions,Int)) +data Inh_Productions = Inh_Productions {aroundsIn_Inh_Productions :: !(Map ConstructorIdent (Map Identifier [Expression])),augmentsIn_Inh_Productions :: !(Map ConstructorIdent (Map Identifier [Expression])),cr_Inh_Productions :: !(Bool),inh_Inh_Productions :: !(Attributes),manualAttrOrderMap_Inh_Productions :: !(AttrOrderMap),nonterminals_Inh_Productions :: !(Set NontermIdent),nt_Inh_Productions :: !(NontermIdent),o_rename_Inh_Productions :: !(Bool),syn_Inh_Productions :: !(Attributes),typeSyns_Inh_Productions :: !(TypeSyns),uniq_Inh_Productions :: !(Int),useMap_Inh_Productions :: !(Map Identifier (String,String,String))} +data Syn_Productions = Syn_Productions {errors_Syn_Productions :: !(Seq Error),output_Syn_Productions :: !(Productions),uniq_Syn_Productions :: !(Int)} wrap_Productions :: T_Productions -> Inh_Productions -> Syn_Productions @@ -1835,119 +1838,119 @@ (!_lhsIuseMap) -> (case (({-# LINE 135 "DefaultRules.ag" #-} _lhsIuseMap - {-# LINE 1839 "DefaultRules.hs" #-})) of + {-# LINE 1842 "DefaultRules.hs" #-})) of { !_tlOuseMap -> (case (({-# LINE 55 "DefaultRules.ag" #-} _lhsItypeSyns - {-# LINE 1843 "DefaultRules.hs" #-})) of + {-# LINE 1846 "DefaultRules.hs" #-})) of { !_tlOtypeSyns -> (case (({-# LINE 135 "DefaultRules.ag" #-} _lhsIsyn - {-# LINE 1847 "DefaultRules.hs" #-})) of + {-# LINE 1850 "DefaultRules.hs" #-})) of { !_tlOsyn -> (case (({-# LINE 43 "DefaultRules.ag" #-} _lhsIo_rename - {-# LINE 1851 "DefaultRules.hs" #-})) of + {-# LINE 1854 "DefaultRules.hs" #-})) of { !_tlOo_rename -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 1855 "DefaultRules.hs" #-})) of + {-# LINE 1858 "DefaultRules.hs" #-})) of { !_tlOnt -> - (case (({-# LINE 565 "DefaultRules.ag" #-} + (case (({-# LINE 569 "DefaultRules.ag" #-} _lhsImanualAttrOrderMap - {-# LINE 1859 "DefaultRules.hs" #-})) of + {-# LINE 1862 "DefaultRules.hs" #-})) of { !_tlOmanualAttrOrderMap -> (case (({-# LINE 135 "DefaultRules.ag" #-} _lhsIinh - {-# LINE 1863 "DefaultRules.hs" #-})) of + {-# LINE 1866 "DefaultRules.hs" #-})) of { !_tlOinh -> (case (({-# LINE 44 "DefaultRules.ag" #-} _lhsIcr - {-# LINE 1867 "DefaultRules.hs" #-})) of + {-# LINE 1870 "DefaultRules.hs" #-})) of { !_tlOcr -> (case (({-# LINE 135 "DefaultRules.ag" #-} _lhsIuseMap - {-# LINE 1871 "DefaultRules.hs" #-})) of + {-# LINE 1874 "DefaultRules.hs" #-})) of { !_hdOuseMap -> (case (({-# LINE 55 "DefaultRules.ag" #-} _lhsItypeSyns - {-# LINE 1875 "DefaultRules.hs" #-})) of + {-# LINE 1878 "DefaultRules.hs" #-})) of { !_hdOtypeSyns -> (case (({-# LINE 135 "DefaultRules.ag" #-} _lhsIsyn - {-# LINE 1879 "DefaultRules.hs" #-})) of + {-# LINE 1882 "DefaultRules.hs" #-})) of { !_hdOsyn -> (case (({-# LINE 43 "DefaultRules.ag" #-} _lhsIo_rename - {-# LINE 1883 "DefaultRules.hs" #-})) of + {-# LINE 1886 "DefaultRules.hs" #-})) of { !_hdOo_rename -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 1887 "DefaultRules.hs" #-})) of + {-# LINE 1890 "DefaultRules.hs" #-})) of { !_hdOnt -> - (case (({-# LINE 565 "DefaultRules.ag" #-} + (case (({-# LINE 569 "DefaultRules.ag" #-} _lhsImanualAttrOrderMap - {-# LINE 1891 "DefaultRules.hs" #-})) of + {-# LINE 1894 "DefaultRules.hs" #-})) of { !_hdOmanualAttrOrderMap -> (case (({-# LINE 135 "DefaultRules.ag" #-} _lhsIinh - {-# LINE 1895 "DefaultRules.hs" #-})) of + {-# LINE 1898 "DefaultRules.hs" #-})) of { !_hdOinh -> (case (({-# LINE 44 "DefaultRules.ag" #-} _lhsIcr - {-# LINE 1899 "DefaultRules.hs" #-})) of + {-# LINE 1902 "DefaultRules.hs" #-})) of { !_hdOcr -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _lhsIuniq - {-# LINE 1903 "DefaultRules.hs" #-})) of + {-# LINE 1906 "DefaultRules.hs" #-})) of { !_hdOuniq -> (case (({-# LINE 125 "DefaultRules.ag" #-} _lhsInonterminals - {-# LINE 1907 "DefaultRules.hs" #-})) of + {-# LINE 1910 "DefaultRules.hs" #-})) of { !_hdOnonterminals -> - (case (({-# LINE 633 "DefaultRules.ag" #-} + (case (({-# LINE 637 "DefaultRules.ag" #-} _lhsIaugmentsIn - {-# LINE 1911 "DefaultRules.hs" #-})) of + {-# LINE 1914 "DefaultRules.hs" #-})) of { !_hdOaugmentsIn -> - (case (({-# LINE 640 "DefaultRules.ag" #-} + (case (({-# LINE 644 "DefaultRules.ag" #-} _lhsIaroundsIn - {-# LINE 1915 "DefaultRules.hs" #-})) of + {-# LINE 1918 "DefaultRules.hs" #-})) of { !_hdOaroundsIn -> (case ((hd_ _hdOaroundsIn _hdOaugmentsIn _hdOcr _hdOinh _hdOmanualAttrOrderMap _hdOnonterminals _hdOnt _hdOo_rename _hdOsyn _hdOtypeSyns _hdOuniq _hdOuseMap )) of { ( !_hdIerrors,!_hdIoutput,!_hdIuniq) -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _hdIuniq - {-# LINE 1921 "DefaultRules.hs" #-})) of + {-# LINE 1924 "DefaultRules.hs" #-})) of { !_tlOuniq -> (case (({-# LINE 125 "DefaultRules.ag" #-} _lhsInonterminals - {-# LINE 1925 "DefaultRules.hs" #-})) of + {-# LINE 1928 "DefaultRules.hs" #-})) of { !_tlOnonterminals -> - (case (({-# LINE 633 "DefaultRules.ag" #-} + (case (({-# LINE 637 "DefaultRules.ag" #-} _lhsIaugmentsIn - {-# LINE 1929 "DefaultRules.hs" #-})) of + {-# LINE 1932 "DefaultRules.hs" #-})) of { !_tlOaugmentsIn -> - (case (({-# LINE 640 "DefaultRules.ag" #-} + (case (({-# LINE 644 "DefaultRules.ag" #-} _lhsIaroundsIn - {-# LINE 1933 "DefaultRules.hs" #-})) of + {-# LINE 1936 "DefaultRules.hs" #-})) of { !_tlOaroundsIn -> (case ((tl_ _tlOaroundsIn _tlOaugmentsIn _tlOcr _tlOinh _tlOmanualAttrOrderMap _tlOnonterminals _tlOnt _tlOo_rename _tlOsyn _tlOtypeSyns _tlOuniq _tlOuseMap )) of { ( !_tlIerrors,!_tlIoutput,!_tlIuniq) -> (case (({-# LINE 115 "DefaultRules.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 1939 "DefaultRules.hs" #-})) of + {-# LINE 1942 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} (:) _hdIoutput _tlIoutput - {-# LINE 1943 "DefaultRules.hs" #-})) of + {-# LINE 1946 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output - {-# LINE 1947 "DefaultRules.hs" #-})) of + {-# LINE 1950 "DefaultRules.hs" #-})) of { !_lhsOoutput -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _tlIuniq - {-# LINE 1951 "DefaultRules.hs" #-})) of + {-# LINE 1954 "DefaultRules.hs" #-})) of { !_lhsOuniq -> ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) sem_Productions_Nil :: T_Productions @@ -1966,19 +1969,19 @@ (!_lhsIuseMap) -> (case (({-# LINE 115 "DefaultRules.ag" #-} Seq.empty - {-# LINE 1970 "DefaultRules.hs" #-})) of + {-# LINE 1973 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} [] - {-# LINE 1974 "DefaultRules.hs" #-})) of + {-# LINE 1977 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output - {-# LINE 1978 "DefaultRules.hs" #-})) of + {-# LINE 1981 "DefaultRules.hs" #-})) of { !_lhsOoutput -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _lhsIuniq - {-# LINE 1982 "DefaultRules.hs" #-})) of + {-# LINE 1985 "DefaultRules.hs" #-})) of { !_lhsOuniq -> ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) })) ) -- Rule -------------------------------------------------------- @@ -2018,9 +2021,9 @@ newtype T_Rule = T_Rule (ConstructorIdent -> NontermIdent -> Int -> - ( Bool,(Set (Identifier,Identifier)),(Seq Error),(Set Identifier),Rule ,Rules ,(Set Identifier),Int)) + ( Bool,(Set (Identifier,Identifier)),(Seq Error),(Set Identifier),Rule,Rules,(Set Identifier),Int)) data Inh_Rule = Inh_Rule {con_Inh_Rule :: !(ConstructorIdent),nt_Inh_Rule :: !(NontermIdent),uniq_Inh_Rule :: !(Int)} -data Syn_Rule = Syn_Rule {containsVars_Syn_Rule :: !(Bool),definedAttrs_Syn_Rule :: !((Set (Identifier,Identifier))),errors_Syn_Rule :: !((Seq Error)),locals_Syn_Rule :: !((Set Identifier)),output_Syn_Rule :: !(Rule ),outputs_Syn_Rule :: !(Rules ),ruleNames_Syn_Rule :: !((Set Identifier)),uniq_Syn_Rule :: !(Int)} +data Syn_Rule = Syn_Rule {containsVars_Syn_Rule :: !(Bool),definedAttrs_Syn_Rule :: !(Set (Identifier,Identifier)),errors_Syn_Rule :: !(Seq Error),locals_Syn_Rule :: !(Set Identifier),output_Syn_Rule :: !(Rule),outputs_Syn_Rule :: !(Rules),ruleNames_Syn_Rule :: !(Set Identifier),uniq_Syn_Rule :: !(Int)} wrap_Rule :: T_Rule -> Inh_Rule -> Syn_Rule @@ -2041,55 +2044,55 @@ (!_lhsIuniq) -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 2045 "DefaultRules.hs" #-})) of + {-# LINE 2048 "DefaultRules.hs" #-})) of { !_patternOnt -> (case (({-# LINE 35 "DefaultRules.ag" #-} _lhsIcon - {-# LINE 2049 "DefaultRules.hs" #-})) of + {-# LINE 2052 "DefaultRules.hs" #-})) of { !_patternOcon -> (case ((pattern_ _patternOcon _patternOnt )) of { ( !_patternIcontainsVars,!_patternIcopy,!_patternIdefinedAttrs,!_patternIerrors,!_patternIlocals,!_patternIoutput) -> - (case (({-# LINE 469 "DefaultRules.ag" #-} + (case (({-# LINE 473 "DefaultRules.ag" #-} _patternIcontainsVars - {-# LINE 2055 "DefaultRules.hs" #-})) of + {-# LINE 2058 "DefaultRules.hs" #-})) of { !_lhsOcontainsVars -> - (case (({-# LINE 449 "DefaultRules.ag" #-} + (case (({-# LINE 453 "DefaultRules.ag" #-} _patternIdefinedAttrs - {-# LINE 2059 "DefaultRules.hs" #-})) of + {-# LINE 2062 "DefaultRules.hs" #-})) of { !_lhsOdefinedAttrs -> (case (({-# LINE 115 "DefaultRules.ag" #-} _patternIerrors - {-# LINE 2063 "DefaultRules.hs" #-})) of + {-# LINE 2066 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 448 "DefaultRules.ag" #-} + (case (({-# LINE 452 "DefaultRules.ag" #-} _patternIlocals - {-# LINE 2067 "DefaultRules.hs" #-})) of + {-# LINE 2070 "DefaultRules.hs" #-})) of { !_lhsOlocals -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} Rule mbName_ _patternIoutput rhs_ owrt_ origin_ explicit_ - {-# LINE 2071 "DefaultRules.hs" #-})) of + {-# LINE 2074 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output - {-# LINE 2075 "DefaultRules.hs" #-})) of + {-# LINE 2078 "DefaultRules.hs" #-})) of { !_lhsOoutput -> - (case (({-# LINE 501 "DefaultRules.ag" #-} + (case (({-# LINE 505 "DefaultRules.ag" #-} multiRule _output _lhsIuniq - {-# LINE 2079 "DefaultRules.hs" #-})) of + {-# LINE 2082 "DefaultRules.hs" #-})) of { !__tup2 -> - (case (({-# LINE 501 "DefaultRules.ag" #-} + (case (({-# LINE 505 "DefaultRules.ag" #-} __tup2 - {-# LINE 2083 "DefaultRules.hs" #-})) of + {-# LINE 2086 "DefaultRules.hs" #-})) of { !(!_lhsOoutputs,_) -> - (case (({-# LINE 573 "DefaultRules.ag" #-} + (case (({-# LINE 577 "DefaultRules.ag" #-} case mbName_ of Nothing -> Set.empty Just nm -> Set.singleton nm - {-# LINE 2089 "DefaultRules.hs" #-})) of + {-# LINE 2092 "DefaultRules.hs" #-})) of { !_lhsOruleNames -> - (case (({-# LINE 501 "DefaultRules.ag" #-} + (case (({-# LINE 505 "DefaultRules.ag" #-} __tup2 - {-# LINE 2093 "DefaultRules.hs" #-})) of + {-# LINE 2096 "DefaultRules.hs" #-})) of { !(_,!_lhsOuniq) -> ( _lhsOcontainsVars,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput,_lhsOoutputs,_lhsOruleNames,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) })) ) -- Rules ------------------------------------------------------- @@ -2123,9 +2126,9 @@ newtype T_Rules = T_Rules (ConstructorIdent -> NontermIdent -> Int -> - ( (Set (Identifier,Identifier)),(Seq Error),(Set Identifier),Rules ,(Set Identifier),Int)) + ( (Set (Identifier,Identifier)),(Seq Error),(Set Identifier),Rules,(Set Identifier),Int)) data Inh_Rules = Inh_Rules {con_Inh_Rules :: !(ConstructorIdent),nt_Inh_Rules :: !(NontermIdent),uniq_Inh_Rules :: !(Int)} -data Syn_Rules = Syn_Rules {definedAttrs_Syn_Rules :: !((Set (Identifier,Identifier))),errors_Syn_Rules :: !((Seq Error)),locals_Syn_Rules :: !((Set Identifier)),output_Syn_Rules :: !(Rules ),ruleNames_Syn_Rules :: !((Set Identifier)),uniq_Syn_Rules :: !(Int)} +data Syn_Rules = Syn_Rules {definedAttrs_Syn_Rules :: !(Set (Identifier,Identifier)),errors_Syn_Rules :: !(Seq Error),locals_Syn_Rules :: !(Set Identifier),output_Syn_Rules :: !(Rules),ruleNames_Syn_Rules :: !(Set Identifier),uniq_Syn_Rules :: !(Int)} wrap_Rules :: T_Rules -> Inh_Rules -> Syn_Rules @@ -2140,57 +2143,57 @@ (T_Rules (\ (!_lhsIcon) (!_lhsInt) (!_lhsIuniq) -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _lhsIuniq - {-# LINE 2146 "DefaultRules.hs" #-})) of + {-# LINE 2149 "DefaultRules.hs" #-})) of { !_hdOuniq -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 2150 "DefaultRules.hs" #-})) of + {-# LINE 2153 "DefaultRules.hs" #-})) of { !_hdOnt -> (case (({-# LINE 35 "DefaultRules.ag" #-} _lhsIcon - {-# LINE 2154 "DefaultRules.hs" #-})) of + {-# LINE 2157 "DefaultRules.hs" #-})) of { !_hdOcon -> (case ((hd_ _hdOcon _hdOnt _hdOuniq )) of { ( !_hdIcontainsVars,!_hdIdefinedAttrs,!_hdIerrors,!_hdIlocals,!_hdIoutput,!_hdIoutputs,!_hdIruleNames,!_hdIuniq) -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _hdIuniq - {-# LINE 2160 "DefaultRules.hs" #-})) of + {-# LINE 2163 "DefaultRules.hs" #-})) of { !_tlOuniq -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 2164 "DefaultRules.hs" #-})) of + {-# LINE 2167 "DefaultRules.hs" #-})) of { !_tlOnt -> (case (({-# LINE 35 "DefaultRules.ag" #-} _lhsIcon - {-# LINE 2168 "DefaultRules.hs" #-})) of + {-# LINE 2171 "DefaultRules.hs" #-})) of { !_tlOcon -> (case ((tl_ _tlOcon _tlOnt _tlOuniq )) of { ( !_tlIdefinedAttrs,!_tlIerrors,!_tlIlocals,!_tlIoutput,!_tlIruleNames,!_tlIuniq) -> - (case (({-# LINE 449 "DefaultRules.ag" #-} + (case (({-# LINE 453 "DefaultRules.ag" #-} _hdIdefinedAttrs `Set.union` _tlIdefinedAttrs - {-# LINE 2174 "DefaultRules.hs" #-})) of + {-# LINE 2177 "DefaultRules.hs" #-})) of { !_lhsOdefinedAttrs -> (case (({-# LINE 115 "DefaultRules.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 2178 "DefaultRules.hs" #-})) of + {-# LINE 2181 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 448 "DefaultRules.ag" #-} + (case (({-# LINE 452 "DefaultRules.ag" #-} _hdIlocals `Set.union` _tlIlocals - {-# LINE 2182 "DefaultRules.hs" #-})) of + {-# LINE 2185 "DefaultRules.hs" #-})) of { !_lhsOlocals -> - (case (({-# LINE 497 "DefaultRules.ag" #-} + (case (({-# LINE 501 "DefaultRules.ag" #-} if _hdIcontainsVars then _hdIoutputs ++ _tlIoutput else _tlIoutput - {-# LINE 2186 "DefaultRules.hs" #-})) of + {-# LINE 2189 "DefaultRules.hs" #-})) of { !_lhsOoutput -> - (case (({-# LINE 571 "DefaultRules.ag" #-} + (case (({-# LINE 575 "DefaultRules.ag" #-} _hdIruleNames `Set.union` _tlIruleNames - {-# LINE 2190 "DefaultRules.hs" #-})) of + {-# LINE 2193 "DefaultRules.hs" #-})) of { !_lhsOruleNames -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _tlIuniq - {-# LINE 2194 "DefaultRules.hs" #-})) of + {-# LINE 2197 "DefaultRules.hs" #-})) of { !_lhsOuniq -> ( _lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput,_lhsOruleNames,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) sem_Rules_Nil :: T_Rules @@ -2198,33 +2201,33 @@ (T_Rules (\ (!_lhsIcon) (!_lhsInt) (!_lhsIuniq) -> - (case (({-# LINE 449 "DefaultRules.ag" #-} + (case (({-# LINE 453 "DefaultRules.ag" #-} Set.empty - {-# LINE 2204 "DefaultRules.hs" #-})) of + {-# LINE 2207 "DefaultRules.hs" #-})) of { !_lhsOdefinedAttrs -> (case (({-# LINE 115 "DefaultRules.ag" #-} Seq.empty - {-# LINE 2208 "DefaultRules.hs" #-})) of + {-# LINE 2211 "DefaultRules.hs" #-})) of { !_lhsOerrors -> - (case (({-# LINE 448 "DefaultRules.ag" #-} + (case (({-# LINE 452 "DefaultRules.ag" #-} Set.empty - {-# LINE 2212 "DefaultRules.hs" #-})) of + {-# LINE 2215 "DefaultRules.hs" #-})) of { !_lhsOlocals -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} [] - {-# LINE 2216 "DefaultRules.hs" #-})) of + {-# LINE 2219 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output - {-# LINE 2220 "DefaultRules.hs" #-})) of + {-# LINE 2223 "DefaultRules.hs" #-})) of { !_lhsOoutput -> - (case (({-# LINE 571 "DefaultRules.ag" #-} + (case (({-# LINE 575 "DefaultRules.ag" #-} Set.empty - {-# LINE 2224 "DefaultRules.hs" #-})) of + {-# LINE 2227 "DefaultRules.hs" #-})) of { !_lhsOruleNames -> - (case (({-# LINE 478 "DefaultRules.ag" #-} + (case (({-# LINE 482 "DefaultRules.ag" #-} _lhsIuniq - {-# LINE 2228 "DefaultRules.hs" #-})) of + {-# LINE 2231 "DefaultRules.hs" #-})) of { !_lhsOuniq -> ( _lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput,_lhsOruleNames,_lhsOuniq) }) }) }) }) }) }) })) ) -- TypeSig ----------------------------------------------------- @@ -2245,9 +2248,9 @@ sem_TypeSig !(TypeSig _name _tp ) = (sem_TypeSig_TypeSig _name _tp ) -- semantic domain -newtype T_TypeSig = T_TypeSig (( TypeSig )) +newtype T_TypeSig = T_TypeSig (( TypeSig)) data Inh_TypeSig = Inh_TypeSig {} -data Syn_TypeSig = Syn_TypeSig {output_Syn_TypeSig :: !(TypeSig )} +data Syn_TypeSig = Syn_TypeSig {output_Syn_TypeSig :: !(TypeSig)} wrap_TypeSig :: T_TypeSig -> Inh_TypeSig -> Syn_TypeSig @@ -2259,13 +2262,13 @@ Type -> T_TypeSig sem_TypeSig_TypeSig !name_ !tp_ = - (T_TypeSig (case (({-# LINE 485 "DefaultRules.ag" #-} + (T_TypeSig (case (({-# LINE 489 "DefaultRules.ag" #-} TypeSig name_ tp_ - {-# LINE 2265 "DefaultRules.hs" #-})) of + {-# LINE 2268 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output - {-# LINE 2269 "DefaultRules.hs" #-})) of + {-# LINE 2272 "DefaultRules.hs" #-})) of { !_lhsOoutput -> ( _lhsOoutput) }) }) ) -- TypeSigs ---------------------------------------------------- @@ -2289,9 +2292,9 @@ sem_TypeSigs !list = (Prelude.foldr sem_TypeSigs_Cons sem_TypeSigs_Nil (Prelude.map sem_TypeSig list) ) -- semantic domain -newtype T_TypeSigs = T_TypeSigs (( TypeSigs )) +newtype T_TypeSigs = T_TypeSigs (( TypeSigs)) data Inh_TypeSigs = Inh_TypeSigs {} -data Syn_TypeSigs = Syn_TypeSigs {output_Syn_TypeSigs :: !(TypeSigs )} +data Syn_TypeSigs = Syn_TypeSigs {output_Syn_TypeSigs :: !(TypeSigs)} wrap_TypeSigs :: T_TypeSigs -> Inh_TypeSigs -> Syn_TypeSigs @@ -2307,23 +2310,23 @@ { ( !_tlIoutput) -> (case ((hd_ )) of { ( !_hdIoutput) -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} (:) _hdIoutput _tlIoutput - {-# LINE 2313 "DefaultRules.hs" #-})) of + {-# LINE 2316 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output - {-# LINE 2317 "DefaultRules.hs" #-})) of + {-# LINE 2320 "DefaultRules.hs" #-})) of { !_lhsOoutput -> ( _lhsOoutput) }) }) }) }) ) sem_TypeSigs_Nil :: T_TypeSigs sem_TypeSigs_Nil = - (T_TypeSigs (case (({-# LINE 485 "DefaultRules.ag" #-} + (T_TypeSigs (case (({-# LINE 489 "DefaultRules.ag" #-} [] - {-# LINE 2324 "DefaultRules.hs" #-})) of + {-# LINE 2327 "DefaultRules.hs" #-})) of { !_output -> - (case (({-# LINE 485 "DefaultRules.ag" #-} + (case (({-# LINE 489 "DefaultRules.ag" #-} _output - {-# LINE 2328 "DefaultRules.hs" #-})) of + {-# LINE 2331 "DefaultRules.hs" #-})) of { !_lhsOoutput -> ( _lhsOoutput) }) }) ) 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.22 (Desugar.ag) +-- UUAGC 0.9.21 (Desugar.ag) module Desugar where {-# LINE 13 "Desugar.ag" #-} @@ -115,19 +115,19 @@ child tp : {Type} child inh : {Attributes} child syn : {Attributes} - child higherOrder : {Bool} + child virtual : {Maybe (Maybe Type)} visit 0: local output : _ -} -- cata sem_Child :: Child -> T_Child -sem_Child !(Child _name _tp _inh _syn _higherOrder ) = - (sem_Child_Child _name _tp _inh _syn _higherOrder ) +sem_Child !(Child _name _tp _inh _syn _virtual ) = + (sem_Child_Child _name _tp _inh _syn _virtual ) -- semantic domain -newtype T_Child = T_Child (( ([(Identifier, Identifier)]),([(Identifier, Identifier)]),Child )) +newtype T_Child = T_Child (( ([(Identifier, Identifier)]),([(Identifier, Identifier)]),Child)) data Inh_Child = Inh_Child {} -data Syn_Child = Syn_Child {childInhs_Syn_Child :: !(([(Identifier, Identifier)])),childSyns_Syn_Child :: !(([(Identifier, Identifier)])),output_Syn_Child :: !(Child )} +data Syn_Child = Syn_Child {childInhs_Syn_Child :: !([(Identifier, Identifier)]),childSyns_Syn_Child :: !([(Identifier, Identifier)]),output_Syn_Child :: !(Child)} wrap_Child :: T_Child -> Inh_Child -> Syn_Child @@ -139,9 +139,9 @@ Type -> Attributes -> Attributes -> - Bool -> + (Maybe (Maybe Type)) -> T_Child -sem_Child_Child !name_ !tp_ !inh_ !syn_ !higherOrder_ = +sem_Child_Child !name_ !tp_ !inh_ !syn_ !virtual_ = (T_Child (case (({-# LINE 129 "Desugar.ag" #-} [(i, name_) | i <- Map.keys inh_ ] {-# LINE 148 "Desugar.hs" #-})) of @@ -151,7 +151,7 @@ {-# LINE 152 "Desugar.hs" #-})) of { !_lhsOchildSyns -> (case (({-# LINE 39 "Desugar.ag" #-} - Child name_ tp_ inh_ syn_ higherOrder_ + Child name_ tp_ inh_ syn_ virtual_ {-# LINE 156 "Desugar.hs" #-})) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} @@ -182,9 +182,9 @@ sem_Children !list = (Prelude.foldr sem_Children_Cons sem_Children_Nil (Prelude.map sem_Child list) ) -- semantic domain -newtype T_Children = T_Children (( ([(Identifier, Identifier)]),([(Identifier, Identifier)]),Children )) +newtype T_Children = T_Children (( ([(Identifier, Identifier)]),([(Identifier, Identifier)]),Children)) data Inh_Children = Inh_Children {} -data Syn_Children = Syn_Children {childInhs_Syn_Children :: !(([(Identifier, Identifier)])),childSyns_Syn_Children :: !(([(Identifier, Identifier)])),output_Syn_Children :: !(Children )} +data Syn_Children = Syn_Children {childInhs_Syn_Children :: !([(Identifier, Identifier)]),childSyns_Syn_Children :: !([(Identifier, Identifier)]),output_Syn_Children :: !(Children)} wrap_Children :: T_Children -> Inh_Children -> Syn_Children @@ -269,9 +269,9 @@ NontermIdent -> Options -> String -> - ( (Seq Error),Expression )) -data Inh_Expression = Inh_Expression {childInhs_Inh_Expression :: !(([(Identifier, Identifier)])),childSyns_Inh_Expression :: !(([(Identifier, Identifier)])),con_Inh_Expression :: !(ConstructorIdent),nt_Inh_Expression :: !(NontermIdent),options_Inh_Expression :: !(Options),ruleDescr_Inh_Expression :: !(String)} -data Syn_Expression = Syn_Expression {errors_Syn_Expression :: !((Seq Error)),output_Syn_Expression :: !(Expression )} + ( (Seq Error),Expression)) +data Inh_Expression = Inh_Expression {childInhs_Inh_Expression :: !([(Identifier, Identifier)]),childSyns_Inh_Expression :: !([(Identifier, Identifier)]),con_Inh_Expression :: !(ConstructorIdent),nt_Inh_Expression :: !(NontermIdent),options_Inh_Expression :: !(Options),ruleDescr_Inh_Expression :: !(String)} +data Syn_Expression = Syn_Expression {errors_Syn_Expression :: !(Seq Error),output_Syn_Expression :: !(Expression)} wrap_Expression :: T_Expression -> Inh_Expression -> Syn_Expression @@ -348,9 +348,9 @@ -- semantic domain newtype T_Grammar = T_Grammar (AttrMap -> Options -> - ( AttrMap,(Seq Error),Grammar )) + ( AttrMap,(Seq Error),Grammar)) data Inh_Grammar = Inh_Grammar {forcedIrrefutables_Inh_Grammar :: !(AttrMap),options_Inh_Grammar :: !(Options)} -data Syn_Grammar = Syn_Grammar {allAttributes_Syn_Grammar :: !(AttrMap),errors_Syn_Grammar :: !((Seq Error)),output_Syn_Grammar :: !(Grammar )} +data Syn_Grammar = Syn_Grammar {allAttributes_Syn_Grammar :: !(AttrMap),errors_Syn_Grammar :: !(Seq Error),output_Syn_Grammar :: !(Grammar)} wrap_Grammar :: T_Grammar -> Inh_Grammar -> Syn_Grammar @@ -487,9 +487,9 @@ NontermIdent -> String -> Bool -> - ( Int,(Seq Error),HsToken )) -data Inh_HsToken = Inh_HsToken {addLines_Inh_HsToken :: !(Int),childInhs_Inh_HsToken :: !(([(Identifier, Identifier)])),childSyns_Inh_HsToken :: !(([(Identifier, Identifier)])),con_Inh_HsToken :: !(ConstructorIdent),nt_Inh_HsToken :: !(NontermIdent),ruleDescr_Inh_HsToken :: !(String),useFieldIdent_Inh_HsToken :: !(Bool)} -data Syn_HsToken = Syn_HsToken {addLines_Syn_HsToken :: !(Int),errors_Syn_HsToken :: !((Seq Error)),tks_Syn_HsToken :: !(HsToken )} + ( Int,(Seq Error),HsToken)) +data Inh_HsToken = Inh_HsToken {addLines_Inh_HsToken :: !(Int),childInhs_Inh_HsToken :: !([(Identifier, Identifier)]),childSyns_Inh_HsToken :: !([(Identifier, Identifier)]),con_Inh_HsToken :: !(ConstructorIdent),nt_Inh_HsToken :: !(NontermIdent),ruleDescr_Inh_HsToken :: !(String),useFieldIdent_Inh_HsToken :: !(Bool)} +data Syn_HsToken = Syn_HsToken {addLines_Syn_HsToken :: !(Int),errors_Syn_HsToken :: !(Seq Error),tks_Syn_HsToken :: !(HsToken)} wrap_HsToken :: T_HsToken -> Inh_HsToken -> Syn_HsToken @@ -718,9 +718,9 @@ NontermIdent -> String -> Bool -> - ( Int,(Seq Error),HsTokens )) -data Inh_HsTokens = Inh_HsTokens {addLines_Inh_HsTokens :: !(Int),childInhs_Inh_HsTokens :: !(([(Identifier, Identifier)])),childSyns_Inh_HsTokens :: !(([(Identifier, Identifier)])),con_Inh_HsTokens :: !(ConstructorIdent),nt_Inh_HsTokens :: !(NontermIdent),ruleDescr_Inh_HsTokens :: !(String),useFieldIdent_Inh_HsTokens :: !(Bool)} -data Syn_HsTokens = Syn_HsTokens {addLines_Syn_HsTokens :: !(Int),errors_Syn_HsTokens :: !((Seq Error)),tks_Syn_HsTokens :: !(HsTokens )} + ( Int,(Seq Error),HsTokens)) +data Inh_HsTokens = Inh_HsTokens {addLines_Inh_HsTokens :: !(Int),childInhs_Inh_HsTokens :: !([(Identifier, Identifier)]),childSyns_Inh_HsTokens :: !([(Identifier, Identifier)]),con_Inh_HsTokens :: !(ConstructorIdent),nt_Inh_HsTokens :: !(NontermIdent),ruleDescr_Inh_HsTokens :: !(String),useFieldIdent_Inh_HsTokens :: !(Bool)} +data Syn_HsTokens = Syn_HsTokens {addLines_Syn_HsTokens :: !(Int),errors_Syn_HsTokens :: !(Seq Error),tks_Syn_HsTokens :: !(HsTokens)} wrap_HsTokens :: T_HsTokens -> Inh_HsTokens -> Syn_HsTokens @@ -872,8 +872,8 @@ String -> Bool -> ( (Seq Error),([HsToken]))) -data Inh_HsTokensRoot = Inh_HsTokensRoot {childInhs_Inh_HsTokensRoot :: !(([(Identifier, Identifier)])),childSyns_Inh_HsTokensRoot :: !(([(Identifier, Identifier)])),con_Inh_HsTokensRoot :: !(ConstructorIdent),nt_Inh_HsTokensRoot :: !(NontermIdent),ruleDescr_Inh_HsTokensRoot :: !(String),useFieldIdent_Inh_HsTokensRoot :: !(Bool)} -data Syn_HsTokensRoot = Syn_HsTokensRoot {errors_Syn_HsTokensRoot :: !((Seq Error)),tks_Syn_HsTokensRoot :: !(([HsToken]))} +data Inh_HsTokensRoot = Inh_HsTokensRoot {childInhs_Inh_HsTokensRoot :: !([(Identifier, Identifier)]),childSyns_Inh_HsTokensRoot :: !([(Identifier, Identifier)]),con_Inh_HsTokensRoot :: !(ConstructorIdent),nt_Inh_HsTokensRoot :: !(NontermIdent),ruleDescr_Inh_HsTokensRoot :: !(String),useFieldIdent_Inh_HsTokensRoot :: !(Bool)} +data Syn_HsTokensRoot = Syn_HsTokensRoot {errors_Syn_HsTokensRoot :: !(Seq Error),tks_Syn_HsTokensRoot :: !([HsToken])} wrap_HsTokensRoot :: T_HsTokensRoot -> Inh_HsTokensRoot -> Syn_HsTokensRoot @@ -962,9 +962,9 @@ newtype T_Nonterminal = T_Nonterminal ((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> AttrMap -> Options -> - ( AttrMap,(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))),(Seq Error),Nonterminal )) -data Inh_Nonterminal = Inh_Nonterminal {augmentsIn_Inh_Nonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))),forcedIrrefutables_Inh_Nonterminal :: !(AttrMap),options_Inh_Nonterminal :: !(Options)} -data Syn_Nonterminal = Syn_Nonterminal {allAttributes_Syn_Nonterminal :: !(AttrMap),augmentsOut_Syn_Nonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))),errors_Syn_Nonterminal :: !((Seq Error)),output_Syn_Nonterminal :: !(Nonterminal )} + ( AttrMap,(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))),(Seq Error),Nonterminal)) +data Inh_Nonterminal = Inh_Nonterminal {augmentsIn_Inh_Nonterminal :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))),forcedIrrefutables_Inh_Nonterminal :: !(AttrMap),options_Inh_Nonterminal :: !(Options)} +data Syn_Nonterminal = Syn_Nonterminal {allAttributes_Syn_Nonterminal :: !(AttrMap),augmentsOut_Syn_Nonterminal :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))),errors_Syn_Nonterminal :: !(Seq Error),output_Syn_Nonterminal :: !(Nonterminal)} wrap_Nonterminal :: T_Nonterminal -> Inh_Nonterminal -> Syn_Nonterminal @@ -1060,9 +1060,9 @@ newtype T_Nonterminals = T_Nonterminals ((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> AttrMap -> Options -> - ( AttrMap,(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))),(Seq Error),Nonterminals )) -data Inh_Nonterminals = Inh_Nonterminals {augmentsIn_Inh_Nonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))),forcedIrrefutables_Inh_Nonterminals :: !(AttrMap),options_Inh_Nonterminals :: !(Options)} -data Syn_Nonterminals = Syn_Nonterminals {allAttributes_Syn_Nonterminals :: !(AttrMap),augmentsOut_Syn_Nonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))),errors_Syn_Nonterminals :: !((Seq Error)),output_Syn_Nonterminals :: !(Nonterminals )} + ( AttrMap,(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))),(Seq Error),Nonterminals)) +data Inh_Nonterminals = Inh_Nonterminals {augmentsIn_Inh_Nonterminals :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))),forcedIrrefutables_Inh_Nonterminals :: !(AttrMap),options_Inh_Nonterminals :: !(Options)} +data Syn_Nonterminals = Syn_Nonterminals {allAttributes_Syn_Nonterminals :: !(AttrMap),augmentsOut_Syn_Nonterminals :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))),errors_Syn_Nonterminals :: !(Seq Error),output_Syn_Nonterminals :: !(Nonterminals)} wrap_Nonterminals :: T_Nonterminals -> Inh_Nonterminals -> Syn_Nonterminals @@ -1229,9 +1229,9 @@ (Set (Identifier, Identifier)) -> AttrMap -> NontermIdent -> - ( AttrMap,Pattern ,(Seq Error),Pattern )) -data Inh_Pattern = Inh_Pattern {childInhs_Inh_Pattern :: !(([(Identifier, Identifier)])),childSyns_Inh_Pattern :: !(([(Identifier, Identifier)])),con_Inh_Pattern :: !(ConstructorIdent),defs_Inh_Pattern :: !((Set (Identifier, Identifier))),forcedIrrefutables_Inh_Pattern :: !(AttrMap),nt_Inh_Pattern :: !(NontermIdent)} -data Syn_Pattern = Syn_Pattern {allAttributes_Syn_Pattern :: !(AttrMap),copy_Syn_Pattern :: !(Pattern ),defsCollect_Syn_Pattern :: !((Set (Identifier, Identifier))),errors_Syn_Pattern :: !((Seq Error)),output_Syn_Pattern :: !(Pattern )} + ( AttrMap,Pattern,(Seq Error),Pattern)) +data Inh_Pattern = Inh_Pattern {childInhs_Inh_Pattern :: !([(Identifier, Identifier)]),childSyns_Inh_Pattern :: !([(Identifier, Identifier)]),con_Inh_Pattern :: !(ConstructorIdent),defs_Inh_Pattern :: !(Set (Identifier, Identifier)),forcedIrrefutables_Inh_Pattern :: !(AttrMap),nt_Inh_Pattern :: !(NontermIdent)} +data Syn_Pattern = Syn_Pattern {allAttributes_Syn_Pattern :: !(AttrMap),copy_Syn_Pattern :: !(Pattern),defsCollect_Syn_Pattern :: !(Set (Identifier, Identifier)),errors_Syn_Pattern :: !(Seq Error),output_Syn_Pattern :: !(Pattern)} wrap_Pattern :: T_Pattern -> Inh_Pattern -> Syn_Pattern @@ -1681,9 +1681,9 @@ (Set (Identifier, Identifier)) -> AttrMap -> NontermIdent -> - ( AttrMap,Patterns ,(Seq Error),Patterns )) -data Inh_Patterns = Inh_Patterns {childInhs_Inh_Patterns :: !(([(Identifier, Identifier)])),childSyns_Inh_Patterns :: !(([(Identifier, Identifier)])),con_Inh_Patterns :: !(ConstructorIdent),defs_Inh_Patterns :: !((Set (Identifier, Identifier))),forcedIrrefutables_Inh_Patterns :: !(AttrMap),nt_Inh_Patterns :: !(NontermIdent)} -data Syn_Patterns = Syn_Patterns {allAttributes_Syn_Patterns :: !(AttrMap),copy_Syn_Patterns :: !(Patterns ),defsCollect_Syn_Patterns :: !((Set (Identifier, Identifier))),errors_Syn_Patterns :: !((Seq Error)),output_Syn_Patterns :: !(Patterns )} + ( AttrMap,Patterns,(Seq Error),Patterns)) +data Inh_Patterns = Inh_Patterns {childInhs_Inh_Patterns :: !([(Identifier, Identifier)]),childSyns_Inh_Patterns :: !([(Identifier, Identifier)]),con_Inh_Patterns :: !(ConstructorIdent),defs_Inh_Patterns :: !(Set (Identifier, Identifier)),forcedIrrefutables_Inh_Patterns :: !(AttrMap),nt_Inh_Patterns :: !(NontermIdent)} +data Syn_Patterns = Syn_Patterns {allAttributes_Syn_Patterns :: !(AttrMap),copy_Syn_Patterns :: !(Patterns),defsCollect_Syn_Patterns :: !(Set (Identifier, Identifier)),errors_Syn_Patterns :: !(Seq Error),output_Syn_Patterns :: !(Patterns)} wrap_Patterns :: T_Patterns -> Inh_Patterns -> Syn_Patterns @@ -1874,9 +1874,9 @@ AttrMap -> NontermIdent -> Options -> - ( AttrMap,(Map ConstructorIdent (Map Identifier [Expression])),(Seq Error),Production )) -data Inh_Production = Inh_Production {augmentsIn_Inh_Production :: !((Map ConstructorIdent (Map Identifier [Expression]))),forcedIrrefutables_Inh_Production :: !(AttrMap),nt_Inh_Production :: !(NontermIdent),options_Inh_Production :: !(Options)} -data Syn_Production = Syn_Production {allAttributes_Syn_Production :: !(AttrMap),augmentsOut_Syn_Production :: !((Map ConstructorIdent (Map Identifier [Expression]))),errors_Syn_Production :: !((Seq Error)),output_Syn_Production :: !(Production )} + ( AttrMap,(Map ConstructorIdent (Map Identifier [Expression])),(Seq Error),Production)) +data Inh_Production = Inh_Production {augmentsIn_Inh_Production :: !(Map ConstructorIdent (Map Identifier [Expression])),forcedIrrefutables_Inh_Production :: !(AttrMap),nt_Inh_Production :: !(NontermIdent),options_Inh_Production :: !(Options)} +data Syn_Production = Syn_Production {allAttributes_Syn_Production :: !(AttrMap),augmentsOut_Syn_Production :: !(Map ConstructorIdent (Map Identifier [Expression])),errors_Syn_Production :: !(Seq Error),output_Syn_Production :: !(Production)} wrap_Production :: T_Production -> Inh_Production -> Syn_Production @@ -2004,9 +2004,9 @@ AttrMap -> NontermIdent -> Options -> - ( AttrMap,(Map ConstructorIdent (Map Identifier [Expression])),(Seq Error),Productions )) -data Inh_Productions = Inh_Productions {augmentsIn_Inh_Productions :: !((Map ConstructorIdent (Map Identifier [Expression]))),forcedIrrefutables_Inh_Productions :: !(AttrMap),nt_Inh_Productions :: !(NontermIdent),options_Inh_Productions :: !(Options)} -data Syn_Productions = Syn_Productions {allAttributes_Syn_Productions :: !(AttrMap),augmentsOut_Syn_Productions :: !((Map ConstructorIdent (Map Identifier [Expression]))),errors_Syn_Productions :: !((Seq Error)),output_Syn_Productions :: !(Productions )} + ( AttrMap,(Map ConstructorIdent (Map Identifier [Expression])),(Seq Error),Productions)) +data Inh_Productions = Inh_Productions {augmentsIn_Inh_Productions :: !(Map ConstructorIdent (Map Identifier [Expression])),forcedIrrefutables_Inh_Productions :: !(AttrMap),nt_Inh_Productions :: !(NontermIdent),options_Inh_Productions :: !(Options)} +data Syn_Productions = Syn_Productions {allAttributes_Syn_Productions :: !(AttrMap),augmentsOut_Syn_Productions :: !(Map ConstructorIdent (Map Identifier [Expression])),errors_Syn_Productions :: !(Seq Error),output_Syn_Productions :: !(Productions)} wrap_Productions :: T_Productions -> Inh_Productions -> Syn_Productions @@ -2150,9 +2150,9 @@ AttrMap -> NontermIdent -> Options -> - ( AttrMap,(Seq Error),Rule )) -data Inh_Rule = Inh_Rule {childInhs_Inh_Rule :: !(([(Identifier, Identifier)])),childSyns_Inh_Rule :: !(([(Identifier, Identifier)])),con_Inh_Rule :: !(ConstructorIdent),defs_Inh_Rule :: !((Set (Identifier, Identifier))),forcedIrrefutables_Inh_Rule :: !(AttrMap),nt_Inh_Rule :: !(NontermIdent),options_Inh_Rule :: !(Options)} -data Syn_Rule = Syn_Rule {allAttributes_Syn_Rule :: !(AttrMap),defsCollect_Syn_Rule :: !((Set (Identifier, Identifier))),errors_Syn_Rule :: !((Seq Error)),output_Syn_Rule :: !(Rule )} + ( AttrMap,(Seq Error),Rule)) +data Inh_Rule = Inh_Rule {childInhs_Inh_Rule :: !([(Identifier, Identifier)]),childSyns_Inh_Rule :: !([(Identifier, Identifier)]),con_Inh_Rule :: !(ConstructorIdent),defs_Inh_Rule :: !(Set (Identifier, Identifier)),forcedIrrefutables_Inh_Rule :: !(AttrMap),nt_Inh_Rule :: !(NontermIdent),options_Inh_Rule :: !(Options)} +data Syn_Rule = Syn_Rule {allAttributes_Syn_Rule :: !(AttrMap),defsCollect_Syn_Rule :: !(Set (Identifier, Identifier)),errors_Syn_Rule :: !(Seq Error),output_Syn_Rule :: !(Rule)} wrap_Rule :: T_Rule -> Inh_Rule -> Syn_Rule @@ -2310,9 +2310,9 @@ AttrMap -> NontermIdent -> Options -> - ( AttrMap,(Seq Error),Rules )) -data Inh_Rules = Inh_Rules {childInhs_Inh_Rules :: !(([(Identifier, Identifier)])),childSyns_Inh_Rules :: !(([(Identifier, Identifier)])),con_Inh_Rules :: !(ConstructorIdent),defs_Inh_Rules :: !((Set (Identifier, Identifier))),forcedIrrefutables_Inh_Rules :: !(AttrMap),nt_Inh_Rules :: !(NontermIdent),options_Inh_Rules :: !(Options)} -data Syn_Rules = Syn_Rules {allAttributes_Syn_Rules :: !(AttrMap),defsCollect_Syn_Rules :: !((Set (Identifier, Identifier))),errors_Syn_Rules :: !((Seq Error)),output_Syn_Rules :: !(Rules )} + ( AttrMap,(Seq Error),Rules)) +data Inh_Rules = Inh_Rules {childInhs_Inh_Rules :: !([(Identifier, Identifier)]),childSyns_Inh_Rules :: !([(Identifier, Identifier)]),con_Inh_Rules :: !(ConstructorIdent),defs_Inh_Rules :: !(Set (Identifier, Identifier)),forcedIrrefutables_Inh_Rules :: !(AttrMap),nt_Inh_Rules :: !(NontermIdent),options_Inh_Rules :: !(Options)} +data Syn_Rules = Syn_Rules {allAttributes_Syn_Rules :: !(AttrMap),defsCollect_Syn_Rules :: !(Set (Identifier, Identifier)),errors_Syn_Rules :: !(Seq Error),output_Syn_Rules :: !(Rules)} wrap_Rules :: T_Rules -> Inh_Rules -> Syn_Rules @@ -2478,9 +2478,9 @@ sem_TypeSig !(TypeSig _name _tp ) = (sem_TypeSig_TypeSig _name _tp ) -- semantic domain -newtype T_TypeSig = T_TypeSig (( TypeSig )) +newtype T_TypeSig = T_TypeSig (( TypeSig)) data Inh_TypeSig = Inh_TypeSig {} -data Syn_TypeSig = Syn_TypeSig {output_Syn_TypeSig :: !(TypeSig )} +data Syn_TypeSig = Syn_TypeSig {output_Syn_TypeSig :: !(TypeSig)} wrap_TypeSig :: T_TypeSig -> Inh_TypeSig -> Syn_TypeSig @@ -2522,9 +2522,9 @@ sem_TypeSigs !list = (Prelude.foldr sem_TypeSigs_Cons sem_TypeSigs_Nil (Prelude.map sem_TypeSig list) ) -- semantic domain -newtype T_TypeSigs = T_TypeSigs (( TypeSigs )) +newtype T_TypeSigs = T_TypeSigs (( TypeSigs)) data Inh_TypeSigs = Inh_TypeSigs {} -data Syn_TypeSigs = Syn_TypeSigs {output_Syn_TypeSigs :: !(TypeSigs )} +data Syn_TypeSigs = Syn_TypeSigs {output_Syn_TypeSigs :: !(TypeSigs)} wrap_TypeSigs :: T_TypeSigs -> Inh_TypeSigs -> Syn_TypeSigs 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.22 (ErrorMessages.ag) +-- UUAGC 0.9.21 (ErrorMessages.ag) module ErrorMessages where {-# LINE 2 "ErrorMessages.ag" #-} @@ -139,7 +139,7 @@ data Error = ChildAsLocal (NontermIdent) (ConstructorIdent) (Identifier) | CustomError (Bool) (Pos) (PP_Doc) | CyclicSet (Identifier) - | DirectCirc (NontermIdent) (Bool) (([((Identifier,Identifier),[String],[String])])) + | DirectCirc (NontermIdent) (Bool) ([((Identifier,Identifier),[String],[String])]) | DupAlt (NontermIdent) (ConstructorIdent) (ConstructorIdent) | DupChild (NontermIdent) (ConstructorIdent) (Identifier) (Identifier) | DupInhAttr (NontermIdent) (Identifier) (Identifier) @@ -150,9 +150,9 @@ | DupSynAttr (NontermIdent) (Identifier) (Identifier) | DupSynonym (NontermIdent) (NontermIdent) | DupUnique (NontermIdent) (ConstructorIdent) (Identifier) - | InducedCirc (NontermIdent) (CInterface) (([((Identifier,Identifier),[String],[String])])) - | InstCirc (NontermIdent) (ConstructorIdent) (Identifier) (Bool) (([String])) - | LocalCirc (NontermIdent) (ConstructorIdent) (Identifier) (Bool) (([String])) + | InducedCirc (NontermIdent) (CInterface) ([((Identifier,Identifier),[String],[String])]) + | InstCirc (NontermIdent) (ConstructorIdent) (Identifier) (Bool) ([String]) + | LocalCirc (NontermIdent) (ConstructorIdent) (Identifier) (Bool) ([String]) | MissingInstSig (NontermIdent) (ConstructorIdent) (Identifier) | MissingNamedRule (NontermIdent) (Identifier) (Identifier) | MissingRule (NontermIdent) (ConstructorIdent) (Identifier) (Identifier) @@ -174,4 +174,4 @@ child tl : Errors alternative Nil: -} -type Errors = [Error ] +type Errors = [(Error)] 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.22 (Expression.ag) +-- UUAGC 0.9.21 (Expression.ag) module Expression where {-# LINE 2 "Expression.ag" #-} @@ -14,4 +14,4 @@ child pos : {Pos} child tks : {[HsToken]} -} -data Expression = Expression (Pos) (([HsToken])) +data Expression = Expression (Pos) ([HsToken]) diff --git a/src-derived/GenerateCode.hs b/src-derived/GenerateCode.hs --- a/src-derived/GenerateCode.hs +++ b/src-derived/GenerateCode.hs @@ -1,6979 +1,6729 @@ --- UUAGC 0.9.22 (GenerateCode.ag) -module GenerateCode where -{-# LINE 9 "GenerateCode.ag" #-} - -import CommonTypes -import SequentialTypes -import Code hiding (Type) -import qualified Code -import Options -import CodeSyntax -import ErrorMessages -import GrammarInfo -import DeclBlocks - -import qualified Data.Map as Map -import Data.Map(Map) -import qualified Data.Set as Set -import Data.Set(Set) -import qualified Data.Sequence as Seq -import Data.Sequence(Seq) -import UU.Scanner.Position -import TokenDef -import HsToken -import HsTokenScanner - -import Data.List(partition,intersperse,intersect,(\\)) -import Maybe(fromJust,isJust) -{-# LINE 31 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 2 "./CodeSyntax.ag" #-} - -import Patterns -import CommonTypes -import Data.Map(Map) -import Data.Set(Set) -{-# LINE 39 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 2 "./Patterns.ag" #-} - --- Patterns.ag imports -import UU.Scanner.Position(Pos) -import CommonTypes (ConstructorIdent,Identifier) -{-# LINE 46 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 2 "./DeclBlocks.ag" #-} - -import Code (Decl,Expr) -{-# LINE 51 "../src-derived/GenerateCode.hs" #-} -{-# LINE 101 "GenerateCode.ag" #-} - --- remove possible @v references in the types of a data type. -cleanupArg :: String -> String -cleanupArg s - = case idEvalType (SimpleType s) of - SimpleType s' -> s' -{-# LINE 59 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 115 "GenerateCode.ag" #-} - -appContext :: ContextMap -> NontermIdent -> Code.Type -> Code.Type -appContext mp nt tp - = maybe tp (\ctx -> CtxApp (map (\(n,ns) -> (getName n, ns)) ctx) tp) $ Map.lookup nt mp -{-# LINE 66 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 198 "GenerateCode.ag" #-} - -mkDecl True lhs rhs _ _ = Bind lhs rhs -mkDecl False lhs rhs s1 s2 = Decl lhs rhs s1 s2 - -unwrapSem :: Bool -> NontermIdent -> Expr -> Expr -unwrapSem False _ e = e -unwrapSem True nm e = Case e alts - where alts = [CaseAlt left right] - left = Fun (typeName nm 0) [SimpleExpr "x"] - right = SimpleExpr "x" -{-# LINE 79 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 349 "GenerateCode.ag" #-} - -substSelf nt tp = case tp of - NT t tps | t == _SELF -> Haskell (getName nt ++ " " ++ unwords tps) - _ -> tp -{-# LINE 86 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 457 "GenerateCode.ag" #-} - -mkLambdaArg :: String -> Maybe Code.Type -> Expr -mkLambdaArg nm Nothing = SimpleExpr nm -mkLambdaArg nm (Just tp) = TypedExpr (SimpleExpr nm) tp - -mkLambda :: Exprs -> Expr -> Expr -mkLambda [] e = e -mkLambda xs e = Lambda xs e - -typeAppStrs nm params = TypeApp (SimpleType nm) (map SimpleType params) -{-# LINE 99 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 526 "GenerateCode.ag" #-} - -mkPartitionedFunction :: String -> Bool -> [Decl] -> [String] -> DeclBlocks -> ([Decl], Expr) -mkPartitionedFunction prefix optCase nextVisitDecls lastExprVars cpsTree - = let inh = Inh_DeclBlocksRoot { prefix_Inh_DeclBlocksRoot = prefix - , optCase_Inh_DeclBlocksRoot = optCase - , nextVisitDecls_Inh_DeclBlocksRoot = nextVisitDecls - , lastExprVars_Inh_DeclBlocksRoot = lastExprVars - } - sem = sem_DeclBlocksRoot (DeclBlocksRoot cpsTree) - syn = wrap_DeclBlocksRoot sem inh - in (lambdas_Syn_DeclBlocksRoot syn, firstCall_Syn_DeclBlocksRoot syn) -{-# LINE 113 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 576 "GenerateCode.ag" #-} - -freevars :: [String] -> [Decl] -> [String] -freevars additional decls - = Set.toList (allused `Set.difference` alldefined) - where - allused = Set.unions (Set.fromList additional : map usedvars decls) - alldefined = Set.unions (map definedvars decls) - - usedvars (Decl _ _ _ uses) = uses - usedvars _ = Set.empty - - definedvars (Decl _ _ defs _) = defs - definedvars _ = Set.empty - -mkBlockLambda :: Bool -> String -> [String] -> [Decl] -> Expr -> Decl -mkBlockLambda optCase name args decls expr - = Decl lhs rhs Set.empty Set.empty - where - lhs = Fun name (map SimpleExpr args) - rhs = mkLet optCase decls expr -{-# LINE 136 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 639 "GenerateCode.ag" #-} - -typeToCodeType :: Maybe NontermIdent -> [String] -> Type -> Code.Type -typeToCodeType mbNt params tp - = case tp of - NT nt tps | nt == _SELF -> NontermType (maybe "Unknown" getName mbNt) params - | otherwise -> NontermType (getName nt) tps - Haskell t -> SimpleType t - -evalType :: (String -> String) -> Code.Type -> Code.Type -evalType replf t - = chase t - where - chase t - = case t of - Arr l r -> Arr (chase l) (chase r) - TypeApp f as -> TypeApp (chase f) (map chase as) - TupleType tps -> TupleType (map chase tps) - UnboxedTupleType tps -> UnboxedTupleType (map chase tps) - Code.List tp -> Code.List (chase tp) - SimpleType txt -> let tks = lexTokens (initPos txt) txt - tks' = map replaceTok tks - txt' = unlines . showTokens . tokensToStrings $ tks' - in SimpleType txt' - TMaybe m -> TMaybe (chase m) - TEither l r -> TEither (chase l) (chase r) - TMap k v -> TMap (chase k) (chase v) - TIntMap v -> TIntMap (chase v) - _ -> t - - replaceTok t - = case t of - AGLocal v p _ -> HsToken (replf $ getName v) p - _ -> t - -idEvalType :: Code.Type -> Code.Type -idEvalType = evalType id -{-# LINE 175 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 789 "GenerateCode.ag" #-} - -makeLocalComment :: Int -> String -> Identifier -> Maybe Type -> String -makeLocalComment width what name tp = let x = getName name - y = maybe "_" (\t -> case t of (NT nt tps) -> getName nt ++ " " ++ unwords tps; Haskell t -> '{':t++"}") tp - in ( what ++ " " ++ x ++ replicate ((width - length x) `max` 0) ' ' ++ " : " ++ y ) - -{-# LINE 184 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 820 "GenerateCode.ag" #-} - --- Lets or nested Cases? --- or even a do-expression? - -data DeclsType = DeclsLet | DeclsCase | DeclsDo - -mkDecls :: DeclsType -> Decls -> Expr -> Expr -mkDecls DeclsLet = mkLet False -mkDecls DeclsCase = mkLet True -mkDecls DeclsDo = \decls -> Do (map toBind decls) - where toBind (Decl lhs rhs _ _) = BindLet lhs rhs - toBind d = d - -mkLet :: Bool -> Decls -> Expr -> Expr -mkLet False decls body = Let decls body -mkLet True decls body = foldr oneCase body decls - -oneCase :: Decl -> Expr -> Expr -oneCase (Decl left rhs _ _) exp = Case rhs [CaseAlt left exp] -oneCase _ exp = exp - --- Gives the name of the visit function -funname field 0 = show field ++ "_" -funname field nr = show field ++ "_" ++ show nr - --- Gives the name of a semantic function -seqSemname :: String -> NontermIdent -> ConstructorIdent -> Int -> String -seqSemname pre nt con 0 = semname pre nt con -seqSemname pre nt con nr = semname pre nt con ++ "_" ++ show nr - --- Gives the name of a type -typeName :: NontermIdent -> Int -> String -typeName nt 0 = "T_" ++ show nt -typeName nt n = "T_" ++ show nt ++ "_" ++ show n - -ntOfVisit :: NontermIdent -> Int -> NontermIdent -ntOfVisit nt 0 = nt -ntOfVisit nt n = Ident (show nt ++ "_" ++ show n) (getPos nt) - --- Gives the name of a visit function -visitname :: String -> NontermIdent -> Int -> String -visitname pre nt n = pre ++ getName nt ++ "_" ++ show n -{-# LINE 229 "../src-derived/GenerateCode.hs" #-} --- CGrammar ---------------------------------------------------- -{- - visit 0: - inherited attribute: - options : Options - synthesized attributes: - errors : Seq Error - output : Program - alternatives: - alternative CGrammar: - child typeSyns : {TypeSyns} - child derivings : {Derivings} - child wrappers : {Set NontermIdent} - child nonts : CNonterminals - child pragmas : {PragmaMap} - child paramMap : {ParamMap} - child contextMap : {ContextMap} - child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Set Identifier))} - visit 0: - local aroundMap : _ - local unfoldSemDom : _ --} --- cata -sem_CGrammar :: CGrammar -> - T_CGrammar -sem_CGrammar (CGrammar _typeSyns _derivings _wrappers _nonts _pragmas _paramMap _contextMap _aroundsMap ) = - (sem_CGrammar_CGrammar _typeSyns _derivings _wrappers (sem_CNonterminals _nonts ) _pragmas _paramMap _contextMap _aroundsMap ) --- semantic domain -newtype T_CGrammar = T_CGrammar (Options -> - ( (Seq Error),Program)) -data Inh_CGrammar = Inh_CGrammar {options_Inh_CGrammar :: !(Options)} -data Syn_CGrammar = Syn_CGrammar {errors_Syn_CGrammar :: !((Seq Error)),output_Syn_CGrammar :: !(Program)} -wrap_CGrammar :: T_CGrammar -> - Inh_CGrammar -> - Syn_CGrammar -wrap_CGrammar (T_CGrammar sem ) (Inh_CGrammar _lhsIoptions ) = - (let ( _lhsOerrors,_lhsOoutput) = - (sem _lhsIoptions ) - in (Syn_CGrammar _lhsOerrors _lhsOoutput )) -sem_CGrammar_CGrammar :: TypeSyns -> - Derivings -> - (Set NontermIdent) -> - T_CNonterminals -> - PragmaMap -> - ParamMap -> - ContextMap -> - (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> - T_CGrammar -sem_CGrammar_CGrammar typeSyns_ derivings_ wrappers_ (T_CNonterminals nonts_ ) pragmas_ paramMap_ contextMap_ aroundsMap_ = - (T_CGrammar (\ _lhsIoptions -> - (let _nontsOo_sig :: Bool - _nontsOo_cata :: Bool - _nontsOo_sem :: Bool - _nontsOo_newtypes :: Bool - _nontsOo_unbox :: Bool - _nontsOo_case :: Bool - _nontsOo_pretty :: Bool - _nontsOo_rename :: Bool - _nontsOo_strictwrap :: Bool - _nontsOo_splitsems :: Bool - _nontsOo_data :: (Maybe Bool) - _nontsOprefix :: String - _nontsOo_traces :: Bool - _nontsOo_costcentre :: Bool - _nontsOo_linePragmas :: Bool - _nontsOo_monadic :: Bool - _nontsOallPragmas :: PragmaMap - _nontsOparamMap :: ParamMap - _nontsOcontextMap :: ContextMap - _nontsOallNts :: (Set NontermIdent) - _nontsOwith_sig :: Bool - _nontsOerrors :: (Seq Error) - _lhsOoutput :: Program - _nontsOtypeSyns :: TypeSyns - _nontsOderivings :: Derivings - _nontsOwrappers :: (Set NontermIdent) - _lhsOerrors :: (Seq Error) - _nontsOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier))) - _nontsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _nontsIallTpsFound :: Bool - _nontsIchunks :: Chunks - _nontsIerrors :: (Seq Error) - _nontsIgathNts :: (Set NontermIdent) - _nontsIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_sig = - ({-# LINE 50 "GenerateCode.ag" #-} - typeSigs _lhsIoptions - {-# LINE 318 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_cata = - ({-# LINE 51 "GenerateCode.ag" #-} - folds _lhsIoptions - {-# LINE 323 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_sem = - ({-# LINE 52 "GenerateCode.ag" #-} - semfuns _lhsIoptions - {-# LINE 328 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_newtypes = - ({-# LINE 53 "GenerateCode.ag" #-} - newtypes _lhsIoptions - {-# LINE 333 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_unbox = - ({-# LINE 54 "GenerateCode.ag" #-} - unbox _lhsIoptions - {-# LINE 338 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_case = - ({-# LINE 55 "GenerateCode.ag" #-} - cases _lhsIoptions - {-# LINE 343 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_pretty = - ({-# LINE 56 "GenerateCode.ag" #-} - attrInfo _lhsIoptions - {-# LINE 348 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_rename = - ({-# LINE 57 "GenerateCode.ag" #-} - rename _lhsIoptions - {-# LINE 353 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_strictwrap = - ({-# LINE 58 "GenerateCode.ag" #-} - strictWrap _lhsIoptions - {-# LINE 358 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_splitsems = - ({-# LINE 59 "GenerateCode.ag" #-} - splitSems _lhsIoptions - {-# LINE 363 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_data = - ({-# LINE 60 "GenerateCode.ag" #-} - if dataTypes _lhsIoptions then Just (strictData _lhsIoptions) else Nothing - {-# LINE 368 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOprefix = - ({-# LINE 61 "GenerateCode.ag" #-} - prefix _lhsIoptions - {-# LINE 373 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_traces = - ({-# LINE 62 "GenerateCode.ag" #-} - genTraces _lhsIoptions - {-# LINE 378 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_costcentre = - ({-# LINE 63 "GenerateCode.ag" #-} - genCostCentres _lhsIoptions - {-# LINE 383 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_linePragmas = - ({-# LINE 64 "GenerateCode.ag" #-} - genLinePragmas _lhsIoptions - {-# LINE 388 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 50, column 17) - _nontsOo_monadic = - ({-# LINE 65 "GenerateCode.ag" #-} - monadic _lhsIoptions - {-# LINE 393 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 70, column 15) - _nontsOallPragmas = - ({-# LINE 70 "GenerateCode.ag" #-} - pragmas_ - {-# LINE 398 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 92, column 14) - _nontsOparamMap = - ({-# LINE 92 "GenerateCode.ag" #-} - paramMap_ - {-# LINE 403 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 113, column 7) - _nontsOcontextMap = - ({-# LINE 113 "GenerateCode.ag" #-} - contextMap_ - {-# LINE 408 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 125, column 7) - _nontsOallNts = - ({-# LINE 125 "GenerateCode.ag" #-} - _nontsIgathNts - {-# LINE 413 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 491, column 34) - _aroundMap = - ({-# LINE 491 "GenerateCode.ag" #-} - aroundsMap_ - {-# LINE 418 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 632, column 7) - _unfoldSemDom = - ({-# LINE 632 "GenerateCode.ag" #-} - \nt nr repl -> - let (params, tp) = Map.findWithDefault (error ("No such semantic domain: " ++ show nt)) (nt, nr) _nontsIsemDomUnfoldGath - replMap = Map.fromList (zip params repl) - replace k = Map.findWithDefault ('@':k) k replMap - in evalType replace tp - {-# LINE 427 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 735, column 14) - _nontsOwith_sig = - ({-# LINE 735 "GenerateCode.ag" #-} - typeSigs _lhsIoptions && _nontsIallTpsFound - {-# LINE 432 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 742, column 15) - _nontsOerrors = - ({-# LINE 742 "GenerateCode.ag" #-} - Seq.empty - {-# LINE 437 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 806, column 17) - _lhsOoutput = - ({-# LINE 806 "GenerateCode.ag" #-} - Program _nontsIchunks - {-# LINE 442 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 870, column 14) - _nontsOtypeSyns = - ({-# LINE 870 "GenerateCode.ag" #-} - typeSyns_ - {-# LINE 447 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 870, column 14) - _nontsOderivings = - ({-# LINE 871 "GenerateCode.ag" #-} - derivings_ - {-# LINE 452 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 870, column 14) - _nontsOwrappers = - ({-# LINE 872 "GenerateCode.ag" #-} - wrappers_ - {-# LINE 457 "GenerateCode.hs" #-}) - -- copy rule (up) - _lhsOerrors = - ({-# LINE 741 "GenerateCode.ag" #-} - _nontsIerrors - {-# LINE 462 "GenerateCode.hs" #-}) - -- copy rule (from local) - _nontsOaroundMap = - ({-# LINE 484 "GenerateCode.ag" #-} - _aroundMap - {-# LINE 467 "GenerateCode.hs" #-}) - -- copy rule (from local) - _nontsOunfoldSemDom = - ({-# LINE 628 "GenerateCode.ag" #-} - _unfoldSemDom - {-# LINE 472 "GenerateCode.hs" #-}) - ( _nontsIallTpsFound,_nontsIchunks,_nontsIerrors,_nontsIgathNts,_nontsIsemDomUnfoldGath) = - (nonts_ _nontsOallNts _nontsOallPragmas _nontsOaroundMap _nontsOcontextMap _nontsOderivings _nontsOerrors _nontsOo_case _nontsOo_cata _nontsOo_costcentre _nontsOo_data _nontsOo_linePragmas _nontsOo_monadic _nontsOo_newtypes _nontsOo_pretty _nontsOo_rename _nontsOo_sem _nontsOo_sig _nontsOo_splitsems _nontsOo_strictwrap _nontsOo_traces _nontsOo_unbox _nontsOparamMap _nontsOprefix _nontsOtypeSyns _nontsOunfoldSemDom _nontsOwith_sig _nontsOwrappers ) - in ( _lhsOerrors,_lhsOoutput))) ) --- CInterface -------------------------------------------------- -{- - visit 0: - inherited attributes: - inh : Attributes - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - paramMap : ParamMap - prefix : String - syn : Attributes - synthesized attributes: - comments : [String] - semDom : [Decl] - semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) - wrapDecls : Decls - alternatives: - alternative CInterface: - child seg : CSegments --} --- cata -sem_CInterface :: CInterface -> - T_CInterface -sem_CInterface (CInterface _seg ) = - (sem_CInterface_CInterface (sem_CSegments _seg ) ) --- semantic domain -newtype T_CInterface = T_CInterface (Attributes -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - ParamMap -> - String -> - Attributes -> - ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls)) -data Inh_CInterface = Inh_CInterface {inh_Inh_CInterface :: !(Attributes),nt_Inh_CInterface :: !(NontermIdent),o_case_Inh_CInterface :: !(Bool),o_cata_Inh_CInterface :: !(Bool),o_costcentre_Inh_CInterface :: !(Bool),o_data_Inh_CInterface :: !((Maybe Bool)),o_linePragmas_Inh_CInterface :: !(Bool),o_monadic_Inh_CInterface :: !(Bool),o_newtypes_Inh_CInterface :: !(Bool),o_pretty_Inh_CInterface :: !(Bool),o_rename_Inh_CInterface :: !(Bool),o_sem_Inh_CInterface :: !(Bool),o_sig_Inh_CInterface :: !(Bool),o_splitsems_Inh_CInterface :: !(Bool),o_strictwrap_Inh_CInterface :: !(Bool),o_traces_Inh_CInterface :: !(Bool),o_unbox_Inh_CInterface :: !(Bool),paramMap_Inh_CInterface :: !(ParamMap),prefix_Inh_CInterface :: !(String),syn_Inh_CInterface :: !(Attributes)} -data Syn_CInterface = Syn_CInterface {comments_Syn_CInterface :: !(([String])),semDom_Syn_CInterface :: !(([Decl])),semDomUnfoldGath_Syn_CInterface :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CInterface :: !(Decls)} -wrap_CInterface :: T_CInterface -> - Inh_CInterface -> - Syn_CInterface -wrap_CInterface (T_CInterface sem ) (Inh_CInterface _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn ) = - (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = - (sem _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn ) - in (Syn_CInterface _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls )) -sem_CInterface_CInterface :: T_CSegments -> - T_CInterface -sem_CInterface_CInterface (T_CSegments seg_ ) = - (T_CInterface (\ _lhsIinh - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamMap - _lhsIprefix - _lhsIsyn -> - (let _segOnr :: Int - _lhsOsemDom :: ([Decl]) - _lhsOcomments :: ([String]) - _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _lhsOwrapDecls :: Decls - _segOinh :: Attributes - _segOnt :: NontermIdent - _segOo_case :: Bool - _segOo_cata :: Bool - _segOo_costcentre :: Bool - _segOo_data :: (Maybe Bool) - _segOo_linePragmas :: Bool - _segOo_monadic :: Bool - _segOo_newtypes :: Bool - _segOo_pretty :: Bool - _segOo_rename :: Bool - _segOo_sem :: Bool - _segOo_sig :: Bool - _segOo_splitsems :: Bool - _segOo_strictwrap :: Bool - _segOo_traces :: Bool - _segOo_unbox :: Bool - _segOparamMap :: ParamMap - _segOprefix :: String - _segOsyn :: Attributes - _segIcomments :: ([String]) - _segIisNil :: Bool - _segIsemDom :: ([Decl]) - _segIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _segIwrapDecls :: Decls - -- "GenerateCode.ag"(line 235, column 17) - _segOnr = - ({-# LINE 235 "GenerateCode.ag" #-} - 0 - {-# LINE 602 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 605, column 18) - _lhsOsemDom = - ({-# LINE 605 "GenerateCode.ag" #-} - Comment "semantic domain" : _segIsemDom - {-# LINE 607 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 759, column 52) - _lhsOcomments = - ({-# LINE 759 "GenerateCode.ag" #-} - _segIcomments - {-# LINE 612 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 622, column 86) - _lhsOsemDomUnfoldGath = - ({-# LINE 622 "GenerateCode.ag" #-} - _segIsemDomUnfoldGath - {-# LINE 617 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 708, column 52) - _lhsOwrapDecls = - ({-# LINE 708 "GenerateCode.ag" #-} - _segIwrapDecls - {-# LINE 622 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOinh = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 627 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOnt = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 632 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 637 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 642 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 647 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 652 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 657 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 662 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 667 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 672 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 677 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 682 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 687 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 692 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 697 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 702 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 707 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 712 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 717 "GenerateCode.hs" #-}) - -- copy rule (down) - _segOsyn = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 722 "GenerateCode.hs" #-}) - ( _segIcomments,_segIisNil,_segIsemDom,_segIsemDomUnfoldGath,_segIwrapDecls) = - (seg_ _segOinh _segOnr _segOnt _segOo_case _segOo_cata _segOo_costcentre _segOo_data _segOo_linePragmas _segOo_monadic _segOo_newtypes _segOo_pretty _segOo_rename _segOo_sem _segOo_sig _segOo_splitsems _segOo_strictwrap _segOo_traces _segOo_unbox _segOparamMap _segOprefix _segOsyn ) - in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) --- CNonterminal ------------------------------------------------ -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - allPragmas : PragmaMap - aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier)) - contextMap : ContextMap - derivings : Derivings - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - paramMap : ParamMap - prefix : String - typeSyns : TypeSyns - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - with_sig : Bool - wrappers : Set NontermIdent - chained attribute: - errors : Seq Error - synthesized attributes: - allTpsFound : Bool - chunks : Chunks - gathNts : Set NontermIdent - semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) - alternatives: - alternative CNonterminal: - child nt : {NontermIdent} - child params : {[Identifier]} - child inh : {Attributes} - child syn : {Attributes} - child prods : CProductions - child inter : CInterface - visit 0: - local _tup1 : {(Attributes,Attributes,NontermIdent)} - local _tup2 : {(Attributes,Attributes,NontermIdent)} - local aroundMap : _ - local semWrapper : _ - local comment : _ - local dataDef : _ - local cataFun : _ --} --- cata -sem_CNonterminal :: CNonterminal -> - T_CNonterminal -sem_CNonterminal (CNonterminal _nt _params _inh _syn _prods _inter ) = - (sem_CNonterminal_CNonterminal _nt _params _inh _syn (sem_CProductions _prods ) (sem_CInterface _inter ) ) --- semantic domain -newtype T_CNonterminal = T_CNonterminal ((Set NontermIdent) -> - PragmaMap -> - (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> - ContextMap -> - Derivings -> - (Seq Error) -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - ParamMap -> - String -> - TypeSyns -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - Bool -> - (Set NontermIdent) -> - ( Bool,Chunks,(Seq Error),(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type)))) -data Inh_CNonterminal = Inh_CNonterminal {allNts_Inh_CNonterminal :: !((Set NontermIdent)),allPragmas_Inh_CNonterminal :: !(PragmaMap),aroundMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminal :: !(ContextMap),derivings_Inh_CNonterminal :: !(Derivings),errors_Inh_CNonterminal :: !((Seq Error)),o_case_Inh_CNonterminal :: !(Bool),o_cata_Inh_CNonterminal :: !(Bool),o_costcentre_Inh_CNonterminal :: !(Bool),o_data_Inh_CNonterminal :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminal :: !(Bool),o_monadic_Inh_CNonterminal :: !(Bool),o_newtypes_Inh_CNonterminal :: !(Bool),o_pretty_Inh_CNonterminal :: !(Bool),o_rename_Inh_CNonterminal :: !(Bool),o_sem_Inh_CNonterminal :: !(Bool),o_sig_Inh_CNonterminal :: !(Bool),o_splitsems_Inh_CNonterminal :: !(Bool),o_strictwrap_Inh_CNonterminal :: !(Bool),o_traces_Inh_CNonterminal :: !(Bool),o_unbox_Inh_CNonterminal :: !(Bool),paramMap_Inh_CNonterminal :: !(ParamMap),prefix_Inh_CNonterminal :: !(String),typeSyns_Inh_CNonterminal :: !(TypeSyns),unfoldSemDom_Inh_CNonterminal :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminal :: !(Bool),wrappers_Inh_CNonterminal :: !((Set NontermIdent))} -data Syn_CNonterminal = Syn_CNonterminal {allTpsFound_Syn_CNonterminal :: !(Bool),chunks_Syn_CNonterminal :: !(Chunks),errors_Syn_CNonterminal :: !((Seq Error)),gathNts_Syn_CNonterminal :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminal :: !((Map (NontermIdent, Int) ([String], Code.Type)))} -wrap_CNonterminal :: T_CNonterminal -> - Inh_CNonterminal -> - Syn_CNonterminal -wrap_CNonterminal (T_CNonterminal sem ) (Inh_CNonterminal _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsIerrors _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) = - (let ( _lhsOallTpsFound,_lhsOchunks,_lhsOerrors,_lhsOgathNts,_lhsOsemDomUnfoldGath) = - (sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsIerrors _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) - in (Syn_CNonterminal _lhsOallTpsFound _lhsOchunks _lhsOerrors _lhsOgathNts _lhsOsemDomUnfoldGath )) -sem_CNonterminal_CNonterminal :: NontermIdent -> - ([Identifier]) -> - Attributes -> - Attributes -> - T_CProductions -> - T_CInterface -> - T_CNonterminal -sem_CNonterminal_CNonterminal nt_ params_ inh_ syn_ (T_CProductions prods_ ) (T_CInterface inter_ ) = - (T_CNonterminal (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIcontextMap - _lhsIderivings - _lhsIerrors - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamMap - _lhsIprefix - _lhsItypeSyns - _lhsIunfoldSemDom - _lhsIwith_sig - _lhsIwrappers -> - (let __tup1 :: ((Attributes,Attributes,NontermIdent)) - _interOinh :: Attributes - _interOsyn :: Attributes - _interOnt :: NontermIdent - __tup2 :: ((Attributes,Attributes,NontermIdent)) - _prodsOinh :: Attributes - _prodsOsyn :: Attributes - _prodsOnt :: NontermIdent - _lhsOgathNts :: (Set NontermIdent) - _lhsOchunks :: Chunks - _lhsOallTpsFound :: Bool - _lhsOerrors :: (Seq Error) - _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _prodsOallNts :: (Set NontermIdent) - _prodsOallPragmas :: PragmaMap - _prodsOaroundMap :: (Map ConstructorIdent (Set Identifier)) - _prodsOcontextMap :: ContextMap - _prodsOerrors :: (Seq Error) - _prodsOo_case :: Bool - _prodsOo_cata :: Bool - _prodsOo_costcentre :: Bool - _prodsOo_data :: (Maybe Bool) - _prodsOo_linePragmas :: Bool - _prodsOo_monadic :: Bool - _prodsOo_newtypes :: Bool - _prodsOo_pretty :: Bool - _prodsOo_rename :: Bool - _prodsOo_sem :: Bool - _prodsOo_sig :: Bool - _prodsOo_splitsems :: Bool - _prodsOo_strictwrap :: Bool - _prodsOo_traces :: Bool - _prodsOo_unbox :: Bool - _prodsOparamMap :: ParamMap - _prodsOprefix :: String - _prodsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _prodsOwith_sig :: Bool - _interOo_case :: Bool - _interOo_cata :: Bool - _interOo_costcentre :: Bool - _interOo_data :: (Maybe Bool) - _interOo_linePragmas :: Bool - _interOo_monadic :: Bool - _interOo_newtypes :: Bool - _interOo_pretty :: Bool - _interOo_rename :: Bool - _interOo_sem :: Bool - _interOo_sig :: Bool - _interOo_splitsems :: Bool - _interOo_strictwrap :: Bool - _interOo_traces :: Bool - _interOo_unbox :: Bool - _interOparamMap :: ParamMap - _interOprefix :: String - _prodsIallTpsFound :: Bool - _prodsIcataAlts :: Decls - _prodsIcomments :: ([String]) - _prodsIdataAlts :: DataAlts - _prodsIdecls :: Decls - _prodsIerrors :: (Seq Error) - _prodsIsemNames :: ([String]) - _interIcomments :: ([String]) - _interIsemDom :: ([Decl]) - _interIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _interIwrapDecls :: Decls - -- "GenerateCode.ag"(line 80, column 26) - __tup1 = - ({-# LINE 80 "GenerateCode.ag" #-} - (inh_,syn_,nt_) - {-# LINE 927 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 80, column 26) - (_interOinh,_,_) = - ({-# LINE 80 "GenerateCode.ag" #-} - __tup1 - {-# LINE 932 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 80, column 26) - (_,_interOsyn,_) = - ({-# LINE 80 "GenerateCode.ag" #-} - __tup1 - {-# LINE 937 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 80, column 26) - (_,_,_interOnt) = - ({-# LINE 80 "GenerateCode.ag" #-} - __tup1 - {-# LINE 942 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 81, column 25) - __tup2 = - ({-# LINE 81 "GenerateCode.ag" #-} - (inh_,syn_,nt_) - {-# LINE 947 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 81, column 25) - (_prodsOinh,_,_) = - ({-# LINE 81 "GenerateCode.ag" #-} - __tup2 - {-# LINE 952 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 81, column 25) - (_,_prodsOsyn,_) = - ({-# LINE 81 "GenerateCode.ag" #-} - __tup2 - {-# LINE 957 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 81, column 25) - (_,_,_prodsOnt) = - ({-# LINE 81 "GenerateCode.ag" #-} - __tup2 - {-# LINE 962 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 131, column 7) - _lhsOgathNts = - ({-# LINE 131 "GenerateCode.ag" #-} - Set.singleton nt_ - {-# LINE 967 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 492, column 34) - _aroundMap = - ({-# LINE 492 "GenerateCode.ag" #-} - Map.findWithDefault Map.empty nt_ _lhsIaroundMap - {-# LINE 972 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 682, column 18) - _semWrapper = - ({-# LINE 682 "GenerateCode.ag" #-} - let params' = map getName params_ - inhAttrs = Map.toList inh_ - synAttrs = Map.toList syn_ - inhVars = [ SimpleExpr (attrname True _LHS a) | (a,_) <- inhAttrs ] - synVars = [ SimpleExpr (attrname False _LHS a) | (a,_) <- synAttrs ] - var = "sem" - wrapNT = "wrap" ++ "_" ++ getName nt_ - inhNT = "Inh" ++ "_" ++ getName nt_ - synNT = "Syn" ++ "_" ++ getName nt_ - varPat = if _lhsIo_newtypes - then App (sdtype nt_) [SimpleExpr var] - else SimpleExpr var - evalTp | null params' = id - | otherwise = idEvalType - appParams nm = TypeApp (SimpleType nm) (map SimpleType params') - typeSig = TSig wrapNT (evalTp $ appParams (sdtype nt_) `Arr` (appParams inhNT `Arr` appParams synNT)) - mkstrict = Named _lhsIo_strictwrap - mkdata n attrs = Data n params' [Record n [mkstrict (getName f++"_"++n) $ evalTp $ typeToCodeType (Just nt_) params' t | (f,t) <- attrs]] False [] - datas = [mkdata inhNT inhAttrs, mkdata synNT synAttrs] - in datas ++ [ typeSig - , Decl (Fun wrapNT [varPat, App inhNT inhVars]) - (Let _interIwrapDecls (App synNT synVars)) - Set.empty Set.empty - ] - {-# LINE 1000 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 755, column 18) - _comment = - ({-# LINE 755 "GenerateCode.ag" #-} - Comment . unlines . map ind $ ( _interIcomments ++ ("alternatives:" : map ind _prodsIcomments) ) - {-# LINE 1005 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 809, column 19) - _lhsOchunks = - ({-# LINE 809 "GenerateCode.ag" #-} - [ Chunk (getName nt_) - (Comment (getName nt_ ++ " " ++ replicate (60 - length (getName nt_)) '-')) - (if _lhsIo_pretty then [_comment ] else []) - (if isJust _lhsIo_data then [_dataDef ] else []) - (if _lhsIo_cata then _cataFun else []) - (if _lhsIo_sig then _interIsemDom else []) - (if nt_ `Set.member` _lhsIwrappers then _semWrapper else []) - (if _lhsIo_sem then _prodsIdecls else []) - (if _lhsIo_sem then _prodsIsemNames else []) - ] - {-# LINE 1019 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 875, column 18) - _dataDef = - ({-# LINE 875 "GenerateCode.ag" #-} - let params' = map getName params_ - typeSyn tp = let theType = - case tp of - CommonTypes.Maybe t -> TMaybe $ typeToCodeType (Just nt_) params' t - CommonTypes.Either t1 t2 -> TEither (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2) - CommonTypes.Map t1 t2 -> TMap (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2) - CommonTypes.IntMap t -> TIntMap $ typeToCodeType (Just nt_) params' t - CommonTypes.List t -> Code.List $ typeToCodeType (Just nt_) params' t - CommonTypes.Tuple ts -> Code.TupleType [typeToCodeType (Just nt_) params' t - | (_,t) <- ts - ] - in Code.Type (getName nt_) params' (idEvalType theType) - derivings = maybe [] (map getName . Set.toList) (Map.lookup nt_ _lhsIderivings) - dataDef = Data (getName nt_) (map getName params_) _prodsIdataAlts (maybe False id _lhsIo_data) derivings - in maybe dataDef typeSyn $ lookup nt_ _lhsItypeSyns - {-# LINE 1038 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 907, column 18) - _cataFun = - ({-# LINE 907 "GenerateCode.ag" #-} - let appParams nm = TypeApp (SimpleType nm) (map SimpleType (map getName params_)) - evalTp | null params_ = id - | otherwise = idEvalType - tSig = TSig (cataname _lhsIprefix nt_) - (appContext _lhsIcontextMap nt_ $ evalTp $ appParams (getName nt_) `Arr` appParams (sdtype nt_)) - special typ = case typ of - CommonTypes.List tp -> - let cons = SimpleExpr (semname _lhsIprefix nt_ (identifier "Cons")) - nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil" )) - arg = SimpleExpr "list" - rarg = case tp of - NT t _ -> let t' = maybe t id (deforestedNt t) - in SimpleExpr ("(Prelude.map " ++ (cataname _lhsIprefix t') ++ " list)") - _ -> arg - lhs = Fun (cataname _lhsIprefix nt_) [arg] - rhs = (App "Prelude.foldr" [cons,nil,rarg]) - in [Decl lhs rhs Set.empty Set.empty] - CommonTypes.Maybe tp -> - let just = semname _lhsIprefix nt_ (identifier "Just") - nothing = semname _lhsIprefix nt_ (identifier "Nothing" ) - arg = SimpleExpr "x" - rarg = case tp of - NT t _ -> let t' = maybe t id (deforestedNt t) - in App (cataname _lhsIprefix t') [arg] - _ -> arg - lhs a = Fun (cataname _lhsIprefix nt_) [a] - in [Decl (lhs (App "Prelude.Just" [arg])) (App just [rarg]) Set.empty Set.empty - ,Decl (lhs (SimpleExpr "Prelude.Nothing")) (SimpleExpr nothing) Set.empty Set.empty - ] - CommonTypes.Either tp1 tp2 -> - let left = semname _lhsIprefix nt_ (identifier "Left") - right = semname _lhsIprefix nt_ (identifier "Right" ) - arg = SimpleExpr "x" - rarg0 = case tp1 of - NT t _ -> let t' = maybe t id (deforestedNt t) - in App (cataname _lhsIprefix t') [arg] - _ -> arg - rarg1 = case tp2 of - NT t _ -> let t' = maybe t id (deforestedNt t) - in App (cataname _lhsIprefix t') [arg] - _ -> arg - lhs a = Fun (cataname _lhsIprefix nt_) [a] - in [Decl (lhs (App "Prelude.Left" [arg])) (App left [rarg0]) Set.empty Set.empty - ,Decl (lhs (App "Prelude.Right" [arg])) (App right [rarg1]) Set.empty Set.empty - ] - CommonTypes.Map _ tp -> - let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry")) - nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil")) - arg = SimpleExpr "m" - rarg = case tp of - NT t _ -> let t' = maybe t id (deforestedNt t) - in App "Map.map" [SimpleExpr $ cataname _lhsIprefix t', arg] - _ -> arg - lhs = Fun (cataname _lhsIprefix nt_) [arg] - rhs = App "Map.foldWithKey" [entry,nil,rarg] - in [Decl lhs rhs Set.empty Set.empty] - CommonTypes.IntMap tp -> - let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry")) - nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil")) - arg = SimpleExpr "m" - rarg = case tp of - NT t _ -> let t' = maybe t id (deforestedNt t) - in App "IntMap.map" [SimpleExpr $ cataname _lhsIprefix t', arg] - _ -> arg - lhs = Fun (cataname _lhsIprefix nt_) [arg] - rhs = App "IntMap.foldWithKey" [entry,nil,rarg] - in [Decl lhs rhs Set.empty Set.empty] - CommonTypes.Tuple tps -> - let con = semname _lhsIprefix nt_ (identifier "Tuple") - tps' = [ (SimpleExpr (getName x),y) | (x,y) <- tps] - rargs = map rarg tps' - rarg (n, tp) = case tp of - NT t _ -> let t' = maybe t id (deforestedNt t) - in App (cataname _lhsIprefix t') [n] - _ -> n - lhs = Fun (cataname _lhsIprefix nt_) [TupleExpr (map fst tps')] - rhs = App con rargs - in [Decl lhs rhs Set.empty Set.empty] - in Comment "cata" : - (if _lhsIo_sig then [tSig] else []) ++ - maybe _prodsIcataAlts special (lookup nt_ _lhsItypeSyns) - {-# LINE 1123 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 727, column 39) - _lhsOallTpsFound = - ({-# LINE 727 "GenerateCode.ag" #-} - _prodsIallTpsFound - {-# LINE 1128 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 740, column 32) - _lhsOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _prodsIerrors - {-# LINE 1133 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 622, column 86) - _lhsOsemDomUnfoldGath = - ({-# LINE 622 "GenerateCode.ag" #-} - _interIsemDomUnfoldGath - {-# LINE 1138 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOallNts = - ({-# LINE 121 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 1143 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOallPragmas = - ({-# LINE 67 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 1148 "GenerateCode.hs" #-}) - -- copy rule (from local) - _prodsOaroundMap = - ({-# LINE 487 "GenerateCode.ag" #-} - _aroundMap - {-# LINE 1153 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOcontextMap = - ({-# LINE 109 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 1158 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _lhsIerrors - {-# LINE 1163 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 1168 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 1173 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 1178 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 1183 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 1188 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 1193 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 1198 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 1203 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 1208 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 1213 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 1218 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 1223 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 1228 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 1233 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 1238 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 1243 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 1248 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOunfoldSemDom = - ({-# LINE 628 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 1253 "GenerateCode.hs" #-}) - -- copy rule (down) - _prodsOwith_sig = - ({-# LINE 730 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 1258 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 1263 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 1268 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 1273 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 1278 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 1283 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 1288 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 1293 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 1298 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 1303 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 1308 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 1313 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 1318 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 1323 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 1328 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 1333 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 1338 "GenerateCode.hs" #-}) - -- copy rule (down) - _interOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 1343 "GenerateCode.hs" #-}) - ( _prodsIallTpsFound,_prodsIcataAlts,_prodsIcomments,_prodsIdataAlts,_prodsIdecls,_prodsIerrors,_prodsIsemNames) = - (prods_ _prodsOallNts _prodsOallPragmas _prodsOaroundMap _prodsOcontextMap _prodsOerrors _prodsOinh _prodsOnt _prodsOo_case _prodsOo_cata _prodsOo_costcentre _prodsOo_data _prodsOo_linePragmas _prodsOo_monadic _prodsOo_newtypes _prodsOo_pretty _prodsOo_rename _prodsOo_sem _prodsOo_sig _prodsOo_splitsems _prodsOo_strictwrap _prodsOo_traces _prodsOo_unbox _prodsOparamMap _prodsOprefix _prodsOsyn _prodsOunfoldSemDom _prodsOwith_sig ) - ( _interIcomments,_interIsemDom,_interIsemDomUnfoldGath,_interIwrapDecls) = - (inter_ _interOinh _interOnt _interOo_case _interOo_cata _interOo_costcentre _interOo_data _interOo_linePragmas _interOo_monadic _interOo_newtypes _interOo_pretty _interOo_rename _interOo_sem _interOo_sig _interOo_splitsems _interOo_strictwrap _interOo_traces _interOo_unbox _interOparamMap _interOprefix _interOsyn ) - in ( _lhsOallTpsFound,_lhsOchunks,_lhsOerrors,_lhsOgathNts,_lhsOsemDomUnfoldGath))) ) --- CNonterminals ----------------------------------------------- -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - allPragmas : PragmaMap - aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier)) - contextMap : ContextMap - derivings : Derivings - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - paramMap : ParamMap - prefix : String - typeSyns : TypeSyns - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - with_sig : Bool - wrappers : Set NontermIdent - chained attribute: - errors : Seq Error - synthesized attributes: - allTpsFound : Bool - chunks : Chunks - gathNts : Set NontermIdent - semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) - alternatives: - alternative Cons: - child hd : CNonterminal - child tl : CNonterminals - alternative Nil: --} --- cata -sem_CNonterminals :: CNonterminals -> - T_CNonterminals -sem_CNonterminals list = - (Prelude.foldr sem_CNonterminals_Cons sem_CNonterminals_Nil (Prelude.map sem_CNonterminal list) ) --- semantic domain -newtype T_CNonterminals = T_CNonterminals ((Set NontermIdent) -> - PragmaMap -> - (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> - ContextMap -> - Derivings -> - (Seq Error) -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - ParamMap -> - String -> - TypeSyns -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - Bool -> - (Set NontermIdent) -> - ( Bool,Chunks,(Seq Error),(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type)))) -data Inh_CNonterminals = Inh_CNonterminals {allNts_Inh_CNonterminals :: !((Set NontermIdent)),allPragmas_Inh_CNonterminals :: !(PragmaMap),aroundMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminals :: !(ContextMap),derivings_Inh_CNonterminals :: !(Derivings),errors_Inh_CNonterminals :: !((Seq Error)),o_case_Inh_CNonterminals :: !(Bool),o_cata_Inh_CNonterminals :: !(Bool),o_costcentre_Inh_CNonterminals :: !(Bool),o_data_Inh_CNonterminals :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminals :: !(Bool),o_monadic_Inh_CNonterminals :: !(Bool),o_newtypes_Inh_CNonterminals :: !(Bool),o_pretty_Inh_CNonterminals :: !(Bool),o_rename_Inh_CNonterminals :: !(Bool),o_sem_Inh_CNonterminals :: !(Bool),o_sig_Inh_CNonterminals :: !(Bool),o_splitsems_Inh_CNonterminals :: !(Bool),o_strictwrap_Inh_CNonterminals :: !(Bool),o_traces_Inh_CNonterminals :: !(Bool),o_unbox_Inh_CNonterminals :: !(Bool),paramMap_Inh_CNonterminals :: !(ParamMap),prefix_Inh_CNonterminals :: !(String),typeSyns_Inh_CNonterminals :: !(TypeSyns),unfoldSemDom_Inh_CNonterminals :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminals :: !(Bool),wrappers_Inh_CNonterminals :: !((Set NontermIdent))} -data Syn_CNonterminals = Syn_CNonterminals {allTpsFound_Syn_CNonterminals :: !(Bool),chunks_Syn_CNonterminals :: !(Chunks),errors_Syn_CNonterminals :: !((Seq Error)),gathNts_Syn_CNonterminals :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminals :: !((Map (NontermIdent, Int) ([String], Code.Type)))} -wrap_CNonterminals :: T_CNonterminals -> - Inh_CNonterminals -> - Syn_CNonterminals -wrap_CNonterminals (T_CNonterminals sem ) (Inh_CNonterminals _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsIerrors _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) = - (let ( _lhsOallTpsFound,_lhsOchunks,_lhsOerrors,_lhsOgathNts,_lhsOsemDomUnfoldGath) = - (sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsIerrors _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) - in (Syn_CNonterminals _lhsOallTpsFound _lhsOchunks _lhsOerrors _lhsOgathNts _lhsOsemDomUnfoldGath )) -sem_CNonterminals_Cons :: T_CNonterminal -> - T_CNonterminals -> - T_CNonterminals -sem_CNonterminals_Cons (T_CNonterminal hd_ ) (T_CNonterminals tl_ ) = - (T_CNonterminals (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIcontextMap - _lhsIderivings - _lhsIerrors - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamMap - _lhsIprefix - _lhsItypeSyns - _lhsIunfoldSemDom - _lhsIwith_sig - _lhsIwrappers -> - (let _lhsOallTpsFound :: Bool - _lhsOchunks :: Chunks - _lhsOerrors :: (Seq Error) - _lhsOgathNts :: (Set NontermIdent) - _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _hdOallNts :: (Set NontermIdent) - _hdOallPragmas :: PragmaMap - _hdOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier))) - _hdOcontextMap :: ContextMap - _hdOderivings :: Derivings - _hdOerrors :: (Seq Error) - _hdOo_case :: Bool - _hdOo_cata :: Bool - _hdOo_costcentre :: Bool - _hdOo_data :: (Maybe Bool) - _hdOo_linePragmas :: Bool - _hdOo_monadic :: Bool - _hdOo_newtypes :: Bool - _hdOo_pretty :: Bool - _hdOo_rename :: Bool - _hdOo_sem :: Bool - _hdOo_sig :: Bool - _hdOo_splitsems :: Bool - _hdOo_strictwrap :: Bool - _hdOo_traces :: Bool - _hdOo_unbox :: Bool - _hdOparamMap :: ParamMap - _hdOprefix :: String - _hdOtypeSyns :: TypeSyns - _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _hdOwith_sig :: Bool - _hdOwrappers :: (Set NontermIdent) - _tlOallNts :: (Set NontermIdent) - _tlOallPragmas :: PragmaMap - _tlOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier))) - _tlOcontextMap :: ContextMap - _tlOderivings :: Derivings - _tlOerrors :: (Seq Error) - _tlOo_case :: Bool - _tlOo_cata :: Bool - _tlOo_costcentre :: Bool - _tlOo_data :: (Maybe Bool) - _tlOo_linePragmas :: Bool - _tlOo_monadic :: Bool - _tlOo_newtypes :: Bool - _tlOo_pretty :: Bool - _tlOo_rename :: Bool - _tlOo_sem :: Bool - _tlOo_sig :: Bool - _tlOo_splitsems :: Bool - _tlOo_strictwrap :: Bool - _tlOo_traces :: Bool - _tlOo_unbox :: Bool - _tlOparamMap :: ParamMap - _tlOprefix :: String - _tlOtypeSyns :: TypeSyns - _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _tlOwith_sig :: Bool - _tlOwrappers :: (Set NontermIdent) - _hdIallTpsFound :: Bool - _hdIchunks :: Chunks - _hdIerrors :: (Seq Error) - _hdIgathNts :: (Set NontermIdent) - _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _tlIallTpsFound :: Bool - _tlIchunks :: Chunks - _tlIerrors :: (Seq Error) - _tlIgathNts :: (Set NontermIdent) - _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - -- use rule "GenerateCode.ag"(line 727, column 39) - _lhsOallTpsFound = - ({-# LINE 727 "GenerateCode.ag" #-} - _hdIallTpsFound && _tlIallTpsFound - {-# LINE 1539 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 801, column 49) - _lhsOchunks = - ({-# LINE 801 "GenerateCode.ag" #-} - _hdIchunks ++ _tlIchunks - {-# LINE 1544 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 740, column 32) - _lhsOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 1549 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 127, column 47) - _lhsOgathNts = - ({-# LINE 127 "GenerateCode.ag" #-} - _hdIgathNts `Set.union` _tlIgathNts - {-# LINE 1554 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 622, column 86) - _lhsOsemDomUnfoldGath = - ({-# LINE 622 "GenerateCode.ag" #-} - _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath - {-# LINE 1559 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOallNts = - ({-# LINE 121 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 1564 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOallPragmas = - ({-# LINE 67 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 1569 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOaroundMap = - ({-# LINE 484 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 1574 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOcontextMap = - ({-# LINE 109 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 1579 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOderivings = - ({-# LINE 868 "GenerateCode.ag" #-} - _lhsIderivings - {-# LINE 1584 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _lhsIerrors - {-# LINE 1589 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 1594 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 1599 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 1604 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 1609 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 1614 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 1619 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 1624 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 1629 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 1634 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 1639 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 1644 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 1649 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 1654 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 1659 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 1664 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 1669 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 1674 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOtypeSyns = - ({-# LINE 868 "GenerateCode.ag" #-} - _lhsItypeSyns - {-# LINE 1679 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOunfoldSemDom = - ({-# LINE 628 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 1684 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOwith_sig = - ({-# LINE 730 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 1689 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOwrappers = - ({-# LINE 868 "GenerateCode.ag" #-} - _lhsIwrappers - {-# LINE 1694 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOallNts = - ({-# LINE 121 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 1699 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOallPragmas = - ({-# LINE 67 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 1704 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOaroundMap = - ({-# LINE 484 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 1709 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOcontextMap = - ({-# LINE 109 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 1714 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOderivings = - ({-# LINE 868 "GenerateCode.ag" #-} - _lhsIderivings - {-# LINE 1719 "GenerateCode.hs" #-}) - -- copy rule (chain) - _tlOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _hdIerrors - {-# LINE 1724 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 1729 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 1734 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 1739 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 1744 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 1749 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 1754 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 1759 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 1764 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 1769 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 1774 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 1779 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 1784 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 1789 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 1794 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 1799 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 1804 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 1809 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOtypeSyns = - ({-# LINE 868 "GenerateCode.ag" #-} - _lhsItypeSyns - {-# LINE 1814 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOunfoldSemDom = - ({-# LINE 628 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 1819 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOwith_sig = - ({-# LINE 730 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 1824 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOwrappers = - ({-# LINE 868 "GenerateCode.ag" #-} - _lhsIwrappers - {-# LINE 1829 "GenerateCode.hs" #-}) - ( _hdIallTpsFound,_hdIchunks,_hdIerrors,_hdIgathNts,_hdIsemDomUnfoldGath) = - (hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOderivings _hdOerrors _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOparamMap _hdOprefix _hdOtypeSyns _hdOunfoldSemDom _hdOwith_sig _hdOwrappers ) - ( _tlIallTpsFound,_tlIchunks,_tlIerrors,_tlIgathNts,_tlIsemDomUnfoldGath) = - (tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOderivings _tlOerrors _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOparamMap _tlOprefix _tlOtypeSyns _tlOunfoldSemDom _tlOwith_sig _tlOwrappers ) - in ( _lhsOallTpsFound,_lhsOchunks,_lhsOerrors,_lhsOgathNts,_lhsOsemDomUnfoldGath))) ) -sem_CNonterminals_Nil :: T_CNonterminals -sem_CNonterminals_Nil = - (T_CNonterminals (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIcontextMap - _lhsIderivings - _lhsIerrors - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamMap - _lhsIprefix - _lhsItypeSyns - _lhsIunfoldSemDom - _lhsIwith_sig - _lhsIwrappers -> - (let _lhsOallTpsFound :: Bool - _lhsOchunks :: Chunks - _lhsOerrors :: (Seq Error) - _lhsOgathNts :: (Set NontermIdent) - _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - -- use rule "GenerateCode.ag"(line 727, column 39) - _lhsOallTpsFound = - ({-# LINE 727 "GenerateCode.ag" #-} - True - {-# LINE 1873 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 801, column 49) - _lhsOchunks = - ({-# LINE 801 "GenerateCode.ag" #-} - [] - {-# LINE 1878 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 740, column 32) - _lhsOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - Seq.empty - {-# LINE 1883 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 127, column 47) - _lhsOgathNts = - ({-# LINE 127 "GenerateCode.ag" #-} - Set.empty - {-# LINE 1888 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 622, column 86) - _lhsOsemDomUnfoldGath = - ({-# LINE 622 "GenerateCode.ag" #-} - Map.empty - {-# LINE 1893 "GenerateCode.hs" #-}) - in ( _lhsOallTpsFound,_lhsOchunks,_lhsOerrors,_lhsOgathNts,_lhsOsemDomUnfoldGath))) ) --- CProduction ------------------------------------------------- -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - allPragmas : PragmaMap - aroundMap : Map ConstructorIdent (Set Identifier) - contextMap : ContextMap - inh : Attributes - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - paramMap : ParamMap - prefix : String - syn : Attributes - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - with_sig : Bool - chained attribute: - errors : Seq Error - synthesized attributes: - allTpsFound : Bool - cataAlt : Decl - comments : [String] - dataAlt : DataAlt - decls : Decls - semNames : [String] - alternatives: - alternative CProduction: - child con : {ConstructorIdent} - child visits : CVisits - child children : {[(Identifier,Type,Bool)]} - child terminals : {[Identifier]} - visit 0: - local paramInstMap : _ - local aroundMap : _ - local firstOrderChildren : _ - local params : _ --} --- cata -sem_CProduction :: CProduction -> - T_CProduction -sem_CProduction (CProduction _con _visits _children _terminals ) = - (sem_CProduction_CProduction _con (sem_CVisits _visits ) _children _terminals ) --- semantic domain -newtype T_CProduction = T_CProduction ((Set NontermIdent) -> - PragmaMap -> - (Map ConstructorIdent (Set Identifier)) -> - ContextMap -> - (Seq Error) -> - Attributes -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - ParamMap -> - String -> - Attributes -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - Bool -> - ( Bool,Decl,([String]),DataAlt,Decls,(Seq Error),([String]))) -data Inh_CProduction = Inh_CProduction {allNts_Inh_CProduction :: !((Set NontermIdent)),allPragmas_Inh_CProduction :: !(PragmaMap),aroundMap_Inh_CProduction :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProduction :: !(ContextMap),errors_Inh_CProduction :: !((Seq Error)),inh_Inh_CProduction :: !(Attributes),nt_Inh_CProduction :: !(NontermIdent),o_case_Inh_CProduction :: !(Bool),o_cata_Inh_CProduction :: !(Bool),o_costcentre_Inh_CProduction :: !(Bool),o_data_Inh_CProduction :: !((Maybe Bool)),o_linePragmas_Inh_CProduction :: !(Bool),o_monadic_Inh_CProduction :: !(Bool),o_newtypes_Inh_CProduction :: !(Bool),o_pretty_Inh_CProduction :: !(Bool),o_rename_Inh_CProduction :: !(Bool),o_sem_Inh_CProduction :: !(Bool),o_sig_Inh_CProduction :: !(Bool),o_splitsems_Inh_CProduction :: !(Bool),o_strictwrap_Inh_CProduction :: !(Bool),o_traces_Inh_CProduction :: !(Bool),o_unbox_Inh_CProduction :: !(Bool),paramMap_Inh_CProduction :: !(ParamMap),prefix_Inh_CProduction :: !(String),syn_Inh_CProduction :: !(Attributes),unfoldSemDom_Inh_CProduction :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProduction :: !(Bool)} -data Syn_CProduction = Syn_CProduction {allTpsFound_Syn_CProduction :: !(Bool),cataAlt_Syn_CProduction :: !(Decl),comments_Syn_CProduction :: !(([String])),dataAlt_Syn_CProduction :: !(DataAlt),decls_Syn_CProduction :: !(Decls),errors_Syn_CProduction :: !((Seq Error)),semNames_Syn_CProduction :: !(([String]))} -wrap_CProduction :: T_CProduction -> - Inh_CProduction -> - Syn_CProduction -wrap_CProduction (T_CProduction sem ) (Inh_CProduction _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIerrors _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) = - (let ( _lhsOallTpsFound,_lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOerrors,_lhsOsemNames) = - (sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIerrors _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) - in (Syn_CProduction _lhsOallTpsFound _lhsOcataAlt _lhsOcomments _lhsOdataAlt _lhsOdecls _lhsOerrors _lhsOsemNames )) -sem_CProduction_CProduction :: ConstructorIdent -> - T_CVisits -> - ([(Identifier,Type,Bool)]) -> - ([Identifier]) -> - T_CProduction -sem_CProduction_CProduction con_ (T_CVisits visits_ ) children_ terminals_ = - (T_CProduction (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIcontextMap - _lhsIerrors - _lhsIinh - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIunfoldSemDom - _lhsIwith_sig -> - (let _visitsOcon :: ConstructorIdent - _visitsOterminals :: ([Identifier]) - _visitsOnr :: Int - _visitsOchildren :: ([(Identifier,Type,Bool)]) - _visitsOinstVisitNrs :: (Map Identifier Int) - _lhsOcomments :: ([String]) - _lhsOdataAlt :: DataAlt - _lhsOcataAlt :: Decl - _lhsOallTpsFound :: Bool - _lhsOdecls :: Decls - _lhsOerrors :: (Seq Error) - _lhsOsemNames :: ([String]) - _visitsOallNts :: (Set NontermIdent) - _visitsOallPragmas :: PragmaMap - _visitsOaroundMap :: (Set Identifier) - _visitsOcontextMap :: ContextMap - _visitsOerrors :: (Seq Error) - _visitsOinh :: Attributes - _visitsOnt :: NontermIdent - _visitsOo_case :: Bool - _visitsOo_cata :: Bool - _visitsOo_costcentre :: Bool - _visitsOo_data :: (Maybe Bool) - _visitsOo_linePragmas :: Bool - _visitsOo_monadic :: Bool - _visitsOo_newtypes :: Bool - _visitsOo_pretty :: Bool - _visitsOo_rename :: Bool - _visitsOo_sem :: Bool - _visitsOo_sig :: Bool - _visitsOo_splitsems :: Bool - _visitsOo_strictwrap :: Bool - _visitsOo_traces :: Bool - _visitsOo_unbox :: Bool - _visitsOparamInstMap :: (Map Identifier (NontermIdent, [String])) - _visitsOparamMap :: ParamMap - _visitsOprefix :: String - _visitsOsyn :: Attributes - _visitsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _visitsOwith_sig :: Bool - _visitsIallTpsFound :: Bool - _visitsIcomments :: ([String]) - _visitsIdecls :: Decls - _visitsIerrors :: (Seq Error) - _visitsIgatherInstVisitNrs :: (Map Identifier Int) - _visitsIintra :: Exprs - _visitsIintraVars :: (Set String) - _visitsIisNil :: Bool - _visitsIsemNames :: ([String]) - -- "GenerateCode.ag"(line 86, column 19) - _visitsOcon = - ({-# LINE 86 "GenerateCode.ag" #-} - con_ - {-# LINE 2075 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 87, column 20) - _visitsOterminals = - ({-# LINE 87 "GenerateCode.ag" #-} - terminals_ - {-# LINE 2080 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 99, column 7) - _paramInstMap = - ({-# LINE 99 "GenerateCode.ag" #-} - Map.fromList [(nm, (extractNonterminal tp, tps)) | (nm,tp,_) <- children_, let tps = map cleanupArg $ nontermArgs tp, not (null tps) ] - {-# LINE 2085 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 231, column 18) - _visitsOnr = - ({-# LINE 231 "GenerateCode.ag" #-} - 0 - {-# LINE 2090 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 357, column 18) - _visitsOchildren = - ({-# LINE 357 "GenerateCode.ag" #-} - children_ - {-# LINE 2095 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 473, column 7) - _visitsOinstVisitNrs = - ({-# LINE 473 "GenerateCode.ag" #-} - _visitsIgatherInstVisitNrs - {-# LINE 2100 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 493, column 34) - _aroundMap = - ({-# LINE 493 "GenerateCode.ag" #-} - Map.findWithDefault Set.empty con_ _lhsIaroundMap - {-# LINE 2105 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 770, column 17) - _firstOrderChildren = - ({-# LINE 770 "GenerateCode.ag" #-} - filter (\(_,_,ho) -> not ho) children_ - {-# LINE 2110 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 771, column 18) - _lhsOcomments = - ({-# LINE 771 "GenerateCode.ag" #-} - ("alternative " ++ getName con_ ++ ":") - : map ind ( map (\(x,y,_) -> makeLocalComment 14 "child" x (Just y)) _firstOrderChildren - ++ _visitsIcomments - ) - {-# LINE 2118 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 899, column 17) - _params = - ({-# LINE 899 "GenerateCode.ag" #-} - map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap - {-# LINE 2123 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 900, column 17) - _lhsOdataAlt = - ({-# LINE 900 "GenerateCode.ag" #-} - DataAlt (conname _lhsIo_rename _lhsInt con_) (map (\(_,t,_) -> typeToCodeType (Just _lhsInt) _params t) _firstOrderChildren ) - {-# LINE 2128 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 999, column 17) - _lhsOcataAlt = - ({-# LINE 999 "GenerateCode.ag" #-} - let lhs = Fun (cataname _lhsIprefix _lhsInt) [lhs_pat] - lhs_pat = App (conname _lhsIo_rename _lhsInt con_) - (map (\(n,_,_) -> SimpleExpr $ locname $ n) _firstOrderChildren ) - rhs = App (semname _lhsIprefix _lhsInt con_) - (map argument _firstOrderChildren ) - argument (nm,NT tp _,_) = let tp' = maybe tp id (deforestedNt tp) - in App (cataname _lhsIprefix tp') - [SimpleExpr (locname nm)] - argument (nm, _,_) = SimpleExpr (locname nm) - in Decl lhs rhs Set.empty Set.empty - {-# LINE 2142 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 727, column 39) - _lhsOallTpsFound = - ({-# LINE 727 "GenerateCode.ag" #-} - _visitsIallTpsFound - {-# LINE 2147 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 802, column 44) - _lhsOdecls = - ({-# LINE 802 "GenerateCode.ag" #-} - _visitsIdecls - {-# LINE 2152 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 740, column 32) - _lhsOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _visitsIerrors - {-# LINE 2157 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 1015, column 61) - _lhsOsemNames = - ({-# LINE 1015 "GenerateCode.ag" #-} - _visitsIsemNames - {-# LINE 2162 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOallNts = - ({-# LINE 121 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 2167 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOallPragmas = - ({-# LINE 67 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 2172 "GenerateCode.hs" #-}) - -- copy rule (from local) - _visitsOaroundMap = - ({-# LINE 489 "GenerateCode.ag" #-} - _aroundMap - {-# LINE 2177 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOcontextMap = - ({-# LINE 109 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 2182 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _lhsIerrors - {-# LINE 2187 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOinh = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 2192 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOnt = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 2197 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 2202 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 2207 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 2212 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 2217 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 2222 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 2227 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 2232 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 2237 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 2242 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 2247 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 2252 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 2257 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 2262 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 2267 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 2272 "GenerateCode.hs" #-}) - -- copy rule (from local) - _visitsOparamInstMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _paramInstMap - {-# LINE 2277 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 2282 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 2287 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOsyn = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 2292 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOunfoldSemDom = - ({-# LINE 628 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 2297 "GenerateCode.hs" #-}) - -- copy rule (down) - _visitsOwith_sig = - ({-# LINE 730 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 2302 "GenerateCode.hs" #-}) - ( _visitsIallTpsFound,_visitsIcomments,_visitsIdecls,_visitsIerrors,_visitsIgatherInstVisitNrs,_visitsIintra,_visitsIintraVars,_visitsIisNil,_visitsIsemNames) = - (visits_ _visitsOallNts _visitsOallPragmas _visitsOaroundMap _visitsOchildren _visitsOcon _visitsOcontextMap _visitsOerrors _visitsOinh _visitsOinstVisitNrs _visitsOnr _visitsOnt _visitsOo_case _visitsOo_cata _visitsOo_costcentre _visitsOo_data _visitsOo_linePragmas _visitsOo_monadic _visitsOo_newtypes _visitsOo_pretty _visitsOo_rename _visitsOo_sem _visitsOo_sig _visitsOo_splitsems _visitsOo_strictwrap _visitsOo_traces _visitsOo_unbox _visitsOparamInstMap _visitsOparamMap _visitsOprefix _visitsOsyn _visitsOterminals _visitsOunfoldSemDom _visitsOwith_sig ) - in ( _lhsOallTpsFound,_lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOerrors,_lhsOsemNames))) ) --- CProductions ------------------------------------------------ -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - allPragmas : PragmaMap - aroundMap : Map ConstructorIdent (Set Identifier) - contextMap : ContextMap - inh : Attributes - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - paramMap : ParamMap - prefix : String - syn : Attributes - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - with_sig : Bool - chained attribute: - errors : Seq Error - synthesized attributes: - allTpsFound : Bool - cataAlts : Decls - comments : [String] - dataAlts : DataAlts - decls : Decls - semNames : [String] - alternatives: - alternative Cons: - child hd : CProduction - child tl : CProductions - alternative Nil: --} --- cata -sem_CProductions :: CProductions -> - T_CProductions -sem_CProductions list = - (Prelude.foldr sem_CProductions_Cons sem_CProductions_Nil (Prelude.map sem_CProduction list) ) --- semantic domain -newtype T_CProductions = T_CProductions ((Set NontermIdent) -> - PragmaMap -> - (Map ConstructorIdent (Set Identifier)) -> - ContextMap -> - (Seq Error) -> - Attributes -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - ParamMap -> - String -> - Attributes -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - Bool -> - ( Bool,Decls,([String]),DataAlts,Decls,(Seq Error),([String]))) -data Inh_CProductions = Inh_CProductions {allNts_Inh_CProductions :: !((Set NontermIdent)),allPragmas_Inh_CProductions :: !(PragmaMap),aroundMap_Inh_CProductions :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProductions :: !(ContextMap),errors_Inh_CProductions :: !((Seq Error)),inh_Inh_CProductions :: !(Attributes),nt_Inh_CProductions :: !(NontermIdent),o_case_Inh_CProductions :: !(Bool),o_cata_Inh_CProductions :: !(Bool),o_costcentre_Inh_CProductions :: !(Bool),o_data_Inh_CProductions :: !((Maybe Bool)),o_linePragmas_Inh_CProductions :: !(Bool),o_monadic_Inh_CProductions :: !(Bool),o_newtypes_Inh_CProductions :: !(Bool),o_pretty_Inh_CProductions :: !(Bool),o_rename_Inh_CProductions :: !(Bool),o_sem_Inh_CProductions :: !(Bool),o_sig_Inh_CProductions :: !(Bool),o_splitsems_Inh_CProductions :: !(Bool),o_strictwrap_Inh_CProductions :: !(Bool),o_traces_Inh_CProductions :: !(Bool),o_unbox_Inh_CProductions :: !(Bool),paramMap_Inh_CProductions :: !(ParamMap),prefix_Inh_CProductions :: !(String),syn_Inh_CProductions :: !(Attributes),unfoldSemDom_Inh_CProductions :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProductions :: !(Bool)} -data Syn_CProductions = Syn_CProductions {allTpsFound_Syn_CProductions :: !(Bool),cataAlts_Syn_CProductions :: !(Decls),comments_Syn_CProductions :: !(([String])),dataAlts_Syn_CProductions :: !(DataAlts),decls_Syn_CProductions :: !(Decls),errors_Syn_CProductions :: !((Seq Error)),semNames_Syn_CProductions :: !(([String]))} -wrap_CProductions :: T_CProductions -> - Inh_CProductions -> - Syn_CProductions -wrap_CProductions (T_CProductions sem ) (Inh_CProductions _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIerrors _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) = - (let ( _lhsOallTpsFound,_lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOerrors,_lhsOsemNames) = - (sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIerrors _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) - in (Syn_CProductions _lhsOallTpsFound _lhsOcataAlts _lhsOcomments _lhsOdataAlts _lhsOdecls _lhsOerrors _lhsOsemNames )) -sem_CProductions_Cons :: T_CProduction -> - T_CProductions -> - T_CProductions -sem_CProductions_Cons (T_CProduction hd_ ) (T_CProductions tl_ ) = - (T_CProductions (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIcontextMap - _lhsIerrors - _lhsIinh - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIunfoldSemDom - _lhsIwith_sig -> - (let _lhsOdataAlts :: DataAlts - _lhsOcataAlts :: Decls - _lhsOallTpsFound :: Bool - _lhsOcomments :: ([String]) - _lhsOdecls :: Decls - _lhsOerrors :: (Seq Error) - _lhsOsemNames :: ([String]) - _hdOallNts :: (Set NontermIdent) - _hdOallPragmas :: PragmaMap - _hdOaroundMap :: (Map ConstructorIdent (Set Identifier)) - _hdOcontextMap :: ContextMap - _hdOerrors :: (Seq Error) - _hdOinh :: Attributes - _hdOnt :: NontermIdent - _hdOo_case :: Bool - _hdOo_cata :: Bool - _hdOo_costcentre :: Bool - _hdOo_data :: (Maybe Bool) - _hdOo_linePragmas :: Bool - _hdOo_monadic :: Bool - _hdOo_newtypes :: Bool - _hdOo_pretty :: Bool - _hdOo_rename :: Bool - _hdOo_sem :: Bool - _hdOo_sig :: Bool - _hdOo_splitsems :: Bool - _hdOo_strictwrap :: Bool - _hdOo_traces :: Bool - _hdOo_unbox :: Bool - _hdOparamMap :: ParamMap - _hdOprefix :: String - _hdOsyn :: Attributes - _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _hdOwith_sig :: Bool - _tlOallNts :: (Set NontermIdent) - _tlOallPragmas :: PragmaMap - _tlOaroundMap :: (Map ConstructorIdent (Set Identifier)) - _tlOcontextMap :: ContextMap - _tlOerrors :: (Seq Error) - _tlOinh :: Attributes - _tlOnt :: NontermIdent - _tlOo_case :: Bool - _tlOo_cata :: Bool - _tlOo_costcentre :: Bool - _tlOo_data :: (Maybe Bool) - _tlOo_linePragmas :: Bool - _tlOo_monadic :: Bool - _tlOo_newtypes :: Bool - _tlOo_pretty :: Bool - _tlOo_rename :: Bool - _tlOo_sem :: Bool - _tlOo_sig :: Bool - _tlOo_splitsems :: Bool - _tlOo_strictwrap :: Bool - _tlOo_traces :: Bool - _tlOo_unbox :: Bool - _tlOparamMap :: ParamMap - _tlOprefix :: String - _tlOsyn :: Attributes - _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _tlOwith_sig :: Bool - _hdIallTpsFound :: Bool - _hdIcataAlt :: Decl - _hdIcomments :: ([String]) - _hdIdataAlt :: DataAlt - _hdIdecls :: Decls - _hdIerrors :: (Seq Error) - _hdIsemNames :: ([String]) - _tlIallTpsFound :: Bool - _tlIcataAlts :: Decls - _tlIcomments :: ([String]) - _tlIdataAlts :: DataAlts - _tlIdecls :: Decls - _tlIerrors :: (Seq Error) - _tlIsemNames :: ([String]) - -- "GenerateCode.ag"(line 895, column 17) - _lhsOdataAlts = - ({-# LINE 895 "GenerateCode.ag" #-} - _hdIdataAlt : _tlIdataAlts - {-# LINE 2504 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 995, column 10) - _lhsOcataAlts = - ({-# LINE 995 "GenerateCode.ag" #-} - _hdIcataAlt : _tlIcataAlts - {-# LINE 2509 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 727, column 39) - _lhsOallTpsFound = - ({-# LINE 727 "GenerateCode.ag" #-} - _hdIallTpsFound && _tlIallTpsFound - {-# LINE 2514 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 759, column 52) - _lhsOcomments = - ({-# LINE 759 "GenerateCode.ag" #-} - _hdIcomments ++ _tlIcomments - {-# LINE 2519 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 802, column 44) - _lhsOdecls = - ({-# LINE 802 "GenerateCode.ag" #-} - _hdIdecls ++ _tlIdecls - {-# LINE 2524 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 740, column 32) - _lhsOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 2529 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 1015, column 61) - _lhsOsemNames = - ({-# LINE 1015 "GenerateCode.ag" #-} - _hdIsemNames ++ _tlIsemNames - {-# LINE 2534 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOallNts = - ({-# LINE 121 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 2539 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOallPragmas = - ({-# LINE 67 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 2544 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOaroundMap = - ({-# LINE 487 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 2549 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOcontextMap = - ({-# LINE 109 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 2554 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _lhsIerrors - {-# LINE 2559 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOinh = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 2564 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOnt = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 2569 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 2574 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 2579 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 2584 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 2589 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 2594 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 2599 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 2604 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 2609 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 2614 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 2619 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 2624 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 2629 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 2634 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 2639 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 2644 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 2649 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 2654 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOsyn = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 2659 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOunfoldSemDom = - ({-# LINE 628 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 2664 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOwith_sig = - ({-# LINE 730 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 2669 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOallNts = - ({-# LINE 121 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 2674 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOallPragmas = - ({-# LINE 67 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 2679 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOaroundMap = - ({-# LINE 487 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 2684 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOcontextMap = - ({-# LINE 109 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 2689 "GenerateCode.hs" #-}) - -- copy rule (chain) - _tlOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _hdIerrors - {-# LINE 2694 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOinh = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 2699 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOnt = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 2704 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 2709 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 2714 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 2719 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 2724 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 2729 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 2734 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 2739 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 2744 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 2749 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 2754 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 2759 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 2764 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 2769 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 2774 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 2779 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 2784 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 2789 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOsyn = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 2794 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOunfoldSemDom = - ({-# LINE 628 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 2799 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOwith_sig = - ({-# LINE 730 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 2804 "GenerateCode.hs" #-}) - ( _hdIallTpsFound,_hdIcataAlt,_hdIcomments,_hdIdataAlt,_hdIdecls,_hdIerrors,_hdIsemNames) = - (hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOerrors _hdOinh _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOparamMap _hdOprefix _hdOsyn _hdOunfoldSemDom _hdOwith_sig ) - ( _tlIallTpsFound,_tlIcataAlts,_tlIcomments,_tlIdataAlts,_tlIdecls,_tlIerrors,_tlIsemNames) = - (tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOerrors _tlOinh _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOparamMap _tlOprefix _tlOsyn _tlOunfoldSemDom _tlOwith_sig ) - in ( _lhsOallTpsFound,_lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOerrors,_lhsOsemNames))) ) -sem_CProductions_Nil :: T_CProductions -sem_CProductions_Nil = - (T_CProductions (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIcontextMap - _lhsIerrors - _lhsIinh - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIunfoldSemDom - _lhsIwith_sig -> - (let _lhsOdataAlts :: DataAlts - _lhsOcataAlts :: Decls - _lhsOallTpsFound :: Bool - _lhsOcomments :: ([String]) - _lhsOdecls :: Decls - _lhsOerrors :: (Seq Error) - _lhsOsemNames :: ([String]) - -- "GenerateCode.ag"(line 896, column 17) - _lhsOdataAlts = - ({-# LINE 896 "GenerateCode.ag" #-} - [] - {-# LINE 2850 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 996, column 10) - _lhsOcataAlts = - ({-# LINE 996 "GenerateCode.ag" #-} - [] - {-# LINE 2855 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 727, column 39) - _lhsOallTpsFound = - ({-# LINE 727 "GenerateCode.ag" #-} - True - {-# LINE 2860 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 759, column 52) - _lhsOcomments = - ({-# LINE 759 "GenerateCode.ag" #-} - [] - {-# LINE 2865 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 802, column 44) - _lhsOdecls = - ({-# LINE 802 "GenerateCode.ag" #-} - [] - {-# LINE 2870 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 740, column 32) - _lhsOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - Seq.empty - {-# LINE 2875 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 1015, column 61) - _lhsOsemNames = - ({-# LINE 1015 "GenerateCode.ag" #-} - [] - {-# LINE 2880 "GenerateCode.hs" #-}) - in ( _lhsOallTpsFound,_lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOerrors,_lhsOsemNames))) ) --- CRule ------------------------------------------------------- -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - aroundMap : Set Identifier - children : [(Identifier,Type,Bool)] - con : ConstructorIdent - higherOrderChildren : [(Identifier,Type,Bool)] - inh : Attributes - instVisitNrs : Map Identifier Int - nr : Int - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - paramInstMap : Map Identifier (NontermIdent, [String]) - paramMap : ParamMap - prefix : String - syn : Attributes - terminals : [Identifier] - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - what : String - chained attributes: - declsAbove : [Decl] - errors : Seq Error - synthesized attributes: - allTpsFound : Bool - bldBlocksFun : DeclBlocks -> DeclBlocks - comments : [String] - decls : Decls - definedInsts : [Identifier] - exprs : Exprs - tSigs : [Decl] - tps : [Type] - usedVars : Set String - alternatives: - alternative CChildVisit: - child name : {Identifier} - child nt : {NontermIdent} - child nr : {Int} - child inh : {Attributes} - child syn : {Attributes} - child isLast : {Bool} - visit 0: - local costCentreDescr : _ - local addCostCentre : _ - local decls : _ - local isSuperfluousHigherOrderIntra : _ - local names : _ - local mkTp : _ - local definedTps : _ - local nextTp : _ - local orgParams : _ - local instParams : _ - local replParamMap : _ - local replace : _ - local evalTp : _ - alternative CRule: - child name : {Identifier} - child isIn : {Bool} - child hasCode : {Bool} - child nt : {NontermIdent} - child con : {ConstructorIdent} - child field : {Identifier} - child childnt : {Maybe NontermIdent} - child tp : {Maybe Type} - child pattern : Pattern - child rhs : {[String]} - child defines : {Map Int (Identifier,Identifier,Maybe Type)} - child owrt : {Bool} - child origin : {String} - child uses : {Set (Identifier, Identifier)} - child explicit : {Bool} - child mbNamed : {Maybe Identifier} - visit 0: - local instTypes : _ - local originComment : _ - local instDecls : _ - local patDescr : _ - local traceDescr : _ - local addTrace : _ - local costCentreDescr : _ - local addCostCentre : _ - local addLinePragma : _ - local decls : _ - local definedInsts : _ - local rulename : _ - local mkTp : _ - local orgParams : _ - local evalTp : _ - local _tup3 : {([Type],Bool)} --} --- cata -sem_CRule :: CRule -> - T_CRule -sem_CRule (CChildVisit _name _nt _nr _inh _syn _isLast ) = - (sem_CRule_CChildVisit _name _nt _nr _inh _syn _isLast ) -sem_CRule (CRule _name _isIn _hasCode _nt _con _field _childnt _tp _pattern _rhs _defines _owrt _origin _uses _explicit _mbNamed ) = - (sem_CRule_CRule _name _isIn _hasCode _nt _con _field _childnt _tp (sem_Pattern _pattern ) _rhs _defines _owrt _origin _uses _explicit _mbNamed ) --- semantic domain -newtype T_CRule = T_CRule ((Set NontermIdent) -> - (Set Identifier) -> - ([(Identifier,Type,Bool)]) -> - ConstructorIdent -> - ([Decl]) -> - (Seq Error) -> - ([(Identifier,Type,Bool)]) -> - Attributes -> - (Map Identifier Int) -> - Int -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - (Map Identifier (NontermIdent, [String])) -> - ParamMap -> - String -> - Attributes -> - ([Identifier]) -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - String -> - ( Bool,(DeclBlocks -> DeclBlocks),([String]),Decls,([Decl]),([Identifier]),(Seq Error),Exprs,([Decl]),([Type]),(Set String))) -data Inh_CRule = Inh_CRule {allNts_Inh_CRule :: !((Set NontermIdent)),aroundMap_Inh_CRule :: !((Set Identifier)),children_Inh_CRule :: !(([(Identifier,Type,Bool)])),con_Inh_CRule :: !(ConstructorIdent),declsAbove_Inh_CRule :: !(([Decl])),errors_Inh_CRule :: !((Seq Error)),higherOrderChildren_Inh_CRule :: !(([(Identifier,Type,Bool)])),inh_Inh_CRule :: !(Attributes),instVisitNrs_Inh_CRule :: !((Map Identifier Int)),nr_Inh_CRule :: !(Int),nt_Inh_CRule :: !(NontermIdent),o_case_Inh_CRule :: !(Bool),o_cata_Inh_CRule :: !(Bool),o_costcentre_Inh_CRule :: !(Bool),o_data_Inh_CRule :: !((Maybe Bool)),o_linePragmas_Inh_CRule :: !(Bool),o_monadic_Inh_CRule :: !(Bool),o_newtypes_Inh_CRule :: !(Bool),o_pretty_Inh_CRule :: !(Bool),o_rename_Inh_CRule :: !(Bool),o_sem_Inh_CRule :: !(Bool),o_sig_Inh_CRule :: !(Bool),o_splitsems_Inh_CRule :: !(Bool),o_strictwrap_Inh_CRule :: !(Bool),o_traces_Inh_CRule :: !(Bool),o_unbox_Inh_CRule :: !(Bool),paramInstMap_Inh_CRule :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CRule :: !(ParamMap),prefix_Inh_CRule :: !(String),syn_Inh_CRule :: !(Attributes),terminals_Inh_CRule :: !(([Identifier])),unfoldSemDom_Inh_CRule :: !((NontermIdent -> Int -> [String] -> Code.Type)),what_Inh_CRule :: !(String)} -data Syn_CRule = Syn_CRule {allTpsFound_Syn_CRule :: !(Bool),bldBlocksFun_Syn_CRule :: !((DeclBlocks -> DeclBlocks)),comments_Syn_CRule :: !(([String])),decls_Syn_CRule :: !(Decls),declsAbove_Syn_CRule :: !(([Decl])),definedInsts_Syn_CRule :: !(([Identifier])),errors_Syn_CRule :: !((Seq Error)),exprs_Syn_CRule :: !(Exprs),tSigs_Syn_CRule :: !(([Decl])),tps_Syn_CRule :: !(([Type])),usedVars_Syn_CRule :: !((Set String))} -wrap_CRule :: T_CRule -> - Inh_CRule -> - Syn_CRule -wrap_CRule (T_CRule sem ) (Inh_CRule _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIerrors _lhsIhigherOrderChildren _lhsIinh _lhsIinstVisitNrs _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwhat ) = - (let ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOerrors,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars) = - (sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIerrors _lhsIhigherOrderChildren _lhsIinh _lhsIinstVisitNrs _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwhat ) - in (Syn_CRule _lhsOallTpsFound _lhsObldBlocksFun _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOerrors _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars )) -sem_CRule_CChildVisit :: Identifier -> - NontermIdent -> - Int -> - Attributes -> - Attributes -> - Bool -> - T_CRule -sem_CRule_CChildVisit name_ nt_ nr_ inh_ syn_ isLast_ = - (T_CRule (\ _lhsIallNts - _lhsIaroundMap - _lhsIchildren - _lhsIcon - _lhsIdeclsAbove - _lhsIerrors - _lhsIhigherOrderChildren - _lhsIinh - _lhsIinstVisitNrs - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamInstMap - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIterminals - _lhsIunfoldSemDom - _lhsIwhat -> - (let _lhsOexprs :: Exprs - _lhsOusedVars :: (Set String) - _lhsOtSigs :: ([Decl]) - _lhsOtps :: ([Type]) - _lhsOdeclsAbove :: ([Decl]) - _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks) - _lhsOallTpsFound :: Bool - _lhsOcomments :: ([String]) - _lhsOdecls :: Decls - _lhsOdefinedInsts :: ([Identifier]) - _lhsOerrors :: (Seq Error) - -- "GenerateCode.ag"(line 183, column 18) - _costCentreDescr = - ({-# LINE 183 "GenerateCode.ag" #-} - show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show name_ ++ ":" ++ show nt_ ++ ":" ++ show nr_ - {-# LINE 3094 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 184, column 18) - _addCostCentre = - ({-# LINE 184 "GenerateCode.ag" #-} - \v -> if _lhsIo_costcentre - then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v - else v - {-# LINE 3101 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 187, column 18) - _decls = - ({-# LINE 187 "GenerateCode.ag" #-} - let lhsVars = map (attrname True name_) (Map.keys syn_) - ++ if isLast_ then [] else [unwrap ++ funname name_ (nr_+1)] - rhsVars = map (attrname False name_) (Map.keys inh_) - unwrap = if _lhsIo_newtypes then typeName nt_ (nr_ + 1) ++ " " else "" - tuple = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars - rhs = _addCostCentre $ App fun (map SimpleExpr rhsVars) - fun | nr_ == 0 && Set.member name_ _lhsIaroundMap - = locname name_ ++ "_around " ++ funname name_ 0 - | otherwise = funname name_ nr_ - in [mkDecl _lhsIo_monadic tuple rhs (Set.fromList lhsVars) (Set.fromList (funname name_ nr_ : rhsVars))] - {-# LINE 3115 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 278, column 7) - _isSuperfluousHigherOrderIntra = - ({-# LINE 278 "GenerateCode.ag" #-} - _lhsInr <= Map.findWithDefault (-1) name_ _lhsIinstVisitNrs - {-# LINE 3120 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 292, column 8) - _names = - ({-# LINE 292 "GenerateCode.ag" #-} - if _isSuperfluousHigherOrderIntra - then [] - else [funname name_ (nr_+1)] - {-# LINE 3127 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 296, column 8) - _lhsOexprs = - ({-# LINE 296 "GenerateCode.ag" #-} - let wrap = if _lhsIo_newtypes then \x -> App (typeName nt_ (nr_ + 1)) [x] else id - addType expr | null _instParams = expr - | otherwise = TypedExpr expr (_lhsIunfoldSemDom nt_ (nr_+1) _instParams ) - in map (wrap . addType . SimpleExpr) _names - {-# LINE 3135 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 308, column 7) - _lhsOusedVars = - ({-# LINE 308 "GenerateCode.ag" #-} - Set.fromList _names - {-# LINE 3140 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 332, column 19) - _mkTp = - ({-# LINE 332 "GenerateCode.ag" #-} - _evalTp . typeToCodeType (Just nt_) _orgParams - {-# LINE 3145 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 333, column 19) - _definedTps = - ({-# LINE 333 "GenerateCode.ag" #-} - [ TSig (attrname True name_ a) (_mkTp tp) | (a,tp) <- Map.toList syn_ ] - {-# LINE 3150 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 334, column 19) - _nextTp = - ({-# LINE 334 "GenerateCode.ag" #-} - typeName nt_ (nr_+1) - {-# LINE 3155 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 335, column 19) - _lhsOtSigs = - ({-# LINE 335 "GenerateCode.ag" #-} - (if isLast_ then id else (TSig (funname name_ (nr_+1)) (TypeApp (SimpleType _nextTp) (map SimpleType _instParams )) :)) _definedTps - {-# LINE 3160 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 337, column 19) - _orgParams = - ({-# LINE 337 "GenerateCode.ag" #-} - map getName $ Map.findWithDefault [] nt_ _lhsIparamMap - {-# LINE 3165 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 338, column 19) - _instParams = - ({-# LINE 338 "GenerateCode.ag" #-} - snd $ Map.findWithDefault (nt_,[]) name_ _lhsIparamInstMap - {-# LINE 3170 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 339, column 19) - _replParamMap = - ({-# LINE 339 "GenerateCode.ag" #-} - Map.fromList (zip _orgParams _instParams ) - {-# LINE 3175 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 340, column 19) - _replace = - ({-# LINE 340 "GenerateCode.ag" #-} - \k -> Map.findWithDefault k k _replParamMap - {-# LINE 3180 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 341, column 19) - _evalTp = - ({-# LINE 341 "GenerateCode.ag" #-} - if null _orgParams then id else evalType _replace - {-# LINE 3185 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 364, column 19) - _lhsOtps = - ({-# LINE 364 "GenerateCode.ag" #-} - if _isSuperfluousHigherOrderIntra - then [] - else [NT (ntOfVisit nt_ (nr_+1)) _instParams ] - {-# LINE 3192 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 511, column 7) - _lhsOdeclsAbove = - ({-# LINE 511 "GenerateCode.ag" #-} - [] - {-# LINE 3197 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 524, column 7) - _lhsObldBlocksFun = - ({-# LINE 524 "GenerateCode.ag" #-} - DeclBlock _lhsIdeclsAbove (head _decls ) - {-# LINE 3202 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 361, column 39) - _lhsOallTpsFound = - ({-# LINE 361 "GenerateCode.ag" #-} - True - {-# LINE 3207 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 759, column 52) - _lhsOcomments = - ({-# LINE 759 "GenerateCode.ag" #-} - [] - {-# LINE 3212 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 139, column 34) - _lhsOdecls = - ({-# LINE 139 "GenerateCode.ag" #-} - _decls - {-# LINE 3217 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 212, column 55) - _lhsOdefinedInsts = - ({-# LINE 212 "GenerateCode.ag" #-} - [] - {-# LINE 3222 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 740, column 32) - _lhsOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - Seq.empty - {-# LINE 3227 "GenerateCode.hs" #-}) - in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOerrors,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars))) ) -sem_CRule_CRule :: Identifier -> - Bool -> - Bool -> - NontermIdent -> - ConstructorIdent -> - Identifier -> - (Maybe NontermIdent) -> - (Maybe Type) -> - T_Pattern -> - ([String]) -> - (Map Int (Identifier,Identifier,Maybe Type)) -> - Bool -> - String -> - (Set (Identifier, Identifier)) -> - Bool -> - (Maybe Identifier) -> - T_CRule -sem_CRule_CRule name_ isIn_ hasCode_ nt_ con_ field_ childnt_ tp_ (T_Pattern pattern_ ) rhs_ defines_ owrt_ origin_ uses_ explicit_ mbNamed_ = - (T_CRule (\ _lhsIallNts - _lhsIaroundMap - _lhsIchildren - _lhsIcon - _lhsIdeclsAbove - _lhsIerrors - _lhsIhigherOrderChildren - _lhsIinh - _lhsIinstVisitNrs - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamInstMap - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIterminals - _lhsIunfoldSemDom - _lhsIwhat -> - (let _lhsOexprs :: Exprs - _lhsOusedVars :: (Set String) - _lhsOtSigs :: ([Decl]) - __tup3 :: (([Type],Bool)) - _lhsOtps :: ([Type]) - _lhsOallTpsFound :: Bool - _lhsOdeclsAbove :: ([Decl]) - _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks) - _lhsOerrors :: (Seq Error) - _lhsOcomments :: ([String]) - _lhsOdecls :: Decls - _lhsOdefinedInsts :: ([Identifier]) - _patternIcopy :: Pattern - _patternIdefinedInsts :: ([Identifier]) - _patternIpatternAttributes :: ([(Identifier, Identifier)]) - -- "GenerateCode.ag"(line 141, column 12) - _instTypes = - ({-# LINE 141 "GenerateCode.ag" #-} - map (\(n,NT t _,_) -> (n,t)) _lhsIhigherOrderChildren - {-# LINE 3299 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 142, column 12) - _originComment = - ({-# LINE 142 "GenerateCode.ag" #-} - if _lhsIo_pretty - then (Comment origin_:) - else id - {-# LINE 3306 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 145, column 12) - _instDecls = - ({-# LINE 145 "GenerateCode.ag" #-} - [ mkDecl _lhsIo_monadic (Pattern3 (Alias _INST' inst (Underscore (getPos inst)) [])) - ( let nm = fromJust $ inst `lookup` _instTypes - in unwrapSem _lhsIo_newtypes (maybe nm id (deforestedNt nm)) - $ case nm `Set.member` _lhsIallNts of - True -> App (cataname _lhsIprefix nm) - [SimpleExpr instLocFieldName] - False -> SimpleExpr instLocFieldName - ) - (Set.singleton instSemFieldName) - (Set.singleton instLocFieldName) - | inst <- _definedInsts - , let instLocFieldName = attrname True _INST inst - , let instSemFieldName = attrname False _INST' inst ] - {-# LINE 3323 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 158, column 12) - _patDescr = - ({-# LINE 158 "GenerateCode.ag" #-} - if isIn_ - then "_" - else concat $ intersperse "," (map (\(f,a) -> show f ++ "." ++ show a) _patternIpatternAttributes) - {-# LINE 3330 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 161, column 12) - _traceDescr = - ({-# LINE 161 "GenerateCode.ag" #-} - (maybe "" (\nm -> show nm ++ ":") mbNamed_) ++ show nt_ ++ " :: " ++ show con_ ++ " :: " ++ _patDescr - {-# LINE 3335 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 163, column 12) - _addTrace = - ({-# LINE 163 "GenerateCode.ag" #-} - \v -> if _lhsIo_traces - then Trace _traceDescr v - else v - {-# LINE 3342 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 166, column 12) - _costCentreDescr = - ({-# LINE 166 "GenerateCode.ag" #-} - show nt_ ++ ":" ++ show con_ ++ ":" ++ _patDescr - {-# LINE 3347 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 167, column 12) - _addCostCentre = - ({-# LINE 167 "GenerateCode.ag" #-} - \v -> if _lhsIo_costcentre - then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v - else v - {-# LINE 3354 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 170, column 12) - _addLinePragma = - ({-# LINE 170 "GenerateCode.ag" #-} - \v -> let p = getPos name_ - hasPos = line p > 0 && column p >= 0 && not (null (file p)) - in if _lhsIo_linePragmas && hasPos - then PragmaExpr True True ("LINE " ++ show (line p) ++ " " ++ show (file p)) - $ LineExpr - $ v - else v - {-# LINE 3365 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 177, column 12) - _decls = - ({-# LINE 177 "GenerateCode.ag" #-} - if hasCode_ - then _originComment ( mkDecl (_lhsIo_monadic && explicit_) (Pattern3 _patternIcopy) (_addTrace $ _addCostCentre $ _addLinePragma $ (TextExpr rhs_)) - (Set.fromList [attrname False fld nm | (fld,nm,_) <- Map.elems defines_]) - (Set.fromList [attrname True fld nm | (fld,nm) <- Set.toList uses_]) - : _instDecls ) - else _instDecls - {-# LINE 3375 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 217, column 12) - _definedInsts = - ({-# LINE 217 "GenerateCode.ag" #-} - if isIn_ then [] else _patternIdefinedInsts - {-# LINE 3380 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 287, column 12) - _rulename = - ({-# LINE 287 "GenerateCode.ag" #-} - if field_ == _LOC && name_ `elem` _lhsIterminals - then funname name_ 0 - else attrname isIn_ field_ name_ - {-# LINE 3387 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 290, column 12) - _lhsOexprs = - ({-# LINE 290 "GenerateCode.ag" #-} - [SimpleExpr _rulename ] - {-# LINE 3392 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 306, column 7) - _lhsOusedVars = - ({-# LINE 306 "GenerateCode.ag" #-} - Set.singleton _rulename - {-# LINE 3397 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 316, column 19) - _mkTp = - ({-# LINE 316 "GenerateCode.ag" #-} - typeToCodeType (Just _lhsInt) _orgParams - {-# LINE 3402 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 317, column 19) - _lhsOtSigs = - ({-# LINE 317 "GenerateCode.ag" #-} - [ TSig (attrname False field attr) (_evalTp field $ _mkTp (fromJust tp)) - | (field,attr,tp) <- Map.elems defines_, isJust tp ] - {-# LINE 3408 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 320, column 19) - _orgParams = - ({-# LINE 320 "GenerateCode.ag" #-} - map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap - {-# LINE 3413 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 321, column 19) - _evalTp = - ({-# LINE 321 "GenerateCode.ag" #-} - \field tp -> let orgFldParams = map getName $ Map.findWithDefault [] childNt _lhsIparamMap - (childNt,instParams) = Map.findWithDefault (_lhsInt,[]) field _lhsIparamInstMap - replMap = Map.fromList (zip orgFldParams instParams) - replace k = Map.findWithDefault ('@':k) k replMap - in if null instParams - then if null _orgParams - then tp - else idEvalType tp - else evalType replace tp - {-# LINE 3426 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 363, column 23) - __tup3 = - ({-# LINE 363 "GenerateCode.ag" #-} - maybe ([],False) (\tp -> ([substSelf (fromJust childnt_) tp],True)) tp_ - {-# LINE 3431 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 363, column 23) - (_lhsOtps,_) = - ({-# LINE 363 "GenerateCode.ag" #-} - __tup3 - {-# LINE 3436 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 363, column 23) - (_,_lhsOallTpsFound) = - ({-# LINE 363 "GenerateCode.ag" #-} - __tup3 - {-# LINE 3441 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 509, column 7) - _lhsOdeclsAbove = - ({-# LINE 509 "GenerateCode.ag" #-} - _lhsIdeclsAbove ++ _decls - {-# LINE 3446 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 522, column 7) - _lhsObldBlocksFun = - ({-# LINE 522 "GenerateCode.ag" #-} - id - {-# LINE 3451 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 746, column 12) - _lhsOerrors = - ({-# LINE 746 "GenerateCode.ag" #-} - let nameOf (Alias _ _ _ pats@(_:_)) = Ident (show (map (\(Alias _ a _ _)->a) pats)) (getPos name_) - nameOf _ = name_ - in maybe (Seq.singleton (MissingTypeSig _lhsInt _lhsIcon (nameOf _patternIcopy))) (const Seq.empty) tp_ - {-# LINE 3458 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 786, column 18) - _lhsOcomments = - ({-# LINE 786 "GenerateCode.ag" #-} - [ makeLocalComment 11 _lhsIwhat name tp | (field,name,tp) <- Map.elems defines_, field == _LOC ] - ++ [ makeLocalComment 11 "inst " name tp | (field,name,tp) <- Map.elems defines_, field == _INST ] - {-# LINE 3464 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 139, column 34) - _lhsOdecls = - ({-# LINE 139 "GenerateCode.ag" #-} - _decls - {-# LINE 3469 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 212, column 55) - _lhsOdefinedInsts = - ({-# LINE 212 "GenerateCode.ag" #-} - _definedInsts - {-# LINE 3474 "GenerateCode.hs" #-}) - ( _patternIcopy,_patternIdefinedInsts,_patternIpatternAttributes) = - (pattern_ ) - in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOerrors,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars))) ) --- CSegment ---------------------------------------------------- -{- - visit 0: - inherited attributes: - inh : Attributes - isLast : Bool - nr : Int - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - paramMap : ParamMap - prefix : String - syn : Attributes - synthesized attributes: - comments : [String] - semDom : [Decl] - semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) - wrapDecls : Decls - alternatives: - alternative CSegment: - child inh : {Attributes} - child syn : {Attributes} - visit 0: - local tp : _ - local inhTps : _ - local synTps : _ - local continuation : _ - local params : _ --} --- cata -sem_CSegment :: CSegment -> - T_CSegment -sem_CSegment (CSegment _inh _syn ) = - (sem_CSegment_CSegment _inh _syn ) --- semantic domain -newtype T_CSegment = T_CSegment (Attributes -> - Bool -> - Int -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - ParamMap -> - String -> - Attributes -> - ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls)) -data Inh_CSegment = Inh_CSegment {inh_Inh_CSegment :: !(Attributes),isLast_Inh_CSegment :: !(Bool),nr_Inh_CSegment :: !(Int),nt_Inh_CSegment :: !(NontermIdent),o_case_Inh_CSegment :: !(Bool),o_cata_Inh_CSegment :: !(Bool),o_costcentre_Inh_CSegment :: !(Bool),o_data_Inh_CSegment :: !((Maybe Bool)),o_linePragmas_Inh_CSegment :: !(Bool),o_monadic_Inh_CSegment :: !(Bool),o_newtypes_Inh_CSegment :: !(Bool),o_pretty_Inh_CSegment :: !(Bool),o_rename_Inh_CSegment :: !(Bool),o_sem_Inh_CSegment :: !(Bool),o_sig_Inh_CSegment :: !(Bool),o_splitsems_Inh_CSegment :: !(Bool),o_strictwrap_Inh_CSegment :: !(Bool),o_traces_Inh_CSegment :: !(Bool),o_unbox_Inh_CSegment :: !(Bool),paramMap_Inh_CSegment :: !(ParamMap),prefix_Inh_CSegment :: !(String),syn_Inh_CSegment :: !(Attributes)} -data Syn_CSegment = Syn_CSegment {comments_Syn_CSegment :: !(([String])),semDom_Syn_CSegment :: !(([Decl])),semDomUnfoldGath_Syn_CSegment :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegment :: !(Decls)} -wrap_CSegment :: T_CSegment -> - Inh_CSegment -> - Syn_CSegment -wrap_CSegment (T_CSegment sem ) (Inh_CSegment _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn ) = - (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = - (sem _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn ) - in (Syn_CSegment _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls )) -sem_CSegment_CSegment :: Attributes -> - Attributes -> - T_CSegment -sem_CSegment_CSegment inh_ syn_ = - (T_CSegment (\ _lhsIinh - _lhsIisLast - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamMap - _lhsIprefix - _lhsIsyn -> - (let _lhsOsemDom :: ([Decl]) - _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _lhsOwrapDecls :: Decls - _lhsOcomments :: ([String]) - -- "GenerateCode.ag"(line 608, column 15) - _tp = - ({-# LINE 608 "GenerateCode.ag" #-} - foldr Arr _synTps _inhTps - {-# LINE 3592 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 609, column 15) - _inhTps = - ({-# LINE 609 "GenerateCode.ag" #-} - [typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems inh_] - {-# LINE 3597 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 610, column 15) - _synTps = - ({-# LINE 610 "GenerateCode.ag" #-} - mkTupleType _lhsIo_unbox (null _inhTps ) ([typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems syn_] ++ _continuation ) - {-# LINE 3602 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 611, column 15) - _continuation = - ({-# LINE 611 "GenerateCode.ag" #-} - if _lhsIisLast - then [] - else [TypeApp (SimpleType (typeName _lhsInt (_lhsInr + 1))) (map (SimpleType . ('@':)) _params )] - {-# LINE 3609 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 614, column 15) - _params = - ({-# LINE 614 "GenerateCode.ag" #-} - map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap - {-# LINE 3614 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 615, column 15) - _lhsOsemDom = - ({-# LINE 615 "GenerateCode.ag" #-} - let name = typeName _lhsInt _lhsInr - evalTp | null _params = id - | otherwise = idEvalType - in if _lhsIo_newtypes - then [ Code.NewType name _params name (evalTp _tp ) ] - else [ Code.Type name _params (evalTp _tp ) ] - {-# LINE 3624 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 626, column 7) - _lhsOsemDomUnfoldGath = - ({-# LINE 626 "GenerateCode.ag" #-} - Map.singleton (_lhsInt, _lhsInr) (_params , _tp ) - {-# LINE 3629 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 710, column 15) - _lhsOwrapDecls = - ({-# LINE 710 "GenerateCode.ag" #-} - let lhsVars = map (lhsname False) (Map.keys syn_) - ++ if _lhsIisLast then [] else [unwrap ++ sem (_lhsInr+1)] - rhsVars = map (lhsname True) (Map.keys inh_) - rhs = map SimpleExpr rhsVars - unwrap = if _lhsIo_newtypes then typeName _lhsInt (_lhsInr + 1) ++ " " else "" - var = "sem" - sem 0 = var - sem n = var ++ "_" ++ show n - in [ Decl (mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars) (App (sem _lhsInr) rhs) (Set.fromList lhsVars) (Set.fromList rhsVars) ] - {-# LINE 3642 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 764, column 18) - _lhsOcomments = - ({-# LINE 764 "GenerateCode.ag" #-} - let body = map ind (showsSegment (CSegment inh_ syn_)) - in if null body - then [] - else ("visit " ++ show _lhsInr ++ ":") : body - {-# LINE 3650 "GenerateCode.hs" #-}) - in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) --- CSegments --------------------------------------------------- -{- - visit 0: - inherited attributes: - inh : Attributes - nr : Int - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - paramMap : ParamMap - prefix : String - syn : Attributes - synthesized attributes: - comments : [String] - isNil : Bool - semDom : [Decl] - semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) - wrapDecls : Decls - alternatives: - alternative Cons: - child hd : CSegment - child tl : CSegments - alternative Nil: --} --- cata -sem_CSegments :: CSegments -> - T_CSegments -sem_CSegments list = - (Prelude.foldr sem_CSegments_Cons sem_CSegments_Nil (Prelude.map sem_CSegment list) ) --- semantic domain -newtype T_CSegments = T_CSegments (Attributes -> - Int -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - ParamMap -> - String -> - Attributes -> - ( ([String]),Bool,([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls)) -data Inh_CSegments = Inh_CSegments {inh_Inh_CSegments :: !(Attributes),nr_Inh_CSegments :: !(Int),nt_Inh_CSegments :: !(NontermIdent),o_case_Inh_CSegments :: !(Bool),o_cata_Inh_CSegments :: !(Bool),o_costcentre_Inh_CSegments :: !(Bool),o_data_Inh_CSegments :: !((Maybe Bool)),o_linePragmas_Inh_CSegments :: !(Bool),o_monadic_Inh_CSegments :: !(Bool),o_newtypes_Inh_CSegments :: !(Bool),o_pretty_Inh_CSegments :: !(Bool),o_rename_Inh_CSegments :: !(Bool),o_sem_Inh_CSegments :: !(Bool),o_sig_Inh_CSegments :: !(Bool),o_splitsems_Inh_CSegments :: !(Bool),o_strictwrap_Inh_CSegments :: !(Bool),o_traces_Inh_CSegments :: !(Bool),o_unbox_Inh_CSegments :: !(Bool),paramMap_Inh_CSegments :: !(ParamMap),prefix_Inh_CSegments :: !(String),syn_Inh_CSegments :: !(Attributes)} -data Syn_CSegments = Syn_CSegments {comments_Syn_CSegments :: !(([String])),isNil_Syn_CSegments :: !(Bool),semDom_Syn_CSegments :: !(([Decl])),semDomUnfoldGath_Syn_CSegments :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegments :: !(Decls)} -wrap_CSegments :: T_CSegments -> - Inh_CSegments -> - Syn_CSegments -wrap_CSegments (T_CSegments sem ) (Inh_CSegments _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn ) = - (let ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = - (sem _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn ) - in (Syn_CSegments _lhsOcomments _lhsOisNil _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls )) -sem_CSegments_Cons :: T_CSegment -> - T_CSegments -> - T_CSegments -sem_CSegments_Cons (T_CSegment hd_ ) (T_CSegments tl_ ) = - (T_CSegments (\ _lhsIinh - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamMap - _lhsIprefix - _lhsIsyn -> - (let _tlOnr :: Int - _lhsOisNil :: Bool - _hdOisLast :: Bool - _lhsOcomments :: ([String]) - _lhsOsemDom :: ([Decl]) - _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _lhsOwrapDecls :: Decls - _hdOinh :: Attributes - _hdOnr :: Int - _hdOnt :: NontermIdent - _hdOo_case :: Bool - _hdOo_cata :: Bool - _hdOo_costcentre :: Bool - _hdOo_data :: (Maybe Bool) - _hdOo_linePragmas :: Bool - _hdOo_monadic :: Bool - _hdOo_newtypes :: Bool - _hdOo_pretty :: Bool - _hdOo_rename :: Bool - _hdOo_sem :: Bool - _hdOo_sig :: Bool - _hdOo_splitsems :: Bool - _hdOo_strictwrap :: Bool - _hdOo_traces :: Bool - _hdOo_unbox :: Bool - _hdOparamMap :: ParamMap - _hdOprefix :: String - _hdOsyn :: Attributes - _tlOinh :: Attributes - _tlOnt :: NontermIdent - _tlOo_case :: Bool - _tlOo_cata :: Bool - _tlOo_costcentre :: Bool - _tlOo_data :: (Maybe Bool) - _tlOo_linePragmas :: Bool - _tlOo_monadic :: Bool - _tlOo_newtypes :: Bool - _tlOo_pretty :: Bool - _tlOo_rename :: Bool - _tlOo_sem :: Bool - _tlOo_sig :: Bool - _tlOo_splitsems :: Bool - _tlOo_strictwrap :: Bool - _tlOo_traces :: Bool - _tlOo_unbox :: Bool - _tlOparamMap :: ParamMap - _tlOprefix :: String - _tlOsyn :: Attributes - _hdIcomments :: ([String]) - _hdIsemDom :: ([Decl]) - _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _hdIwrapDecls :: Decls - _tlIcomments :: ([String]) - _tlIisNil :: Bool - _tlIsemDom :: ([Decl]) - _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _tlIwrapDecls :: Decls - -- "GenerateCode.ag"(line 237, column 11) - _tlOnr = - ({-# LINE 237 "GenerateCode.ag" #-} - _lhsInr + 1 - {-# LINE 3812 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 250, column 12) - _lhsOisNil = - ({-# LINE 250 "GenerateCode.ag" #-} - False - {-# LINE 3817 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 251, column 12) - _hdOisLast = - ({-# LINE 251 "GenerateCode.ag" #-} - _tlIisNil - {-# LINE 3822 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 759, column 52) - _lhsOcomments = - ({-# LINE 759 "GenerateCode.ag" #-} - _hdIcomments ++ _tlIcomments - {-# LINE 3827 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 603, column 50) - _lhsOsemDom = - ({-# LINE 603 "GenerateCode.ag" #-} - _hdIsemDom ++ _tlIsemDom - {-# LINE 3832 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 622, column 86) - _lhsOsemDomUnfoldGath = - ({-# LINE 622 "GenerateCode.ag" #-} - _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath - {-# LINE 3837 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 708, column 52) - _lhsOwrapDecls = - ({-# LINE 708 "GenerateCode.ag" #-} - _hdIwrapDecls ++ _tlIwrapDecls - {-# LINE 3842 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOinh = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 3847 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOnr = - ({-# LINE 229 "GenerateCode.ag" #-} - _lhsInr - {-# LINE 3852 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOnt = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 3857 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 3862 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 3867 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 3872 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 3877 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 3882 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 3887 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 3892 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 3897 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 3902 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 3907 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 3912 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 3917 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 3922 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 3927 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 3932 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 3937 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 3942 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOsyn = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 3947 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOinh = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 3952 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOnt = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 3957 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 3962 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 3967 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 3972 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 3977 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 3982 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 3987 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 3992 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 3997 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 4002 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 4007 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 4012 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 4017 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 4022 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 4027 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 4032 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 4037 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 4042 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOsyn = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 4047 "GenerateCode.hs" #-}) - ( _hdIcomments,_hdIsemDom,_hdIsemDomUnfoldGath,_hdIwrapDecls) = - (hd_ _hdOinh _hdOisLast _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOparamMap _hdOprefix _hdOsyn ) - ( _tlIcomments,_tlIisNil,_tlIsemDom,_tlIsemDomUnfoldGath,_tlIwrapDecls) = - (tl_ _tlOinh _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOparamMap _tlOprefix _tlOsyn ) - in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) -sem_CSegments_Nil :: T_CSegments -sem_CSegments_Nil = - (T_CSegments (\ _lhsIinh - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamMap - _lhsIprefix - _lhsIsyn -> - (let _lhsOisNil :: Bool - _lhsOcomments :: ([String]) - _lhsOsemDom :: ([Decl]) - _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _lhsOwrapDecls :: Decls - -- "GenerateCode.ag"(line 252, column 10) - _lhsOisNil = - ({-# LINE 252 "GenerateCode.ag" #-} - True - {-# LINE 4085 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 759, column 52) - _lhsOcomments = - ({-# LINE 759 "GenerateCode.ag" #-} - [] - {-# LINE 4090 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 603, column 50) - _lhsOsemDom = - ({-# LINE 603 "GenerateCode.ag" #-} - [] - {-# LINE 4095 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 622, column 86) - _lhsOsemDomUnfoldGath = - ({-# LINE 622 "GenerateCode.ag" #-} - Map.empty - {-# LINE 4100 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 708, column 52) - _lhsOwrapDecls = - ({-# LINE 708 "GenerateCode.ag" #-} - [] - {-# LINE 4105 "GenerateCode.hs" #-}) - in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) --- CVisit ------------------------------------------------------ -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - allPragmas : PragmaMap - aroundMap : Set Identifier - children : [(Identifier,Type,Bool)] - con : ConstructorIdent - contextMap : ContextMap - inh : Attributes - instVisitNrs : Map Identifier Int - isLast : Bool - nextIntra : Exprs - nextIntraVars : Set String - nr : Int - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - paramInstMap : Map Identifier (NontermIdent, [String]) - paramMap : ParamMap - prefix : String - syn : Attributes - terminals : [Identifier] - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - with_sig : Bool - chained attribute: - errors : Seq Error - synthesized attributes: - allTpsFound : Bool - comments : [String] - decls : Decls - gatherInstVisitNrs : Map Identifier Int - intra : Exprs - intraVars : Set String - semNames : [String] - alternatives: - alternative CVisit: - child inh : {Attributes} - child syn : {Attributes} - child vss : Sequence - child intra : Sequence - child ordered : {Bool} - visit 0: - local _tup4 : _ - local higherOrderChildren : _ - local firstOrderChildren : _ - local funcname : _ - local nextVisitName : _ - local nextVisitDecl : _ - local decls : _ - local lastExprVars : _ - local _tup5 : _ - local blockFunDecls : _ - local blockFirstFunCall : _ - local costCentreDescr : _ - local addCostCentre : _ - local params : _ - local semFun : _ - local tsig : _ - local semType : _ - local typeSigs : _ - local o_do : _ - local o_case : _ - local declsType : _ - local o_splitsems : _ --} --- cata -sem_CVisit :: CVisit -> - T_CVisit -sem_CVisit (CVisit _inh _syn _vss _intra _ordered ) = - (sem_CVisit_CVisit _inh _syn (sem_Sequence _vss ) (sem_Sequence _intra ) _ordered ) --- semantic domain -newtype T_CVisit = T_CVisit ((Set NontermIdent) -> - PragmaMap -> - (Set Identifier) -> - ([(Identifier,Type,Bool)]) -> - ConstructorIdent -> - ContextMap -> - (Seq Error) -> - Attributes -> - (Map Identifier Int) -> - Bool -> - Exprs -> - (Set String) -> - Int -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - (Map Identifier (NontermIdent, [String])) -> - ParamMap -> - String -> - Attributes -> - ([Identifier]) -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - Bool -> - ( Bool,([String]),Decls,(Seq Error),(Map Identifier Int),Exprs,(Set String),([String]))) -data Inh_CVisit = Inh_CVisit {allNts_Inh_CVisit :: !((Set NontermIdent)),allPragmas_Inh_CVisit :: !(PragmaMap),aroundMap_Inh_CVisit :: !((Set Identifier)),children_Inh_CVisit :: !(([(Identifier,Type,Bool)])),con_Inh_CVisit :: !(ConstructorIdent),contextMap_Inh_CVisit :: !(ContextMap),errors_Inh_CVisit :: !((Seq Error)),inh_Inh_CVisit :: !(Attributes),instVisitNrs_Inh_CVisit :: !((Map Identifier Int)),isLast_Inh_CVisit :: !(Bool),nextIntra_Inh_CVisit :: !(Exprs),nextIntraVars_Inh_CVisit :: !((Set String)),nr_Inh_CVisit :: !(Int),nt_Inh_CVisit :: !(NontermIdent),o_case_Inh_CVisit :: !(Bool),o_cata_Inh_CVisit :: !(Bool),o_costcentre_Inh_CVisit :: !(Bool),o_data_Inh_CVisit :: !((Maybe Bool)),o_linePragmas_Inh_CVisit :: !(Bool),o_monadic_Inh_CVisit :: !(Bool),o_newtypes_Inh_CVisit :: !(Bool),o_pretty_Inh_CVisit :: !(Bool),o_rename_Inh_CVisit :: !(Bool),o_sem_Inh_CVisit :: !(Bool),o_sig_Inh_CVisit :: !(Bool),o_splitsems_Inh_CVisit :: !(Bool),o_strictwrap_Inh_CVisit :: !(Bool),o_traces_Inh_CVisit :: !(Bool),o_unbox_Inh_CVisit :: !(Bool),paramInstMap_Inh_CVisit :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisit :: !(ParamMap),prefix_Inh_CVisit :: !(String),syn_Inh_CVisit :: !(Attributes),terminals_Inh_CVisit :: !(([Identifier])),unfoldSemDom_Inh_CVisit :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CVisit :: !(Bool)} -data Syn_CVisit = Syn_CVisit {allTpsFound_Syn_CVisit :: !(Bool),comments_Syn_CVisit :: !(([String])),decls_Syn_CVisit :: !(Decls),errors_Syn_CVisit :: !((Seq Error)),gatherInstVisitNrs_Syn_CVisit :: !((Map Identifier Int)),intra_Syn_CVisit :: !(Exprs),intraVars_Syn_CVisit :: !((Set String)),semNames_Syn_CVisit :: !(([String]))} -wrap_CVisit :: T_CVisit -> - Inh_CVisit -> - Syn_CVisit -wrap_CVisit (T_CVisit sem ) (Inh_CVisit _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIerrors _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwith_sig ) = - (let ( _lhsOallTpsFound,_lhsOcomments,_lhsOdecls,_lhsOerrors,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames) = - (sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIerrors _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwith_sig ) - in (Syn_CVisit _lhsOallTpsFound _lhsOcomments _lhsOdecls _lhsOerrors _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOsemNames )) -sem_CVisit_CVisit :: Attributes -> - Attributes -> - T_Sequence -> - T_Sequence -> - Bool -> - T_CVisit -sem_CVisit_CVisit inh_ syn_ (T_Sequence vss_ ) (T_Sequence intra_ ) ordered_ = - (T_CVisit (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIchildren - _lhsIcon - _lhsIcontextMap - _lhsIerrors - _lhsIinh - _lhsIinstVisitNrs - _lhsIisLast - _lhsInextIntra - _lhsInextIntraVars - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamInstMap - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIterminals - _lhsIunfoldSemDom - _lhsIwith_sig -> - (let _lhsOintra :: Exprs - _lhsOintraVars :: (Set String) - _vssOlastExpr :: Expr - _intraOlastExpr :: Expr - _lhsOdecls :: Decls - _lhsOgatherInstVisitNrs :: (Map Identifier Int) - _vssOdeclsAbove :: ([Decl]) - _intraOdeclsAbove :: ([Decl]) - _lhsOallTpsFound :: Bool - _lhsOerrors :: (Seq Error) - _lhsOcomments :: ([String]) - _vssOwhat :: String - _intraOwhat :: String - _lhsOsemNames :: ([String]) - _vssOallNts :: (Set NontermIdent) - _vssOaroundMap :: (Set Identifier) - _vssOchildren :: ([(Identifier,Type,Bool)]) - _vssOcon :: ConstructorIdent - _vssOerrors :: (Seq Error) - _vssOhigherOrderChildren :: ([(Identifier,Type,Bool)]) - _vssOinh :: Attributes - _vssOinstVisitNrs :: (Map Identifier Int) - _vssOnr :: Int - _vssOnt :: NontermIdent - _vssOo_case :: Bool - _vssOo_cata :: Bool - _vssOo_costcentre :: Bool - _vssOo_data :: (Maybe Bool) - _vssOo_linePragmas :: Bool - _vssOo_monadic :: Bool - _vssOo_newtypes :: Bool - _vssOo_pretty :: Bool - _vssOo_rename :: Bool - _vssOo_sem :: Bool - _vssOo_sig :: Bool - _vssOo_splitsems :: Bool - _vssOo_strictwrap :: Bool - _vssOo_traces :: Bool - _vssOo_unbox :: Bool - _vssOparamInstMap :: (Map Identifier (NontermIdent, [String])) - _vssOparamMap :: ParamMap - _vssOprefix :: String - _vssOsyn :: Attributes - _vssOterminals :: ([Identifier]) - _vssOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _intraOallNts :: (Set NontermIdent) - _intraOaroundMap :: (Set Identifier) - _intraOchildren :: ([(Identifier,Type,Bool)]) - _intraOcon :: ConstructorIdent - _intraOerrors :: (Seq Error) - _intraOhigherOrderChildren :: ([(Identifier,Type,Bool)]) - _intraOinh :: Attributes - _intraOinstVisitNrs :: (Map Identifier Int) - _intraOnr :: Int - _intraOnt :: NontermIdent - _intraOo_case :: Bool - _intraOo_cata :: Bool - _intraOo_costcentre :: Bool - _intraOo_data :: (Maybe Bool) - _intraOo_linePragmas :: Bool - _intraOo_monadic :: Bool - _intraOo_newtypes :: Bool - _intraOo_pretty :: Bool - _intraOo_rename :: Bool - _intraOo_sem :: Bool - _intraOo_sig :: Bool - _intraOo_splitsems :: Bool - _intraOo_strictwrap :: Bool - _intraOo_traces :: Bool - _intraOo_unbox :: Bool - _intraOparamInstMap :: (Map Identifier (NontermIdent, [String])) - _intraOparamMap :: ParamMap - _intraOprefix :: String - _intraOsyn :: Attributes - _intraOterminals :: ([Identifier]) - _intraOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _vssIallTpsFound :: Bool - _vssIblockDecls :: DeclBlocks - _vssIcomments :: ([String]) - _vssIdecls :: Decls - _vssIdeclsAbove :: ([Decl]) - _vssIdefinedInsts :: ([Identifier]) - _vssIerrors :: (Seq Error) - _vssIexprs :: Exprs - _vssItSigs :: ([Decl]) - _vssItps :: ([Type]) - _vssIusedVars :: (Set String) - _intraIallTpsFound :: Bool - _intraIblockDecls :: DeclBlocks - _intraIcomments :: ([String]) - _intraIdecls :: Decls - _intraIdeclsAbove :: ([Decl]) - _intraIdefinedInsts :: ([Identifier]) - _intraIerrors :: (Seq Error) - _intraIexprs :: Exprs - _intraItSigs :: ([Decl]) - _intraItps :: ([Type]) - _intraIusedVars :: (Set String) - -- "GenerateCode.ag"(line 261, column 13) - _lhsOintra = - ({-# LINE 261 "GenerateCode.ag" #-} - _intraIexprs - {-# LINE 4384 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 262, column 13) - _lhsOintraVars = - ({-# LINE 262 "GenerateCode.ag" #-} - _intraIusedVars - {-# LINE 4389 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 374, column 13) - __tup4 = - ({-# LINE 374 "GenerateCode.ag" #-} - partition (\(_,_,ho) -> ho) _lhsIchildren - {-# LINE 4394 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 374, column 13) - (_higherOrderChildren,_) = - ({-# LINE 374 "GenerateCode.ag" #-} - __tup4 - {-# LINE 4399 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 374, column 13) - (_,_firstOrderChildren) = - ({-# LINE 374 "GenerateCode.ag" #-} - __tup4 - {-# LINE 4404 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 375, column 13) - _funcname = - ({-# LINE 375 "GenerateCode.ag" #-} - seqSemname _lhsIprefix _lhsInt _lhsIcon _lhsInr - {-# LINE 4409 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 376, column 13) - _nextVisitName = - ({-# LINE 376 "GenerateCode.ag" #-} - if _lhsIisLast then [] else [visitname _lhsIprefix _lhsInt (_lhsInr+1)] - {-# LINE 4414 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 377, column 13) - _nextVisitDecl = - ({-# LINE 377 "GenerateCode.ag" #-} - let lhs = TupleLhs _nextVisitName - rhs = App fun _lhsInextIntra - fun = seqSemname _lhsIprefix _lhsInt _lhsIcon (_lhsInr+1) - in if _lhsIisLast - then [] - else [Decl lhs rhs (Set.fromList _nextVisitName) _lhsInextIntraVars] - {-# LINE 4424 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 383, column 13) - _decls = - ({-# LINE 383 "GenerateCode.ag" #-} - _typeSigs ++ _vssIdecls ++ _nextVisitDecl - {-# LINE 4429 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 384, column 13) - _vssOlastExpr = - ({-# LINE 384 "GenerateCode.ag" #-} - mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_) $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName - {-# LINE 4434 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 385, column 13) - _intraOlastExpr = - ({-# LINE 385 "GenerateCode.ag" #-} - error "lastExpr: not used here" - {-# LINE 4439 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 386, column 13) - _lastExprVars = - ({-# LINE 386 "GenerateCode.ag" #-} - map (lhsname False) (Map.keys syn_) ++ _nextVisitName - {-# LINE 4444 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 387, column 13) - __tup5 = - ({-# LINE 387 "GenerateCode.ag" #-} - mkPartitionedFunction _funcname _o_case _nextVisitDecl _lastExprVars _vssIblockDecls - {-# LINE 4449 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 387, column 13) - (_blockFunDecls,_) = - ({-# LINE 387 "GenerateCode.ag" #-} - __tup5 - {-# LINE 4454 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 387, column 13) - (_,_blockFirstFunCall) = - ({-# LINE 387 "GenerateCode.ag" #-} - __tup5 - {-# LINE 4459 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 389, column 13) - _costCentreDescr = - ({-# LINE 389 "GenerateCode.ag" #-} - "b" ++ ":" ++ show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show _lhsInr - {-# LINE 4464 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 390, column 13) - _addCostCentre = - ({-# LINE 390 "GenerateCode.ag" #-} - \v -> if _lhsIo_costcentre - then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v - else v - {-# LINE 4471 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 394, column 13) - _params = - ({-# LINE 394 "GenerateCode.ag" #-} - map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap - {-# LINE 4476 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 395, column 13) - _semFun = - ({-# LINE 395 "GenerateCode.ag" #-} - let lhs = Fun _funcname lhs_args - lhs_args = if _lhsInr == 0 then map field _firstOrderChildren else _intraIexprs - field (name,NT tp tps,_) = let unwrap | _lhsIo_newtypes = \x -> App (sdtype tp) [x] - | otherwise = id - addType expr | null tps = expr - | otherwise = TypedExpr expr (_lhsIunfoldSemDom tp 0 tps) - in unwrap $ addType $ SimpleExpr $ funname name 0 - field (name,tp,_) = let expr = SimpleExpr (funname name 0) - in if null _params - then expr - else TypedExpr expr (idEvalType $ typeToCodeType (Just _lhsInt) _params tp) - mbEvalTp | null _params = const Nothing - | otherwise = Just . idEvalType - rhs = wrap - . mkLambda [mkLambdaArg (lhsname True nm) (mbEvalTp $ typeToCodeType (Just _lhsInt) _params tp) | (nm,tp) <- Map.assocs inh_] - $ _addCostCentre - $ if ordered_ && _o_splitsems - then _blockFirstFunCall - else mkDecls _declsType _decls - . mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_) - $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName - wrap = if _lhsIo_newtypes - then \x -> App (typeName _lhsInt _lhsInr) [x] - else id - in Decl lhs rhs Set.empty Set.empty - {-# LINE 4505 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 425, column 13) - _tsig = - ({-# LINE 425 "GenerateCode.ag" #-} - TSig _funcname _semType - {-# LINE 4510 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 426, column 13) - _semType = - ({-# LINE 426 "GenerateCode.ag" #-} - let argType (NT tp tps) r | tp /= _SELF = typeAppStrs (sdtype tp) tps `Arr` r - | tp == _SELF = error "GenerateCode: found an intra-type with type SELF, which should have been prevented by CRule.tps" - argType (Haskell tp) r = SimpleType tp `Arr` r - evalTp | null _params = id - | otherwise = idEvalType - in appContext _lhsIcontextMap _lhsInt $ evalTp $ - if _lhsInr == 0 - then foldr argType (typeAppStrs (sdtype _lhsInt ) _params ) (map (\(_,t,_) -> t) _firstOrderChildren ) - else foldr argType (typeAppStrs (typeName _lhsInt _lhsInr) _params ) _intraItps - {-# LINE 4523 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 437, column 13) - _lhsOdecls = - ({-# LINE 437 "GenerateCode.ag" #-} - ( if _lhsIwith_sig - then [_tsig, _semFun] - else [_semFun] - ) ++ - ( if ordered_ && _o_splitsems - then _blockFunDecls - else [] - ) - {-# LINE 4535 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 445, column 13) - _typeSigs = - ({-# LINE 445 "GenerateCode.ag" #-} - if _lhsIo_sig && not _o_case - then _vssItSigs - else [] - {-# LINE 4542 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 448, column 13) - _o_do = - ({-# LINE 448 "GenerateCode.ag" #-} - ordered_ && _lhsIo_monadic - {-# LINE 4547 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 449, column 13) - _o_case = - ({-# LINE 449 "GenerateCode.ag" #-} - not _o_do && _lhsIo_case && ordered_ && not (hasPragma _lhsIallPragmas _lhsInt _lhsIcon _NOCASE) - {-# LINE 4552 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 450, column 13) - _declsType = - ({-# LINE 450 "GenerateCode.ag" #-} - if _o_do - then DeclsDo - else if _o_case - then DeclsCase - else DeclsLet - {-# LINE 4561 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 455, column 13) - _o_splitsems = - ({-# LINE 455 "GenerateCode.ag" #-} - ordered_ && _lhsIo_splitsems - {-# LINE 4566 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 477, column 7) - _lhsOgatherInstVisitNrs = - ({-# LINE 477 "GenerateCode.ag" #-} - Map.fromList [(i,_lhsInr) | i <- _vssIdefinedInsts] - {-# LINE 4571 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 504, column 7) - _vssOdeclsAbove = - ({-# LINE 504 "GenerateCode.ag" #-} - [] - {-# LINE 4576 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 505, column 7) - _intraOdeclsAbove = - ({-# LINE 505 "GenerateCode.ag" #-} - error "declsAbove: not used here" - {-# LINE 4581 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 733, column 13) - _lhsOallTpsFound = - ({-# LINE 733 "GenerateCode.ag" #-} - _intraIallTpsFound - {-# LINE 4586 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 744, column 13) - _lhsOerrors = - ({-# LINE 744 "GenerateCode.ag" #-} - _intraIerrors - {-# LINE 4591 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 777, column 18) - _lhsOcomments = - ({-# LINE 777 "GenerateCode.ag" #-} - let body = map ind (_vssIcomments ++ _intraIcomments) - in if null body - then [] - else ("visit " ++ show _lhsInr ++ ":") : body - {-# LINE 4599 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 781, column 18) - _vssOwhat = - ({-# LINE 781 "GenerateCode.ag" #-} - "local" - {-# LINE 4604 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 782, column 18) - _intraOwhat = - ({-# LINE 782 "GenerateCode.ag" #-} - "intra" - {-# LINE 4609 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 1025, column 7) - _lhsOsemNames = - ({-# LINE 1025 "GenerateCode.ag" #-} - [_funcname ] - {-# LINE 4614 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOallNts = - ({-# LINE 121 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 4619 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOaroundMap = - ({-# LINE 489 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 4624 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOchildren = - ({-# LINE 355 "GenerateCode.ag" #-} - _lhsIchildren - {-# LINE 4629 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOcon = - ({-# LINE 83 "GenerateCode.ag" #-} - _lhsIcon - {-# LINE 4634 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _lhsIerrors - {-# LINE 4639 "GenerateCode.hs" #-}) - -- copy rule (from local) - _vssOhigherOrderChildren = - ({-# LINE 210 "GenerateCode.ag" #-} - _higherOrderChildren - {-# LINE 4644 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOinh = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 4649 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOinstVisitNrs = - ({-# LINE 469 "GenerateCode.ag" #-} - _lhsIinstVisitNrs - {-# LINE 4654 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOnr = - ({-# LINE 229 "GenerateCode.ag" #-} - _lhsInr - {-# LINE 4659 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOnt = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 4664 "GenerateCode.hs" #-}) - -- copy rule (from local) - _vssOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _o_case - {-# LINE 4669 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 4674 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 4679 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 4684 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 4689 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 4694 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 4699 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 4704 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 4709 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 4714 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 4719 "GenerateCode.hs" #-}) - -- copy rule (from local) - _vssOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _o_splitsems - {-# LINE 4724 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 4729 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 4734 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 4739 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOparamInstMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamInstMap - {-# LINE 4744 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 4749 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 4754 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOsyn = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 4759 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOterminals = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIterminals - {-# LINE 4764 "GenerateCode.hs" #-}) - -- copy rule (down) - _vssOunfoldSemDom = - ({-# LINE 628 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 4769 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOallNts = - ({-# LINE 121 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 4774 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOaroundMap = - ({-# LINE 489 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 4779 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOchildren = - ({-# LINE 355 "GenerateCode.ag" #-} - _lhsIchildren - {-# LINE 4784 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOcon = - ({-# LINE 83 "GenerateCode.ag" #-} - _lhsIcon - {-# LINE 4789 "GenerateCode.hs" #-}) - -- copy rule (chain) - _intraOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _vssIerrors - {-# LINE 4794 "GenerateCode.hs" #-}) - -- copy rule (from local) - _intraOhigherOrderChildren = - ({-# LINE 210 "GenerateCode.ag" #-} - _higherOrderChildren - {-# LINE 4799 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOinh = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 4804 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOinstVisitNrs = - ({-# LINE 469 "GenerateCode.ag" #-} - _lhsIinstVisitNrs - {-# LINE 4809 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOnr = - ({-# LINE 229 "GenerateCode.ag" #-} - _lhsInr - {-# LINE 4814 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOnt = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 4819 "GenerateCode.hs" #-}) - -- copy rule (from local) - _intraOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _o_case - {-# LINE 4824 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 4829 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 4834 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 4839 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 4844 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 4849 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 4854 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 4859 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 4864 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 4869 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 4874 "GenerateCode.hs" #-}) - -- copy rule (from local) - _intraOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _o_splitsems - {-# LINE 4879 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 4884 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 4889 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 4894 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOparamInstMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamInstMap - {-# LINE 4899 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 4904 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 4909 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOsyn = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 4914 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOterminals = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIterminals - {-# LINE 4919 "GenerateCode.hs" #-}) - -- copy rule (down) - _intraOunfoldSemDom = - ({-# LINE 628 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 4924 "GenerateCode.hs" #-}) - ( _vssIallTpsFound,_vssIblockDecls,_vssIcomments,_vssIdecls,_vssIdeclsAbove,_vssIdefinedInsts,_vssIerrors,_vssIexprs,_vssItSigs,_vssItps,_vssIusedVars) = - (vss_ _vssOallNts _vssOaroundMap _vssOchildren _vssOcon _vssOdeclsAbove _vssOerrors _vssOhigherOrderChildren _vssOinh _vssOinstVisitNrs _vssOlastExpr _vssOnr _vssOnt _vssOo_case _vssOo_cata _vssOo_costcentre _vssOo_data _vssOo_linePragmas _vssOo_monadic _vssOo_newtypes _vssOo_pretty _vssOo_rename _vssOo_sem _vssOo_sig _vssOo_splitsems _vssOo_strictwrap _vssOo_traces _vssOo_unbox _vssOparamInstMap _vssOparamMap _vssOprefix _vssOsyn _vssOterminals _vssOunfoldSemDom _vssOwhat ) - ( _intraIallTpsFound,_intraIblockDecls,_intraIcomments,_intraIdecls,_intraIdeclsAbove,_intraIdefinedInsts,_intraIerrors,_intraIexprs,_intraItSigs,_intraItps,_intraIusedVars) = - (intra_ _intraOallNts _intraOaroundMap _intraOchildren _intraOcon _intraOdeclsAbove _intraOerrors _intraOhigherOrderChildren _intraOinh _intraOinstVisitNrs _intraOlastExpr _intraOnr _intraOnt _intraOo_case _intraOo_cata _intraOo_costcentre _intraOo_data _intraOo_linePragmas _intraOo_monadic _intraOo_newtypes _intraOo_pretty _intraOo_rename _intraOo_sem _intraOo_sig _intraOo_splitsems _intraOo_strictwrap _intraOo_traces _intraOo_unbox _intraOparamInstMap _intraOparamMap _intraOprefix _intraOsyn _intraOterminals _intraOunfoldSemDom _intraOwhat ) - in ( _lhsOallTpsFound,_lhsOcomments,_lhsOdecls,_lhsOerrors,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames))) ) --- CVisits ----------------------------------------------------- -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - allPragmas : PragmaMap - aroundMap : Set Identifier - children : [(Identifier,Type,Bool)] - con : ConstructorIdent - contextMap : ContextMap - inh : Attributes - instVisitNrs : Map Identifier Int - nr : Int - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - paramInstMap : Map Identifier (NontermIdent, [String]) - paramMap : ParamMap - prefix : String - syn : Attributes - terminals : [Identifier] - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - with_sig : Bool - chained attribute: - errors : Seq Error - synthesized attributes: - allTpsFound : Bool - comments : [String] - decls : Decls - gatherInstVisitNrs : Map Identifier Int - intra : Exprs - intraVars : Set String - isNil : Bool - semNames : [String] - alternatives: - alternative Cons: - child hd : CVisit - child tl : CVisits - alternative Nil: --} --- cata -sem_CVisits :: CVisits -> - T_CVisits -sem_CVisits list = - (Prelude.foldr sem_CVisits_Cons sem_CVisits_Nil (Prelude.map sem_CVisit list) ) --- semantic domain -newtype T_CVisits = T_CVisits ((Set NontermIdent) -> - PragmaMap -> - (Set Identifier) -> - ([(Identifier,Type,Bool)]) -> - ConstructorIdent -> - ContextMap -> - (Seq Error) -> - Attributes -> - (Map Identifier Int) -> - Int -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - (Map Identifier (NontermIdent, [String])) -> - ParamMap -> - String -> - Attributes -> - ([Identifier]) -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - Bool -> - ( Bool,([String]),Decls,(Seq Error),(Map Identifier Int),Exprs,(Set String),Bool,([String]))) -data Inh_CVisits = Inh_CVisits {allNts_Inh_CVisits :: !((Set NontermIdent)),allPragmas_Inh_CVisits :: !(PragmaMap),aroundMap_Inh_CVisits :: !((Set Identifier)),children_Inh_CVisits :: !(([(Identifier,Type,Bool)])),con_Inh_CVisits :: !(ConstructorIdent),contextMap_Inh_CVisits :: !(ContextMap),errors_Inh_CVisits :: !((Seq Error)),inh_Inh_CVisits :: !(Attributes),instVisitNrs_Inh_CVisits :: !((Map Identifier Int)),nr_Inh_CVisits :: !(Int),nt_Inh_CVisits :: !(NontermIdent),o_case_Inh_CVisits :: !(Bool),o_cata_Inh_CVisits :: !(Bool),o_costcentre_Inh_CVisits :: !(Bool),o_data_Inh_CVisits :: !((Maybe Bool)),o_linePragmas_Inh_CVisits :: !(Bool),o_monadic_Inh_CVisits :: !(Bool),o_newtypes_Inh_CVisits :: !(Bool),o_pretty_Inh_CVisits :: !(Bool),o_rename_Inh_CVisits :: !(Bool),o_sem_Inh_CVisits :: !(Bool),o_sig_Inh_CVisits :: !(Bool),o_splitsems_Inh_CVisits :: !(Bool),o_strictwrap_Inh_CVisits :: !(Bool),o_traces_Inh_CVisits :: !(Bool),o_unbox_Inh_CVisits :: !(Bool),paramInstMap_Inh_CVisits :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisits :: !(ParamMap),prefix_Inh_CVisits :: !(String),syn_Inh_CVisits :: !(Attributes),terminals_Inh_CVisits :: !(([Identifier])),unfoldSemDom_Inh_CVisits :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CVisits :: !(Bool)} -data Syn_CVisits = Syn_CVisits {allTpsFound_Syn_CVisits :: !(Bool),comments_Syn_CVisits :: !(([String])),decls_Syn_CVisits :: !(Decls),errors_Syn_CVisits :: !((Seq Error)),gatherInstVisitNrs_Syn_CVisits :: !((Map Identifier Int)),intra_Syn_CVisits :: !(Exprs),intraVars_Syn_CVisits :: !((Set String)),isNil_Syn_CVisits :: !(Bool),semNames_Syn_CVisits :: !(([String]))} -wrap_CVisits :: T_CVisits -> - Inh_CVisits -> - Syn_CVisits -wrap_CVisits (T_CVisits sem ) (Inh_CVisits _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIerrors _lhsIinh _lhsIinstVisitNrs _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwith_sig ) = - (let ( _lhsOallTpsFound,_lhsOcomments,_lhsOdecls,_lhsOerrors,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames) = - (sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIerrors _lhsIinh _lhsIinstVisitNrs _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwith_sig ) - in (Syn_CVisits _lhsOallTpsFound _lhsOcomments _lhsOdecls _lhsOerrors _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOisNil _lhsOsemNames )) -sem_CVisits_Cons :: T_CVisit -> - T_CVisits -> - T_CVisits -sem_CVisits_Cons (T_CVisit hd_ ) (T_CVisits tl_ ) = - (T_CVisits (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIchildren - _lhsIcon - _lhsIcontextMap - _lhsIerrors - _lhsIinh - _lhsIinstVisitNrs - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamInstMap - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIterminals - _lhsIunfoldSemDom - _lhsIwith_sig -> - (let _tlOnr :: Int - _lhsOisNil :: Bool - _hdOisLast :: Bool - _hdOnextIntra :: Exprs - _hdOnextIntraVars :: (Set String) - _lhsOintra :: Exprs - _lhsOintraVars :: (Set String) - _lhsOallTpsFound :: Bool - _lhsOcomments :: ([String]) - _lhsOdecls :: Decls - _lhsOerrors :: (Seq Error) - _lhsOgatherInstVisitNrs :: (Map Identifier Int) - _lhsOsemNames :: ([String]) - _hdOallNts :: (Set NontermIdent) - _hdOallPragmas :: PragmaMap - _hdOaroundMap :: (Set Identifier) - _hdOchildren :: ([(Identifier,Type,Bool)]) - _hdOcon :: ConstructorIdent - _hdOcontextMap :: ContextMap - _hdOerrors :: (Seq Error) - _hdOinh :: Attributes - _hdOinstVisitNrs :: (Map Identifier Int) - _hdOnr :: Int - _hdOnt :: NontermIdent - _hdOo_case :: Bool - _hdOo_cata :: Bool - _hdOo_costcentre :: Bool - _hdOo_data :: (Maybe Bool) - _hdOo_linePragmas :: Bool - _hdOo_monadic :: Bool - _hdOo_newtypes :: Bool - _hdOo_pretty :: Bool - _hdOo_rename :: Bool - _hdOo_sem :: Bool - _hdOo_sig :: Bool - _hdOo_splitsems :: Bool - _hdOo_strictwrap :: Bool - _hdOo_traces :: Bool - _hdOo_unbox :: Bool - _hdOparamInstMap :: (Map Identifier (NontermIdent, [String])) - _hdOparamMap :: ParamMap - _hdOprefix :: String - _hdOsyn :: Attributes - _hdOterminals :: ([Identifier]) - _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _hdOwith_sig :: Bool - _tlOallNts :: (Set NontermIdent) - _tlOallPragmas :: PragmaMap - _tlOaroundMap :: (Set Identifier) - _tlOchildren :: ([(Identifier,Type,Bool)]) - _tlOcon :: ConstructorIdent - _tlOcontextMap :: ContextMap - _tlOerrors :: (Seq Error) - _tlOinh :: Attributes - _tlOinstVisitNrs :: (Map Identifier Int) - _tlOnt :: NontermIdent - _tlOo_case :: Bool - _tlOo_cata :: Bool - _tlOo_costcentre :: Bool - _tlOo_data :: (Maybe Bool) - _tlOo_linePragmas :: Bool - _tlOo_monadic :: Bool - _tlOo_newtypes :: Bool - _tlOo_pretty :: Bool - _tlOo_rename :: Bool - _tlOo_sem :: Bool - _tlOo_sig :: Bool - _tlOo_splitsems :: Bool - _tlOo_strictwrap :: Bool - _tlOo_traces :: Bool - _tlOo_unbox :: Bool - _tlOparamInstMap :: (Map Identifier (NontermIdent, [String])) - _tlOparamMap :: ParamMap - _tlOprefix :: String - _tlOsyn :: Attributes - _tlOterminals :: ([Identifier]) - _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _tlOwith_sig :: Bool - _hdIallTpsFound :: Bool - _hdIcomments :: ([String]) - _hdIdecls :: Decls - _hdIerrors :: (Seq Error) - _hdIgatherInstVisitNrs :: (Map Identifier Int) - _hdIintra :: Exprs - _hdIintraVars :: (Set String) - _hdIsemNames :: ([String]) - _tlIallTpsFound :: Bool - _tlIcomments :: ([String]) - _tlIdecls :: Decls - _tlIerrors :: (Seq Error) - _tlIgatherInstVisitNrs :: (Map Identifier Int) - _tlIintra :: Exprs - _tlIintraVars :: (Set String) - _tlIisNil :: Bool - _tlIsemNames :: ([String]) - -- "GenerateCode.ag"(line 233, column 11) - _tlOnr = - ({-# LINE 233 "GenerateCode.ag" #-} - _lhsInr + 1 - {-# LINE 5168 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 246, column 12) - _lhsOisNil = - ({-# LINE 246 "GenerateCode.ag" #-} - False - {-# LINE 5173 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 247, column 12) - _hdOisLast = - ({-# LINE 247 "GenerateCode.ag" #-} - _tlIisNil - {-# LINE 5178 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 264, column 12) - _hdOnextIntra = - ({-# LINE 264 "GenerateCode.ag" #-} - _tlIintra - {-# LINE 5183 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 265, column 12) - _hdOnextIntraVars = - ({-# LINE 265 "GenerateCode.ag" #-} - _tlIintraVars - {-# LINE 5188 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 266, column 12) - _lhsOintra = - ({-# LINE 266 "GenerateCode.ag" #-} - _hdIintra - {-# LINE 5193 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 267, column 12) - _lhsOintraVars = - ({-# LINE 267 "GenerateCode.ag" #-} - _hdIintraVars - {-# LINE 5198 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 727, column 39) - _lhsOallTpsFound = - ({-# LINE 727 "GenerateCode.ag" #-} - _hdIallTpsFound && _tlIallTpsFound - {-# LINE 5203 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 759, column 52) - _lhsOcomments = - ({-# LINE 759 "GenerateCode.ag" #-} - _hdIcomments ++ _tlIcomments - {-# LINE 5208 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 372, column 33) - _lhsOdecls = - ({-# LINE 372 "GenerateCode.ag" #-} - _hdIdecls ++ _tlIdecls - {-# LINE 5213 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 740, column 32) - _lhsOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 5218 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 470, column 44) - _lhsOgatherInstVisitNrs = - ({-# LINE 470 "GenerateCode.ag" #-} - _hdIgatherInstVisitNrs `Map.union` _tlIgatherInstVisitNrs - {-# LINE 5223 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 1015, column 61) - _lhsOsemNames = - ({-# LINE 1015 "GenerateCode.ag" #-} - _hdIsemNames ++ _tlIsemNames - {-# LINE 5228 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOallNts = - ({-# LINE 121 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 5233 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOallPragmas = - ({-# LINE 67 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 5238 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOaroundMap = - ({-# LINE 489 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 5243 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOchildren = - ({-# LINE 355 "GenerateCode.ag" #-} - _lhsIchildren - {-# LINE 5248 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOcon = - ({-# LINE 83 "GenerateCode.ag" #-} - _lhsIcon - {-# LINE 5253 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOcontextMap = - ({-# LINE 109 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 5258 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _lhsIerrors - {-# LINE 5263 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOinh = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 5268 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOinstVisitNrs = - ({-# LINE 469 "GenerateCode.ag" #-} - _lhsIinstVisitNrs - {-# LINE 5273 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOnr = - ({-# LINE 229 "GenerateCode.ag" #-} - _lhsInr - {-# LINE 5278 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOnt = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 5283 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 5288 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 5293 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 5298 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 5303 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 5308 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 5313 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 5318 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 5323 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 5328 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 5333 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 5338 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 5343 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 5348 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 5353 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 5358 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOparamInstMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamInstMap - {-# LINE 5363 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 5368 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 5373 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOsyn = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 5378 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOterminals = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIterminals - {-# LINE 5383 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOunfoldSemDom = - ({-# LINE 628 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 5388 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOwith_sig = - ({-# LINE 730 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 5393 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOallNts = - ({-# LINE 121 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 5398 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOallPragmas = - ({-# LINE 67 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 5403 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOaroundMap = - ({-# LINE 489 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 5408 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOchildren = - ({-# LINE 355 "GenerateCode.ag" #-} - _lhsIchildren - {-# LINE 5413 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOcon = - ({-# LINE 83 "GenerateCode.ag" #-} - _lhsIcon - {-# LINE 5418 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOcontextMap = - ({-# LINE 109 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 5423 "GenerateCode.hs" #-}) - -- copy rule (chain) - _tlOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _hdIerrors - {-# LINE 5428 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOinh = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 5433 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOinstVisitNrs = - ({-# LINE 469 "GenerateCode.ag" #-} - _lhsIinstVisitNrs - {-# LINE 5438 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOnt = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 5443 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 5448 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 5453 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 5458 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 5463 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 5468 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 5473 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 5478 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 5483 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 5488 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 5493 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 5498 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 5503 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 5508 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 5513 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 5518 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOparamInstMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamInstMap - {-# LINE 5523 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 5528 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 5533 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOsyn = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 5538 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOterminals = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIterminals - {-# LINE 5543 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOunfoldSemDom = - ({-# LINE 628 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 5548 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOwith_sig = - ({-# LINE 730 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 5553 "GenerateCode.hs" #-}) - ( _hdIallTpsFound,_hdIcomments,_hdIdecls,_hdIerrors,_hdIgatherInstVisitNrs,_hdIintra,_hdIintraVars,_hdIsemNames) = - (hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOchildren _hdOcon _hdOcontextMap _hdOerrors _hdOinh _hdOinstVisitNrs _hdOisLast _hdOnextIntra _hdOnextIntraVars _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOwith_sig ) - ( _tlIallTpsFound,_tlIcomments,_tlIdecls,_tlIerrors,_tlIgatherInstVisitNrs,_tlIintra,_tlIintraVars,_tlIisNil,_tlIsemNames) = - (tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOchildren _tlOcon _tlOcontextMap _tlOerrors _tlOinh _tlOinstVisitNrs _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOwith_sig ) - in ( _lhsOallTpsFound,_lhsOcomments,_lhsOdecls,_lhsOerrors,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames))) ) -sem_CVisits_Nil :: T_CVisits -sem_CVisits_Nil = - (T_CVisits (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIchildren - _lhsIcon - _lhsIcontextMap - _lhsIerrors - _lhsIinh - _lhsIinstVisitNrs - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamInstMap - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIterminals - _lhsIunfoldSemDom - _lhsIwith_sig -> - (let _lhsOisNil :: Bool - _lhsOintra :: Exprs - _lhsOintraVars :: (Set String) - _lhsOallTpsFound :: Bool - _lhsOcomments :: ([String]) - _lhsOdecls :: Decls - _lhsOerrors :: (Seq Error) - _lhsOgatherInstVisitNrs :: (Map Identifier Int) - _lhsOsemNames :: ([String]) - -- "GenerateCode.ag"(line 248, column 10) - _lhsOisNil = - ({-# LINE 248 "GenerateCode.ag" #-} - True - {-# LINE 5607 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 268, column 10) - _lhsOintra = - ({-# LINE 268 "GenerateCode.ag" #-} - [] - {-# LINE 5612 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 269, column 10) - _lhsOintraVars = - ({-# LINE 269 "GenerateCode.ag" #-} - Set.empty - {-# LINE 5617 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 727, column 39) - _lhsOallTpsFound = - ({-# LINE 727 "GenerateCode.ag" #-} - True - {-# LINE 5622 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 759, column 52) - _lhsOcomments = - ({-# LINE 759 "GenerateCode.ag" #-} - [] - {-# LINE 5627 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 372, column 33) - _lhsOdecls = - ({-# LINE 372 "GenerateCode.ag" #-} - [] - {-# LINE 5632 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 740, column 32) - _lhsOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - Seq.empty - {-# LINE 5637 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 470, column 44) - _lhsOgatherInstVisitNrs = - ({-# LINE 470 "GenerateCode.ag" #-} - Map.empty - {-# LINE 5642 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 1015, column 61) - _lhsOsemNames = - ({-# LINE 1015 "GenerateCode.ag" #-} - [] - {-# LINE 5647 "GenerateCode.hs" #-}) - in ( _lhsOallTpsFound,_lhsOcomments,_lhsOdecls,_lhsOerrors,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames))) ) --- DeclBlocks -------------------------------------------------- -{- - visit 0: - inherited attributes: - blockNr : Int - lastExprVars : [String] - nextVisitDecls : [Decl] - optCase : Bool - prefix : String - synthesized attributes: - callExpr : Expr - decls : [Decl] - freeVars : [String] - alternatives: - alternative DeclBlock: - child defs : {[Decl]} - child visit : {Decl} - child next : DeclBlocks - visit 0: - local lambdaName : _ - local pragmaDecl : _ - local freeVars : _ - local decl : _ - alternative DeclTerminator: - child defs : {[Decl]} - child result : {Expr} - visit 0: - local lambdaName : _ - local pragmaDecl : _ - local freeVars : _ --} --- cata -sem_DeclBlocks :: DeclBlocks -> - T_DeclBlocks -sem_DeclBlocks (DeclBlock _defs _visit _next ) = - (sem_DeclBlocks_DeclBlock _defs _visit (sem_DeclBlocks _next ) ) -sem_DeclBlocks (DeclTerminator _defs _result ) = - (sem_DeclBlocks_DeclTerminator _defs _result ) --- semantic domain -newtype T_DeclBlocks = T_DeclBlocks (Int -> - ([String]) -> - ([Decl]) -> - Bool -> - String -> - ( Expr,([Decl]),([String]))) -data Inh_DeclBlocks = Inh_DeclBlocks {blockNr_Inh_DeclBlocks :: !(Int),lastExprVars_Inh_DeclBlocks :: !(([String])),nextVisitDecls_Inh_DeclBlocks :: !(([Decl])),optCase_Inh_DeclBlocks :: !(Bool),prefix_Inh_DeclBlocks :: !(String)} -data Syn_DeclBlocks = Syn_DeclBlocks {callExpr_Syn_DeclBlocks :: !(Expr),decls_Syn_DeclBlocks :: !(([Decl])),freeVars_Syn_DeclBlocks :: !(([String]))} -wrap_DeclBlocks :: T_DeclBlocks -> - Inh_DeclBlocks -> - Syn_DeclBlocks -wrap_DeclBlocks (T_DeclBlocks sem ) (Inh_DeclBlocks _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) = - (let ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars) = - (sem _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) - in (Syn_DeclBlocks _lhsOcallExpr _lhsOdecls _lhsOfreeVars )) -sem_DeclBlocks_DeclBlock :: ([Decl]) -> - Decl -> - T_DeclBlocks -> - T_DeclBlocks -sem_DeclBlocks_DeclBlock defs_ visit_ (T_DeclBlocks next_ ) = - (T_DeclBlocks (\ _lhsIblockNr - _lhsIlastExprVars - _lhsInextVisitDecls - _lhsIoptCase - _lhsIprefix -> - (let _nextOblockNr :: Int - _lhsOcallExpr :: Expr - _lhsOdecls :: ([Decl]) - _lhsOfreeVars :: ([String]) - _nextOlastExprVars :: ([String]) - _nextOnextVisitDecls :: ([Decl]) - _nextOoptCase :: Bool - _nextOprefix :: String - _nextIcallExpr :: Expr - _nextIdecls :: ([Decl]) - _nextIfreeVars :: ([String]) - -- "GenerateCode.ag"(line 555, column 7) - _nextOblockNr = - ({-# LINE 555 "GenerateCode.ag" #-} - _lhsIblockNr + 1 - {-# LINE 5728 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 560, column 7) - _lambdaName = - ({-# LINE 560 "GenerateCode.ag" #-} - _lhsIprefix ++ "_block" ++ show _lhsIblockNr - {-# LINE 5733 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 561, column 7) - _pragmaDecl = - ({-# LINE 561 "GenerateCode.ag" #-} - PragmaDecl ("NOINLINE " ++ _lambdaName ) - {-# LINE 5738 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 562, column 7) - _lhsOcallExpr = - ({-# LINE 562 "GenerateCode.ag" #-} - App _lambdaName (map SimpleExpr _freeVars ) - {-# LINE 5743 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 566, column 7) - _freeVars = - ({-# LINE 566 "GenerateCode.ag" #-} - freevars _nextIfreeVars (visit_ : defs_) - {-# LINE 5748 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 573, column 7) - _decl = - ({-# LINE 573 "GenerateCode.ag" #-} - mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ [visit_]) _nextIcallExpr - {-# LINE 5753 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 574, column 7) - _lhsOdecls = - ({-# LINE 574 "GenerateCode.ag" #-} - (if _lhsIblockNr > 1 then [_pragmaDecl ] else []) ++ [_decl ] ++ _nextIdecls - {-# LINE 5758 "GenerateCode.hs" #-}) - -- copy rule (from local) - _lhsOfreeVars = - ({-# LINE 557 "GenerateCode.ag" #-} - _freeVars - {-# LINE 5763 "GenerateCode.hs" #-}) - -- copy rule (down) - _nextOlastExprVars = - ({-# LINE 541 "GenerateCode.ag" #-} - _lhsIlastExprVars - {-# LINE 5768 "GenerateCode.hs" #-}) - -- copy rule (down) - _nextOnextVisitDecls = - ({-# LINE 541 "GenerateCode.ag" #-} - _lhsInextVisitDecls - {-# LINE 5773 "GenerateCode.hs" #-}) - -- copy rule (down) - _nextOoptCase = - ({-# LINE 541 "GenerateCode.ag" #-} - _lhsIoptCase - {-# LINE 5778 "GenerateCode.hs" #-}) - -- copy rule (down) - _nextOprefix = - ({-# LINE 541 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 5783 "GenerateCode.hs" #-}) - ( _nextIcallExpr,_nextIdecls,_nextIfreeVars) = - (next_ _nextOblockNr _nextOlastExprVars _nextOnextVisitDecls _nextOoptCase _nextOprefix ) - in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))) ) -sem_DeclBlocks_DeclTerminator :: ([Decl]) -> - Expr -> - T_DeclBlocks -sem_DeclBlocks_DeclTerminator defs_ result_ = - (T_DeclBlocks (\ _lhsIblockNr - _lhsIlastExprVars - _lhsInextVisitDecls - _lhsIoptCase - _lhsIprefix -> - (let _lhsOcallExpr :: Expr - _lhsOdecls :: ([Decl]) - _lhsOfreeVars :: ([String]) - -- "GenerateCode.ag"(line 560, column 7) - _lambdaName = - ({-# LINE 560 "GenerateCode.ag" #-} - _lhsIprefix ++ "_block" ++ show _lhsIblockNr - {-# LINE 5803 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 561, column 7) - _pragmaDecl = - ({-# LINE 561 "GenerateCode.ag" #-} - PragmaDecl ("NOINLINE " ++ _lambdaName ) - {-# LINE 5808 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 562, column 7) - _lhsOcallExpr = - ({-# LINE 562 "GenerateCode.ag" #-} - App _lambdaName (map SimpleExpr _freeVars ) - {-# LINE 5813 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 564, column 7) - _freeVars = - ({-# LINE 564 "GenerateCode.ag" #-} - freevars _lhsIlastExprVars (defs_ ++ _lhsInextVisitDecls) - {-# LINE 5818 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 571, column 7) - _lhsOdecls = - ({-# LINE 571 "GenerateCode.ag" #-} - [ mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ _lhsInextVisitDecls) result_ ] - {-# LINE 5823 "GenerateCode.hs" #-}) - -- copy rule (from local) - _lhsOfreeVars = - ({-# LINE 557 "GenerateCode.ag" #-} - _freeVars - {-# LINE 5828 "GenerateCode.hs" #-}) - in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))) ) --- DeclBlocksRoot ---------------------------------------------- -{- - visit 0: - inherited attributes: - lastExprVars : [String] - nextVisitDecls : [Decl] - optCase : Bool - prefix : String - synthesized attributes: - firstCall : Expr - lambdas : [Decl] - alternatives: - alternative DeclBlocksRoot: - child blocks : DeclBlocks --} --- cata -sem_DeclBlocksRoot :: DeclBlocksRoot -> - T_DeclBlocksRoot -sem_DeclBlocksRoot (DeclBlocksRoot _blocks ) = - (sem_DeclBlocksRoot_DeclBlocksRoot (sem_DeclBlocks _blocks ) ) --- semantic domain -newtype T_DeclBlocksRoot = T_DeclBlocksRoot (([String]) -> - ([Decl]) -> - Bool -> - String -> - ( Expr,([Decl]))) -data Inh_DeclBlocksRoot = Inh_DeclBlocksRoot {lastExprVars_Inh_DeclBlocksRoot :: !(([String])),nextVisitDecls_Inh_DeclBlocksRoot :: !(([Decl])),optCase_Inh_DeclBlocksRoot :: !(Bool),prefix_Inh_DeclBlocksRoot :: !(String)} -data Syn_DeclBlocksRoot = Syn_DeclBlocksRoot {firstCall_Syn_DeclBlocksRoot :: !(Expr),lambdas_Syn_DeclBlocksRoot :: !(([Decl]))} -wrap_DeclBlocksRoot :: T_DeclBlocksRoot -> - Inh_DeclBlocksRoot -> - Syn_DeclBlocksRoot -wrap_DeclBlocksRoot (T_DeclBlocksRoot sem ) (Inh_DeclBlocksRoot _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) = - (let ( _lhsOfirstCall,_lhsOlambdas) = - (sem _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) - in (Syn_DeclBlocksRoot _lhsOfirstCall _lhsOlambdas )) -sem_DeclBlocksRoot_DeclBlocksRoot :: T_DeclBlocks -> - T_DeclBlocksRoot -sem_DeclBlocksRoot_DeclBlocksRoot (T_DeclBlocks blocks_ ) = - (T_DeclBlocksRoot (\ _lhsIlastExprVars - _lhsInextVisitDecls - _lhsIoptCase - _lhsIprefix -> - (let _lhsOlambdas :: ([Decl]) - _lhsOfirstCall :: Expr - _blocksOblockNr :: Int - _blocksOlastExprVars :: ([String]) - _blocksOnextVisitDecls :: ([Decl]) - _blocksOoptCase :: Bool - _blocksOprefix :: String - _blocksIcallExpr :: Expr - _blocksIdecls :: ([Decl]) - _blocksIfreeVars :: ([String]) - -- "GenerateCode.ag"(line 546, column 7) - _lhsOlambdas = - ({-# LINE 546 "GenerateCode.ag" #-} - _blocksIdecls - {-# LINE 5886 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 547, column 7) - _lhsOfirstCall = - ({-# LINE 547 "GenerateCode.ag" #-} - _blocksIcallExpr - {-# LINE 5891 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 552, column 7) - _blocksOblockNr = - ({-# LINE 552 "GenerateCode.ag" #-} - 1 - {-# LINE 5896 "GenerateCode.hs" #-}) - -- copy rule (down) - _blocksOlastExprVars = - ({-# LINE 541 "GenerateCode.ag" #-} - _lhsIlastExprVars - {-# LINE 5901 "GenerateCode.hs" #-}) - -- copy rule (down) - _blocksOnextVisitDecls = - ({-# LINE 541 "GenerateCode.ag" #-} - _lhsInextVisitDecls - {-# LINE 5906 "GenerateCode.hs" #-}) - -- copy rule (down) - _blocksOoptCase = - ({-# LINE 541 "GenerateCode.ag" #-} - _lhsIoptCase - {-# LINE 5911 "GenerateCode.hs" #-}) - -- copy rule (down) - _blocksOprefix = - ({-# LINE 541 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 5916 "GenerateCode.hs" #-}) - ( _blocksIcallExpr,_blocksIdecls,_blocksIfreeVars) = - (blocks_ _blocksOblockNr _blocksOlastExprVars _blocksOnextVisitDecls _blocksOoptCase _blocksOprefix ) - in ( _lhsOfirstCall,_lhsOlambdas))) ) --- Pattern ----------------------------------------------------- -{- - visit 0: - synthesized attributes: - copy : SELF - definedInsts : [Identifier] - patternAttributes : [(Identifier, Identifier)] - alternatives: - alternative Alias: - child field : {Identifier} - child attr : {Identifier} - child pat : Pattern - child parts : Patterns - visit 0: - local copy : _ - alternative Constr: - child name : {ConstructorIdent} - child pats : Patterns - visit 0: - local copy : _ - alternative Irrefutable: - child pat : Pattern - visit 0: - local copy : _ - alternative Product: - child pos : {Pos} - child pats : Patterns - visit 0: - local copy : _ - alternative Underscore: - child pos : {Pos} - visit 0: - local copy : _ --} --- cata -sem_Pattern :: Pattern -> - T_Pattern -sem_Pattern (Alias _field _attr _pat _parts ) = - (sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) ) -sem_Pattern (Constr _name _pats ) = - (sem_Pattern_Constr _name (sem_Patterns _pats ) ) -sem_Pattern (Irrefutable _pat ) = - (sem_Pattern_Irrefutable (sem_Pattern _pat ) ) -sem_Pattern (Product _pos _pats ) = - (sem_Pattern_Product _pos (sem_Patterns _pats ) ) -sem_Pattern (Underscore _pos ) = - (sem_Pattern_Underscore _pos ) --- semantic domain -newtype T_Pattern = T_Pattern (( Pattern ,([Identifier]),([(Identifier, Identifier)]))) -data Inh_Pattern = Inh_Pattern {} -data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),definedInsts_Syn_Pattern :: !(([Identifier])),patternAttributes_Syn_Pattern :: !(([(Identifier, Identifier)]))} -wrap_Pattern :: T_Pattern -> - Inh_Pattern -> - Syn_Pattern -wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) = - (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = - (sem ) - in (Syn_Pattern _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes )) -sem_Pattern_Alias :: Identifier -> - Identifier -> - T_Pattern -> - T_Patterns -> - T_Pattern -sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) = - (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) - _lhsOpatternAttributes :: ([(Identifier, Identifier)]) - _lhsOcopy :: Pattern - _patIcopy :: Pattern - _patIdefinedInsts :: ([Identifier]) - _patIpatternAttributes :: ([(Identifier, Identifier)]) - _partsIcopy :: Patterns - _partsIdefinedInsts :: ([Identifier]) - _partsIpatternAttributes :: ([(Identifier, Identifier)]) - -- "GenerateCode.ag"(line 214, column 11) - _lhsOdefinedInsts = - ({-# LINE 214 "GenerateCode.ag" #-} - (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts - {-# LINE 5997 "GenerateCode.hs" #-}) - -- "GenerateCode.ag"(line 222, column 7) - _lhsOpatternAttributes = - ({-# LINE 222 "GenerateCode.ag" #-} - (field_,attr_) : (_patIpatternAttributes ++ _partsIpatternAttributes) - {-# LINE 6002 "GenerateCode.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Alias field_ attr_ _patIcopy _partsIcopy - {-# LINE 6007 "GenerateCode.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 6012 "GenerateCode.hs" #-}) - ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) = - (pat_ ) - ( _partsIcopy,_partsIdefinedInsts,_partsIpatternAttributes) = - (parts_ ) - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) -sem_Pattern_Constr :: ConstructorIdent -> - T_Patterns -> - T_Pattern -sem_Pattern_Constr name_ (T_Patterns pats_ ) = - (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) - _lhsOpatternAttributes :: ([(Identifier, Identifier)]) - _lhsOcopy :: Pattern - _patsIcopy :: Patterns - _patsIdefinedInsts :: ([Identifier]) - _patsIpatternAttributes :: ([(Identifier, Identifier)]) - -- use rule "GenerateCode.ag"(line 212, column 55) - _lhsOdefinedInsts = - ({-# LINE 212 "GenerateCode.ag" #-} - _patsIdefinedInsts - {-# LINE 6032 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 219, column 47) - _lhsOpatternAttributes = - ({-# LINE 219 "GenerateCode.ag" #-} - _patsIpatternAttributes - {-# LINE 6037 "GenerateCode.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Constr name_ _patsIcopy - {-# LINE 6042 "GenerateCode.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 6047 "GenerateCode.hs" #-}) - ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) = - (pats_ ) - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) -sem_Pattern_Irrefutable :: T_Pattern -> - T_Pattern -sem_Pattern_Irrefutable (T_Pattern pat_ ) = - (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) - _lhsOpatternAttributes :: ([(Identifier, Identifier)]) - _lhsOcopy :: Pattern - _patIcopy :: Pattern - _patIdefinedInsts :: ([Identifier]) - _patIpatternAttributes :: ([(Identifier, Identifier)]) - -- use rule "GenerateCode.ag"(line 212, column 55) - _lhsOdefinedInsts = - ({-# LINE 212 "GenerateCode.ag" #-} - _patIdefinedInsts - {-# LINE 6064 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 219, column 47) - _lhsOpatternAttributes = - ({-# LINE 219 "GenerateCode.ag" #-} - _patIpatternAttributes - {-# LINE 6069 "GenerateCode.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Irrefutable _patIcopy - {-# LINE 6074 "GenerateCode.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 6079 "GenerateCode.hs" #-}) - ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) = - (pat_ ) - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) -sem_Pattern_Product :: Pos -> - T_Patterns -> - T_Pattern -sem_Pattern_Product pos_ (T_Patterns pats_ ) = - (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) - _lhsOpatternAttributes :: ([(Identifier, Identifier)]) - _lhsOcopy :: Pattern - _patsIcopy :: Patterns - _patsIdefinedInsts :: ([Identifier]) - _patsIpatternAttributes :: ([(Identifier, Identifier)]) - -- use rule "GenerateCode.ag"(line 212, column 55) - _lhsOdefinedInsts = - ({-# LINE 212 "GenerateCode.ag" #-} - _patsIdefinedInsts - {-# LINE 6097 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 219, column 47) - _lhsOpatternAttributes = - ({-# LINE 219 "GenerateCode.ag" #-} - _patsIpatternAttributes - {-# LINE 6102 "GenerateCode.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Product pos_ _patsIcopy - {-# LINE 6107 "GenerateCode.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 6112 "GenerateCode.hs" #-}) - ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) = - (pats_ ) - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) -sem_Pattern_Underscore :: Pos -> - T_Pattern -sem_Pattern_Underscore pos_ = - (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) - _lhsOpatternAttributes :: ([(Identifier, Identifier)]) - _lhsOcopy :: Pattern - -- use rule "GenerateCode.ag"(line 212, column 55) - _lhsOdefinedInsts = - ({-# LINE 212 "GenerateCode.ag" #-} - [] - {-# LINE 6126 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 219, column 47) - _lhsOpatternAttributes = - ({-# LINE 219 "GenerateCode.ag" #-} - [] - {-# LINE 6131 "GenerateCode.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Underscore pos_ - {-# LINE 6136 "GenerateCode.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 6141 "GenerateCode.hs" #-}) - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) --- Patterns ---------------------------------------------------- -{- - visit 0: - synthesized attributes: - copy : SELF - definedInsts : [Identifier] - patternAttributes : [(Identifier, Identifier)] - alternatives: - alternative Cons: - child hd : Pattern - child tl : Patterns - visit 0: - local copy : _ - alternative Nil: - visit 0: - local copy : _ --} --- cata -sem_Patterns :: Patterns -> - T_Patterns -sem_Patterns list = - (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) ) --- semantic domain -newtype T_Patterns = T_Patterns (( Patterns ,([Identifier]),([(Identifier, Identifier)]))) -data Inh_Patterns = Inh_Patterns {} -data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),definedInsts_Syn_Patterns :: !(([Identifier])),patternAttributes_Syn_Patterns :: !(([(Identifier, Identifier)]))} -wrap_Patterns :: T_Patterns -> - Inh_Patterns -> - Syn_Patterns -wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) = - (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = - (sem ) - in (Syn_Patterns _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes )) -sem_Patterns_Cons :: T_Pattern -> - T_Patterns -> - T_Patterns -sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) = - (T_Patterns (let _lhsOdefinedInsts :: ([Identifier]) - _lhsOpatternAttributes :: ([(Identifier, Identifier)]) - _lhsOcopy :: Patterns - _hdIcopy :: Pattern - _hdIdefinedInsts :: ([Identifier]) - _hdIpatternAttributes :: ([(Identifier, Identifier)]) - _tlIcopy :: Patterns - _tlIdefinedInsts :: ([Identifier]) - _tlIpatternAttributes :: ([(Identifier, Identifier)]) - -- use rule "GenerateCode.ag"(line 212, column 55) - _lhsOdefinedInsts = - ({-# LINE 212 "GenerateCode.ag" #-} - _hdIdefinedInsts ++ _tlIdefinedInsts - {-# LINE 6193 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 219, column 47) - _lhsOpatternAttributes = - ({-# LINE 219 "GenerateCode.ag" #-} - _hdIpatternAttributes ++ _tlIpatternAttributes - {-# LINE 6198 "GenerateCode.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 6203 "GenerateCode.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 6208 "GenerateCode.hs" #-}) - ( _hdIcopy,_hdIdefinedInsts,_hdIpatternAttributes) = - (hd_ ) - ( _tlIcopy,_tlIdefinedInsts,_tlIpatternAttributes) = - (tl_ ) - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) -sem_Patterns_Nil :: T_Patterns -sem_Patterns_Nil = - (T_Patterns (let _lhsOdefinedInsts :: ([Identifier]) - _lhsOpatternAttributes :: ([(Identifier, Identifier)]) - _lhsOcopy :: Patterns - -- use rule "GenerateCode.ag"(line 212, column 55) - _lhsOdefinedInsts = - ({-# LINE 212 "GenerateCode.ag" #-} - [] - {-# LINE 6223 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 219, column 47) - _lhsOpatternAttributes = - ({-# LINE 219 "GenerateCode.ag" #-} - [] - {-# LINE 6228 "GenerateCode.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - [] - {-# LINE 6233 "GenerateCode.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 6238 "GenerateCode.hs" #-}) - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) --- Sequence ---------------------------------------------------- -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - aroundMap : Set Identifier - children : [(Identifier,Type,Bool)] - con : ConstructorIdent - higherOrderChildren : [(Identifier,Type,Bool)] - inh : Attributes - instVisitNrs : Map Identifier Int - lastExpr : Expr - nr : Int - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - paramInstMap : Map Identifier (NontermIdent, [String]) - paramMap : ParamMap - prefix : String - syn : Attributes - terminals : [Identifier] - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - what : String - chained attributes: - declsAbove : [Decl] - errors : Seq Error - synthesized attributes: - allTpsFound : Bool - blockDecls : DeclBlocks - comments : [String] - decls : Decls - definedInsts : [Identifier] - exprs : Exprs - tSigs : [Decl] - tps : [Type] - usedVars : Set String - alternatives: - alternative Cons: - child hd : CRule - child tl : Sequence - alternative Nil: --} --- cata -sem_Sequence :: Sequence -> - T_Sequence -sem_Sequence list = - (Prelude.foldr sem_Sequence_Cons sem_Sequence_Nil (Prelude.map sem_CRule list) ) --- semantic domain -newtype T_Sequence = T_Sequence ((Set NontermIdent) -> - (Set Identifier) -> - ([(Identifier,Type,Bool)]) -> - ConstructorIdent -> - ([Decl]) -> - (Seq Error) -> - ([(Identifier,Type,Bool)]) -> - Attributes -> - (Map Identifier Int) -> - Expr -> - Int -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - (Map Identifier (NontermIdent, [String])) -> - ParamMap -> - String -> - Attributes -> - ([Identifier]) -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - String -> - ( Bool,DeclBlocks ,([String]),Decls,([Decl]),([Identifier]),(Seq Error),Exprs,([Decl]),([Type]),(Set String))) -data Inh_Sequence = Inh_Sequence {allNts_Inh_Sequence :: !((Set NontermIdent)),aroundMap_Inh_Sequence :: !((Set Identifier)),children_Inh_Sequence :: !(([(Identifier,Type,Bool)])),con_Inh_Sequence :: !(ConstructorIdent),declsAbove_Inh_Sequence :: !(([Decl])),errors_Inh_Sequence :: !((Seq Error)),higherOrderChildren_Inh_Sequence :: !(([(Identifier,Type,Bool)])),inh_Inh_Sequence :: !(Attributes),instVisitNrs_Inh_Sequence :: !((Map Identifier Int)),lastExpr_Inh_Sequence :: !(Expr),nr_Inh_Sequence :: !(Int),nt_Inh_Sequence :: !(NontermIdent),o_case_Inh_Sequence :: !(Bool),o_cata_Inh_Sequence :: !(Bool),o_costcentre_Inh_Sequence :: !(Bool),o_data_Inh_Sequence :: !((Maybe Bool)),o_linePragmas_Inh_Sequence :: !(Bool),o_monadic_Inh_Sequence :: !(Bool),o_newtypes_Inh_Sequence :: !(Bool),o_pretty_Inh_Sequence :: !(Bool),o_rename_Inh_Sequence :: !(Bool),o_sem_Inh_Sequence :: !(Bool),o_sig_Inh_Sequence :: !(Bool),o_splitsems_Inh_Sequence :: !(Bool),o_strictwrap_Inh_Sequence :: !(Bool),o_traces_Inh_Sequence :: !(Bool),o_unbox_Inh_Sequence :: !(Bool),paramInstMap_Inh_Sequence :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_Sequence :: !(ParamMap),prefix_Inh_Sequence :: !(String),syn_Inh_Sequence :: !(Attributes),terminals_Inh_Sequence :: !(([Identifier])),unfoldSemDom_Inh_Sequence :: !((NontermIdent -> Int -> [String] -> Code.Type)),what_Inh_Sequence :: !(String)} -data Syn_Sequence = Syn_Sequence {allTpsFound_Syn_Sequence :: !(Bool),blockDecls_Syn_Sequence :: !(DeclBlocks ),comments_Syn_Sequence :: !(([String])),decls_Syn_Sequence :: !(Decls),declsAbove_Syn_Sequence :: !(([Decl])),definedInsts_Syn_Sequence :: !(([Identifier])),errors_Syn_Sequence :: !((Seq Error)),exprs_Syn_Sequence :: !(Exprs),tSigs_Syn_Sequence :: !(([Decl])),tps_Syn_Sequence :: !(([Type])),usedVars_Syn_Sequence :: !((Set String))} -wrap_Sequence :: T_Sequence -> - Inh_Sequence -> - Syn_Sequence -wrap_Sequence (T_Sequence sem ) (Inh_Sequence _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIerrors _lhsIhigherOrderChildren _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwhat ) = - (let ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOerrors,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars) = - (sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIerrors _lhsIhigherOrderChildren _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwhat ) - in (Syn_Sequence _lhsOallTpsFound _lhsOblockDecls _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOerrors _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars )) -sem_Sequence_Cons :: T_CRule -> - T_Sequence -> - T_Sequence -sem_Sequence_Cons (T_CRule hd_ ) (T_Sequence tl_ ) = - (T_Sequence (\ _lhsIallNts - _lhsIaroundMap - _lhsIchildren - _lhsIcon - _lhsIdeclsAbove - _lhsIerrors - _lhsIhigherOrderChildren - _lhsIinh - _lhsIinstVisitNrs - _lhsIlastExpr - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamInstMap - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIterminals - _lhsIunfoldSemDom - _lhsIwhat -> - (let _lhsOblockDecls :: DeclBlocks - _lhsOallTpsFound :: Bool - _lhsOcomments :: ([String]) - _lhsOdecls :: Decls - _lhsOdefinedInsts :: ([Identifier]) - _lhsOerrors :: (Seq Error) - _lhsOexprs :: Exprs - _lhsOtSigs :: ([Decl]) - _lhsOtps :: ([Type]) - _lhsOusedVars :: (Set String) - _lhsOdeclsAbove :: ([Decl]) - _hdOallNts :: (Set NontermIdent) - _hdOaroundMap :: (Set Identifier) - _hdOchildren :: ([(Identifier,Type,Bool)]) - _hdOcon :: ConstructorIdent - _hdOdeclsAbove :: ([Decl]) - _hdOerrors :: (Seq Error) - _hdOhigherOrderChildren :: ([(Identifier,Type,Bool)]) - _hdOinh :: Attributes - _hdOinstVisitNrs :: (Map Identifier Int) - _hdOnr :: Int - _hdOnt :: NontermIdent - _hdOo_case :: Bool - _hdOo_cata :: Bool - _hdOo_costcentre :: Bool - _hdOo_data :: (Maybe Bool) - _hdOo_linePragmas :: Bool - _hdOo_monadic :: Bool - _hdOo_newtypes :: Bool - _hdOo_pretty :: Bool - _hdOo_rename :: Bool - _hdOo_sem :: Bool - _hdOo_sig :: Bool - _hdOo_splitsems :: Bool - _hdOo_strictwrap :: Bool - _hdOo_traces :: Bool - _hdOo_unbox :: Bool - _hdOparamInstMap :: (Map Identifier (NontermIdent, [String])) - _hdOparamMap :: ParamMap - _hdOprefix :: String - _hdOsyn :: Attributes - _hdOterminals :: ([Identifier]) - _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _hdOwhat :: String - _tlOallNts :: (Set NontermIdent) - _tlOaroundMap :: (Set Identifier) - _tlOchildren :: ([(Identifier,Type,Bool)]) - _tlOcon :: ConstructorIdent - _tlOdeclsAbove :: ([Decl]) - _tlOerrors :: (Seq Error) - _tlOhigherOrderChildren :: ([(Identifier,Type,Bool)]) - _tlOinh :: Attributes - _tlOinstVisitNrs :: (Map Identifier Int) - _tlOlastExpr :: Expr - _tlOnr :: Int - _tlOnt :: NontermIdent - _tlOo_case :: Bool - _tlOo_cata :: Bool - _tlOo_costcentre :: Bool - _tlOo_data :: (Maybe Bool) - _tlOo_linePragmas :: Bool - _tlOo_monadic :: Bool - _tlOo_newtypes :: Bool - _tlOo_pretty :: Bool - _tlOo_rename :: Bool - _tlOo_sem :: Bool - _tlOo_sig :: Bool - _tlOo_splitsems :: Bool - _tlOo_strictwrap :: Bool - _tlOo_traces :: Bool - _tlOo_unbox :: Bool - _tlOparamInstMap :: (Map Identifier (NontermIdent, [String])) - _tlOparamMap :: ParamMap - _tlOprefix :: String - _tlOsyn :: Attributes - _tlOterminals :: ([Identifier]) - _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _tlOwhat :: String - _hdIallTpsFound :: Bool - _hdIbldBlocksFun :: (DeclBlocks -> DeclBlocks) - _hdIcomments :: ([String]) - _hdIdecls :: Decls - _hdIdeclsAbove :: ([Decl]) - _hdIdefinedInsts :: ([Identifier]) - _hdIerrors :: (Seq Error) - _hdIexprs :: Exprs - _hdItSigs :: ([Decl]) - _hdItps :: ([Type]) - _hdIusedVars :: (Set String) - _tlIallTpsFound :: Bool - _tlIblockDecls :: DeclBlocks - _tlIcomments :: ([String]) - _tlIdecls :: Decls - _tlIdeclsAbove :: ([Decl]) - _tlIdefinedInsts :: ([Identifier]) - _tlIerrors :: (Seq Error) - _tlIexprs :: Exprs - _tlItSigs :: ([Decl]) - _tlItps :: ([Type]) - _tlIusedVars :: (Set String) - -- "GenerateCode.ag"(line 515, column 7) - _lhsOblockDecls = - ({-# LINE 515 "GenerateCode.ag" #-} - _hdIbldBlocksFun _tlIblockDecls - {-# LINE 6487 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 361, column 39) - _lhsOallTpsFound = - ({-# LINE 361 "GenerateCode.ag" #-} - _hdIallTpsFound && _tlIallTpsFound - {-# LINE 6492 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 759, column 52) - _lhsOcomments = - ({-# LINE 759 "GenerateCode.ag" #-} - _hdIcomments ++ _tlIcomments - {-# LINE 6497 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 139, column 34) - _lhsOdecls = - ({-# LINE 139 "GenerateCode.ag" #-} - _hdIdecls ++ _tlIdecls - {-# LINE 6502 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 212, column 55) - _lhsOdefinedInsts = - ({-# LINE 212 "GenerateCode.ag" #-} - _hdIdefinedInsts ++ _tlIdefinedInsts - {-# LINE 6507 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 740, column 32) - _lhsOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 6512 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 285, column 34) - _lhsOexprs = - ({-# LINE 285 "GenerateCode.ag" #-} - _hdIexprs ++ _tlIexprs - {-# LINE 6517 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 314, column 33) - _lhsOtSigs = - ({-# LINE 314 "GenerateCode.ag" #-} - _hdItSigs ++ _tlItSigs - {-# LINE 6522 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 360, column 31) - _lhsOtps = - ({-# LINE 360 "GenerateCode.ag" #-} - _hdItps ++ _tlItps - {-# LINE 6527 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 303, column 37) - _lhsOusedVars = - ({-# LINE 303 "GenerateCode.ag" #-} - _hdIusedVars `Set.union` _tlIusedVars - {-# LINE 6532 "GenerateCode.hs" #-}) - -- copy rule (up) - _lhsOdeclsAbove = - ({-# LINE 501 "GenerateCode.ag" #-} - _tlIdeclsAbove - {-# LINE 6537 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOallNts = - ({-# LINE 121 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 6542 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOaroundMap = - ({-# LINE 489 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 6547 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOchildren = - ({-# LINE 355 "GenerateCode.ag" #-} - _lhsIchildren - {-# LINE 6552 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOcon = - ({-# LINE 83 "GenerateCode.ag" #-} - _lhsIcon - {-# LINE 6557 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOdeclsAbove = - ({-# LINE 501 "GenerateCode.ag" #-} - _lhsIdeclsAbove - {-# LINE 6562 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _lhsIerrors - {-# LINE 6567 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOhigherOrderChildren = - ({-# LINE 210 "GenerateCode.ag" #-} - _lhsIhigherOrderChildren - {-# LINE 6572 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOinh = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 6577 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOinstVisitNrs = - ({-# LINE 469 "GenerateCode.ag" #-} - _lhsIinstVisitNrs - {-# LINE 6582 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOnr = - ({-# LINE 229 "GenerateCode.ag" #-} - _lhsInr - {-# LINE 6587 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOnt = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 6592 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 6597 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 6602 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 6607 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 6612 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 6617 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 6622 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 6627 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 6632 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 6637 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 6642 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 6647 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 6652 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 6657 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 6662 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 6667 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOparamInstMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamInstMap - {-# LINE 6672 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 6677 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 6682 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOsyn = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 6687 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOterminals = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIterminals - {-# LINE 6692 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOunfoldSemDom = - ({-# LINE 628 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 6697 "GenerateCode.hs" #-}) - -- copy rule (down) - _hdOwhat = - ({-# LINE 761 "GenerateCode.ag" #-} - _lhsIwhat - {-# LINE 6702 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOallNts = - ({-# LINE 121 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 6707 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOaroundMap = - ({-# LINE 489 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 6712 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOchildren = - ({-# LINE 355 "GenerateCode.ag" #-} - _lhsIchildren - {-# LINE 6717 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOcon = - ({-# LINE 83 "GenerateCode.ag" #-} - _lhsIcon - {-# LINE 6722 "GenerateCode.hs" #-}) - -- copy rule (chain) - _tlOdeclsAbove = - ({-# LINE 501 "GenerateCode.ag" #-} - _hdIdeclsAbove - {-# LINE 6727 "GenerateCode.hs" #-}) - -- copy rule (chain) - _tlOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - _hdIerrors - {-# LINE 6732 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOhigherOrderChildren = - ({-# LINE 210 "GenerateCode.ag" #-} - _lhsIhigherOrderChildren - {-# LINE 6737 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOinh = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 6742 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOinstVisitNrs = - ({-# LINE 469 "GenerateCode.ag" #-} - _lhsIinstVisitNrs - {-# LINE 6747 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOlastExpr = - ({-# LINE 499 "GenerateCode.ag" #-} - _lhsIlastExpr - {-# LINE 6752 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOnr = - ({-# LINE 229 "GenerateCode.ag" #-} - _lhsInr - {-# LINE 6757 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOnt = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 6762 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_case = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 6767 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_cata = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 6772 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_costcentre = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 6777 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_data = - ({-# LINE 46 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 6782 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_linePragmas = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 6787 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_monadic = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 6792 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_newtypes = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 6797 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_pretty = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 6802 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_rename = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 6807 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_sem = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 6812 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_sig = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 6817 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_splitsems = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 6822 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_strictwrap = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 6827 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_traces = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 6832 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOo_unbox = - ({-# LINE 45 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 6837 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOparamInstMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamInstMap - {-# LINE 6842 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOparamMap = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 6847 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOprefix = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 6852 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOsyn = - ({-# LINE 78 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 6857 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOterminals = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIterminals - {-# LINE 6862 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOunfoldSemDom = - ({-# LINE 628 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 6867 "GenerateCode.hs" #-}) - -- copy rule (down) - _tlOwhat = - ({-# LINE 761 "GenerateCode.ag" #-} - _lhsIwhat - {-# LINE 6872 "GenerateCode.hs" #-}) - ( _hdIallTpsFound,_hdIbldBlocksFun,_hdIcomments,_hdIdecls,_hdIdeclsAbove,_hdIdefinedInsts,_hdIerrors,_hdIexprs,_hdItSigs,_hdItps,_hdIusedVars) = - (hd_ _hdOallNts _hdOaroundMap _hdOchildren _hdOcon _hdOdeclsAbove _hdOerrors _hdOhigherOrderChildren _hdOinh _hdOinstVisitNrs _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOwhat ) - ( _tlIallTpsFound,_tlIblockDecls,_tlIcomments,_tlIdecls,_tlIdeclsAbove,_tlIdefinedInsts,_tlIerrors,_tlIexprs,_tlItSigs,_tlItps,_tlIusedVars) = - (tl_ _tlOallNts _tlOaroundMap _tlOchildren _tlOcon _tlOdeclsAbove _tlOerrors _tlOhigherOrderChildren _tlOinh _tlOinstVisitNrs _tlOlastExpr _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOwhat ) - in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOerrors,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars))) ) -sem_Sequence_Nil :: T_Sequence -sem_Sequence_Nil = - (T_Sequence (\ _lhsIallNts - _lhsIaroundMap - _lhsIchildren - _lhsIcon - _lhsIdeclsAbove - _lhsIerrors - _lhsIhigherOrderChildren - _lhsIinh - _lhsIinstVisitNrs - _lhsIlastExpr - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIparamInstMap - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIterminals - _lhsIunfoldSemDom - _lhsIwhat -> - (let _lhsOblockDecls :: DeclBlocks - _lhsOallTpsFound :: Bool - _lhsOcomments :: ([String]) - _lhsOdecls :: Decls - _lhsOdefinedInsts :: ([Identifier]) - _lhsOerrors :: (Seq Error) - _lhsOexprs :: Exprs - _lhsOtSigs :: ([Decl]) - _lhsOtps :: ([Type]) - _lhsOusedVars :: (Set String) - _lhsOdeclsAbove :: ([Decl]) - -- "GenerateCode.ag"(line 517, column 7) - _lhsOblockDecls = - ({-# LINE 517 "GenerateCode.ag" #-} - DeclTerminator _lhsIdeclsAbove _lhsIlastExpr - {-# LINE 6929 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 361, column 39) - _lhsOallTpsFound = - ({-# LINE 361 "GenerateCode.ag" #-} - True - {-# LINE 6934 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 759, column 52) - _lhsOcomments = - ({-# LINE 759 "GenerateCode.ag" #-} - [] - {-# LINE 6939 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 139, column 34) - _lhsOdecls = - ({-# LINE 139 "GenerateCode.ag" #-} - [] - {-# LINE 6944 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 212, column 55) - _lhsOdefinedInsts = - ({-# LINE 212 "GenerateCode.ag" #-} - [] - {-# LINE 6949 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 740, column 32) - _lhsOerrors = - ({-# LINE 740 "GenerateCode.ag" #-} - Seq.empty - {-# LINE 6954 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 285, column 34) - _lhsOexprs = - ({-# LINE 285 "GenerateCode.ag" #-} - [] - {-# LINE 6959 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 314, column 33) - _lhsOtSigs = - ({-# LINE 314 "GenerateCode.ag" #-} - [] - {-# LINE 6964 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 360, column 31) - _lhsOtps = - ({-# LINE 360 "GenerateCode.ag" #-} - [] - {-# LINE 6969 "GenerateCode.hs" #-}) - -- use rule "GenerateCode.ag"(line 303, column 37) - _lhsOusedVars = - ({-# LINE 303 "GenerateCode.ag" #-} - Set.empty - {-# LINE 6974 "GenerateCode.hs" #-}) - -- copy rule (chain) - _lhsOdeclsAbove = - ({-# LINE 501 "GenerateCode.ag" #-} - _lhsIdeclsAbove - {-# LINE 6979 "GenerateCode.hs" #-}) - in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOerrors,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars))) ) +-- UUAGC 0.9.21 (GenerateCode.ag) +module GenerateCode where +{-# LINE 9 "GenerateCode.ag" #-} + +import CommonTypes +import SequentialTypes +import Code hiding (Type) +import qualified Code +import Options +import CodeSyntax +import ErrorMessages +import GrammarInfo +import DeclBlocks + +import qualified Data.Map as Map +import Data.Map(Map) +import qualified Data.Set as Set +import Data.Set(Set) +import qualified Data.Sequence as Seq +import Data.Sequence(Seq) +import UU.Scanner.Position +import TokenDef +import HsToken +import HsTokenScanner + +import Data.List(partition,intersperse,intersect,(\\)) +import Maybe(fromJust,isJust) +{-# LINE 31 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 2 "./CodeSyntax.ag" #-} + +import Patterns +import CommonTypes +import Data.Map(Map) +import Data.Set(Set) +{-# LINE 39 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 2 "./Patterns.ag" #-} + +-- Patterns.ag imports +import UU.Scanner.Position(Pos) +import CommonTypes (ConstructorIdent,Identifier) +{-# LINE 46 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 2 "./DeclBlocks.ag" #-} + +import Code (Decl,Expr) +{-# LINE 51 "../src-derived/GenerateCode.hs" #-} +{-# LINE 101 "GenerateCode.ag" #-} + +-- remove possible @v references in the types of a data type. +cleanupArg :: String -> String +cleanupArg s + = case idEvalType (SimpleType s) of + SimpleType s' -> s' +{-# LINE 59 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 115 "GenerateCode.ag" #-} + +appContext :: ContextMap -> NontermIdent -> Code.Type -> Code.Type +appContext mp nt tp + = maybe tp (\ctx -> CtxApp (map (\(n,ns) -> (getName n, ns)) ctx) tp) $ Map.lookup nt mp +{-# LINE 66 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 209 "GenerateCode.ag" #-} + +mkDecl True lhs rhs _ _ = Bind lhs rhs +mkDecl False lhs rhs s1 s2 = Decl lhs rhs s1 s2 + +unwrapSem :: Bool -> NontermIdent -> Expr -> Expr +unwrapSem False _ e = e +unwrapSem True nm e = Case e alts + where alts = [CaseAlt left right] + left = Fun (typeName nm 0) [SimpleExpr "x"] + right = SimpleExpr "x" +{-# LINE 79 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 375 "GenerateCode.ag" #-} + +substSelf nt tp = case tp of + NT t tps | t == _SELF -> Haskell (getName nt ++ " " ++ unwords tps) + _ -> tp +{-# LINE 86 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 497 "GenerateCode.ag" #-} + +mkLambdaArg :: String -> Maybe Code.Type -> Expr +mkLambdaArg nm Nothing = SimpleExpr nm +mkLambdaArg nm (Just tp) = TypedExpr (SimpleExpr nm) tp + +mkLambda :: Exprs -> Expr -> Expr +mkLambda [] e = e +mkLambda xs e = Lambda xs e + +typeAppStrs nm params = TypeApp (SimpleType nm) (map SimpleType params) + +isHigherOrder :: Maybe (Maybe Type) -> Bool +isHigherOrder (Just Nothing) = True +isHigherOrder _ = False + +pickOrigType :: (Identifier, Type, Maybe (Maybe Type)) -> (Identifier, Type, Maybe (Maybe Type)) +pickOrigType (nm, tp, virt@(Just (Just x))) = (nm, x, virt) +pickOrigType x = x +{-# LINE 107 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 574 "GenerateCode.ag" #-} + +mkPartitionedFunction :: String -> Bool -> [Decl] -> [String] -> DeclBlocks -> ([Decl], Expr) +mkPartitionedFunction prefix optCase nextVisitDecls lastExprVars cpsTree + = let inh = Inh_DeclBlocksRoot { prefix_Inh_DeclBlocksRoot = prefix + , optCase_Inh_DeclBlocksRoot = optCase + , nextVisitDecls_Inh_DeclBlocksRoot = nextVisitDecls + , lastExprVars_Inh_DeclBlocksRoot = lastExprVars + } + sem = sem_DeclBlocksRoot (DeclBlocksRoot cpsTree) + syn = wrap_DeclBlocksRoot sem inh + in (lambdas_Syn_DeclBlocksRoot syn, firstCall_Syn_DeclBlocksRoot syn) +{-# LINE 121 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 624 "GenerateCode.ag" #-} + +freevars :: [String] -> [Decl] -> [String] +freevars additional decls + = Set.toList (allused `Set.difference` alldefined) + where + allused = Set.unions (Set.fromList additional : map usedvars decls) + alldefined = Set.unions (map definedvars decls) + + usedvars (Decl _ _ _ uses) = uses + usedvars _ = Set.empty + + definedvars (Decl _ _ defs _) = defs + definedvars _ = Set.empty + +mkBlockLambda :: Bool -> String -> [String] -> [Decl] -> Expr -> Decl +mkBlockLambda optCase name args decls expr + = Decl lhs rhs Set.empty Set.empty + where + lhs = Fun name (map SimpleExpr args) + rhs = mkLet optCase decls expr +{-# LINE 144 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 687 "GenerateCode.ag" #-} + +typeToCodeType :: Maybe NontermIdent -> [String] -> Type -> Code.Type +typeToCodeType mbNt params tp + = case tp of + NT nt tps | nt == _SELF -> NontermType (maybe "Unknown" getName mbNt) params + | otherwise -> NontermType (getName nt) tps + Haskell t -> SimpleType t + +evalType :: (String -> String) -> Code.Type -> Code.Type +evalType replf t + = chase t + where + chase t + = case t of + Arr l r -> Arr (chase l) (chase r) + TypeApp f as -> TypeApp (chase f) (map chase as) + TupleType tps -> TupleType (map chase tps) + UnboxedTupleType tps -> UnboxedTupleType (map chase tps) + Code.List tp -> Code.List (chase tp) + SimpleType txt -> let tks = lexTokens (initPos txt) txt + tks' = map replaceTok tks + txt' = unlines . showTokens . tokensToStrings $ tks' + in SimpleType txt' + TMaybe m -> TMaybe (chase m) + TEither l r -> TEither (chase l) (chase r) + TMap k v -> TMap (chase k) (chase v) + TIntMap v -> TIntMap (chase v) + _ -> t + + replaceTok t + = case t of + AGLocal v p _ -> HsToken (replf $ getName v) p + _ -> t + +idEvalType :: Code.Type -> Code.Type +idEvalType = evalType id +{-# LINE 183 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 810 "GenerateCode.ag" #-} + +-- for a virtual child that already existed as a child, returns +isFirstOrder :: Maybe (Maybe Type) -> Type -> Maybe Type +isFirstOrder Nothing tp = Just tp +isFirstOrder (Just x) _ = x +{-# LINE 191 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 830 "GenerateCode.ag" #-} + +makeLocalComment :: Int -> String -> Identifier -> Maybe Type -> String +makeLocalComment width what name tp = let x = getName name + y = maybe "_" (\t -> case t of (NT nt tps) -> getName nt ++ " " ++ unwords tps; Haskell t -> '{':t++"}") tp + in ( what ++ " " ++ x ++ replicate ((width - length x) `max` 0) ' ' ++ " : " ++ y ) + +{-# LINE 200 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 861 "GenerateCode.ag" #-} + +-- Lets or nested Cases? +-- or even a do-expression? + +data DeclsType = DeclsLet | DeclsCase | DeclsDo + +mkDecls :: DeclsType -> Decls -> Expr -> Expr +mkDecls DeclsLet = mkLet False +mkDecls DeclsCase = mkLet True +mkDecls DeclsDo = \decls -> Do (map toBind decls) + where toBind (Decl lhs rhs _ _) = BindLet lhs rhs + toBind d = d + +mkLet :: Bool -> Decls -> Expr -> Expr +mkLet False decls body = Let decls body +mkLet True decls body = foldr oneCase body decls + +oneCase :: Decl -> Expr -> Expr +oneCase (Decl left rhs _ _) exp = Case rhs [CaseAlt left exp] +oneCase _ exp = exp + +-- Gives the name of the visit function +funname field 0 = show field ++ "_" +funname field nr = show field ++ "_" ++ show nr + +-- Gives the name of a semantic function +seqSemname :: String -> NontermIdent -> ConstructorIdent -> Int -> String +seqSemname pre nt con 0 = semname pre nt con +seqSemname pre nt con nr = semname pre nt con ++ "_" ++ show nr + +-- Gives the name of a type +typeName :: NontermIdent -> Int -> String +typeName nt 0 = "T_" ++ show nt +typeName nt n = "T_" ++ show nt ++ "_" ++ show n + +ntOfVisit :: NontermIdent -> Int -> NontermIdent +ntOfVisit nt 0 = nt +ntOfVisit nt n = Ident (show nt ++ "_" ++ show n) (getPos nt) + +-- Gives the name of a visit function +visitname :: String -> NontermIdent -> Int -> String +visitname pre nt n = pre ++ getName nt ++ "_" ++ show n +{-# LINE 245 "../src-derived/GenerateCode.hs" #-} +-- CGrammar ---------------------------------------------------- +{- + visit 0: + inherited attribute: + options : Options + synthesized attributes: + errors : Seq Error + output : Program + alternatives: + alternative CGrammar: + child typeSyns : {TypeSyns} + child derivings : {Derivings} + child wrappers : {Set NontermIdent} + child nonts : CNonterminals + child pragmas : {PragmaMap} + child paramMap : {ParamMap} + child contextMap : {ContextMap} + child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Set Identifier))} + visit 0: + local aroundMap : _ + local unfoldSemDom : _ +-} +-- cata +sem_CGrammar :: CGrammar -> + T_CGrammar +sem_CGrammar (CGrammar _typeSyns _derivings _wrappers _nonts _pragmas _paramMap _contextMap _aroundsMap ) = + (sem_CGrammar_CGrammar _typeSyns _derivings _wrappers (sem_CNonterminals _nonts ) _pragmas _paramMap _contextMap _aroundsMap ) +-- semantic domain +newtype T_CGrammar = T_CGrammar (Options -> + ( (Seq Error),Program)) +data Inh_CGrammar = Inh_CGrammar {options_Inh_CGrammar :: !(Options)} +data Syn_CGrammar = Syn_CGrammar {errors_Syn_CGrammar :: !(Seq Error),output_Syn_CGrammar :: !(Program)} +wrap_CGrammar :: T_CGrammar -> + Inh_CGrammar -> + Syn_CGrammar +wrap_CGrammar (T_CGrammar sem ) (Inh_CGrammar _lhsIoptions ) = + (let ( _lhsOerrors,_lhsOoutput) = + (sem _lhsIoptions ) + in (Syn_CGrammar _lhsOerrors _lhsOoutput )) +sem_CGrammar_CGrammar :: TypeSyns -> + Derivings -> + (Set NontermIdent) -> + T_CNonterminals -> + PragmaMap -> + ParamMap -> + ContextMap -> + (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> + T_CGrammar +sem_CGrammar_CGrammar typeSyns_ derivings_ wrappers_ (T_CNonterminals nonts_ ) pragmas_ paramMap_ contextMap_ aroundsMap_ = + (T_CGrammar (\ _lhsIoptions -> + (let _nontsOo_sig :: Bool + _nontsOo_cata :: Bool + _nontsOo_sem :: Bool + _nontsOo_newtypes :: Bool + _nontsOo_unbox :: Bool + _nontsOo_case :: Bool + _nontsOo_pretty :: Bool + _nontsOo_rename :: Bool + _nontsOo_strictwrap :: Bool + _nontsOo_splitsems :: Bool + _nontsOo_data :: (Maybe Bool) + _nontsOprefix :: String + _nontsOo_traces :: Bool + _nontsOo_costcentre :: Bool + _nontsOo_linePragmas :: Bool + _nontsOo_monadic :: Bool + _nontsOallPragmas :: PragmaMap + _nontsOparamMap :: ParamMap + _nontsOcontextMap :: ContextMap + _nontsOallNts :: (Set NontermIdent) + _nontsOwith_sig :: Bool + _lhsOerrors :: (Seq Error) + _lhsOoutput :: Program + _nontsOtypeSyns :: TypeSyns + _nontsOderivings :: Derivings + _nontsOwrappers :: (Set NontermIdent) + _nontsOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier))) + _nontsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _nontsIchunks :: Chunks + _nontsIgathNts :: (Set NontermIdent) + _nontsIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_sig = + ({-# LINE 50 "GenerateCode.ag" #-} + typeSigs _lhsIoptions + {-# LINE 331 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_cata = + ({-# LINE 51 "GenerateCode.ag" #-} + folds _lhsIoptions + {-# LINE 336 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_sem = + ({-# LINE 52 "GenerateCode.ag" #-} + semfuns _lhsIoptions + {-# LINE 341 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_newtypes = + ({-# LINE 53 "GenerateCode.ag" #-} + newtypes _lhsIoptions + {-# LINE 346 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_unbox = + ({-# LINE 54 "GenerateCode.ag" #-} + unbox _lhsIoptions + {-# LINE 351 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_case = + ({-# LINE 55 "GenerateCode.ag" #-} + cases _lhsIoptions + {-# LINE 356 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_pretty = + ({-# LINE 56 "GenerateCode.ag" #-} + attrInfo _lhsIoptions + {-# LINE 361 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_rename = + ({-# LINE 57 "GenerateCode.ag" #-} + rename _lhsIoptions + {-# LINE 366 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_strictwrap = + ({-# LINE 58 "GenerateCode.ag" #-} + strictWrap _lhsIoptions + {-# LINE 371 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_splitsems = + ({-# LINE 59 "GenerateCode.ag" #-} + splitSems _lhsIoptions + {-# LINE 376 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_data = + ({-# LINE 60 "GenerateCode.ag" #-} + if dataTypes _lhsIoptions then Just (strictData _lhsIoptions) else Nothing + {-# LINE 381 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOprefix = + ({-# LINE 61 "GenerateCode.ag" #-} + prefix _lhsIoptions + {-# LINE 386 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_traces = + ({-# LINE 62 "GenerateCode.ag" #-} + genTraces _lhsIoptions + {-# LINE 391 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_costcentre = + ({-# LINE 63 "GenerateCode.ag" #-} + genCostCentres _lhsIoptions + {-# LINE 396 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_linePragmas = + ({-# LINE 64 "GenerateCode.ag" #-} + genLinePragmas _lhsIoptions + {-# LINE 401 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 50, column 17) + _nontsOo_monadic = + ({-# LINE 65 "GenerateCode.ag" #-} + monadic _lhsIoptions + {-# LINE 406 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 70, column 15) + _nontsOallPragmas = + ({-# LINE 70 "GenerateCode.ag" #-} + pragmas_ + {-# LINE 411 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 92, column 14) + _nontsOparamMap = + ({-# LINE 92 "GenerateCode.ag" #-} + paramMap_ + {-# LINE 416 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 113, column 7) + _nontsOcontextMap = + ({-# LINE 113 "GenerateCode.ag" #-} + contextMap_ + {-# LINE 421 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 125, column 7) + _nontsOallNts = + ({-# LINE 125 "GenerateCode.ag" #-} + _nontsIgathNts + {-# LINE 426 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 539, column 34) + _aroundMap = + ({-# LINE 539 "GenerateCode.ag" #-} + aroundsMap_ + {-# LINE 431 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 680, column 7) + _unfoldSemDom = + ({-# LINE 680 "GenerateCode.ag" #-} + \nt nr repl -> + let (params, tp) = Map.findWithDefault (error ("No such semantic domain: " ++ show nt)) (nt, nr) _nontsIsemDomUnfoldGath + replMap = Map.fromList (zip params repl) + replace k = Map.findWithDefault ('@':k) k replMap + in evalType replace tp + {-# LINE 440 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 779, column 14) + _nontsOwith_sig = + ({-# LINE 779 "GenerateCode.ag" #-} + typeSigs _lhsIoptions + {-# LINE 445 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 782, column 15) + _lhsOerrors = + ({-# LINE 782 "GenerateCode.ag" #-} + Seq.empty + {-# LINE 450 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 847, column 17) + _lhsOoutput = + ({-# LINE 847 "GenerateCode.ag" #-} + Program _nontsIchunks + {-# LINE 455 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 911, column 14) + _nontsOtypeSyns = + ({-# LINE 911 "GenerateCode.ag" #-} + typeSyns_ + {-# LINE 460 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 911, column 14) + _nontsOderivings = + ({-# LINE 912 "GenerateCode.ag" #-} + derivings_ + {-# LINE 465 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 911, column 14) + _nontsOwrappers = + ({-# LINE 913 "GenerateCode.ag" #-} + wrappers_ + {-# LINE 470 "GenerateCode.hs" #-}) + -- copy rule (from local) + _nontsOaroundMap = + ({-# LINE 532 "GenerateCode.ag" #-} + _aroundMap + {-# LINE 475 "GenerateCode.hs" #-}) + -- copy rule (from local) + _nontsOunfoldSemDom = + ({-# LINE 676 "GenerateCode.ag" #-} + _unfoldSemDom + {-# LINE 480 "GenerateCode.hs" #-}) + ( _nontsIchunks,_nontsIgathNts,_nontsIsemDomUnfoldGath) = + (nonts_ _nontsOallNts _nontsOallPragmas _nontsOaroundMap _nontsOcontextMap _nontsOderivings _nontsOo_case _nontsOo_cata _nontsOo_costcentre _nontsOo_data _nontsOo_linePragmas _nontsOo_monadic _nontsOo_newtypes _nontsOo_pretty _nontsOo_rename _nontsOo_sem _nontsOo_sig _nontsOo_splitsems _nontsOo_strictwrap _nontsOo_traces _nontsOo_unbox _nontsOparamMap _nontsOprefix _nontsOtypeSyns _nontsOunfoldSemDom _nontsOwith_sig _nontsOwrappers ) + in ( _lhsOerrors,_lhsOoutput))) ) +-- CInterface -------------------------------------------------- +{- + visit 0: + inherited attributes: + inh : Attributes + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + paramMap : ParamMap + prefix : String + syn : Attributes + synthesized attributes: + comments : [String] + semDom : [Decl] + semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) + wrapDecls : Decls + alternatives: + alternative CInterface: + child seg : CSegments +-} +-- cata +sem_CInterface :: CInterface -> + T_CInterface +sem_CInterface (CInterface _seg ) = + (sem_CInterface_CInterface (sem_CSegments _seg ) ) +-- semantic domain +newtype T_CInterface = T_CInterface (Attributes -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + ParamMap -> + String -> + Attributes -> + ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls)) +data Inh_CInterface = Inh_CInterface {inh_Inh_CInterface :: !(Attributes),nt_Inh_CInterface :: !(NontermIdent),o_case_Inh_CInterface :: !(Bool),o_cata_Inh_CInterface :: !(Bool),o_costcentre_Inh_CInterface :: !(Bool),o_data_Inh_CInterface :: !(Maybe Bool),o_linePragmas_Inh_CInterface :: !(Bool),o_monadic_Inh_CInterface :: !(Bool),o_newtypes_Inh_CInterface :: !(Bool),o_pretty_Inh_CInterface :: !(Bool),o_rename_Inh_CInterface :: !(Bool),o_sem_Inh_CInterface :: !(Bool),o_sig_Inh_CInterface :: !(Bool),o_splitsems_Inh_CInterface :: !(Bool),o_strictwrap_Inh_CInterface :: !(Bool),o_traces_Inh_CInterface :: !(Bool),o_unbox_Inh_CInterface :: !(Bool),paramMap_Inh_CInterface :: !(ParamMap),prefix_Inh_CInterface :: !(String),syn_Inh_CInterface :: !(Attributes)} +data Syn_CInterface = Syn_CInterface {comments_Syn_CInterface :: !([String]),semDom_Syn_CInterface :: !([Decl]),semDomUnfoldGath_Syn_CInterface :: !(Map (NontermIdent, Int) ([String], Code.Type)),wrapDecls_Syn_CInterface :: !(Decls)} +wrap_CInterface :: T_CInterface -> + Inh_CInterface -> + Syn_CInterface +wrap_CInterface (T_CInterface sem ) (Inh_CInterface _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn ) = + (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = + (sem _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn ) + in (Syn_CInterface _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls )) +sem_CInterface_CInterface :: T_CSegments -> + T_CInterface +sem_CInterface_CInterface (T_CSegments seg_ ) = + (T_CInterface (\ _lhsIinh + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamMap + _lhsIprefix + _lhsIsyn -> + (let _segOnr :: Int + _lhsOsemDom :: ([Decl]) + _lhsOcomments :: ([String]) + _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _lhsOwrapDecls :: Decls + _segOinh :: Attributes + _segOnt :: NontermIdent + _segOo_case :: Bool + _segOo_cata :: Bool + _segOo_costcentre :: Bool + _segOo_data :: (Maybe Bool) + _segOo_linePragmas :: Bool + _segOo_monadic :: Bool + _segOo_newtypes :: Bool + _segOo_pretty :: Bool + _segOo_rename :: Bool + _segOo_sem :: Bool + _segOo_sig :: Bool + _segOo_splitsems :: Bool + _segOo_strictwrap :: Bool + _segOo_traces :: Bool + _segOo_unbox :: Bool + _segOparamMap :: ParamMap + _segOprefix :: String + _segOsyn :: Attributes + _segIcomments :: ([String]) + _segIisNil :: Bool + _segIsemDom :: ([Decl]) + _segIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _segIwrapDecls :: Decls + -- "GenerateCode.ag"(line 246, column 17) + _segOnr = + ({-# LINE 246 "GenerateCode.ag" #-} + 0 + {-# LINE 610 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 653, column 18) + _lhsOsemDom = + ({-# LINE 653 "GenerateCode.ag" #-} + Comment "semantic domain" : _segIsemDom + {-# LINE 615 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 793, column 52) + _lhsOcomments = + ({-# LINE 793 "GenerateCode.ag" #-} + _segIcomments + {-# LINE 620 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 670, column 86) + _lhsOsemDomUnfoldGath = + ({-# LINE 670 "GenerateCode.ag" #-} + _segIsemDomUnfoldGath + {-# LINE 625 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 756, column 52) + _lhsOwrapDecls = + ({-# LINE 756 "GenerateCode.ag" #-} + _segIwrapDecls + {-# LINE 630 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOinh = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 635 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOnt = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 640 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 645 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 650 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 655 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 660 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 665 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 670 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 675 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 680 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 685 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 690 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 695 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 700 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 705 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 710 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 715 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 720 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 725 "GenerateCode.hs" #-}) + -- copy rule (down) + _segOsyn = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 730 "GenerateCode.hs" #-}) + ( _segIcomments,_segIisNil,_segIsemDom,_segIsemDomUnfoldGath,_segIwrapDecls) = + (seg_ _segOinh _segOnr _segOnt _segOo_case _segOo_cata _segOo_costcentre _segOo_data _segOo_linePragmas _segOo_monadic _segOo_newtypes _segOo_pretty _segOo_rename _segOo_sem _segOo_sig _segOo_splitsems _segOo_strictwrap _segOo_traces _segOo_unbox _segOparamMap _segOprefix _segOsyn ) + in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) +-- CNonterminal ------------------------------------------------ +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + allPragmas : PragmaMap + aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier)) + contextMap : ContextMap + derivings : Derivings + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + paramMap : ParamMap + prefix : String + typeSyns : TypeSyns + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + with_sig : Bool + wrappers : Set NontermIdent + synthesized attributes: + chunks : Chunks + gathNts : Set NontermIdent + semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) + alternatives: + alternative CNonterminal: + child nt : {NontermIdent} + child params : {[Identifier]} + child inh : {Attributes} + child syn : {Attributes} + child prods : CProductions + child inter : CInterface + visit 0: + local _tup1 : {(Attributes,Attributes,NontermIdent)} + local _tup2 : {(Attributes,Attributes,NontermIdent)} + local aroundMap : _ + local semWrapper : _ + local comment : _ + local dataDef : _ + local cataFun : _ +-} +-- cata +sem_CNonterminal :: CNonterminal -> + T_CNonterminal +sem_CNonterminal (CNonterminal _nt _params _inh _syn _prods _inter ) = + (sem_CNonterminal_CNonterminal _nt _params _inh _syn (sem_CProductions _prods ) (sem_CInterface _inter ) ) +-- semantic domain +newtype T_CNonterminal = T_CNonterminal ((Set NontermIdent) -> + PragmaMap -> + (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> + ContextMap -> + Derivings -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + ParamMap -> + String -> + TypeSyns -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + Bool -> + (Set NontermIdent) -> + ( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type)))) +data Inh_CNonterminal = Inh_CNonterminal {allNts_Inh_CNonterminal :: !(Set NontermIdent),allPragmas_Inh_CNonterminal :: !(PragmaMap),aroundMap_Inh_CNonterminal :: !(Map NontermIdent (Map ConstructorIdent (Set Identifier))),contextMap_Inh_CNonterminal :: !(ContextMap),derivings_Inh_CNonterminal :: !(Derivings),o_case_Inh_CNonterminal :: !(Bool),o_cata_Inh_CNonterminal :: !(Bool),o_costcentre_Inh_CNonterminal :: !(Bool),o_data_Inh_CNonterminal :: !(Maybe Bool),o_linePragmas_Inh_CNonterminal :: !(Bool),o_monadic_Inh_CNonterminal :: !(Bool),o_newtypes_Inh_CNonterminal :: !(Bool),o_pretty_Inh_CNonterminal :: !(Bool),o_rename_Inh_CNonterminal :: !(Bool),o_sem_Inh_CNonterminal :: !(Bool),o_sig_Inh_CNonterminal :: !(Bool),o_splitsems_Inh_CNonterminal :: !(Bool),o_strictwrap_Inh_CNonterminal :: !(Bool),o_traces_Inh_CNonterminal :: !(Bool),o_unbox_Inh_CNonterminal :: !(Bool),paramMap_Inh_CNonterminal :: !(ParamMap),prefix_Inh_CNonterminal :: !(String),typeSyns_Inh_CNonterminal :: !(TypeSyns),unfoldSemDom_Inh_CNonterminal :: !(NontermIdent -> Int -> [String] -> Code.Type),with_sig_Inh_CNonterminal :: !(Bool),wrappers_Inh_CNonterminal :: !(Set NontermIdent)} +data Syn_CNonterminal = Syn_CNonterminal {chunks_Syn_CNonterminal :: !(Chunks),gathNts_Syn_CNonterminal :: !(Set NontermIdent),semDomUnfoldGath_Syn_CNonterminal :: !(Map (NontermIdent, Int) ([String], Code.Type))} +wrap_CNonterminal :: T_CNonterminal -> + Inh_CNonterminal -> + Syn_CNonterminal +wrap_CNonterminal (T_CNonterminal sem ) (Inh_CNonterminal _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) = + (let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = + (sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) + in (Syn_CNonterminal _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath )) +sem_CNonterminal_CNonterminal :: NontermIdent -> + ([Identifier]) -> + Attributes -> + Attributes -> + T_CProductions -> + T_CInterface -> + T_CNonterminal +sem_CNonterminal_CNonterminal nt_ params_ inh_ syn_ (T_CProductions prods_ ) (T_CInterface inter_ ) = + (T_CNonterminal (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIcontextMap + _lhsIderivings + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamMap + _lhsIprefix + _lhsItypeSyns + _lhsIunfoldSemDom + _lhsIwith_sig + _lhsIwrappers -> + (let __tup1 :: ((Attributes,Attributes,NontermIdent)) + _interOinh :: Attributes + _interOsyn :: Attributes + _interOnt :: NontermIdent + __tup2 :: ((Attributes,Attributes,NontermIdent)) + _prodsOinh :: Attributes + _prodsOsyn :: Attributes + _prodsOnt :: NontermIdent + _lhsOgathNts :: (Set NontermIdent) + _lhsOchunks :: Chunks + _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _prodsOallNts :: (Set NontermIdent) + _prodsOallPragmas :: PragmaMap + _prodsOaroundMap :: (Map ConstructorIdent (Set Identifier)) + _prodsOcontextMap :: ContextMap + _prodsOo_case :: Bool + _prodsOo_cata :: Bool + _prodsOo_costcentre :: Bool + _prodsOo_data :: (Maybe Bool) + _prodsOo_linePragmas :: Bool + _prodsOo_monadic :: Bool + _prodsOo_newtypes :: Bool + _prodsOo_pretty :: Bool + _prodsOo_rename :: Bool + _prodsOo_sem :: Bool + _prodsOo_sig :: Bool + _prodsOo_splitsems :: Bool + _prodsOo_strictwrap :: Bool + _prodsOo_traces :: Bool + _prodsOo_unbox :: Bool + _prodsOparamMap :: ParamMap + _prodsOprefix :: String + _prodsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _prodsOwith_sig :: Bool + _interOo_case :: Bool + _interOo_cata :: Bool + _interOo_costcentre :: Bool + _interOo_data :: (Maybe Bool) + _interOo_linePragmas :: Bool + _interOo_monadic :: Bool + _interOo_newtypes :: Bool + _interOo_pretty :: Bool + _interOo_rename :: Bool + _interOo_sem :: Bool + _interOo_sig :: Bool + _interOo_splitsems :: Bool + _interOo_strictwrap :: Bool + _interOo_traces :: Bool + _interOo_unbox :: Bool + _interOparamMap :: ParamMap + _interOprefix :: String + _prodsIcataAlts :: Decls + _prodsIcomments :: ([String]) + _prodsIdataAlts :: DataAlts + _prodsIdecls :: Decls + _prodsIsemNames :: ([String]) + _interIcomments :: ([String]) + _interIsemDom :: ([Decl]) + _interIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _interIwrapDecls :: Decls + -- "GenerateCode.ag"(line 80, column 26) + __tup1 = + ({-# LINE 80 "GenerateCode.ag" #-} + (inh_,syn_,nt_) + {-# LINE 925 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 80, column 26) + (_interOinh,_,_) = + ({-# LINE 80 "GenerateCode.ag" #-} + __tup1 + {-# LINE 930 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 80, column 26) + (_,_interOsyn,_) = + ({-# LINE 80 "GenerateCode.ag" #-} + __tup1 + {-# LINE 935 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 80, column 26) + (_,_,_interOnt) = + ({-# LINE 80 "GenerateCode.ag" #-} + __tup1 + {-# LINE 940 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 81, column 25) + __tup2 = + ({-# LINE 81 "GenerateCode.ag" #-} + (inh_,syn_,nt_) + {-# LINE 945 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 81, column 25) + (_prodsOinh,_,_) = + ({-# LINE 81 "GenerateCode.ag" #-} + __tup2 + {-# LINE 950 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 81, column 25) + (_,_prodsOsyn,_) = + ({-# LINE 81 "GenerateCode.ag" #-} + __tup2 + {-# LINE 955 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 81, column 25) + (_,_,_prodsOnt) = + ({-# LINE 81 "GenerateCode.ag" #-} + __tup2 + {-# LINE 960 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 131, column 7) + _lhsOgathNts = + ({-# LINE 131 "GenerateCode.ag" #-} + Set.singleton nt_ + {-# LINE 965 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 540, column 34) + _aroundMap = + ({-# LINE 540 "GenerateCode.ag" #-} + Map.findWithDefault Map.empty nt_ _lhsIaroundMap + {-# LINE 970 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 730, column 18) + _semWrapper = + ({-# LINE 730 "GenerateCode.ag" #-} + let params' = map getName params_ + inhAttrs = Map.toList inh_ + synAttrs = Map.toList syn_ + inhVars = [ SimpleExpr (attrname True _LHS a) | (a,_) <- inhAttrs ] + synVars = [ SimpleExpr (attrname False _LHS a) | (a,_) <- synAttrs ] + var = "sem" + wrapNT = "wrap" ++ "_" ++ getName nt_ + inhNT = "Inh" ++ "_" ++ getName nt_ + synNT = "Syn" ++ "_" ++ getName nt_ + varPat = if _lhsIo_newtypes + then App (sdtype nt_) [SimpleExpr var] + else SimpleExpr var + evalTp | null params' = id + | otherwise = idEvalType + appParams nm = TypeApp (SimpleType nm) (map SimpleType params') + typeSig = TSig wrapNT (evalTp $ appParams (sdtype nt_) `Arr` (appParams inhNT `Arr` appParams synNT)) + mkstrict = Named _lhsIo_strictwrap + mkdata n attrs = Data n params' [Record n [mkstrict (getName f++"_"++n) $ evalTp $ typeToCodeType (Just nt_) params' t | (f,t) <- attrs]] False [] + datas = [mkdata inhNT inhAttrs, mkdata synNT synAttrs] + in datas ++ [ typeSig + , Decl (Fun wrapNT [varPat, App inhNT inhVars]) + (Let _interIwrapDecls (App synNT synVars)) + Set.empty Set.empty + ] + {-# LINE 998 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 789, column 18) + _comment = + ({-# LINE 789 "GenerateCode.ag" #-} + Comment . unlines . map ind $ ( _interIcomments ++ ("alternatives:" : map ind _prodsIcomments) ) + {-# LINE 1003 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 850, column 19) + _lhsOchunks = + ({-# LINE 850 "GenerateCode.ag" #-} + [ Chunk (getName nt_) + (Comment (getName nt_ ++ " " ++ replicate (60 - length (getName nt_)) '-')) + (if _lhsIo_pretty then [_comment ] else []) + (if isJust _lhsIo_data then [_dataDef ] else []) + (if _lhsIo_cata then _cataFun else []) + (if _lhsIo_sig then _interIsemDom else []) + (if nt_ `Set.member` _lhsIwrappers then _semWrapper else []) + (if _lhsIo_sem then _prodsIdecls else []) + (if _lhsIo_sem then _prodsIsemNames else []) + ] + {-# LINE 1017 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 916, column 18) + _dataDef = + ({-# LINE 916 "GenerateCode.ag" #-} + let params' = map getName params_ + typeSyn tp = let theType = + case tp of + CommonTypes.Maybe t -> TMaybe $ typeToCodeType (Just nt_) params' t + CommonTypes.Either t1 t2 -> TEither (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2) + CommonTypes.Map t1 t2 -> TMap (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2) + CommonTypes.IntMap t -> TIntMap $ typeToCodeType (Just nt_) params' t + CommonTypes.List t -> Code.List $ typeToCodeType (Just nt_) params' t + CommonTypes.Tuple ts -> Code.TupleType [typeToCodeType (Just nt_) params' t + | (_,t) <- ts + ] + in Code.Type (getName nt_) params' (idEvalType theType) + derivings = maybe [] (map getName . Set.toList) (Map.lookup nt_ _lhsIderivings) + dataDef = Data (getName nt_) (map getName params_) _prodsIdataAlts (maybe False id _lhsIo_data) derivings + in maybe dataDef typeSyn $ lookup nt_ _lhsItypeSyns + {-# LINE 1036 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 948, column 18) + _cataFun = + ({-# LINE 948 "GenerateCode.ag" #-} + let appParams nm = TypeApp (SimpleType nm) (map SimpleType (map getName params_)) + evalTp | null params_ = id + | otherwise = idEvalType + tSig = TSig (cataname _lhsIprefix nt_) + (appContext _lhsIcontextMap nt_ $ evalTp $ appParams (getName nt_) `Arr` appParams (sdtype nt_)) + special typ = case typ of + CommonTypes.List tp -> + let cons = SimpleExpr (semname _lhsIprefix nt_ (identifier "Cons")) + nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil" )) + arg = SimpleExpr "list" + rarg = case tp of + NT t _ -> let t' = maybe t id (deforestedNt t) + in SimpleExpr ("(Prelude.map " ++ (cataname _lhsIprefix t') ++ " list)") + _ -> arg + lhs = Fun (cataname _lhsIprefix nt_) [arg] + rhs = (App "Prelude.foldr" [cons,nil,rarg]) + in [Decl lhs rhs Set.empty Set.empty] + CommonTypes.Maybe tp -> + let just = semname _lhsIprefix nt_ (identifier "Just") + nothing = semname _lhsIprefix nt_ (identifier "Nothing" ) + arg = SimpleExpr "x" + rarg = case tp of + NT t _ -> let t' = maybe t id (deforestedNt t) + in App (cataname _lhsIprefix t') [arg] + _ -> arg + lhs a = Fun (cataname _lhsIprefix nt_) [a] + in [Decl (lhs (App "Prelude.Just" [arg])) (App just [rarg]) Set.empty Set.empty + ,Decl (lhs (SimpleExpr "Prelude.Nothing")) (SimpleExpr nothing) Set.empty Set.empty + ] + CommonTypes.Either tp1 tp2 -> + let left = semname _lhsIprefix nt_ (identifier "Left") + right = semname _lhsIprefix nt_ (identifier "Right" ) + arg = SimpleExpr "x" + rarg0 = case tp1 of + NT t _ -> let t' = maybe t id (deforestedNt t) + in App (cataname _lhsIprefix t') [arg] + _ -> arg + rarg1 = case tp2 of + NT t _ -> let t' = maybe t id (deforestedNt t) + in App (cataname _lhsIprefix t') [arg] + _ -> arg + lhs a = Fun (cataname _lhsIprefix nt_) [a] + in [Decl (lhs (App "Prelude.Left" [arg])) (App left [rarg0]) Set.empty Set.empty + ,Decl (lhs (App "Prelude.Right" [arg])) (App right [rarg1]) Set.empty Set.empty + ] + CommonTypes.Map _ tp -> + let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry")) + nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil")) + arg = SimpleExpr "m" + rarg = case tp of + NT t _ -> let t' = maybe t id (deforestedNt t) + in App "Map.map" [SimpleExpr $ cataname _lhsIprefix t', arg] + _ -> arg + lhs = Fun (cataname _lhsIprefix nt_) [arg] + rhs = App "Map.foldWithKey" [entry,nil,rarg] + in [Decl lhs rhs Set.empty Set.empty] + CommonTypes.IntMap tp -> + let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry")) + nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil")) + arg = SimpleExpr "m" + rarg = case tp of + NT t _ -> let t' = maybe t id (deforestedNt t) + in App "IntMap.map" [SimpleExpr $ cataname _lhsIprefix t', arg] + _ -> arg + lhs = Fun (cataname _lhsIprefix nt_) [arg] + rhs = App "IntMap.foldWithKey" [entry,nil,rarg] + in [Decl lhs rhs Set.empty Set.empty] + CommonTypes.Tuple tps -> + let con = semname _lhsIprefix nt_ (identifier "Tuple") + tps' = [ (SimpleExpr (getName x),y) | (x,y) <- tps] + rargs = map rarg tps' + rarg (n, tp) = case tp of + NT t _ -> let t' = maybe t id (deforestedNt t) + in App (cataname _lhsIprefix t') [n] + _ -> n + lhs = Fun (cataname _lhsIprefix nt_) [TupleExpr (map fst tps')] + rhs = App con rargs + in [Decl lhs rhs Set.empty Set.empty] + in Comment "cata" : + (if _lhsIo_sig then [tSig] else []) ++ + maybe _prodsIcataAlts special (lookup nt_ _lhsItypeSyns) + {-# LINE 1121 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 670, column 86) + _lhsOsemDomUnfoldGath = + ({-# LINE 670 "GenerateCode.ag" #-} + _interIsemDomUnfoldGath + {-# LINE 1126 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOallNts = + ({-# LINE 121 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 1131 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOallPragmas = + ({-# LINE 67 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 1136 "GenerateCode.hs" #-}) + -- copy rule (from local) + _prodsOaroundMap = + ({-# LINE 535 "GenerateCode.ag" #-} + _aroundMap + {-# LINE 1141 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOcontextMap = + ({-# LINE 109 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 1146 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 1151 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 1156 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 1161 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 1166 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 1171 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 1176 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 1181 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 1186 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 1191 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 1196 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 1201 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 1206 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 1211 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 1216 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 1221 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 1226 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 1231 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOunfoldSemDom = + ({-# LINE 676 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 1236 "GenerateCode.hs" #-}) + -- copy rule (down) + _prodsOwith_sig = + ({-# LINE 776 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 1241 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 1246 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 1251 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 1256 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 1261 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 1266 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 1271 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 1276 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 1281 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 1286 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 1291 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 1296 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 1301 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 1306 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 1311 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 1316 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 1321 "GenerateCode.hs" #-}) + -- copy rule (down) + _interOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 1326 "GenerateCode.hs" #-}) + ( _prodsIcataAlts,_prodsIcomments,_prodsIdataAlts,_prodsIdecls,_prodsIsemNames) = + (prods_ _prodsOallNts _prodsOallPragmas _prodsOaroundMap _prodsOcontextMap _prodsOinh _prodsOnt _prodsOo_case _prodsOo_cata _prodsOo_costcentre _prodsOo_data _prodsOo_linePragmas _prodsOo_monadic _prodsOo_newtypes _prodsOo_pretty _prodsOo_rename _prodsOo_sem _prodsOo_sig _prodsOo_splitsems _prodsOo_strictwrap _prodsOo_traces _prodsOo_unbox _prodsOparamMap _prodsOprefix _prodsOsyn _prodsOunfoldSemDom _prodsOwith_sig ) + ( _interIcomments,_interIsemDom,_interIsemDomUnfoldGath,_interIwrapDecls) = + (inter_ _interOinh _interOnt _interOo_case _interOo_cata _interOo_costcentre _interOo_data _interOo_linePragmas _interOo_monadic _interOo_newtypes _interOo_pretty _interOo_rename _interOo_sem _interOo_sig _interOo_splitsems _interOo_strictwrap _interOo_traces _interOo_unbox _interOparamMap _interOprefix _interOsyn ) + in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) ) +-- CNonterminals ----------------------------------------------- +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + allPragmas : PragmaMap + aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier)) + contextMap : ContextMap + derivings : Derivings + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + paramMap : ParamMap + prefix : String + typeSyns : TypeSyns + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + with_sig : Bool + wrappers : Set NontermIdent + synthesized attributes: + chunks : Chunks + gathNts : Set NontermIdent + semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) + alternatives: + alternative Cons: + child hd : CNonterminal + child tl : CNonterminals + alternative Nil: +-} +-- cata +sem_CNonterminals :: CNonterminals -> + T_CNonterminals +sem_CNonterminals list = + (Prelude.foldr sem_CNonterminals_Cons sem_CNonterminals_Nil (Prelude.map sem_CNonterminal list) ) +-- semantic domain +newtype T_CNonterminals = T_CNonterminals ((Set NontermIdent) -> + PragmaMap -> + (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> + ContextMap -> + Derivings -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + ParamMap -> + String -> + TypeSyns -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + Bool -> + (Set NontermIdent) -> + ( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type)))) +data Inh_CNonterminals = Inh_CNonterminals {allNts_Inh_CNonterminals :: !(Set NontermIdent),allPragmas_Inh_CNonterminals :: !(PragmaMap),aroundMap_Inh_CNonterminals :: !(Map NontermIdent (Map ConstructorIdent (Set Identifier))),contextMap_Inh_CNonterminals :: !(ContextMap),derivings_Inh_CNonterminals :: !(Derivings),o_case_Inh_CNonterminals :: !(Bool),o_cata_Inh_CNonterminals :: !(Bool),o_costcentre_Inh_CNonterminals :: !(Bool),o_data_Inh_CNonterminals :: !(Maybe Bool),o_linePragmas_Inh_CNonterminals :: !(Bool),o_monadic_Inh_CNonterminals :: !(Bool),o_newtypes_Inh_CNonterminals :: !(Bool),o_pretty_Inh_CNonterminals :: !(Bool),o_rename_Inh_CNonterminals :: !(Bool),o_sem_Inh_CNonterminals :: !(Bool),o_sig_Inh_CNonterminals :: !(Bool),o_splitsems_Inh_CNonterminals :: !(Bool),o_strictwrap_Inh_CNonterminals :: !(Bool),o_traces_Inh_CNonterminals :: !(Bool),o_unbox_Inh_CNonterminals :: !(Bool),paramMap_Inh_CNonterminals :: !(ParamMap),prefix_Inh_CNonterminals :: !(String),typeSyns_Inh_CNonterminals :: !(TypeSyns),unfoldSemDom_Inh_CNonterminals :: !(NontermIdent -> Int -> [String] -> Code.Type),with_sig_Inh_CNonterminals :: !(Bool),wrappers_Inh_CNonterminals :: !(Set NontermIdent)} +data Syn_CNonterminals = Syn_CNonterminals {chunks_Syn_CNonterminals :: !(Chunks),gathNts_Syn_CNonterminals :: !(Set NontermIdent),semDomUnfoldGath_Syn_CNonterminals :: !(Map (NontermIdent, Int) ([String], Code.Type))} +wrap_CNonterminals :: T_CNonterminals -> + Inh_CNonterminals -> + Syn_CNonterminals +wrap_CNonterminals (T_CNonterminals sem ) (Inh_CNonterminals _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) = + (let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = + (sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) + in (Syn_CNonterminals _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath )) +sem_CNonterminals_Cons :: T_CNonterminal -> + T_CNonterminals -> + T_CNonterminals +sem_CNonterminals_Cons (T_CNonterminal hd_ ) (T_CNonterminals tl_ ) = + (T_CNonterminals (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIcontextMap + _lhsIderivings + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamMap + _lhsIprefix + _lhsItypeSyns + _lhsIunfoldSemDom + _lhsIwith_sig + _lhsIwrappers -> + (let _lhsOchunks :: Chunks + _lhsOgathNts :: (Set NontermIdent) + _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _hdOallNts :: (Set NontermIdent) + _hdOallPragmas :: PragmaMap + _hdOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier))) + _hdOcontextMap :: ContextMap + _hdOderivings :: Derivings + _hdOo_case :: Bool + _hdOo_cata :: Bool + _hdOo_costcentre :: Bool + _hdOo_data :: (Maybe Bool) + _hdOo_linePragmas :: Bool + _hdOo_monadic :: Bool + _hdOo_newtypes :: Bool + _hdOo_pretty :: Bool + _hdOo_rename :: Bool + _hdOo_sem :: Bool + _hdOo_sig :: Bool + _hdOo_splitsems :: Bool + _hdOo_strictwrap :: Bool + _hdOo_traces :: Bool + _hdOo_unbox :: Bool + _hdOparamMap :: ParamMap + _hdOprefix :: String + _hdOtypeSyns :: TypeSyns + _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _hdOwith_sig :: Bool + _hdOwrappers :: (Set NontermIdent) + _tlOallNts :: (Set NontermIdent) + _tlOallPragmas :: PragmaMap + _tlOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier))) + _tlOcontextMap :: ContextMap + _tlOderivings :: Derivings + _tlOo_case :: Bool + _tlOo_cata :: Bool + _tlOo_costcentre :: Bool + _tlOo_data :: (Maybe Bool) + _tlOo_linePragmas :: Bool + _tlOo_monadic :: Bool + _tlOo_newtypes :: Bool + _tlOo_pretty :: Bool + _tlOo_rename :: Bool + _tlOo_sem :: Bool + _tlOo_sig :: Bool + _tlOo_splitsems :: Bool + _tlOo_strictwrap :: Bool + _tlOo_traces :: Bool + _tlOo_unbox :: Bool + _tlOparamMap :: ParamMap + _tlOprefix :: String + _tlOtypeSyns :: TypeSyns + _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _tlOwith_sig :: Bool + _tlOwrappers :: (Set NontermIdent) + _hdIchunks :: Chunks + _hdIgathNts :: (Set NontermIdent) + _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _tlIchunks :: Chunks + _tlIgathNts :: (Set NontermIdent) + _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + -- use rule "GenerateCode.ag"(line 842, column 49) + _lhsOchunks = + ({-# LINE 842 "GenerateCode.ag" #-} + _hdIchunks ++ _tlIchunks + {-# LINE 1509 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 127, column 47) + _lhsOgathNts = + ({-# LINE 127 "GenerateCode.ag" #-} + _hdIgathNts `Set.union` _tlIgathNts + {-# LINE 1514 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 670, column 86) + _lhsOsemDomUnfoldGath = + ({-# LINE 670 "GenerateCode.ag" #-} + _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath + {-# LINE 1519 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOallNts = + ({-# LINE 121 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 1524 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOallPragmas = + ({-# LINE 67 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 1529 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOaroundMap = + ({-# LINE 532 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 1534 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOcontextMap = + ({-# LINE 109 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 1539 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOderivings = + ({-# LINE 909 "GenerateCode.ag" #-} + _lhsIderivings + {-# LINE 1544 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 1549 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 1554 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 1559 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 1564 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 1569 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 1574 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 1579 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 1584 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 1589 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 1594 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 1599 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 1604 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 1609 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 1614 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 1619 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 1624 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 1629 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOtypeSyns = + ({-# LINE 909 "GenerateCode.ag" #-} + _lhsItypeSyns + {-# LINE 1634 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOunfoldSemDom = + ({-# LINE 676 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 1639 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOwith_sig = + ({-# LINE 776 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 1644 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOwrappers = + ({-# LINE 909 "GenerateCode.ag" #-} + _lhsIwrappers + {-# LINE 1649 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOallNts = + ({-# LINE 121 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 1654 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOallPragmas = + ({-# LINE 67 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 1659 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOaroundMap = + ({-# LINE 532 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 1664 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOcontextMap = + ({-# LINE 109 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 1669 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOderivings = + ({-# LINE 909 "GenerateCode.ag" #-} + _lhsIderivings + {-# LINE 1674 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 1679 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 1684 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 1689 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 1694 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 1699 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 1704 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 1709 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 1714 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 1719 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 1724 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 1729 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 1734 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 1739 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 1744 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 1749 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 1754 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 1759 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOtypeSyns = + ({-# LINE 909 "GenerateCode.ag" #-} + _lhsItypeSyns + {-# LINE 1764 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOunfoldSemDom = + ({-# LINE 676 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 1769 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOwith_sig = + ({-# LINE 776 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 1774 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOwrappers = + ({-# LINE 909 "GenerateCode.ag" #-} + _lhsIwrappers + {-# LINE 1779 "GenerateCode.hs" #-}) + ( _hdIchunks,_hdIgathNts,_hdIsemDomUnfoldGath) = + (hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOderivings _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOparamMap _hdOprefix _hdOtypeSyns _hdOunfoldSemDom _hdOwith_sig _hdOwrappers ) + ( _tlIchunks,_tlIgathNts,_tlIsemDomUnfoldGath) = + (tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOderivings _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOparamMap _tlOprefix _tlOtypeSyns _tlOunfoldSemDom _tlOwith_sig _tlOwrappers ) + in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) ) +sem_CNonterminals_Nil :: T_CNonterminals +sem_CNonterminals_Nil = + (T_CNonterminals (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIcontextMap + _lhsIderivings + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamMap + _lhsIprefix + _lhsItypeSyns + _lhsIunfoldSemDom + _lhsIwith_sig + _lhsIwrappers -> + (let _lhsOchunks :: Chunks + _lhsOgathNts :: (Set NontermIdent) + _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + -- use rule "GenerateCode.ag"(line 842, column 49) + _lhsOchunks = + ({-# LINE 842 "GenerateCode.ag" #-} + [] + {-# LINE 1820 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 127, column 47) + _lhsOgathNts = + ({-# LINE 127 "GenerateCode.ag" #-} + Set.empty + {-# LINE 1825 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 670, column 86) + _lhsOsemDomUnfoldGath = + ({-# LINE 670 "GenerateCode.ag" #-} + Map.empty + {-# LINE 1830 "GenerateCode.hs" #-}) + in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) ) +-- CProduction ------------------------------------------------- +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + allPragmas : PragmaMap + aroundMap : Map ConstructorIdent (Set Identifier) + contextMap : ContextMap + inh : Attributes + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + paramMap : ParamMap + prefix : String + syn : Attributes + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + with_sig : Bool + synthesized attributes: + cataAlt : Decl + comments : [String] + dataAlt : DataAlt + decls : Decls + semNames : [String] + alternatives: + alternative CProduction: + child con : {ConstructorIdent} + child visits : CVisits + child children : {[(Identifier,Type,Maybe (Maybe Type))]} + child terminals : {[Identifier]} + visit 0: + local paramInstMap : _ + local aroundMap : _ + local firstOrderChildren : _ + local params : _ +-} +-- cata +sem_CProduction :: CProduction -> + T_CProduction +sem_CProduction (CProduction _con _visits _children _terminals ) = + (sem_CProduction_CProduction _con (sem_CVisits _visits ) _children _terminals ) +-- semantic domain +newtype T_CProduction = T_CProduction ((Set NontermIdent) -> + PragmaMap -> + (Map ConstructorIdent (Set Identifier)) -> + ContextMap -> + Attributes -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + ParamMap -> + String -> + Attributes -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + Bool -> + ( Decl,([String]),DataAlt,Decls,([String]))) +data Inh_CProduction = Inh_CProduction {allNts_Inh_CProduction :: !(Set NontermIdent),allPragmas_Inh_CProduction :: !(PragmaMap),aroundMap_Inh_CProduction :: !(Map ConstructorIdent (Set Identifier)),contextMap_Inh_CProduction :: !(ContextMap),inh_Inh_CProduction :: !(Attributes),nt_Inh_CProduction :: !(NontermIdent),o_case_Inh_CProduction :: !(Bool),o_cata_Inh_CProduction :: !(Bool),o_costcentre_Inh_CProduction :: !(Bool),o_data_Inh_CProduction :: !(Maybe Bool),o_linePragmas_Inh_CProduction :: !(Bool),o_monadic_Inh_CProduction :: !(Bool),o_newtypes_Inh_CProduction :: !(Bool),o_pretty_Inh_CProduction :: !(Bool),o_rename_Inh_CProduction :: !(Bool),o_sem_Inh_CProduction :: !(Bool),o_sig_Inh_CProduction :: !(Bool),o_splitsems_Inh_CProduction :: !(Bool),o_strictwrap_Inh_CProduction :: !(Bool),o_traces_Inh_CProduction :: !(Bool),o_unbox_Inh_CProduction :: !(Bool),paramMap_Inh_CProduction :: !(ParamMap),prefix_Inh_CProduction :: !(String),syn_Inh_CProduction :: !(Attributes),unfoldSemDom_Inh_CProduction :: !(NontermIdent -> Int -> [String] -> Code.Type),with_sig_Inh_CProduction :: !(Bool)} +data Syn_CProduction = Syn_CProduction {cataAlt_Syn_CProduction :: !(Decl),comments_Syn_CProduction :: !([String]),dataAlt_Syn_CProduction :: !(DataAlt),decls_Syn_CProduction :: !(Decls),semNames_Syn_CProduction :: !([String])} +wrap_CProduction :: T_CProduction -> + Inh_CProduction -> + Syn_CProduction +wrap_CProduction (T_CProduction sem ) (Inh_CProduction _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) = + (let ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames) = + (sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) + in (Syn_CProduction _lhsOcataAlt _lhsOcomments _lhsOdataAlt _lhsOdecls _lhsOsemNames )) +sem_CProduction_CProduction :: ConstructorIdent -> + T_CVisits -> + ([(Identifier,Type,Maybe (Maybe Type))]) -> + ([Identifier]) -> + T_CProduction +sem_CProduction_CProduction con_ (T_CVisits visits_ ) children_ terminals_ = + (T_CProduction (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIcontextMap + _lhsIinh + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamMap + _lhsIprefix + _lhsIsyn + _lhsIunfoldSemDom + _lhsIwith_sig -> + (let _visitsOcon :: ConstructorIdent + _visitsOterminals :: ([Identifier]) + _visitsOnr :: Int + _visitsOchildren :: ([(Identifier,Type, Maybe (Maybe Type))]) + _visitsOinstVisitNrs :: (Map Identifier Int) + _lhsOcomments :: ([String]) + _lhsOdataAlt :: DataAlt + _lhsOcataAlt :: Decl + _lhsOdecls :: Decls + _lhsOsemNames :: ([String]) + _visitsOallNts :: (Set NontermIdent) + _visitsOallPragmas :: PragmaMap + _visitsOaroundMap :: (Set Identifier) + _visitsOcontextMap :: ContextMap + _visitsOinh :: Attributes + _visitsOnt :: NontermIdent + _visitsOo_case :: Bool + _visitsOo_cata :: Bool + _visitsOo_costcentre :: Bool + _visitsOo_data :: (Maybe Bool) + _visitsOo_linePragmas :: Bool + _visitsOo_monadic :: Bool + _visitsOo_newtypes :: Bool + _visitsOo_pretty :: Bool + _visitsOo_rename :: Bool + _visitsOo_sem :: Bool + _visitsOo_sig :: Bool + _visitsOo_splitsems :: Bool + _visitsOo_strictwrap :: Bool + _visitsOo_traces :: Bool + _visitsOo_unbox :: Bool + _visitsOparamInstMap :: (Map Identifier (NontermIdent, [String])) + _visitsOparamMap :: ParamMap + _visitsOprefix :: String + _visitsOsyn :: Attributes + _visitsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _visitsOwith_sig :: Bool + _visitsIcomments :: ([String]) + _visitsIdecls :: Decls + _visitsIgatherInstVisitNrs :: (Map Identifier Int) + _visitsIintra :: Exprs + _visitsIintraVars :: (Set String) + _visitsIisNil :: Bool + _visitsIsemNames :: ([String]) + -- "GenerateCode.ag"(line 86, column 19) + _visitsOcon = + ({-# LINE 86 "GenerateCode.ag" #-} + con_ + {-# LINE 2002 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 87, column 20) + _visitsOterminals = + ({-# LINE 87 "GenerateCode.ag" #-} + terminals_ + {-# LINE 2007 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 99, column 7) + _paramInstMap = + ({-# LINE 99 "GenerateCode.ag" #-} + Map.fromList [(nm, (extractNonterminal tp, tps)) | (nm,tp,_) <- children_, let tps = map cleanupArg $ nontermArgs tp, not (null tps) ] + {-# LINE 2012 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 242, column 18) + _visitsOnr = + ({-# LINE 242 "GenerateCode.ag" #-} + 0 + {-# LINE 2017 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 383, column 18) + _visitsOchildren = + ({-# LINE 383 "GenerateCode.ag" #-} + children_ + {-# LINE 2022 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 521, column 7) + _visitsOinstVisitNrs = + ({-# LINE 521 "GenerateCode.ag" #-} + _visitsIgatherInstVisitNrs + {-# LINE 2027 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 541, column 34) + _aroundMap = + ({-# LINE 541 "GenerateCode.ag" #-} + Map.findWithDefault Set.empty con_ _lhsIaroundMap + {-# LINE 2032 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 804, column 18) + _firstOrderChildren = + ({-# LINE 804 "GenerateCode.ag" #-} + [ (nm,fromJust mb,virt) | (nm,tp,virt) <- children_, let mb = isFirstOrder virt tp, isJust mb ] + {-# LINE 2037 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 805, column 18) + _lhsOcomments = + ({-# LINE 805 "GenerateCode.ag" #-} + ("alternative " ++ getName con_ ++ ":") + : map ind ( map (\(x,y,_) -> makeLocalComment 14 "child" x (Just y)) _firstOrderChildren + ++ _visitsIcomments + ) + {-# LINE 2045 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 940, column 17) + _params = + ({-# LINE 940 "GenerateCode.ag" #-} + map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap + {-# LINE 2050 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 941, column 17) + _lhsOdataAlt = + ({-# LINE 941 "GenerateCode.ag" #-} + DataAlt (conname _lhsIo_rename _lhsInt con_) (map (\(_,t,_) -> typeToCodeType (Just _lhsInt) _params t) _firstOrderChildren ) + {-# LINE 2055 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 1040, column 17) + _lhsOcataAlt = + ({-# LINE 1040 "GenerateCode.ag" #-} + let lhs = Fun (cataname _lhsIprefix _lhsInt) [lhs_pat] + lhs_pat = App (conname _lhsIo_rename _lhsInt con_) + (map (\(n,_,_) -> SimpleExpr $ locname $ n) _firstOrderChildren ) + rhs = App (semname _lhsIprefix _lhsInt con_) + (map argument _firstOrderChildren ) + argument (nm,NT tp _,_) = let tp' = maybe tp id (deforestedNt tp) + in App (cataname _lhsIprefix tp') + [SimpleExpr (locname nm)] + argument (nm, _,_) = SimpleExpr (locname nm) + in Decl lhs rhs Set.empty Set.empty + {-# LINE 2069 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 843, column 44) + _lhsOdecls = + ({-# LINE 843 "GenerateCode.ag" #-} + _visitsIdecls + {-# LINE 2074 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 1056, column 61) + _lhsOsemNames = + ({-# LINE 1056 "GenerateCode.ag" #-} + _visitsIsemNames + {-# LINE 2079 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOallNts = + ({-# LINE 121 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 2084 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOallPragmas = + ({-# LINE 67 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 2089 "GenerateCode.hs" #-}) + -- copy rule (from local) + _visitsOaroundMap = + ({-# LINE 537 "GenerateCode.ag" #-} + _aroundMap + {-# LINE 2094 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOcontextMap = + ({-# LINE 109 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 2099 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOinh = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 2104 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOnt = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 2109 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 2114 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 2119 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 2124 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 2129 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 2134 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 2139 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 2144 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 2149 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 2154 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 2159 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 2164 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 2169 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 2174 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 2179 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 2184 "GenerateCode.hs" #-}) + -- copy rule (from local) + _visitsOparamInstMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _paramInstMap + {-# LINE 2189 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 2194 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 2199 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOsyn = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 2204 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOunfoldSemDom = + ({-# LINE 676 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 2209 "GenerateCode.hs" #-}) + -- copy rule (down) + _visitsOwith_sig = + ({-# LINE 776 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 2214 "GenerateCode.hs" #-}) + ( _visitsIcomments,_visitsIdecls,_visitsIgatherInstVisitNrs,_visitsIintra,_visitsIintraVars,_visitsIisNil,_visitsIsemNames) = + (visits_ _visitsOallNts _visitsOallPragmas _visitsOaroundMap _visitsOchildren _visitsOcon _visitsOcontextMap _visitsOinh _visitsOinstVisitNrs _visitsOnr _visitsOnt _visitsOo_case _visitsOo_cata _visitsOo_costcentre _visitsOo_data _visitsOo_linePragmas _visitsOo_monadic _visitsOo_newtypes _visitsOo_pretty _visitsOo_rename _visitsOo_sem _visitsOo_sig _visitsOo_splitsems _visitsOo_strictwrap _visitsOo_traces _visitsOo_unbox _visitsOparamInstMap _visitsOparamMap _visitsOprefix _visitsOsyn _visitsOterminals _visitsOunfoldSemDom _visitsOwith_sig ) + in ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames))) ) +-- CProductions ------------------------------------------------ +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + allPragmas : PragmaMap + aroundMap : Map ConstructorIdent (Set Identifier) + contextMap : ContextMap + inh : Attributes + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + paramMap : ParamMap + prefix : String + syn : Attributes + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + with_sig : Bool + synthesized attributes: + cataAlts : Decls + comments : [String] + dataAlts : DataAlts + decls : Decls + semNames : [String] + alternatives: + alternative Cons: + child hd : CProduction + child tl : CProductions + alternative Nil: +-} +-- cata +sem_CProductions :: CProductions -> + T_CProductions +sem_CProductions list = + (Prelude.foldr sem_CProductions_Cons sem_CProductions_Nil (Prelude.map sem_CProduction list) ) +-- semantic domain +newtype T_CProductions = T_CProductions ((Set NontermIdent) -> + PragmaMap -> + (Map ConstructorIdent (Set Identifier)) -> + ContextMap -> + Attributes -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + ParamMap -> + String -> + Attributes -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + Bool -> + ( Decls,([String]),DataAlts,Decls,([String]))) +data Inh_CProductions = Inh_CProductions {allNts_Inh_CProductions :: !(Set NontermIdent),allPragmas_Inh_CProductions :: !(PragmaMap),aroundMap_Inh_CProductions :: !(Map ConstructorIdent (Set Identifier)),contextMap_Inh_CProductions :: !(ContextMap),inh_Inh_CProductions :: !(Attributes),nt_Inh_CProductions :: !(NontermIdent),o_case_Inh_CProductions :: !(Bool),o_cata_Inh_CProductions :: !(Bool),o_costcentre_Inh_CProductions :: !(Bool),o_data_Inh_CProductions :: !(Maybe Bool),o_linePragmas_Inh_CProductions :: !(Bool),o_monadic_Inh_CProductions :: !(Bool),o_newtypes_Inh_CProductions :: !(Bool),o_pretty_Inh_CProductions :: !(Bool),o_rename_Inh_CProductions :: !(Bool),o_sem_Inh_CProductions :: !(Bool),o_sig_Inh_CProductions :: !(Bool),o_splitsems_Inh_CProductions :: !(Bool),o_strictwrap_Inh_CProductions :: !(Bool),o_traces_Inh_CProductions :: !(Bool),o_unbox_Inh_CProductions :: !(Bool),paramMap_Inh_CProductions :: !(ParamMap),prefix_Inh_CProductions :: !(String),syn_Inh_CProductions :: !(Attributes),unfoldSemDom_Inh_CProductions :: !(NontermIdent -> Int -> [String] -> Code.Type),with_sig_Inh_CProductions :: !(Bool)} +data Syn_CProductions = Syn_CProductions {cataAlts_Syn_CProductions :: !(Decls),comments_Syn_CProductions :: !([String]),dataAlts_Syn_CProductions :: !(DataAlts),decls_Syn_CProductions :: !(Decls),semNames_Syn_CProductions :: !([String])} +wrap_CProductions :: T_CProductions -> + Inh_CProductions -> + Syn_CProductions +wrap_CProductions (T_CProductions sem ) (Inh_CProductions _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) = + (let ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames) = + (sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) + in (Syn_CProductions _lhsOcataAlts _lhsOcomments _lhsOdataAlts _lhsOdecls _lhsOsemNames )) +sem_CProductions_Cons :: T_CProduction -> + T_CProductions -> + T_CProductions +sem_CProductions_Cons (T_CProduction hd_ ) (T_CProductions tl_ ) = + (T_CProductions (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIcontextMap + _lhsIinh + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamMap + _lhsIprefix + _lhsIsyn + _lhsIunfoldSemDom + _lhsIwith_sig -> + (let _lhsOdataAlts :: DataAlts + _lhsOcataAlts :: Decls + _lhsOcomments :: ([String]) + _lhsOdecls :: Decls + _lhsOsemNames :: ([String]) + _hdOallNts :: (Set NontermIdent) + _hdOallPragmas :: PragmaMap + _hdOaroundMap :: (Map ConstructorIdent (Set Identifier)) + _hdOcontextMap :: ContextMap + _hdOinh :: Attributes + _hdOnt :: NontermIdent + _hdOo_case :: Bool + _hdOo_cata :: Bool + _hdOo_costcentre :: Bool + _hdOo_data :: (Maybe Bool) + _hdOo_linePragmas :: Bool + _hdOo_monadic :: Bool + _hdOo_newtypes :: Bool + _hdOo_pretty :: Bool + _hdOo_rename :: Bool + _hdOo_sem :: Bool + _hdOo_sig :: Bool + _hdOo_splitsems :: Bool + _hdOo_strictwrap :: Bool + _hdOo_traces :: Bool + _hdOo_unbox :: Bool + _hdOparamMap :: ParamMap + _hdOprefix :: String + _hdOsyn :: Attributes + _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _hdOwith_sig :: Bool + _tlOallNts :: (Set NontermIdent) + _tlOallPragmas :: PragmaMap + _tlOaroundMap :: (Map ConstructorIdent (Set Identifier)) + _tlOcontextMap :: ContextMap + _tlOinh :: Attributes + _tlOnt :: NontermIdent + _tlOo_case :: Bool + _tlOo_cata :: Bool + _tlOo_costcentre :: Bool + _tlOo_data :: (Maybe Bool) + _tlOo_linePragmas :: Bool + _tlOo_monadic :: Bool + _tlOo_newtypes :: Bool + _tlOo_pretty :: Bool + _tlOo_rename :: Bool + _tlOo_sem :: Bool + _tlOo_sig :: Bool + _tlOo_splitsems :: Bool + _tlOo_strictwrap :: Bool + _tlOo_traces :: Bool + _tlOo_unbox :: Bool + _tlOparamMap :: ParamMap + _tlOprefix :: String + _tlOsyn :: Attributes + _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _tlOwith_sig :: Bool + _hdIcataAlt :: Decl + _hdIcomments :: ([String]) + _hdIdataAlt :: DataAlt + _hdIdecls :: Decls + _hdIsemNames :: ([String]) + _tlIcataAlts :: Decls + _tlIcomments :: ([String]) + _tlIdataAlts :: DataAlts + _tlIdecls :: Decls + _tlIsemNames :: ([String]) + -- "GenerateCode.ag"(line 936, column 17) + _lhsOdataAlts = + ({-# LINE 936 "GenerateCode.ag" #-} + _hdIdataAlt : _tlIdataAlts + {-# LINE 2403 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 1036, column 10) + _lhsOcataAlts = + ({-# LINE 1036 "GenerateCode.ag" #-} + _hdIcataAlt : _tlIcataAlts + {-# LINE 2408 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 793, column 52) + _lhsOcomments = + ({-# LINE 793 "GenerateCode.ag" #-} + _hdIcomments ++ _tlIcomments + {-# LINE 2413 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 843, column 44) + _lhsOdecls = + ({-# LINE 843 "GenerateCode.ag" #-} + _hdIdecls ++ _tlIdecls + {-# LINE 2418 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 1056, column 61) + _lhsOsemNames = + ({-# LINE 1056 "GenerateCode.ag" #-} + _hdIsemNames ++ _tlIsemNames + {-# LINE 2423 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOallNts = + ({-# LINE 121 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 2428 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOallPragmas = + ({-# LINE 67 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 2433 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOaroundMap = + ({-# LINE 535 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 2438 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOcontextMap = + ({-# LINE 109 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 2443 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOinh = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 2448 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOnt = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 2453 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 2458 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 2463 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 2468 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 2473 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 2478 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 2483 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 2488 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 2493 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 2498 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 2503 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 2508 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 2513 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 2518 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 2523 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 2528 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 2533 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 2538 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOsyn = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 2543 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOunfoldSemDom = + ({-# LINE 676 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 2548 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOwith_sig = + ({-# LINE 776 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 2553 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOallNts = + ({-# LINE 121 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 2558 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOallPragmas = + ({-# LINE 67 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 2563 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOaroundMap = + ({-# LINE 535 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 2568 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOcontextMap = + ({-# LINE 109 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 2573 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOinh = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 2578 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOnt = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 2583 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 2588 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 2593 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 2598 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 2603 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 2608 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 2613 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 2618 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 2623 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 2628 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 2633 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 2638 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 2643 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 2648 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 2653 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 2658 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 2663 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 2668 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOsyn = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 2673 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOunfoldSemDom = + ({-# LINE 676 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 2678 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOwith_sig = + ({-# LINE 776 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 2683 "GenerateCode.hs" #-}) + ( _hdIcataAlt,_hdIcomments,_hdIdataAlt,_hdIdecls,_hdIsemNames) = + (hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOinh _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOparamMap _hdOprefix _hdOsyn _hdOunfoldSemDom _hdOwith_sig ) + ( _tlIcataAlts,_tlIcomments,_tlIdataAlts,_tlIdecls,_tlIsemNames) = + (tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOinh _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOparamMap _tlOprefix _tlOsyn _tlOunfoldSemDom _tlOwith_sig ) + in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))) ) +sem_CProductions_Nil :: T_CProductions +sem_CProductions_Nil = + (T_CProductions (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIcontextMap + _lhsIinh + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamMap + _lhsIprefix + _lhsIsyn + _lhsIunfoldSemDom + _lhsIwith_sig -> + (let _lhsOdataAlts :: DataAlts + _lhsOcataAlts :: Decls + _lhsOcomments :: ([String]) + _lhsOdecls :: Decls + _lhsOsemNames :: ([String]) + -- "GenerateCode.ag"(line 937, column 17) + _lhsOdataAlts = + ({-# LINE 937 "GenerateCode.ag" #-} + [] + {-# LINE 2726 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 1037, column 10) + _lhsOcataAlts = + ({-# LINE 1037 "GenerateCode.ag" #-} + [] + {-# LINE 2731 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 793, column 52) + _lhsOcomments = + ({-# LINE 793 "GenerateCode.ag" #-} + [] + {-# LINE 2736 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 843, column 44) + _lhsOdecls = + ({-# LINE 843 "GenerateCode.ag" #-} + [] + {-# LINE 2741 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 1056, column 61) + _lhsOsemNames = + ({-# LINE 1056 "GenerateCode.ag" #-} + [] + {-# LINE 2746 "GenerateCode.hs" #-}) + in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))) ) +-- CRule ------------------------------------------------------- +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + aroundMap : Set Identifier + children : [(Identifier,Type,Maybe (Maybe Type))] + con : ConstructorIdent + inh : Attributes + instVisitNrs : Map Identifier Int + nr : Int + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + paramInstMap : Map Identifier (NontermIdent, [String]) + paramMap : ParamMap + prefix : String + syn : Attributes + terminals : [Identifier] + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + what : String + chained attribute: + declsAbove : [Decl] + synthesized attributes: + allTpsFound : Bool + bldBlocksFun : DeclBlocks -> DeclBlocks + comments : [String] + decls : Decls + definedInsts : [Identifier] + exprs : Exprs + tSigs : [Decl] + tps : [Type] + usedVars : Set String + alternatives: + alternative CChildVisit: + child name : {Identifier} + child nt : {NontermIdent} + child nr : {Int} + child inh : {Attributes} + child syn : {Attributes} + child isLast : {Bool} + visit 0: + local costCentreDescr : _ + local addCostCentre : _ + local decls : _ + local isSuperfluousHigherOrderIntra : _ + local names : _ + local mkTp : _ + local definedTps : _ + local nextTp : _ + local orgParams : _ + local instParams : _ + local replParamMap : _ + local replace : _ + local evalTp : _ + alternative CRule: + child name : {Identifier} + child isIn : {Bool} + child hasCode : {Bool} + child nt : {NontermIdent} + child con : {ConstructorIdent} + child field : {Identifier} + child childnt : {Maybe NontermIdent} + child tp : {Maybe Type} + child pattern : Pattern + child rhs : {[String]} + child defines : {Map Int (Identifier,Identifier,Maybe Type)} + child owrt : {Bool} + child origin : {String} + child uses : {Set (Identifier, Identifier)} + child explicit : {Bool} + child mbNamed : {Maybe Identifier} + visit 0: + local instTypes : _ + local originComment : _ + local instDecls : _ + local patDescr : _ + local traceDescr : _ + local addTrace : _ + local costCentreDescr : _ + local addCostCentre : _ + local addLinePragma : _ + local decls : _ + local definedInsts : _ + local rulename : _ + local mkTp : _ + local orgParams : _ + local evalTp : _ + local _tup3 : {([Type],Bool)} +-} +-- cata +sem_CRule :: CRule -> + T_CRule +sem_CRule (CChildVisit _name _nt _nr _inh _syn _isLast ) = + (sem_CRule_CChildVisit _name _nt _nr _inh _syn _isLast ) +sem_CRule (CRule _name _isIn _hasCode _nt _con _field _childnt _tp _pattern _rhs _defines _owrt _origin _uses _explicit _mbNamed ) = + (sem_CRule_CRule _name _isIn _hasCode _nt _con _field _childnt _tp (sem_Pattern _pattern ) _rhs _defines _owrt _origin _uses _explicit _mbNamed ) +-- semantic domain +newtype T_CRule = T_CRule ((Set NontermIdent) -> + (Set Identifier) -> + ([(Identifier,Type,Maybe (Maybe Type))]) -> + ConstructorIdent -> + ([Decl]) -> + Attributes -> + (Map Identifier Int) -> + Int -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + (Map Identifier (NontermIdent, [String])) -> + ParamMap -> + String -> + Attributes -> + ([Identifier]) -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + String -> + ( Bool,(DeclBlocks -> DeclBlocks),([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String))) +data Inh_CRule = Inh_CRule {allNts_Inh_CRule :: !(Set NontermIdent),aroundMap_Inh_CRule :: !(Set Identifier),children_Inh_CRule :: !([(Identifier,Type,Maybe (Maybe Type))]),con_Inh_CRule :: !(ConstructorIdent),declsAbove_Inh_CRule :: !([Decl]),inh_Inh_CRule :: !(Attributes),instVisitNrs_Inh_CRule :: !(Map Identifier Int),nr_Inh_CRule :: !(Int),nt_Inh_CRule :: !(NontermIdent),o_case_Inh_CRule :: !(Bool),o_cata_Inh_CRule :: !(Bool),o_costcentre_Inh_CRule :: !(Bool),o_data_Inh_CRule :: !(Maybe Bool),o_linePragmas_Inh_CRule :: !(Bool),o_monadic_Inh_CRule :: !(Bool),o_newtypes_Inh_CRule :: !(Bool),o_pretty_Inh_CRule :: !(Bool),o_rename_Inh_CRule :: !(Bool),o_sem_Inh_CRule :: !(Bool),o_sig_Inh_CRule :: !(Bool),o_splitsems_Inh_CRule :: !(Bool),o_strictwrap_Inh_CRule :: !(Bool),o_traces_Inh_CRule :: !(Bool),o_unbox_Inh_CRule :: !(Bool),paramInstMap_Inh_CRule :: !(Map Identifier (NontermIdent, [String])),paramMap_Inh_CRule :: !(ParamMap),prefix_Inh_CRule :: !(String),syn_Inh_CRule :: !(Attributes),terminals_Inh_CRule :: !([Identifier]),unfoldSemDom_Inh_CRule :: !(NontermIdent -> Int -> [String] -> Code.Type),what_Inh_CRule :: !(String)} +data Syn_CRule = Syn_CRule {allTpsFound_Syn_CRule :: !(Bool),bldBlocksFun_Syn_CRule :: !(DeclBlocks -> DeclBlocks),comments_Syn_CRule :: !([String]),decls_Syn_CRule :: !(Decls),declsAbove_Syn_CRule :: !([Decl]),definedInsts_Syn_CRule :: !([Identifier]),exprs_Syn_CRule :: !(Exprs),tSigs_Syn_CRule :: !([Decl]),tps_Syn_CRule :: !([Type]),usedVars_Syn_CRule :: !(Set String)} +wrap_CRule :: T_CRule -> + Inh_CRule -> + Syn_CRule +wrap_CRule (T_CRule sem ) (Inh_CRule _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwhat ) = + (let ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars) = + (sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwhat ) + in (Syn_CRule _lhsOallTpsFound _lhsObldBlocksFun _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars )) +sem_CRule_CChildVisit :: Identifier -> + NontermIdent -> + Int -> + Attributes -> + Attributes -> + Bool -> + T_CRule +sem_CRule_CChildVisit name_ nt_ nr_ inh_ syn_ isLast_ = + (T_CRule (\ _lhsIallNts + _lhsIaroundMap + _lhsIchildren + _lhsIcon + _lhsIdeclsAbove + _lhsIinh + _lhsIinstVisitNrs + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamInstMap + _lhsIparamMap + _lhsIprefix + _lhsIsyn + _lhsIterminals + _lhsIunfoldSemDom + _lhsIwhat -> + (let _lhsOexprs :: Exprs + _lhsOusedVars :: (Set String) + _lhsOtSigs :: ([Decl]) + _lhsOtps :: ([Type]) + _lhsOdeclsAbove :: ([Decl]) + _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks) + _lhsOallTpsFound :: Bool + _lhsOcomments :: ([String]) + _lhsOdecls :: Decls + _lhsOdefinedInsts :: ([Identifier]) + -- "GenerateCode.ag"(line 187, column 18) + _costCentreDescr = + ({-# LINE 187 "GenerateCode.ag" #-} + show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show name_ ++ ":" ++ show nt_ ++ ":" ++ show nr_ + {-# LINE 2953 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 188, column 18) + _addCostCentre = + ({-# LINE 188 "GenerateCode.ag" #-} + \v -> if _lhsIo_costcentre + then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v + else v + {-# LINE 2960 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 191, column 18) + _decls = + ({-# LINE 191 "GenerateCode.ag" #-} + let lhsVars = map (attrname True name_) (Map.keys syn_) + ++ if isLast_ then [] else [unwrap ++ funname name_ (nr_+1)] + rhsVars = map (attrname False name_) (Map.keys inh_) + unwrap = if _lhsIo_newtypes then typeName nt_ (nr_ + 1) ++ " " else "" + tuple = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars + rhs = _addCostCentre $ App fun (map SimpleExpr rhsVars) + isVirtual _ [] = False + isVirtual nm ((n,t,mb) : r) + | nm == n = isJust mb + | otherwise = isVirtual nm r + baseNm = if nr_ == 0 && isVirtual name_ _lhsIchildren + then Ident (getName name_ ++ "_inst") (getPos name_) + else name_ + fun | nr_ == 0 && Set.member name_ _lhsIaroundMap + = locname name_ ++ "_around " ++ funname baseNm 0 + | otherwise = funname baseNm nr_ + in [mkDecl _lhsIo_monadic tuple rhs (Set.fromList lhsVars) (Set.fromList (funname baseNm nr_ : rhsVars))] + {-# LINE 2981 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 289, column 7) + _isSuperfluousHigherOrderIntra = + ({-# LINE 289 "GenerateCode.ag" #-} + _lhsInr <= Map.findWithDefault (-1) name_ _lhsIinstVisitNrs + {-# LINE 2986 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 303, column 8) + _names = + ({-# LINE 303 "GenerateCode.ag" #-} + if _isSuperfluousHigherOrderIntra + then [] + else [funname name_ (nr_+1)] + {-# LINE 2993 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 307, column 8) + _lhsOexprs = + ({-# LINE 307 "GenerateCode.ag" #-} + let wrap = if _lhsIo_newtypes then \x -> App (typeName nt_ (nr_ + 1)) [x] else id + addType expr | null _instParams = expr + | otherwise = TypedExpr expr (_lhsIunfoldSemDom nt_ (nr_+1) _instParams ) + in map (wrap . addType . SimpleExpr) _names + {-# LINE 3001 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 319, column 7) + _lhsOusedVars = + ({-# LINE 319 "GenerateCode.ag" #-} + Set.fromList _names + {-# LINE 3006 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 358, column 19) + _mkTp = + ({-# LINE 358 "GenerateCode.ag" #-} + _evalTp . typeToCodeType (Just nt_) _orgParams + {-# LINE 3011 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 359, column 19) + _definedTps = + ({-# LINE 359 "GenerateCode.ag" #-} + [ TSig (attrname True name_ a) (_mkTp tp) | (a,tp) <- Map.toList syn_ ] + {-# LINE 3016 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 360, column 19) + _nextTp = + ({-# LINE 360 "GenerateCode.ag" #-} + typeName nt_ (nr_+1) + {-# LINE 3021 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 361, column 19) + _lhsOtSigs = + ({-# LINE 361 "GenerateCode.ag" #-} + (if isLast_ then id else (TSig (funname name_ (nr_+1)) (TypeApp (SimpleType _nextTp) (map SimpleType _instParams )) :)) _definedTps + {-# LINE 3026 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 363, column 19) + _orgParams = + ({-# LINE 363 "GenerateCode.ag" #-} + map getName $ Map.findWithDefault [] nt_ _lhsIparamMap + {-# LINE 3031 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 364, column 19) + _instParams = + ({-# LINE 364 "GenerateCode.ag" #-} + snd $ Map.findWithDefault (nt_,[]) name_ _lhsIparamInstMap + {-# LINE 3036 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 365, column 19) + _replParamMap = + ({-# LINE 365 "GenerateCode.ag" #-} + Map.fromList (zip _orgParams _instParams ) + {-# LINE 3041 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 366, column 19) + _replace = + ({-# LINE 366 "GenerateCode.ag" #-} + \k -> Map.findWithDefault k k _replParamMap + {-# LINE 3046 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 367, column 19) + _evalTp = + ({-# LINE 367 "GenerateCode.ag" #-} + if null _orgParams then id else evalType _replace + {-# LINE 3051 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 390, column 19) + _lhsOtps = + ({-# LINE 390 "GenerateCode.ag" #-} + if _isSuperfluousHigherOrderIntra + then [] + else [NT (ntOfVisit nt_ (nr_+1)) _instParams ] + {-# LINE 3058 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 559, column 7) + _lhsOdeclsAbove = + ({-# LINE 559 "GenerateCode.ag" #-} + [] + {-# LINE 3063 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 572, column 7) + _lhsObldBlocksFun = + ({-# LINE 572 "GenerateCode.ag" #-} + DeclBlock _lhsIdeclsAbove (head _decls ) + {-# LINE 3068 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 387, column 39) + _lhsOallTpsFound = + ({-# LINE 387 "GenerateCode.ag" #-} + True + {-# LINE 3073 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 793, column 52) + _lhsOcomments = + ({-# LINE 793 "GenerateCode.ag" #-} + [] + {-# LINE 3078 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 139, column 34) + _lhsOdecls = + ({-# LINE 139 "GenerateCode.ag" #-} + _decls + {-# LINE 3083 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 223, column 55) + _lhsOdefinedInsts = + ({-# LINE 223 "GenerateCode.ag" #-} + [] + {-# LINE 3088 "GenerateCode.hs" #-}) + in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars))) ) +sem_CRule_CRule :: Identifier -> + Bool -> + Bool -> + NontermIdent -> + ConstructorIdent -> + Identifier -> + (Maybe NontermIdent) -> + (Maybe Type) -> + T_Pattern -> + ([String]) -> + (Map Int (Identifier,Identifier,Maybe Type)) -> + Bool -> + String -> + (Set (Identifier, Identifier)) -> + Bool -> + (Maybe Identifier) -> + T_CRule +sem_CRule_CRule name_ isIn_ hasCode_ nt_ con_ field_ childnt_ tp_ (T_Pattern pattern_ ) rhs_ defines_ owrt_ origin_ uses_ explicit_ mbNamed_ = + (T_CRule (\ _lhsIallNts + _lhsIaroundMap + _lhsIchildren + _lhsIcon + _lhsIdeclsAbove + _lhsIinh + _lhsIinstVisitNrs + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamInstMap + _lhsIparamMap + _lhsIprefix + _lhsIsyn + _lhsIterminals + _lhsIunfoldSemDom + _lhsIwhat -> + (let _lhsOexprs :: Exprs + _lhsOusedVars :: (Set String) + _lhsOtSigs :: ([Decl]) + __tup3 :: (([Type],Bool)) + _lhsOtps :: ([Type]) + _lhsOallTpsFound :: Bool + _lhsOdeclsAbove :: ([Decl]) + _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks) + _lhsOcomments :: ([String]) + _lhsOdecls :: Decls + _lhsOdefinedInsts :: ([Identifier]) + _patternIcopy :: Pattern + _patternIdefinedInsts :: ([Identifier]) + _patternIpatternAttributes :: ([(Identifier, Identifier)]) + -- "GenerateCode.ag"(line 141, column 12) + _instTypes = + ({-# LINE 141 "GenerateCode.ag" #-} + [ (n, (t, mb)) | (n, NT t _, mb) <- _lhsIchildren ] + {-# LINE 3157 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 142, column 12) + _originComment = + ({-# LINE 142 "GenerateCode.ag" #-} + if _lhsIo_pretty + then (Comment origin_:) + else id + {-# LINE 3164 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 145, column 12) + _instDecls = + ({-# LINE 145 "GenerateCode.ag" #-} + [ mkDecl _lhsIo_monadic (Pattern3 (Alias _INST' inst (Underscore (getPos inst)) [])) + ( let (nm,mb) = fromJust $ inst `lookup` _instTypes + in unwrapSem _lhsIo_newtypes (maybe nm id (deforestedNt nm)) + $ case mb of + Just (Just tp') -> App instLocFieldName [SimpleExpr $ fieldname inst] + _ -> + case nm `Set.member` _lhsIallNts of + True -> App (cataname _lhsIprefix nm) + [SimpleExpr instLocFieldName] + False -> SimpleExpr instLocFieldName + ) + (Set.singleton instSemFieldName) + (Set.singleton instLocFieldName) + | inst <- _definedInsts + , let instLocFieldName = attrname True _INST inst + instSemFieldName = attrname False _INST' inst + ] + {-# LINE 3185 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 162, column 12) + _patDescr = + ({-# LINE 162 "GenerateCode.ag" #-} + if isIn_ + then "_" + else concat $ intersperse "," (map (\(f,a) -> show f ++ "." ++ show a) _patternIpatternAttributes) + {-# LINE 3192 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 165, column 12) + _traceDescr = + ({-# LINE 165 "GenerateCode.ag" #-} + (maybe "" (\nm -> show nm ++ ":") mbNamed_) ++ show nt_ ++ " :: " ++ show con_ ++ " :: " ++ _patDescr + {-# LINE 3197 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 167, column 12) + _addTrace = + ({-# LINE 167 "GenerateCode.ag" #-} + \v -> if _lhsIo_traces + then Trace _traceDescr v + else v + {-# LINE 3204 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 170, column 12) + _costCentreDescr = + ({-# LINE 170 "GenerateCode.ag" #-} + show nt_ ++ ":" ++ show con_ ++ ":" ++ _patDescr + {-# LINE 3209 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 171, column 12) + _addCostCentre = + ({-# LINE 171 "GenerateCode.ag" #-} + \v -> if _lhsIo_costcentre + then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v + else v + {-# LINE 3216 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 174, column 12) + _addLinePragma = + ({-# LINE 174 "GenerateCode.ag" #-} + \v -> let p = getPos name_ + hasPos = line p > 0 && column p >= 0 && not (null (file p)) + in if _lhsIo_linePragmas && hasPos + then PragmaExpr True True ("LINE " ++ show (line p) ++ " " ++ show (file p)) + $ LineExpr + $ v + else v + {-# LINE 3227 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 181, column 12) + _decls = + ({-# LINE 181 "GenerateCode.ag" #-} + if hasCode_ + then _originComment ( mkDecl (_lhsIo_monadic && explicit_) (Pattern3 _patternIcopy) (_addTrace $ _addCostCentre $ _addLinePragma $ (TextExpr rhs_)) + (Set.fromList [attrname False fld nm | (fld,nm,_) <- Map.elems defines_]) + (Set.fromList [attrname True fld nm | (fld,nm) <- Set.toList uses_]) + : _instDecls ) + else _instDecls + {-# LINE 3237 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 228, column 12) + _definedInsts = + ({-# LINE 228 "GenerateCode.ag" #-} + if isIn_ then [] else _patternIdefinedInsts + {-# LINE 3242 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 298, column 12) + _rulename = + ({-# LINE 298 "GenerateCode.ag" #-} + if field_ == _LOC && name_ `elem` _lhsIterminals + then funname name_ 0 + else attrname isIn_ field_ name_ + {-# LINE 3249 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 301, column 12) + _lhsOexprs = + ({-# LINE 301 "GenerateCode.ag" #-} + [SimpleExpr _rulename ] + {-# LINE 3254 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 317, column 7) + _lhsOusedVars = + ({-# LINE 317 "GenerateCode.ag" #-} + Set.singleton _rulename + {-# LINE 3259 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 327, column 19) + _mkTp = + ({-# LINE 327 "GenerateCode.ag" #-} + typeToCodeType (Just _lhsInt) _orgParams + {-# LINE 3264 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 328, column 19) + _lhsOtSigs = + ({-# LINE 328 "GenerateCode.ag" #-} + [ TSig (attrname False field attr) tp' + | (field,attr,tp) <- Map.elems defines_, isJust tp + , let tp1 = _evalTp field $ _mkTp (fromJust tp) + tp' = case findOrigType attr _lhsIchildren of + Just tp' -> let tp'' = case tp' of + NT n params -> NT (Ident ("T_" ++ show n) (getPos n)) params + _ -> tp' + tp2 = _evalTp field $ _mkTp tp'' + in Arr tp2 tp1 + Nothing -> tp1 + findOrigType nm [] = Nothing + findOrigType nm ((n,_,mb) : r) + | nm == n = case mb of + Just (Just orig) -> Just orig + _ -> Nothing + | otherwise = findOrigType nm r + ] + {-# LINE 3285 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 346, column 19) + _orgParams = + ({-# LINE 346 "GenerateCode.ag" #-} + map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap + {-# LINE 3290 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 347, column 19) + _evalTp = + ({-# LINE 347 "GenerateCode.ag" #-} + \field tp -> let orgFldParams = map getName $ Map.findWithDefault [] childNt _lhsIparamMap + (childNt,instParams) = Map.findWithDefault (_lhsInt,[]) field _lhsIparamInstMap + replMap = Map.fromList (zip orgFldParams instParams) + replace k = Map.findWithDefault ('@':k) k replMap + in if null instParams + then if null _orgParams + then tp + else idEvalType tp + else evalType replace tp + {-# LINE 3303 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 389, column 23) + __tup3 = + ({-# LINE 389 "GenerateCode.ag" #-} + maybe ([],False) (\tp -> ([substSelf (fromJust childnt_) tp],True)) tp_ + {-# LINE 3308 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 389, column 23) + (_lhsOtps,_) = + ({-# LINE 389 "GenerateCode.ag" #-} + __tup3 + {-# LINE 3313 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 389, column 23) + (_,_lhsOallTpsFound) = + ({-# LINE 389 "GenerateCode.ag" #-} + __tup3 + {-# LINE 3318 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 557, column 7) + _lhsOdeclsAbove = + ({-# LINE 557 "GenerateCode.ag" #-} + _lhsIdeclsAbove ++ _decls + {-# LINE 3323 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 570, column 7) + _lhsObldBlocksFun = + ({-# LINE 570 "GenerateCode.ag" #-} + id + {-# LINE 3328 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 827, column 18) + _lhsOcomments = + ({-# LINE 827 "GenerateCode.ag" #-} + [ makeLocalComment 11 _lhsIwhat name tp | (field,name,tp) <- Map.elems defines_, field == _LOC ] + ++ [ makeLocalComment 11 "inst " name tp | (field,name,tp) <- Map.elems defines_, field == _INST ] + {-# LINE 3334 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 139, column 34) + _lhsOdecls = + ({-# LINE 139 "GenerateCode.ag" #-} + _decls + {-# LINE 3339 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 223, column 55) + _lhsOdefinedInsts = + ({-# LINE 223 "GenerateCode.ag" #-} + _definedInsts + {-# LINE 3344 "GenerateCode.hs" #-}) + ( _patternIcopy,_patternIdefinedInsts,_patternIpatternAttributes) = + (pattern_ ) + in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars))) ) +-- CSegment ---------------------------------------------------- +{- + visit 0: + inherited attributes: + inh : Attributes + isLast : Bool + nr : Int + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + paramMap : ParamMap + prefix : String + syn : Attributes + synthesized attributes: + comments : [String] + semDom : [Decl] + semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) + wrapDecls : Decls + alternatives: + alternative CSegment: + child inh : {Attributes} + child syn : {Attributes} + visit 0: + local tp : _ + local inhTps : _ + local synTps : _ + local continuation : _ + local params : _ +-} +-- cata +sem_CSegment :: CSegment -> + T_CSegment +sem_CSegment (CSegment _inh _syn ) = + (sem_CSegment_CSegment _inh _syn ) +-- semantic domain +newtype T_CSegment = T_CSegment (Attributes -> + Bool -> + Int -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + ParamMap -> + String -> + Attributes -> + ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls)) +data Inh_CSegment = Inh_CSegment {inh_Inh_CSegment :: !(Attributes),isLast_Inh_CSegment :: !(Bool),nr_Inh_CSegment :: !(Int),nt_Inh_CSegment :: !(NontermIdent),o_case_Inh_CSegment :: !(Bool),o_cata_Inh_CSegment :: !(Bool),o_costcentre_Inh_CSegment :: !(Bool),o_data_Inh_CSegment :: !(Maybe Bool),o_linePragmas_Inh_CSegment :: !(Bool),o_monadic_Inh_CSegment :: !(Bool),o_newtypes_Inh_CSegment :: !(Bool),o_pretty_Inh_CSegment :: !(Bool),o_rename_Inh_CSegment :: !(Bool),o_sem_Inh_CSegment :: !(Bool),o_sig_Inh_CSegment :: !(Bool),o_splitsems_Inh_CSegment :: !(Bool),o_strictwrap_Inh_CSegment :: !(Bool),o_traces_Inh_CSegment :: !(Bool),o_unbox_Inh_CSegment :: !(Bool),paramMap_Inh_CSegment :: !(ParamMap),prefix_Inh_CSegment :: !(String),syn_Inh_CSegment :: !(Attributes)} +data Syn_CSegment = Syn_CSegment {comments_Syn_CSegment :: !([String]),semDom_Syn_CSegment :: !([Decl]),semDomUnfoldGath_Syn_CSegment :: !(Map (NontermIdent, Int) ([String], Code.Type)),wrapDecls_Syn_CSegment :: !(Decls)} +wrap_CSegment :: T_CSegment -> + Inh_CSegment -> + Syn_CSegment +wrap_CSegment (T_CSegment sem ) (Inh_CSegment _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn ) = + (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = + (sem _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn ) + in (Syn_CSegment _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls )) +sem_CSegment_CSegment :: Attributes -> + Attributes -> + T_CSegment +sem_CSegment_CSegment inh_ syn_ = + (T_CSegment (\ _lhsIinh + _lhsIisLast + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamMap + _lhsIprefix + _lhsIsyn -> + (let _lhsOsemDom :: ([Decl]) + _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _lhsOwrapDecls :: Decls + _lhsOcomments :: ([String]) + -- "GenerateCode.ag"(line 656, column 15) + _tp = + ({-# LINE 656 "GenerateCode.ag" #-} + foldr Arr _synTps _inhTps + {-# LINE 3462 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 657, column 15) + _inhTps = + ({-# LINE 657 "GenerateCode.ag" #-} + [typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems inh_] + {-# LINE 3467 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 658, column 15) + _synTps = + ({-# LINE 658 "GenerateCode.ag" #-} + mkTupleType _lhsIo_unbox (null _inhTps ) ([typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems syn_] ++ _continuation ) + {-# LINE 3472 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 659, column 15) + _continuation = + ({-# LINE 659 "GenerateCode.ag" #-} + if _lhsIisLast + then [] + else [TypeApp (SimpleType (typeName _lhsInt (_lhsInr + 1))) (map (SimpleType . ('@':)) _params )] + {-# LINE 3479 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 662, column 15) + _params = + ({-# LINE 662 "GenerateCode.ag" #-} + map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap + {-# LINE 3484 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 663, column 15) + _lhsOsemDom = + ({-# LINE 663 "GenerateCode.ag" #-} + let name = typeName _lhsInt _lhsInr + evalTp | null _params = id + | otherwise = idEvalType + in if _lhsIo_newtypes + then [ Code.NewType name _params name (evalTp _tp ) ] + else [ Code.Type name _params (evalTp _tp ) ] + {-# LINE 3494 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 674, column 7) + _lhsOsemDomUnfoldGath = + ({-# LINE 674 "GenerateCode.ag" #-} + Map.singleton (_lhsInt, _lhsInr) (_params , _tp ) + {-# LINE 3499 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 758, column 15) + _lhsOwrapDecls = + ({-# LINE 758 "GenerateCode.ag" #-} + let lhsVars = map (lhsname False) (Map.keys syn_) + ++ if _lhsIisLast then [] else [unwrap ++ sem (_lhsInr+1)] + rhsVars = map (lhsname True) (Map.keys inh_) + rhs = map SimpleExpr rhsVars + unwrap = if _lhsIo_newtypes then typeName _lhsInt (_lhsInr + 1) ++ " " else "" + var = "sem" + sem 0 = var + sem n = var ++ "_" ++ show n + in [ Decl (mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars) (App (sem _lhsInr) rhs) (Set.fromList lhsVars) (Set.fromList rhsVars) ] + {-# LINE 3512 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 798, column 18) + _lhsOcomments = + ({-# LINE 798 "GenerateCode.ag" #-} + let body = map ind (showsSegment (CSegment inh_ syn_)) + in if null body + then [] + else ("visit " ++ show _lhsInr ++ ":") : body + {-# LINE 3520 "GenerateCode.hs" #-}) + in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) +-- CSegments --------------------------------------------------- +{- + visit 0: + inherited attributes: + inh : Attributes + nr : Int + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + paramMap : ParamMap + prefix : String + syn : Attributes + synthesized attributes: + comments : [String] + isNil : Bool + semDom : [Decl] + semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) + wrapDecls : Decls + alternatives: + alternative Cons: + child hd : CSegment + child tl : CSegments + alternative Nil: +-} +-- cata +sem_CSegments :: CSegments -> + T_CSegments +sem_CSegments list = + (Prelude.foldr sem_CSegments_Cons sem_CSegments_Nil (Prelude.map sem_CSegment list) ) +-- semantic domain +newtype T_CSegments = T_CSegments (Attributes -> + Int -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + ParamMap -> + String -> + Attributes -> + ( ([String]),Bool,([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls)) +data Inh_CSegments = Inh_CSegments {inh_Inh_CSegments :: !(Attributes),nr_Inh_CSegments :: !(Int),nt_Inh_CSegments :: !(NontermIdent),o_case_Inh_CSegments :: !(Bool),o_cata_Inh_CSegments :: !(Bool),o_costcentre_Inh_CSegments :: !(Bool),o_data_Inh_CSegments :: !(Maybe Bool),o_linePragmas_Inh_CSegments :: !(Bool),o_monadic_Inh_CSegments :: !(Bool),o_newtypes_Inh_CSegments :: !(Bool),o_pretty_Inh_CSegments :: !(Bool),o_rename_Inh_CSegments :: !(Bool),o_sem_Inh_CSegments :: !(Bool),o_sig_Inh_CSegments :: !(Bool),o_splitsems_Inh_CSegments :: !(Bool),o_strictwrap_Inh_CSegments :: !(Bool),o_traces_Inh_CSegments :: !(Bool),o_unbox_Inh_CSegments :: !(Bool),paramMap_Inh_CSegments :: !(ParamMap),prefix_Inh_CSegments :: !(String),syn_Inh_CSegments :: !(Attributes)} +data Syn_CSegments = Syn_CSegments {comments_Syn_CSegments :: !([String]),isNil_Syn_CSegments :: !(Bool),semDom_Syn_CSegments :: !([Decl]),semDomUnfoldGath_Syn_CSegments :: !(Map (NontermIdent, Int) ([String], Code.Type)),wrapDecls_Syn_CSegments :: !(Decls)} +wrap_CSegments :: T_CSegments -> + Inh_CSegments -> + Syn_CSegments +wrap_CSegments (T_CSegments sem ) (Inh_CSegments _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn ) = + (let ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = + (sem _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamMap _lhsIprefix _lhsIsyn ) + in (Syn_CSegments _lhsOcomments _lhsOisNil _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls )) +sem_CSegments_Cons :: T_CSegment -> + T_CSegments -> + T_CSegments +sem_CSegments_Cons (T_CSegment hd_ ) (T_CSegments tl_ ) = + (T_CSegments (\ _lhsIinh + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamMap + _lhsIprefix + _lhsIsyn -> + (let _tlOnr :: Int + _lhsOisNil :: Bool + _hdOisLast :: Bool + _lhsOcomments :: ([String]) + _lhsOsemDom :: ([Decl]) + _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _lhsOwrapDecls :: Decls + _hdOinh :: Attributes + _hdOnr :: Int + _hdOnt :: NontermIdent + _hdOo_case :: Bool + _hdOo_cata :: Bool + _hdOo_costcentre :: Bool + _hdOo_data :: (Maybe Bool) + _hdOo_linePragmas :: Bool + _hdOo_monadic :: Bool + _hdOo_newtypes :: Bool + _hdOo_pretty :: Bool + _hdOo_rename :: Bool + _hdOo_sem :: Bool + _hdOo_sig :: Bool + _hdOo_splitsems :: Bool + _hdOo_strictwrap :: Bool + _hdOo_traces :: Bool + _hdOo_unbox :: Bool + _hdOparamMap :: ParamMap + _hdOprefix :: String + _hdOsyn :: Attributes + _tlOinh :: Attributes + _tlOnt :: NontermIdent + _tlOo_case :: Bool + _tlOo_cata :: Bool + _tlOo_costcentre :: Bool + _tlOo_data :: (Maybe Bool) + _tlOo_linePragmas :: Bool + _tlOo_monadic :: Bool + _tlOo_newtypes :: Bool + _tlOo_pretty :: Bool + _tlOo_rename :: Bool + _tlOo_sem :: Bool + _tlOo_sig :: Bool + _tlOo_splitsems :: Bool + _tlOo_strictwrap :: Bool + _tlOo_traces :: Bool + _tlOo_unbox :: Bool + _tlOparamMap :: ParamMap + _tlOprefix :: String + _tlOsyn :: Attributes + _hdIcomments :: ([String]) + _hdIsemDom :: ([Decl]) + _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _hdIwrapDecls :: Decls + _tlIcomments :: ([String]) + _tlIisNil :: Bool + _tlIsemDom :: ([Decl]) + _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _tlIwrapDecls :: Decls + -- "GenerateCode.ag"(line 248, column 11) + _tlOnr = + ({-# LINE 248 "GenerateCode.ag" #-} + _lhsInr + 1 + {-# LINE 3682 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 261, column 12) + _lhsOisNil = + ({-# LINE 261 "GenerateCode.ag" #-} + False + {-# LINE 3687 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 262, column 12) + _hdOisLast = + ({-# LINE 262 "GenerateCode.ag" #-} + _tlIisNil + {-# LINE 3692 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 793, column 52) + _lhsOcomments = + ({-# LINE 793 "GenerateCode.ag" #-} + _hdIcomments ++ _tlIcomments + {-# LINE 3697 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 651, column 50) + _lhsOsemDom = + ({-# LINE 651 "GenerateCode.ag" #-} + _hdIsemDom ++ _tlIsemDom + {-# LINE 3702 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 670, column 86) + _lhsOsemDomUnfoldGath = + ({-# LINE 670 "GenerateCode.ag" #-} + _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath + {-# LINE 3707 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 756, column 52) + _lhsOwrapDecls = + ({-# LINE 756 "GenerateCode.ag" #-} + _hdIwrapDecls ++ _tlIwrapDecls + {-# LINE 3712 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOinh = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 3717 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOnr = + ({-# LINE 240 "GenerateCode.ag" #-} + _lhsInr + {-# LINE 3722 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOnt = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 3727 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 3732 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 3737 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 3742 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 3747 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 3752 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 3757 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 3762 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 3767 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 3772 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 3777 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 3782 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 3787 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 3792 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 3797 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 3802 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 3807 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 3812 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOsyn = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 3817 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOinh = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 3822 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOnt = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 3827 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 3832 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 3837 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 3842 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 3847 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 3852 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 3857 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 3862 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 3867 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 3872 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 3877 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 3882 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 3887 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 3892 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 3897 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 3902 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 3907 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 3912 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOsyn = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 3917 "GenerateCode.hs" #-}) + ( _hdIcomments,_hdIsemDom,_hdIsemDomUnfoldGath,_hdIwrapDecls) = + (hd_ _hdOinh _hdOisLast _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOparamMap _hdOprefix _hdOsyn ) + ( _tlIcomments,_tlIisNil,_tlIsemDom,_tlIsemDomUnfoldGath,_tlIwrapDecls) = + (tl_ _tlOinh _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOparamMap _tlOprefix _tlOsyn ) + in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) +sem_CSegments_Nil :: T_CSegments +sem_CSegments_Nil = + (T_CSegments (\ _lhsIinh + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamMap + _lhsIprefix + _lhsIsyn -> + (let _lhsOisNil :: Bool + _lhsOcomments :: ([String]) + _lhsOsemDom :: ([Decl]) + _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _lhsOwrapDecls :: Decls + -- "GenerateCode.ag"(line 263, column 10) + _lhsOisNil = + ({-# LINE 263 "GenerateCode.ag" #-} + True + {-# LINE 3955 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 793, column 52) + _lhsOcomments = + ({-# LINE 793 "GenerateCode.ag" #-} + [] + {-# LINE 3960 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 651, column 50) + _lhsOsemDom = + ({-# LINE 651 "GenerateCode.ag" #-} + [] + {-# LINE 3965 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 670, column 86) + _lhsOsemDomUnfoldGath = + ({-# LINE 670 "GenerateCode.ag" #-} + Map.empty + {-# LINE 3970 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 756, column 52) + _lhsOwrapDecls = + ({-# LINE 756 "GenerateCode.ag" #-} + [] + {-# LINE 3975 "GenerateCode.hs" #-}) + in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) +-- CVisit ------------------------------------------------------ +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + allPragmas : PragmaMap + aroundMap : Set Identifier + children : [(Identifier,Type, Maybe (Maybe Type))] + con : ConstructorIdent + contextMap : ContextMap + inh : Attributes + instVisitNrs : Map Identifier Int + isLast : Bool + nextIntra : Exprs + nextIntraVars : Set String + nr : Int + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + paramInstMap : Map Identifier (NontermIdent, [String]) + paramMap : ParamMap + prefix : String + syn : Attributes + terminals : [Identifier] + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + with_sig : Bool + chained attribute: + decls : Decls + synthesized attributes: + comments : [String] + gatherInstVisitNrs : Map Identifier Int + intra : Exprs + intraVars : Set String + semNames : [String] + alternatives: + alternative CVisit: + child inh : {Attributes} + child syn : {Attributes} + child vss : Sequence + child intra : Sequence + child ordered : {Bool} + visit 0: + local _tup4 : _ + local higherOrderChildren : _ + local firstOrderChildren : _ + local firstOrderOrig : _ + local funcname : _ + local nextVisitName : _ + local nextVisitDecl : _ + local decls : _ + local lastExprVars : _ + local _tup5 : _ + local blockFunDecls : _ + local blockFirstFunCall : _ + local costCentreDescr : _ + local addCostCentre : _ + local params : _ + local semFun : _ + local tsig : _ + local semType : _ + local typeSigs : _ + local o_do : _ + local o_case : _ + local declsType : _ + local o_splitsems : _ +-} +-- cata +sem_CVisit :: CVisit -> + T_CVisit +sem_CVisit (CVisit _inh _syn _vss _intra _ordered ) = + (sem_CVisit_CVisit _inh _syn (sem_Sequence _vss ) (sem_Sequence _intra ) _ordered ) +-- semantic domain +newtype T_CVisit = T_CVisit ((Set NontermIdent) -> + PragmaMap -> + (Set Identifier) -> + ([(Identifier,Type, Maybe (Maybe Type))]) -> + ConstructorIdent -> + ContextMap -> + Decls -> + Attributes -> + (Map Identifier Int) -> + Bool -> + Exprs -> + (Set String) -> + Int -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + (Map Identifier (NontermIdent, [String])) -> + ParamMap -> + String -> + Attributes -> + ([Identifier]) -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + Bool -> + ( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),([String]))) +data Inh_CVisit = Inh_CVisit {allNts_Inh_CVisit :: !(Set NontermIdent),allPragmas_Inh_CVisit :: !(PragmaMap),aroundMap_Inh_CVisit :: !(Set Identifier),children_Inh_CVisit :: !([(Identifier,Type, Maybe (Maybe Type))]),con_Inh_CVisit :: !(ConstructorIdent),contextMap_Inh_CVisit :: !(ContextMap),decls_Inh_CVisit :: !(Decls),inh_Inh_CVisit :: !(Attributes),instVisitNrs_Inh_CVisit :: !(Map Identifier Int),isLast_Inh_CVisit :: !(Bool),nextIntra_Inh_CVisit :: !(Exprs),nextIntraVars_Inh_CVisit :: !(Set String),nr_Inh_CVisit :: !(Int),nt_Inh_CVisit :: !(NontermIdent),o_case_Inh_CVisit :: !(Bool),o_cata_Inh_CVisit :: !(Bool),o_costcentre_Inh_CVisit :: !(Bool),o_data_Inh_CVisit :: !(Maybe Bool),o_linePragmas_Inh_CVisit :: !(Bool),o_monadic_Inh_CVisit :: !(Bool),o_newtypes_Inh_CVisit :: !(Bool),o_pretty_Inh_CVisit :: !(Bool),o_rename_Inh_CVisit :: !(Bool),o_sem_Inh_CVisit :: !(Bool),o_sig_Inh_CVisit :: !(Bool),o_splitsems_Inh_CVisit :: !(Bool),o_strictwrap_Inh_CVisit :: !(Bool),o_traces_Inh_CVisit :: !(Bool),o_unbox_Inh_CVisit :: !(Bool),paramInstMap_Inh_CVisit :: !(Map Identifier (NontermIdent, [String])),paramMap_Inh_CVisit :: !(ParamMap),prefix_Inh_CVisit :: !(String),syn_Inh_CVisit :: !(Attributes),terminals_Inh_CVisit :: !([Identifier]),unfoldSemDom_Inh_CVisit :: !(NontermIdent -> Int -> [String] -> Code.Type),with_sig_Inh_CVisit :: !(Bool)} +data Syn_CVisit = Syn_CVisit {comments_Syn_CVisit :: !([String]),decls_Syn_CVisit :: !(Decls),gatherInstVisitNrs_Syn_CVisit :: !(Map Identifier Int),intra_Syn_CVisit :: !(Exprs),intraVars_Syn_CVisit :: !(Set String),semNames_Syn_CVisit :: !([String])} +wrap_CVisit :: T_CVisit -> + Inh_CVisit -> + Syn_CVisit +wrap_CVisit (T_CVisit sem ) (Inh_CVisit _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwith_sig ) = + (let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames) = + (sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwith_sig ) + in (Syn_CVisit _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOsemNames )) +sem_CVisit_CVisit :: Attributes -> + Attributes -> + T_Sequence -> + T_Sequence -> + Bool -> + T_CVisit +sem_CVisit_CVisit inh_ syn_ (T_Sequence vss_ ) (T_Sequence intra_ ) ordered_ = + (T_CVisit (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIchildren + _lhsIcon + _lhsIcontextMap + _lhsIdecls + _lhsIinh + _lhsIinstVisitNrs + _lhsIisLast + _lhsInextIntra + _lhsInextIntraVars + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamInstMap + _lhsIparamMap + _lhsIprefix + _lhsIsyn + _lhsIterminals + _lhsIunfoldSemDom + _lhsIwith_sig -> + (let _lhsOintra :: Exprs + _lhsOintraVars :: (Set String) + _vssOlastExpr :: Expr + _intraOlastExpr :: Expr + _lhsOdecls :: Decls + _lhsOgatherInstVisitNrs :: (Map Identifier Int) + _vssOdeclsAbove :: ([Decl]) + _intraOdeclsAbove :: ([Decl]) + _lhsOcomments :: ([String]) + _vssOwhat :: String + _intraOwhat :: String + _lhsOsemNames :: ([String]) + _vssOallNts :: (Set NontermIdent) + _vssOaroundMap :: (Set Identifier) + _vssOchildren :: ([(Identifier,Type,Maybe (Maybe Type))]) + _vssOcon :: ConstructorIdent + _vssOinh :: Attributes + _vssOinstVisitNrs :: (Map Identifier Int) + _vssOnr :: Int + _vssOnt :: NontermIdent + _vssOo_case :: Bool + _vssOo_cata :: Bool + _vssOo_costcentre :: Bool + _vssOo_data :: (Maybe Bool) + _vssOo_linePragmas :: Bool + _vssOo_monadic :: Bool + _vssOo_newtypes :: Bool + _vssOo_pretty :: Bool + _vssOo_rename :: Bool + _vssOo_sem :: Bool + _vssOo_sig :: Bool + _vssOo_splitsems :: Bool + _vssOo_strictwrap :: Bool + _vssOo_traces :: Bool + _vssOo_unbox :: Bool + _vssOparamInstMap :: (Map Identifier (NontermIdent, [String])) + _vssOparamMap :: ParamMap + _vssOprefix :: String + _vssOsyn :: Attributes + _vssOterminals :: ([Identifier]) + _vssOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _intraOallNts :: (Set NontermIdent) + _intraOaroundMap :: (Set Identifier) + _intraOchildren :: ([(Identifier,Type,Maybe (Maybe Type))]) + _intraOcon :: ConstructorIdent + _intraOinh :: Attributes + _intraOinstVisitNrs :: (Map Identifier Int) + _intraOnr :: Int + _intraOnt :: NontermIdent + _intraOo_case :: Bool + _intraOo_cata :: Bool + _intraOo_costcentre :: Bool + _intraOo_data :: (Maybe Bool) + _intraOo_linePragmas :: Bool + _intraOo_monadic :: Bool + _intraOo_newtypes :: Bool + _intraOo_pretty :: Bool + _intraOo_rename :: Bool + _intraOo_sem :: Bool + _intraOo_sig :: Bool + _intraOo_splitsems :: Bool + _intraOo_strictwrap :: Bool + _intraOo_traces :: Bool + _intraOo_unbox :: Bool + _intraOparamInstMap :: (Map Identifier (NontermIdent, [String])) + _intraOparamMap :: ParamMap + _intraOprefix :: String + _intraOsyn :: Attributes + _intraOterminals :: ([Identifier]) + _intraOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _vssIallTpsFound :: Bool + _vssIblockDecls :: DeclBlocks + _vssIcomments :: ([String]) + _vssIdecls :: Decls + _vssIdeclsAbove :: ([Decl]) + _vssIdefinedInsts :: ([Identifier]) + _vssIexprs :: Exprs + _vssItSigs :: ([Decl]) + _vssItps :: ([Type]) + _vssIusedVars :: (Set String) + _intraIallTpsFound :: Bool + _intraIblockDecls :: DeclBlocks + _intraIcomments :: ([String]) + _intraIdecls :: Decls + _intraIdeclsAbove :: ([Decl]) + _intraIdefinedInsts :: ([Identifier]) + _intraIexprs :: Exprs + _intraItSigs :: ([Decl]) + _intraItps :: ([Type]) + _intraIusedVars :: (Set String) + -- "GenerateCode.ag"(line 272, column 13) + _lhsOintra = + ({-# LINE 272 "GenerateCode.ag" #-} + _intraIexprs + {-# LINE 4245 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 273, column 13) + _lhsOintraVars = + ({-# LINE 273 "GenerateCode.ag" #-} + _intraIusedVars + {-# LINE 4250 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 412, column 13) + __tup4 = + ({-# LINE 412 "GenerateCode.ag" #-} + partition (\(_,_,virt) -> isHigherOrder virt) _lhsIchildren + {-# LINE 4255 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 412, column 13) + (_higherOrderChildren,_) = + ({-# LINE 412 "GenerateCode.ag" #-} + __tup4 + {-# LINE 4260 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 412, column 13) + (_,_firstOrderChildren) = + ({-# LINE 412 "GenerateCode.ag" #-} + __tup4 + {-# LINE 4265 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 413, column 13) + _firstOrderOrig = + ({-# LINE 413 "GenerateCode.ag" #-} + map pickOrigType _firstOrderChildren + {-# LINE 4270 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 414, column 13) + _funcname = + ({-# LINE 414 "GenerateCode.ag" #-} + seqSemname _lhsIprefix _lhsInt _lhsIcon _lhsInr + {-# LINE 4275 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 415, column 13) + _nextVisitName = + ({-# LINE 415 "GenerateCode.ag" #-} + if _lhsIisLast then [] else [visitname _lhsIprefix _lhsInt (_lhsInr+1)] + {-# LINE 4280 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 416, column 13) + _nextVisitDecl = + ({-# LINE 416 "GenerateCode.ag" #-} + let lhs = TupleLhs _nextVisitName + rhs = Let _lhsIdecls (SimpleExpr fun) + fun = seqSemname _lhsIprefix _lhsInt _lhsIcon (_lhsInr+1) + in if _lhsIisLast + then [] + else [Decl lhs rhs (Set.fromList _nextVisitName) _lhsInextIntraVars] + {-# LINE 4290 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 423, column 13) + _decls = + ({-# LINE 423 "GenerateCode.ag" #-} + _typeSigs ++ _vssIdecls ++ _nextVisitDecl + {-# LINE 4295 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 424, column 13) + _vssOlastExpr = + ({-# LINE 424 "GenerateCode.ag" #-} + mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_) $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName + {-# LINE 4300 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 425, column 13) + _intraOlastExpr = + ({-# LINE 425 "GenerateCode.ag" #-} + error "lastExpr: not used here" + {-# LINE 4305 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 426, column 13) + _lastExprVars = + ({-# LINE 426 "GenerateCode.ag" #-} + map (lhsname False) (Map.keys syn_) ++ _nextVisitName + {-# LINE 4310 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 427, column 13) + __tup5 = + ({-# LINE 427 "GenerateCode.ag" #-} + mkPartitionedFunction _funcname _o_case _nextVisitDecl _lastExprVars _vssIblockDecls + {-# LINE 4315 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 427, column 13) + (_blockFunDecls,_) = + ({-# LINE 427 "GenerateCode.ag" #-} + __tup5 + {-# LINE 4320 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 427, column 13) + (_,_blockFirstFunCall) = + ({-# LINE 427 "GenerateCode.ag" #-} + __tup5 + {-# LINE 4325 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 429, column 13) + _costCentreDescr = + ({-# LINE 429 "GenerateCode.ag" #-} + "b" ++ ":" ++ show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show _lhsInr + {-# LINE 4330 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 430, column 13) + _addCostCentre = + ({-# LINE 430 "GenerateCode.ag" #-} + \v -> if _lhsIo_costcentre + then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v + else v + {-# LINE 4337 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 434, column 13) + _params = + ({-# LINE 434 "GenerateCode.ag" #-} + map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap + {-# LINE 4342 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 435, column 13) + _semFun = + ({-# LINE 435 "GenerateCode.ag" #-} + let lhs = Fun _funcname lhs_args + lhs_args = if _lhsInr == 0 then map field _firstOrderOrig else [] + field (name,NT tp tps,_) = let unwrap | _lhsIo_newtypes = \x -> App (sdtype tp) [x] + | otherwise = id + addType expr | null tps = expr + | otherwise = TypedExpr expr (_lhsIunfoldSemDom tp 0 tps) + in unwrap $ addType $ SimpleExpr $ funname name 0 + field (name,tp,_) = let expr = SimpleExpr (funname name 0) + in if null _params + then expr + else TypedExpr expr (idEvalType $ typeToCodeType (Just _lhsInt) _params tp) + mbEvalTp | null _params = const Nothing + | otherwise = Just . idEvalType + rhs = wrap + . mkLambda [mkLambdaArg (lhsname True nm) (mbEvalTp $ typeToCodeType (Just _lhsInt) _params tp) | (nm,tp) <- Map.assocs inh_] + $ _addCostCentre + $ if ordered_ && _o_splitsems + then _blockFirstFunCall + else mkDecls _declsType _decls + . mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_) + $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName + wrap = if _lhsIo_newtypes + then \x -> App (typeName _lhsInt _lhsInr) [x] + else id + in Decl lhs rhs Set.empty Set.empty + {-# LINE 4371 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 465, column 13) + _tsig = + ({-# LINE 465 "GenerateCode.ag" #-} + TSig _funcname _semType + {-# LINE 4376 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 466, column 13) + _semType = + ({-# LINE 466 "GenerateCode.ag" #-} + let argType (NT tp tps) r | tp /= _SELF = typeAppStrs (sdtype tp) tps `Arr` r + | tp == _SELF = error "GenerateCode: found an intra-type with type SELF, which should have been prevented by CRule.tps" + argType (Haskell tp) r = SimpleType tp `Arr` r + evalTp | null _params = id + | otherwise = idEvalType + in appContext _lhsIcontextMap _lhsInt $ evalTp $ + if _lhsInr == 0 + then foldr argType (typeAppStrs (sdtype _lhsInt ) _params ) (map (\(_,t,_) -> t) _firstOrderOrig ) + else foldr argType (typeAppStrs (typeName _lhsInt _lhsInr) _params ) [] + {-# LINE 4389 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 477, column 13) + _lhsOdecls = + ({-# LINE 477 "GenerateCode.ag" #-} + ( if _lhsIwith_sig + then [_tsig, _semFun] + else [_semFun] + ) ++ + ( if ordered_ && _o_splitsems + then _blockFunDecls + else [] + ) + {-# LINE 4401 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 485, column 13) + _typeSigs = + ({-# LINE 485 "GenerateCode.ag" #-} + if _lhsIo_sig && not _o_case + then _vssItSigs + else [] + {-# LINE 4408 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 488, column 13) + _o_do = + ({-# LINE 488 "GenerateCode.ag" #-} + ordered_ && _lhsIo_monadic + {-# LINE 4413 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 489, column 13) + _o_case = + ({-# LINE 489 "GenerateCode.ag" #-} + not _o_do && _lhsIo_case && ordered_ && not (hasPragma _lhsIallPragmas _lhsInt _lhsIcon _NOCASE) + {-# LINE 4418 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 490, column 13) + _declsType = + ({-# LINE 490 "GenerateCode.ag" #-} + if _o_do + then DeclsDo + else if _o_case + then DeclsCase + else DeclsLet + {-# LINE 4427 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 495, column 13) + _o_splitsems = + ({-# LINE 495 "GenerateCode.ag" #-} + ordered_ && _lhsIo_splitsems + {-# LINE 4432 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 525, column 7) + _lhsOgatherInstVisitNrs = + ({-# LINE 525 "GenerateCode.ag" #-} + Map.fromList [(i,_lhsInr) | i <- _vssIdefinedInsts] + {-# LINE 4437 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 552, column 7) + _vssOdeclsAbove = + ({-# LINE 552 "GenerateCode.ag" #-} + [] + {-# LINE 4442 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 553, column 7) + _intraOdeclsAbove = + ({-# LINE 553 "GenerateCode.ag" #-} + error "declsAbove: not used here" + {-# LINE 4447 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 818, column 18) + _lhsOcomments = + ({-# LINE 818 "GenerateCode.ag" #-} + let body = map ind (_vssIcomments ++ _intraIcomments) + in if null body + then [] + else ("visit " ++ show _lhsInr ++ ":") : body + {-# LINE 4455 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 822, column 18) + _vssOwhat = + ({-# LINE 822 "GenerateCode.ag" #-} + "local" + {-# LINE 4460 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 823, column 18) + _intraOwhat = + ({-# LINE 823 "GenerateCode.ag" #-} + "intra" + {-# LINE 4465 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 1066, column 7) + _lhsOsemNames = + ({-# LINE 1066 "GenerateCode.ag" #-} + [_funcname ] + {-# LINE 4470 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOallNts = + ({-# LINE 121 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 4475 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOaroundMap = + ({-# LINE 537 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 4480 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOchildren = + ({-# LINE 221 "GenerateCode.ag" #-} + _lhsIchildren + {-# LINE 4485 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOcon = + ({-# LINE 83 "GenerateCode.ag" #-} + _lhsIcon + {-# LINE 4490 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOinh = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 4495 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOinstVisitNrs = + ({-# LINE 517 "GenerateCode.ag" #-} + _lhsIinstVisitNrs + {-# LINE 4500 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOnr = + ({-# LINE 240 "GenerateCode.ag" #-} + _lhsInr + {-# LINE 4505 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOnt = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 4510 "GenerateCode.hs" #-}) + -- copy rule (from local) + _vssOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _o_case + {-# LINE 4515 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 4520 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 4525 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 4530 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 4535 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 4540 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 4545 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 4550 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 4555 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 4560 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 4565 "GenerateCode.hs" #-}) + -- copy rule (from local) + _vssOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _o_splitsems + {-# LINE 4570 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 4575 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 4580 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 4585 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOparamInstMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamInstMap + {-# LINE 4590 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 4595 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 4600 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOsyn = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 4605 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOterminals = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIterminals + {-# LINE 4610 "GenerateCode.hs" #-}) + -- copy rule (down) + _vssOunfoldSemDom = + ({-# LINE 676 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 4615 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOallNts = + ({-# LINE 121 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 4620 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOaroundMap = + ({-# LINE 537 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 4625 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOchildren = + ({-# LINE 221 "GenerateCode.ag" #-} + _lhsIchildren + {-# LINE 4630 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOcon = + ({-# LINE 83 "GenerateCode.ag" #-} + _lhsIcon + {-# LINE 4635 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOinh = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 4640 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOinstVisitNrs = + ({-# LINE 517 "GenerateCode.ag" #-} + _lhsIinstVisitNrs + {-# LINE 4645 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOnr = + ({-# LINE 240 "GenerateCode.ag" #-} + _lhsInr + {-# LINE 4650 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOnt = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 4655 "GenerateCode.hs" #-}) + -- copy rule (from local) + _intraOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _o_case + {-# LINE 4660 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 4665 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 4670 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 4675 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 4680 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 4685 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 4690 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 4695 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 4700 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 4705 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 4710 "GenerateCode.hs" #-}) + -- copy rule (from local) + _intraOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _o_splitsems + {-# LINE 4715 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 4720 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 4725 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 4730 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOparamInstMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamInstMap + {-# LINE 4735 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 4740 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 4745 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOsyn = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 4750 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOterminals = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIterminals + {-# LINE 4755 "GenerateCode.hs" #-}) + -- copy rule (down) + _intraOunfoldSemDom = + ({-# LINE 676 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 4760 "GenerateCode.hs" #-}) + ( _vssIallTpsFound,_vssIblockDecls,_vssIcomments,_vssIdecls,_vssIdeclsAbove,_vssIdefinedInsts,_vssIexprs,_vssItSigs,_vssItps,_vssIusedVars) = + (vss_ _vssOallNts _vssOaroundMap _vssOchildren _vssOcon _vssOdeclsAbove _vssOinh _vssOinstVisitNrs _vssOlastExpr _vssOnr _vssOnt _vssOo_case _vssOo_cata _vssOo_costcentre _vssOo_data _vssOo_linePragmas _vssOo_monadic _vssOo_newtypes _vssOo_pretty _vssOo_rename _vssOo_sem _vssOo_sig _vssOo_splitsems _vssOo_strictwrap _vssOo_traces _vssOo_unbox _vssOparamInstMap _vssOparamMap _vssOprefix _vssOsyn _vssOterminals _vssOunfoldSemDom _vssOwhat ) + ( _intraIallTpsFound,_intraIblockDecls,_intraIcomments,_intraIdecls,_intraIdeclsAbove,_intraIdefinedInsts,_intraIexprs,_intraItSigs,_intraItps,_intraIusedVars) = + (intra_ _intraOallNts _intraOaroundMap _intraOchildren _intraOcon _intraOdeclsAbove _intraOinh _intraOinstVisitNrs _intraOlastExpr _intraOnr _intraOnt _intraOo_case _intraOo_cata _intraOo_costcentre _intraOo_data _intraOo_linePragmas _intraOo_monadic _intraOo_newtypes _intraOo_pretty _intraOo_rename _intraOo_sem _intraOo_sig _intraOo_splitsems _intraOo_strictwrap _intraOo_traces _intraOo_unbox _intraOparamInstMap _intraOparamMap _intraOprefix _intraOsyn _intraOterminals _intraOunfoldSemDom _intraOwhat ) + in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames))) ) +-- CVisits ----------------------------------------------------- +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + allPragmas : PragmaMap + aroundMap : Set Identifier + children : [(Identifier,Type, Maybe (Maybe Type))] + con : ConstructorIdent + contextMap : ContextMap + inh : Attributes + instVisitNrs : Map Identifier Int + nr : Int + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + paramInstMap : Map Identifier (NontermIdent, [String]) + paramMap : ParamMap + prefix : String + syn : Attributes + terminals : [Identifier] + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + with_sig : Bool + synthesized attributes: + comments : [String] + decls : Decls + gatherInstVisitNrs : Map Identifier Int + intra : Exprs + intraVars : Set String + isNil : Bool + semNames : [String] + alternatives: + alternative Cons: + child hd : CVisit + child tl : CVisits + alternative Nil: +-} +-- cata +sem_CVisits :: CVisits -> + T_CVisits +sem_CVisits list = + (Prelude.foldr sem_CVisits_Cons sem_CVisits_Nil (Prelude.map sem_CVisit list) ) +-- semantic domain +newtype T_CVisits = T_CVisits ((Set NontermIdent) -> + PragmaMap -> + (Set Identifier) -> + ([(Identifier,Type, Maybe (Maybe Type))]) -> + ConstructorIdent -> + ContextMap -> + Attributes -> + (Map Identifier Int) -> + Int -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + (Map Identifier (NontermIdent, [String])) -> + ParamMap -> + String -> + Attributes -> + ([Identifier]) -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + Bool -> + ( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),Bool,([String]))) +data Inh_CVisits = Inh_CVisits {allNts_Inh_CVisits :: !(Set NontermIdent),allPragmas_Inh_CVisits :: !(PragmaMap),aroundMap_Inh_CVisits :: !(Set Identifier),children_Inh_CVisits :: !([(Identifier,Type, Maybe (Maybe Type))]),con_Inh_CVisits :: !(ConstructorIdent),contextMap_Inh_CVisits :: !(ContextMap),inh_Inh_CVisits :: !(Attributes),instVisitNrs_Inh_CVisits :: !(Map Identifier Int),nr_Inh_CVisits :: !(Int),nt_Inh_CVisits :: !(NontermIdent),o_case_Inh_CVisits :: !(Bool),o_cata_Inh_CVisits :: !(Bool),o_costcentre_Inh_CVisits :: !(Bool),o_data_Inh_CVisits :: !(Maybe Bool),o_linePragmas_Inh_CVisits :: !(Bool),o_monadic_Inh_CVisits :: !(Bool),o_newtypes_Inh_CVisits :: !(Bool),o_pretty_Inh_CVisits :: !(Bool),o_rename_Inh_CVisits :: !(Bool),o_sem_Inh_CVisits :: !(Bool),o_sig_Inh_CVisits :: !(Bool),o_splitsems_Inh_CVisits :: !(Bool),o_strictwrap_Inh_CVisits :: !(Bool),o_traces_Inh_CVisits :: !(Bool),o_unbox_Inh_CVisits :: !(Bool),paramInstMap_Inh_CVisits :: !(Map Identifier (NontermIdent, [String])),paramMap_Inh_CVisits :: !(ParamMap),prefix_Inh_CVisits :: !(String),syn_Inh_CVisits :: !(Attributes),terminals_Inh_CVisits :: !([Identifier]),unfoldSemDom_Inh_CVisits :: !(NontermIdent -> Int -> [String] -> Code.Type),with_sig_Inh_CVisits :: !(Bool)} +data Syn_CVisits = Syn_CVisits {comments_Syn_CVisits :: !([String]),decls_Syn_CVisits :: !(Decls),gatherInstVisitNrs_Syn_CVisits :: !(Map Identifier Int),intra_Syn_CVisits :: !(Exprs),intraVars_Syn_CVisits :: !(Set String),isNil_Syn_CVisits :: !(Bool),semNames_Syn_CVisits :: !([String])} +wrap_CVisits :: T_CVisits -> + Inh_CVisits -> + Syn_CVisits +wrap_CVisits (T_CVisits sem ) (Inh_CVisits _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwith_sig ) = + (let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames) = + (sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwith_sig ) + in (Syn_CVisits _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOisNil _lhsOsemNames )) +sem_CVisits_Cons :: T_CVisit -> + T_CVisits -> + T_CVisits +sem_CVisits_Cons (T_CVisit hd_ ) (T_CVisits tl_ ) = + (T_CVisits (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIchildren + _lhsIcon + _lhsIcontextMap + _lhsIinh + _lhsIinstVisitNrs + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamInstMap + _lhsIparamMap + _lhsIprefix + _lhsIsyn + _lhsIterminals + _lhsIunfoldSemDom + _lhsIwith_sig -> + (let _tlOnr :: Int + _lhsOisNil :: Bool + _hdOisLast :: Bool + _hdOnextIntra :: Exprs + _hdOnextIntraVars :: (Set String) + _lhsOintra :: Exprs + _lhsOintraVars :: (Set String) + _lhsOdecls :: Decls + _hdOdecls :: Decls + _lhsOcomments :: ([String]) + _lhsOgatherInstVisitNrs :: (Map Identifier Int) + _lhsOsemNames :: ([String]) + _hdOallNts :: (Set NontermIdent) + _hdOallPragmas :: PragmaMap + _hdOaroundMap :: (Set Identifier) + _hdOchildren :: ([(Identifier,Type, Maybe (Maybe Type))]) + _hdOcon :: ConstructorIdent + _hdOcontextMap :: ContextMap + _hdOinh :: Attributes + _hdOinstVisitNrs :: (Map Identifier Int) + _hdOnr :: Int + _hdOnt :: NontermIdent + _hdOo_case :: Bool + _hdOo_cata :: Bool + _hdOo_costcentre :: Bool + _hdOo_data :: (Maybe Bool) + _hdOo_linePragmas :: Bool + _hdOo_monadic :: Bool + _hdOo_newtypes :: Bool + _hdOo_pretty :: Bool + _hdOo_rename :: Bool + _hdOo_sem :: Bool + _hdOo_sig :: Bool + _hdOo_splitsems :: Bool + _hdOo_strictwrap :: Bool + _hdOo_traces :: Bool + _hdOo_unbox :: Bool + _hdOparamInstMap :: (Map Identifier (NontermIdent, [String])) + _hdOparamMap :: ParamMap + _hdOprefix :: String + _hdOsyn :: Attributes + _hdOterminals :: ([Identifier]) + _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _hdOwith_sig :: Bool + _tlOallNts :: (Set NontermIdent) + _tlOallPragmas :: PragmaMap + _tlOaroundMap :: (Set Identifier) + _tlOchildren :: ([(Identifier,Type, Maybe (Maybe Type))]) + _tlOcon :: ConstructorIdent + _tlOcontextMap :: ContextMap + _tlOinh :: Attributes + _tlOinstVisitNrs :: (Map Identifier Int) + _tlOnt :: NontermIdent + _tlOo_case :: Bool + _tlOo_cata :: Bool + _tlOo_costcentre :: Bool + _tlOo_data :: (Maybe Bool) + _tlOo_linePragmas :: Bool + _tlOo_monadic :: Bool + _tlOo_newtypes :: Bool + _tlOo_pretty :: Bool + _tlOo_rename :: Bool + _tlOo_sem :: Bool + _tlOo_sig :: Bool + _tlOo_splitsems :: Bool + _tlOo_strictwrap :: Bool + _tlOo_traces :: Bool + _tlOo_unbox :: Bool + _tlOparamInstMap :: (Map Identifier (NontermIdent, [String])) + _tlOparamMap :: ParamMap + _tlOprefix :: String + _tlOsyn :: Attributes + _tlOterminals :: ([Identifier]) + _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _tlOwith_sig :: Bool + _hdIcomments :: ([String]) + _hdIdecls :: Decls + _hdIgatherInstVisitNrs :: (Map Identifier Int) + _hdIintra :: Exprs + _hdIintraVars :: (Set String) + _hdIsemNames :: ([String]) + _tlIcomments :: ([String]) + _tlIdecls :: Decls + _tlIgatherInstVisitNrs :: (Map Identifier Int) + _tlIintra :: Exprs + _tlIintraVars :: (Set String) + _tlIisNil :: Bool + _tlIsemNames :: ([String]) + -- "GenerateCode.ag"(line 244, column 11) + _tlOnr = + ({-# LINE 244 "GenerateCode.ag" #-} + _lhsInr + 1 + {-# LINE 4992 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 257, column 12) + _lhsOisNil = + ({-# LINE 257 "GenerateCode.ag" #-} + False + {-# LINE 4997 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 258, column 12) + _hdOisLast = + ({-# LINE 258 "GenerateCode.ag" #-} + _tlIisNil + {-# LINE 5002 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 275, column 12) + _hdOnextIntra = + ({-# LINE 275 "GenerateCode.ag" #-} + _tlIintra + {-# LINE 5007 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 276, column 12) + _hdOnextIntraVars = + ({-# LINE 276 "GenerateCode.ag" #-} + _tlIintraVars + {-# LINE 5012 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 277, column 12) + _lhsOintra = + ({-# LINE 277 "GenerateCode.ag" #-} + _hdIintra + {-# LINE 5017 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 278, column 12) + _lhsOintraVars = + ({-# LINE 278 "GenerateCode.ag" #-} + _hdIintraVars + {-# LINE 5022 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 402, column 11) + _lhsOdecls = + ({-# LINE 402 "GenerateCode.ag" #-} + _hdIdecls + {-# LINE 5027 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 403, column 11) + _hdOdecls = + ({-# LINE 403 "GenerateCode.ag" #-} + _tlIdecls + {-# LINE 5032 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 793, column 52) + _lhsOcomments = + ({-# LINE 793 "GenerateCode.ag" #-} + _hdIcomments ++ _tlIcomments + {-# LINE 5037 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 518, column 44) + _lhsOgatherInstVisitNrs = + ({-# LINE 518 "GenerateCode.ag" #-} + _hdIgatherInstVisitNrs `Map.union` _tlIgatherInstVisitNrs + {-# LINE 5042 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 1056, column 61) + _lhsOsemNames = + ({-# LINE 1056 "GenerateCode.ag" #-} + _hdIsemNames ++ _tlIsemNames + {-# LINE 5047 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOallNts = + ({-# LINE 121 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 5052 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOallPragmas = + ({-# LINE 67 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 5057 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOaroundMap = + ({-# LINE 537 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 5062 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOchildren = + ({-# LINE 381 "GenerateCode.ag" #-} + _lhsIchildren + {-# LINE 5067 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOcon = + ({-# LINE 83 "GenerateCode.ag" #-} + _lhsIcon + {-# LINE 5072 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOcontextMap = + ({-# LINE 109 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 5077 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOinh = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 5082 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOinstVisitNrs = + ({-# LINE 517 "GenerateCode.ag" #-} + _lhsIinstVisitNrs + {-# LINE 5087 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOnr = + ({-# LINE 240 "GenerateCode.ag" #-} + _lhsInr + {-# LINE 5092 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOnt = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 5097 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 5102 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 5107 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 5112 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 5117 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 5122 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 5127 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 5132 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 5137 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 5142 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 5147 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 5152 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 5157 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 5162 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 5167 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 5172 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOparamInstMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamInstMap + {-# LINE 5177 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 5182 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 5187 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOsyn = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 5192 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOterminals = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIterminals + {-# LINE 5197 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOunfoldSemDom = + ({-# LINE 676 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 5202 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOwith_sig = + ({-# LINE 776 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 5207 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOallNts = + ({-# LINE 121 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 5212 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOallPragmas = + ({-# LINE 67 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 5217 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOaroundMap = + ({-# LINE 537 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 5222 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOchildren = + ({-# LINE 381 "GenerateCode.ag" #-} + _lhsIchildren + {-# LINE 5227 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOcon = + ({-# LINE 83 "GenerateCode.ag" #-} + _lhsIcon + {-# LINE 5232 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOcontextMap = + ({-# LINE 109 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 5237 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOinh = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 5242 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOinstVisitNrs = + ({-# LINE 517 "GenerateCode.ag" #-} + _lhsIinstVisitNrs + {-# LINE 5247 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOnt = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 5252 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 5257 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 5262 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 5267 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 5272 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 5277 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 5282 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 5287 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 5292 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 5297 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 5302 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 5307 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 5312 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 5317 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 5322 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 5327 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOparamInstMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamInstMap + {-# LINE 5332 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 5337 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 5342 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOsyn = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 5347 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOterminals = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIterminals + {-# LINE 5352 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOunfoldSemDom = + ({-# LINE 676 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 5357 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOwith_sig = + ({-# LINE 776 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 5362 "GenerateCode.hs" #-}) + ( _hdIcomments,_hdIdecls,_hdIgatherInstVisitNrs,_hdIintra,_hdIintraVars,_hdIsemNames) = + (hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOchildren _hdOcon _hdOcontextMap _hdOdecls _hdOinh _hdOinstVisitNrs _hdOisLast _hdOnextIntra _hdOnextIntraVars _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOwith_sig ) + ( _tlIcomments,_tlIdecls,_tlIgatherInstVisitNrs,_tlIintra,_tlIintraVars,_tlIisNil,_tlIsemNames) = + (tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOchildren _tlOcon _tlOcontextMap _tlOinh _tlOinstVisitNrs _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOwith_sig ) + in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames))) ) +sem_CVisits_Nil :: T_CVisits +sem_CVisits_Nil = + (T_CVisits (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIchildren + _lhsIcon + _lhsIcontextMap + _lhsIinh + _lhsIinstVisitNrs + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamInstMap + _lhsIparamMap + _lhsIprefix + _lhsIsyn + _lhsIterminals + _lhsIunfoldSemDom + _lhsIwith_sig -> + (let _lhsOisNil :: Bool + _lhsOintra :: Exprs + _lhsOintraVars :: (Set String) + _lhsOdecls :: Decls + _lhsOcomments :: ([String]) + _lhsOgatherInstVisitNrs :: (Map Identifier Int) + _lhsOsemNames :: ([String]) + -- "GenerateCode.ag"(line 259, column 10) + _lhsOisNil = + ({-# LINE 259 "GenerateCode.ag" #-} + True + {-# LINE 5413 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 279, column 10) + _lhsOintra = + ({-# LINE 279 "GenerateCode.ag" #-} + [] + {-# LINE 5418 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 280, column 10) + _lhsOintraVars = + ({-# LINE 280 "GenerateCode.ag" #-} + Set.empty + {-# LINE 5423 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 401, column 11) + _lhsOdecls = + ({-# LINE 401 "GenerateCode.ag" #-} + [] + {-# LINE 5428 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 793, column 52) + _lhsOcomments = + ({-# LINE 793 "GenerateCode.ag" #-} + [] + {-# LINE 5433 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 518, column 44) + _lhsOgatherInstVisitNrs = + ({-# LINE 518 "GenerateCode.ag" #-} + Map.empty + {-# LINE 5438 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 1056, column 61) + _lhsOsemNames = + ({-# LINE 1056 "GenerateCode.ag" #-} + [] + {-# LINE 5443 "GenerateCode.hs" #-}) + in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames))) ) +-- DeclBlocks -------------------------------------------------- +{- + visit 0: + inherited attributes: + blockNr : Int + lastExprVars : [String] + nextVisitDecls : [Decl] + optCase : Bool + prefix : String + synthesized attributes: + callExpr : Expr + decls : [Decl] + freeVars : [String] + alternatives: + alternative DeclBlock: + child defs : {[Decl]} + child visit : {Decl} + child next : DeclBlocks + visit 0: + local lambdaName : _ + local pragmaDecl : _ + local freeVars : _ + local decl : _ + alternative DeclTerminator: + child defs : {[Decl]} + child result : {Expr} + visit 0: + local lambdaName : _ + local pragmaDecl : _ + local freeVars : _ +-} +-- cata +sem_DeclBlocks :: DeclBlocks -> + T_DeclBlocks +sem_DeclBlocks (DeclBlock _defs _visit _next ) = + (sem_DeclBlocks_DeclBlock _defs _visit (sem_DeclBlocks _next ) ) +sem_DeclBlocks (DeclTerminator _defs _result ) = + (sem_DeclBlocks_DeclTerminator _defs _result ) +-- semantic domain +newtype T_DeclBlocks = T_DeclBlocks (Int -> + ([String]) -> + ([Decl]) -> + Bool -> + String -> + ( Expr,([Decl]),([String]))) +data Inh_DeclBlocks = Inh_DeclBlocks {blockNr_Inh_DeclBlocks :: !(Int),lastExprVars_Inh_DeclBlocks :: !([String]),nextVisitDecls_Inh_DeclBlocks :: !([Decl]),optCase_Inh_DeclBlocks :: !(Bool),prefix_Inh_DeclBlocks :: !(String)} +data Syn_DeclBlocks = Syn_DeclBlocks {callExpr_Syn_DeclBlocks :: !(Expr),decls_Syn_DeclBlocks :: !([Decl]),freeVars_Syn_DeclBlocks :: !([String])} +wrap_DeclBlocks :: T_DeclBlocks -> + Inh_DeclBlocks -> + Syn_DeclBlocks +wrap_DeclBlocks (T_DeclBlocks sem ) (Inh_DeclBlocks _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) = + (let ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars) = + (sem _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) + in (Syn_DeclBlocks _lhsOcallExpr _lhsOdecls _lhsOfreeVars )) +sem_DeclBlocks_DeclBlock :: ([Decl]) -> + Decl -> + T_DeclBlocks -> + T_DeclBlocks +sem_DeclBlocks_DeclBlock defs_ visit_ (T_DeclBlocks next_ ) = + (T_DeclBlocks (\ _lhsIblockNr + _lhsIlastExprVars + _lhsInextVisitDecls + _lhsIoptCase + _lhsIprefix -> + (let _nextOblockNr :: Int + _lhsOcallExpr :: Expr + _lhsOdecls :: ([Decl]) + _lhsOfreeVars :: ([String]) + _nextOlastExprVars :: ([String]) + _nextOnextVisitDecls :: ([Decl]) + _nextOoptCase :: Bool + _nextOprefix :: String + _nextIcallExpr :: Expr + _nextIdecls :: ([Decl]) + _nextIfreeVars :: ([String]) + -- "GenerateCode.ag"(line 603, column 7) + _nextOblockNr = + ({-# LINE 603 "GenerateCode.ag" #-} + _lhsIblockNr + 1 + {-# LINE 5524 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 608, column 7) + _lambdaName = + ({-# LINE 608 "GenerateCode.ag" #-} + _lhsIprefix ++ "_block" ++ show _lhsIblockNr + {-# LINE 5529 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 609, column 7) + _pragmaDecl = + ({-# LINE 609 "GenerateCode.ag" #-} + PragmaDecl ("NOINLINE " ++ _lambdaName ) + {-# LINE 5534 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 610, column 7) + _lhsOcallExpr = + ({-# LINE 610 "GenerateCode.ag" #-} + App _lambdaName (map SimpleExpr _freeVars ) + {-# LINE 5539 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 614, column 7) + _freeVars = + ({-# LINE 614 "GenerateCode.ag" #-} + freevars _nextIfreeVars (visit_ : defs_) + {-# LINE 5544 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 621, column 7) + _decl = + ({-# LINE 621 "GenerateCode.ag" #-} + mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ [visit_]) _nextIcallExpr + {-# LINE 5549 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 622, column 7) + _lhsOdecls = + ({-# LINE 622 "GenerateCode.ag" #-} + (if _lhsIblockNr > 1 then [_pragmaDecl ] else []) ++ [_decl ] ++ _nextIdecls + {-# LINE 5554 "GenerateCode.hs" #-}) + -- copy rule (from local) + _lhsOfreeVars = + ({-# LINE 605 "GenerateCode.ag" #-} + _freeVars + {-# LINE 5559 "GenerateCode.hs" #-}) + -- copy rule (down) + _nextOlastExprVars = + ({-# LINE 589 "GenerateCode.ag" #-} + _lhsIlastExprVars + {-# LINE 5564 "GenerateCode.hs" #-}) + -- copy rule (down) + _nextOnextVisitDecls = + ({-# LINE 589 "GenerateCode.ag" #-} + _lhsInextVisitDecls + {-# LINE 5569 "GenerateCode.hs" #-}) + -- copy rule (down) + _nextOoptCase = + ({-# LINE 589 "GenerateCode.ag" #-} + _lhsIoptCase + {-# LINE 5574 "GenerateCode.hs" #-}) + -- copy rule (down) + _nextOprefix = + ({-# LINE 589 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 5579 "GenerateCode.hs" #-}) + ( _nextIcallExpr,_nextIdecls,_nextIfreeVars) = + (next_ _nextOblockNr _nextOlastExprVars _nextOnextVisitDecls _nextOoptCase _nextOprefix ) + in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))) ) +sem_DeclBlocks_DeclTerminator :: ([Decl]) -> + Expr -> + T_DeclBlocks +sem_DeclBlocks_DeclTerminator defs_ result_ = + (T_DeclBlocks (\ _lhsIblockNr + _lhsIlastExprVars + _lhsInextVisitDecls + _lhsIoptCase + _lhsIprefix -> + (let _lhsOcallExpr :: Expr + _lhsOdecls :: ([Decl]) + _lhsOfreeVars :: ([String]) + -- "GenerateCode.ag"(line 608, column 7) + _lambdaName = + ({-# LINE 608 "GenerateCode.ag" #-} + _lhsIprefix ++ "_block" ++ show _lhsIblockNr + {-# LINE 5599 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 609, column 7) + _pragmaDecl = + ({-# LINE 609 "GenerateCode.ag" #-} + PragmaDecl ("NOINLINE " ++ _lambdaName ) + {-# LINE 5604 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 610, column 7) + _lhsOcallExpr = + ({-# LINE 610 "GenerateCode.ag" #-} + App _lambdaName (map SimpleExpr _freeVars ) + {-# LINE 5609 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 612, column 7) + _freeVars = + ({-# LINE 612 "GenerateCode.ag" #-} + freevars _lhsIlastExprVars (defs_ ++ _lhsInextVisitDecls) + {-# LINE 5614 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 619, column 7) + _lhsOdecls = + ({-# LINE 619 "GenerateCode.ag" #-} + [ mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ _lhsInextVisitDecls) result_ ] + {-# LINE 5619 "GenerateCode.hs" #-}) + -- copy rule (from local) + _lhsOfreeVars = + ({-# LINE 605 "GenerateCode.ag" #-} + _freeVars + {-# LINE 5624 "GenerateCode.hs" #-}) + in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))) ) +-- DeclBlocksRoot ---------------------------------------------- +{- + visit 0: + inherited attributes: + lastExprVars : [String] + nextVisitDecls : [Decl] + optCase : Bool + prefix : String + synthesized attributes: + firstCall : Expr + lambdas : [Decl] + alternatives: + alternative DeclBlocksRoot: + child blocks : DeclBlocks +-} +-- cata +sem_DeclBlocksRoot :: DeclBlocksRoot -> + T_DeclBlocksRoot +sem_DeclBlocksRoot (DeclBlocksRoot _blocks ) = + (sem_DeclBlocksRoot_DeclBlocksRoot (sem_DeclBlocks _blocks ) ) +-- semantic domain +newtype T_DeclBlocksRoot = T_DeclBlocksRoot (([String]) -> + ([Decl]) -> + Bool -> + String -> + ( Expr,([Decl]))) +data Inh_DeclBlocksRoot = Inh_DeclBlocksRoot {lastExprVars_Inh_DeclBlocksRoot :: !([String]),nextVisitDecls_Inh_DeclBlocksRoot :: !([Decl]),optCase_Inh_DeclBlocksRoot :: !(Bool),prefix_Inh_DeclBlocksRoot :: !(String)} +data Syn_DeclBlocksRoot = Syn_DeclBlocksRoot {firstCall_Syn_DeclBlocksRoot :: !(Expr),lambdas_Syn_DeclBlocksRoot :: !([Decl])} +wrap_DeclBlocksRoot :: T_DeclBlocksRoot -> + Inh_DeclBlocksRoot -> + Syn_DeclBlocksRoot +wrap_DeclBlocksRoot (T_DeclBlocksRoot sem ) (Inh_DeclBlocksRoot _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) = + (let ( _lhsOfirstCall,_lhsOlambdas) = + (sem _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) + in (Syn_DeclBlocksRoot _lhsOfirstCall _lhsOlambdas )) +sem_DeclBlocksRoot_DeclBlocksRoot :: T_DeclBlocks -> + T_DeclBlocksRoot +sem_DeclBlocksRoot_DeclBlocksRoot (T_DeclBlocks blocks_ ) = + (T_DeclBlocksRoot (\ _lhsIlastExprVars + _lhsInextVisitDecls + _lhsIoptCase + _lhsIprefix -> + (let _lhsOlambdas :: ([Decl]) + _lhsOfirstCall :: Expr + _blocksOblockNr :: Int + _blocksOlastExprVars :: ([String]) + _blocksOnextVisitDecls :: ([Decl]) + _blocksOoptCase :: Bool + _blocksOprefix :: String + _blocksIcallExpr :: Expr + _blocksIdecls :: ([Decl]) + _blocksIfreeVars :: ([String]) + -- "GenerateCode.ag"(line 594, column 7) + _lhsOlambdas = + ({-# LINE 594 "GenerateCode.ag" #-} + _blocksIdecls + {-# LINE 5682 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 595, column 7) + _lhsOfirstCall = + ({-# LINE 595 "GenerateCode.ag" #-} + _blocksIcallExpr + {-# LINE 5687 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 600, column 7) + _blocksOblockNr = + ({-# LINE 600 "GenerateCode.ag" #-} + 1 + {-# LINE 5692 "GenerateCode.hs" #-}) + -- copy rule (down) + _blocksOlastExprVars = + ({-# LINE 589 "GenerateCode.ag" #-} + _lhsIlastExprVars + {-# LINE 5697 "GenerateCode.hs" #-}) + -- copy rule (down) + _blocksOnextVisitDecls = + ({-# LINE 589 "GenerateCode.ag" #-} + _lhsInextVisitDecls + {-# LINE 5702 "GenerateCode.hs" #-}) + -- copy rule (down) + _blocksOoptCase = + ({-# LINE 589 "GenerateCode.ag" #-} + _lhsIoptCase + {-# LINE 5707 "GenerateCode.hs" #-}) + -- copy rule (down) + _blocksOprefix = + ({-# LINE 589 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 5712 "GenerateCode.hs" #-}) + ( _blocksIcallExpr,_blocksIdecls,_blocksIfreeVars) = + (blocks_ _blocksOblockNr _blocksOlastExprVars _blocksOnextVisitDecls _blocksOoptCase _blocksOprefix ) + in ( _lhsOfirstCall,_lhsOlambdas))) ) +-- Pattern ----------------------------------------------------- +{- + visit 0: + synthesized attributes: + copy : SELF + definedInsts : [Identifier] + patternAttributes : [(Identifier, Identifier)] + alternatives: + alternative Alias: + child field : {Identifier} + child attr : {Identifier} + child pat : Pattern + child parts : Patterns + visit 0: + local copy : _ + alternative Constr: + child name : {ConstructorIdent} + child pats : Patterns + visit 0: + local copy : _ + alternative Irrefutable: + child pat : Pattern + visit 0: + local copy : _ + alternative Product: + child pos : {Pos} + child pats : Patterns + visit 0: + local copy : _ + alternative Underscore: + child pos : {Pos} + visit 0: + local copy : _ +-} +-- cata +sem_Pattern :: Pattern -> + T_Pattern +sem_Pattern (Alias _field _attr _pat _parts ) = + (sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) ) +sem_Pattern (Constr _name _pats ) = + (sem_Pattern_Constr _name (sem_Patterns _pats ) ) +sem_Pattern (Irrefutable _pat ) = + (sem_Pattern_Irrefutable (sem_Pattern _pat ) ) +sem_Pattern (Product _pos _pats ) = + (sem_Pattern_Product _pos (sem_Patterns _pats ) ) +sem_Pattern (Underscore _pos ) = + (sem_Pattern_Underscore _pos ) +-- semantic domain +newtype T_Pattern = T_Pattern (( Pattern,([Identifier]),([(Identifier, Identifier)]))) +data Inh_Pattern = Inh_Pattern {} +data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern),definedInsts_Syn_Pattern :: !([Identifier]),patternAttributes_Syn_Pattern :: !([(Identifier, Identifier)])} +wrap_Pattern :: T_Pattern -> + Inh_Pattern -> + Syn_Pattern +wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) = + (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = + (sem ) + in (Syn_Pattern _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes )) +sem_Pattern_Alias :: Identifier -> + Identifier -> + T_Pattern -> + T_Patterns -> + T_Pattern +sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) = + (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) + _lhsOpatternAttributes :: ([(Identifier, Identifier)]) + _lhsOcopy :: Pattern + _patIcopy :: Pattern + _patIdefinedInsts :: ([Identifier]) + _patIpatternAttributes :: ([(Identifier, Identifier)]) + _partsIcopy :: Patterns + _partsIdefinedInsts :: ([Identifier]) + _partsIpatternAttributes :: ([(Identifier, Identifier)]) + -- "GenerateCode.ag"(line 225, column 11) + _lhsOdefinedInsts = + ({-# LINE 225 "GenerateCode.ag" #-} + (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts + {-# LINE 5793 "GenerateCode.hs" #-}) + -- "GenerateCode.ag"(line 233, column 7) + _lhsOpatternAttributes = + ({-# LINE 233 "GenerateCode.ag" #-} + (field_,attr_) : (_patIpatternAttributes ++ _partsIpatternAttributes) + {-# LINE 5798 "GenerateCode.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Alias field_ attr_ _patIcopy _partsIcopy + {-# LINE 5803 "GenerateCode.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 5808 "GenerateCode.hs" #-}) + ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) = + (pat_ ) + ( _partsIcopy,_partsIdefinedInsts,_partsIpatternAttributes) = + (parts_ ) + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) +sem_Pattern_Constr :: ConstructorIdent -> + T_Patterns -> + T_Pattern +sem_Pattern_Constr name_ (T_Patterns pats_ ) = + (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) + _lhsOpatternAttributes :: ([(Identifier, Identifier)]) + _lhsOcopy :: Pattern + _patsIcopy :: Patterns + _patsIdefinedInsts :: ([Identifier]) + _patsIpatternAttributes :: ([(Identifier, Identifier)]) + -- use rule "GenerateCode.ag"(line 223, column 55) + _lhsOdefinedInsts = + ({-# LINE 223 "GenerateCode.ag" #-} + _patsIdefinedInsts + {-# LINE 5828 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 230, column 47) + _lhsOpatternAttributes = + ({-# LINE 230 "GenerateCode.ag" #-} + _patsIpatternAttributes + {-# LINE 5833 "GenerateCode.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Constr name_ _patsIcopy + {-# LINE 5838 "GenerateCode.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 5843 "GenerateCode.hs" #-}) + ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) = + (pats_ ) + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) +sem_Pattern_Irrefutable :: T_Pattern -> + T_Pattern +sem_Pattern_Irrefutable (T_Pattern pat_ ) = + (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) + _lhsOpatternAttributes :: ([(Identifier, Identifier)]) + _lhsOcopy :: Pattern + _patIcopy :: Pattern + _patIdefinedInsts :: ([Identifier]) + _patIpatternAttributes :: ([(Identifier, Identifier)]) + -- use rule "GenerateCode.ag"(line 223, column 55) + _lhsOdefinedInsts = + ({-# LINE 223 "GenerateCode.ag" #-} + _patIdefinedInsts + {-# LINE 5860 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 230, column 47) + _lhsOpatternAttributes = + ({-# LINE 230 "GenerateCode.ag" #-} + _patIpatternAttributes + {-# LINE 5865 "GenerateCode.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Irrefutable _patIcopy + {-# LINE 5870 "GenerateCode.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 5875 "GenerateCode.hs" #-}) + ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) = + (pat_ ) + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) +sem_Pattern_Product :: Pos -> + T_Patterns -> + T_Pattern +sem_Pattern_Product pos_ (T_Patterns pats_ ) = + (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) + _lhsOpatternAttributes :: ([(Identifier, Identifier)]) + _lhsOcopy :: Pattern + _patsIcopy :: Patterns + _patsIdefinedInsts :: ([Identifier]) + _patsIpatternAttributes :: ([(Identifier, Identifier)]) + -- use rule "GenerateCode.ag"(line 223, column 55) + _lhsOdefinedInsts = + ({-# LINE 223 "GenerateCode.ag" #-} + _patsIdefinedInsts + {-# LINE 5893 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 230, column 47) + _lhsOpatternAttributes = + ({-# LINE 230 "GenerateCode.ag" #-} + _patsIpatternAttributes + {-# LINE 5898 "GenerateCode.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Product pos_ _patsIcopy + {-# LINE 5903 "GenerateCode.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 5908 "GenerateCode.hs" #-}) + ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) = + (pats_ ) + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) +sem_Pattern_Underscore :: Pos -> + T_Pattern +sem_Pattern_Underscore pos_ = + (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) + _lhsOpatternAttributes :: ([(Identifier, Identifier)]) + _lhsOcopy :: Pattern + -- use rule "GenerateCode.ag"(line 223, column 55) + _lhsOdefinedInsts = + ({-# LINE 223 "GenerateCode.ag" #-} + [] + {-# LINE 5922 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 230, column 47) + _lhsOpatternAttributes = + ({-# LINE 230 "GenerateCode.ag" #-} + [] + {-# LINE 5927 "GenerateCode.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Underscore pos_ + {-# LINE 5932 "GenerateCode.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 5937 "GenerateCode.hs" #-}) + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) +-- Patterns ---------------------------------------------------- +{- + visit 0: + synthesized attributes: + copy : SELF + definedInsts : [Identifier] + patternAttributes : [(Identifier, Identifier)] + alternatives: + alternative Cons: + child hd : Pattern + child tl : Patterns + visit 0: + local copy : _ + alternative Nil: + visit 0: + local copy : _ +-} +-- cata +sem_Patterns :: Patterns -> + T_Patterns +sem_Patterns list = + (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) ) +-- semantic domain +newtype T_Patterns = T_Patterns (( Patterns,([Identifier]),([(Identifier, Identifier)]))) +data Inh_Patterns = Inh_Patterns {} +data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns),definedInsts_Syn_Patterns :: !([Identifier]),patternAttributes_Syn_Patterns :: !([(Identifier, Identifier)])} +wrap_Patterns :: T_Patterns -> + Inh_Patterns -> + Syn_Patterns +wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) = + (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = + (sem ) + in (Syn_Patterns _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes )) +sem_Patterns_Cons :: T_Pattern -> + T_Patterns -> + T_Patterns +sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) = + (T_Patterns (let _lhsOdefinedInsts :: ([Identifier]) + _lhsOpatternAttributes :: ([(Identifier, Identifier)]) + _lhsOcopy :: Patterns + _hdIcopy :: Pattern + _hdIdefinedInsts :: ([Identifier]) + _hdIpatternAttributes :: ([(Identifier, Identifier)]) + _tlIcopy :: Patterns + _tlIdefinedInsts :: ([Identifier]) + _tlIpatternAttributes :: ([(Identifier, Identifier)]) + -- use rule "GenerateCode.ag"(line 223, column 55) + _lhsOdefinedInsts = + ({-# LINE 223 "GenerateCode.ag" #-} + _hdIdefinedInsts ++ _tlIdefinedInsts + {-# LINE 5989 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 230, column 47) + _lhsOpatternAttributes = + ({-# LINE 230 "GenerateCode.ag" #-} + _hdIpatternAttributes ++ _tlIpatternAttributes + {-# LINE 5994 "GenerateCode.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 5999 "GenerateCode.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 6004 "GenerateCode.hs" #-}) + ( _hdIcopy,_hdIdefinedInsts,_hdIpatternAttributes) = + (hd_ ) + ( _tlIcopy,_tlIdefinedInsts,_tlIpatternAttributes) = + (tl_ ) + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) +sem_Patterns_Nil :: T_Patterns +sem_Patterns_Nil = + (T_Patterns (let _lhsOdefinedInsts :: ([Identifier]) + _lhsOpatternAttributes :: ([(Identifier, Identifier)]) + _lhsOcopy :: Patterns + -- use rule "GenerateCode.ag"(line 223, column 55) + _lhsOdefinedInsts = + ({-# LINE 223 "GenerateCode.ag" #-} + [] + {-# LINE 6019 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 230, column 47) + _lhsOpatternAttributes = + ({-# LINE 230 "GenerateCode.ag" #-} + [] + {-# LINE 6024 "GenerateCode.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + [] + {-# LINE 6029 "GenerateCode.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 6034 "GenerateCode.hs" #-}) + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) +-- Sequence ---------------------------------------------------- +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + aroundMap : Set Identifier + children : [(Identifier,Type,Maybe (Maybe Type))] + con : ConstructorIdent + inh : Attributes + instVisitNrs : Map Identifier Int + lastExpr : Expr + nr : Int + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + paramInstMap : Map Identifier (NontermIdent, [String]) + paramMap : ParamMap + prefix : String + syn : Attributes + terminals : [Identifier] + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + what : String + chained attribute: + declsAbove : [Decl] + synthesized attributes: + allTpsFound : Bool + blockDecls : DeclBlocks + comments : [String] + decls : Decls + definedInsts : [Identifier] + exprs : Exprs + tSigs : [Decl] + tps : [Type] + usedVars : Set String + alternatives: + alternative Cons: + child hd : CRule + child tl : Sequence + alternative Nil: +-} +-- cata +sem_Sequence :: Sequence -> + T_Sequence +sem_Sequence list = + (Prelude.foldr sem_Sequence_Cons sem_Sequence_Nil (Prelude.map sem_CRule list) ) +-- semantic domain +newtype T_Sequence = T_Sequence ((Set NontermIdent) -> + (Set Identifier) -> + ([(Identifier,Type,Maybe (Maybe Type))]) -> + ConstructorIdent -> + ([Decl]) -> + Attributes -> + (Map Identifier Int) -> + Expr -> + Int -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + (Map Identifier (NontermIdent, [String])) -> + ParamMap -> + String -> + Attributes -> + ([Identifier]) -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + String -> + ( Bool,DeclBlocks,([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String))) +data Inh_Sequence = Inh_Sequence {allNts_Inh_Sequence :: !(Set NontermIdent),aroundMap_Inh_Sequence :: !(Set Identifier),children_Inh_Sequence :: !([(Identifier,Type,Maybe (Maybe Type))]),con_Inh_Sequence :: !(ConstructorIdent),declsAbove_Inh_Sequence :: !([Decl]),inh_Inh_Sequence :: !(Attributes),instVisitNrs_Inh_Sequence :: !(Map Identifier Int),lastExpr_Inh_Sequence :: !(Expr),nr_Inh_Sequence :: !(Int),nt_Inh_Sequence :: !(NontermIdent),o_case_Inh_Sequence :: !(Bool),o_cata_Inh_Sequence :: !(Bool),o_costcentre_Inh_Sequence :: !(Bool),o_data_Inh_Sequence :: !(Maybe Bool),o_linePragmas_Inh_Sequence :: !(Bool),o_monadic_Inh_Sequence :: !(Bool),o_newtypes_Inh_Sequence :: !(Bool),o_pretty_Inh_Sequence :: !(Bool),o_rename_Inh_Sequence :: !(Bool),o_sem_Inh_Sequence :: !(Bool),o_sig_Inh_Sequence :: !(Bool),o_splitsems_Inh_Sequence :: !(Bool),o_strictwrap_Inh_Sequence :: !(Bool),o_traces_Inh_Sequence :: !(Bool),o_unbox_Inh_Sequence :: !(Bool),paramInstMap_Inh_Sequence :: !(Map Identifier (NontermIdent, [String])),paramMap_Inh_Sequence :: !(ParamMap),prefix_Inh_Sequence :: !(String),syn_Inh_Sequence :: !(Attributes),terminals_Inh_Sequence :: !([Identifier]),unfoldSemDom_Inh_Sequence :: !(NontermIdent -> Int -> [String] -> Code.Type),what_Inh_Sequence :: !(String)} +data Syn_Sequence = Syn_Sequence {allTpsFound_Syn_Sequence :: !(Bool),blockDecls_Syn_Sequence :: !(DeclBlocks),comments_Syn_Sequence :: !([String]),decls_Syn_Sequence :: !(Decls),declsAbove_Syn_Sequence :: !([Decl]),definedInsts_Syn_Sequence :: !([Identifier]),exprs_Syn_Sequence :: !(Exprs),tSigs_Syn_Sequence :: !([Decl]),tps_Syn_Sequence :: !([Type]),usedVars_Syn_Sequence :: !(Set String)} +wrap_Sequence :: T_Sequence -> + Inh_Sequence -> + Syn_Sequence +wrap_Sequence (T_Sequence sem ) (Inh_Sequence _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwhat ) = + (let ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars) = + (sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIwhat ) + in (Syn_Sequence _lhsOallTpsFound _lhsOblockDecls _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars )) +sem_Sequence_Cons :: T_CRule -> + T_Sequence -> + T_Sequence +sem_Sequence_Cons (T_CRule hd_ ) (T_Sequence tl_ ) = + (T_Sequence (\ _lhsIallNts + _lhsIaroundMap + _lhsIchildren + _lhsIcon + _lhsIdeclsAbove + _lhsIinh + _lhsIinstVisitNrs + _lhsIlastExpr + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamInstMap + _lhsIparamMap + _lhsIprefix + _lhsIsyn + _lhsIterminals + _lhsIunfoldSemDom + _lhsIwhat -> + (let _lhsOblockDecls :: DeclBlocks + _lhsOallTpsFound :: Bool + _lhsOcomments :: ([String]) + _lhsOdecls :: Decls + _lhsOdefinedInsts :: ([Identifier]) + _lhsOexprs :: Exprs + _lhsOtSigs :: ([Decl]) + _lhsOtps :: ([Type]) + _lhsOusedVars :: (Set String) + _lhsOdeclsAbove :: ([Decl]) + _hdOallNts :: (Set NontermIdent) + _hdOaroundMap :: (Set Identifier) + _hdOchildren :: ([(Identifier,Type,Maybe (Maybe Type))]) + _hdOcon :: ConstructorIdent + _hdOdeclsAbove :: ([Decl]) + _hdOinh :: Attributes + _hdOinstVisitNrs :: (Map Identifier Int) + _hdOnr :: Int + _hdOnt :: NontermIdent + _hdOo_case :: Bool + _hdOo_cata :: Bool + _hdOo_costcentre :: Bool + _hdOo_data :: (Maybe Bool) + _hdOo_linePragmas :: Bool + _hdOo_monadic :: Bool + _hdOo_newtypes :: Bool + _hdOo_pretty :: Bool + _hdOo_rename :: Bool + _hdOo_sem :: Bool + _hdOo_sig :: Bool + _hdOo_splitsems :: Bool + _hdOo_strictwrap :: Bool + _hdOo_traces :: Bool + _hdOo_unbox :: Bool + _hdOparamInstMap :: (Map Identifier (NontermIdent, [String])) + _hdOparamMap :: ParamMap + _hdOprefix :: String + _hdOsyn :: Attributes + _hdOterminals :: ([Identifier]) + _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _hdOwhat :: String + _tlOallNts :: (Set NontermIdent) + _tlOaroundMap :: (Set Identifier) + _tlOchildren :: ([(Identifier,Type,Maybe (Maybe Type))]) + _tlOcon :: ConstructorIdent + _tlOdeclsAbove :: ([Decl]) + _tlOinh :: Attributes + _tlOinstVisitNrs :: (Map Identifier Int) + _tlOlastExpr :: Expr + _tlOnr :: Int + _tlOnt :: NontermIdent + _tlOo_case :: Bool + _tlOo_cata :: Bool + _tlOo_costcentre :: Bool + _tlOo_data :: (Maybe Bool) + _tlOo_linePragmas :: Bool + _tlOo_monadic :: Bool + _tlOo_newtypes :: Bool + _tlOo_pretty :: Bool + _tlOo_rename :: Bool + _tlOo_sem :: Bool + _tlOo_sig :: Bool + _tlOo_splitsems :: Bool + _tlOo_strictwrap :: Bool + _tlOo_traces :: Bool + _tlOo_unbox :: Bool + _tlOparamInstMap :: (Map Identifier (NontermIdent, [String])) + _tlOparamMap :: ParamMap + _tlOprefix :: String + _tlOsyn :: Attributes + _tlOterminals :: ([Identifier]) + _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _tlOwhat :: String + _hdIallTpsFound :: Bool + _hdIbldBlocksFun :: (DeclBlocks -> DeclBlocks) + _hdIcomments :: ([String]) + _hdIdecls :: Decls + _hdIdeclsAbove :: ([Decl]) + _hdIdefinedInsts :: ([Identifier]) + _hdIexprs :: Exprs + _hdItSigs :: ([Decl]) + _hdItps :: ([Type]) + _hdIusedVars :: (Set String) + _tlIallTpsFound :: Bool + _tlIblockDecls :: DeclBlocks + _tlIcomments :: ([String]) + _tlIdecls :: Decls + _tlIdeclsAbove :: ([Decl]) + _tlIdefinedInsts :: ([Identifier]) + _tlIexprs :: Exprs + _tlItSigs :: ([Decl]) + _tlItps :: ([Type]) + _tlIusedVars :: (Set String) + -- "GenerateCode.ag"(line 563, column 7) + _lhsOblockDecls = + ({-# LINE 563 "GenerateCode.ag" #-} + _hdIbldBlocksFun _tlIblockDecls + {-# LINE 6270 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 387, column 39) + _lhsOallTpsFound = + ({-# LINE 387 "GenerateCode.ag" #-} + _hdIallTpsFound && _tlIallTpsFound + {-# LINE 6275 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 793, column 52) + _lhsOcomments = + ({-# LINE 793 "GenerateCode.ag" #-} + _hdIcomments ++ _tlIcomments + {-# LINE 6280 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 139, column 34) + _lhsOdecls = + ({-# LINE 139 "GenerateCode.ag" #-} + _hdIdecls ++ _tlIdecls + {-# LINE 6285 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 223, column 55) + _lhsOdefinedInsts = + ({-# LINE 223 "GenerateCode.ag" #-} + _hdIdefinedInsts ++ _tlIdefinedInsts + {-# LINE 6290 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 296, column 34) + _lhsOexprs = + ({-# LINE 296 "GenerateCode.ag" #-} + _hdIexprs ++ _tlIexprs + {-# LINE 6295 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 325, column 33) + _lhsOtSigs = + ({-# LINE 325 "GenerateCode.ag" #-} + _hdItSigs ++ _tlItSigs + {-# LINE 6300 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 386, column 31) + _lhsOtps = + ({-# LINE 386 "GenerateCode.ag" #-} + _hdItps ++ _tlItps + {-# LINE 6305 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 314, column 37) + _lhsOusedVars = + ({-# LINE 314 "GenerateCode.ag" #-} + _hdIusedVars `Set.union` _tlIusedVars + {-# LINE 6310 "GenerateCode.hs" #-}) + -- copy rule (up) + _lhsOdeclsAbove = + ({-# LINE 549 "GenerateCode.ag" #-} + _tlIdeclsAbove + {-# LINE 6315 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOallNts = + ({-# LINE 121 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 6320 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOaroundMap = + ({-# LINE 537 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 6325 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOchildren = + ({-# LINE 221 "GenerateCode.ag" #-} + _lhsIchildren + {-# LINE 6330 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOcon = + ({-# LINE 83 "GenerateCode.ag" #-} + _lhsIcon + {-# LINE 6335 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOdeclsAbove = + ({-# LINE 549 "GenerateCode.ag" #-} + _lhsIdeclsAbove + {-# LINE 6340 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOinh = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 6345 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOinstVisitNrs = + ({-# LINE 517 "GenerateCode.ag" #-} + _lhsIinstVisitNrs + {-# LINE 6350 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOnr = + ({-# LINE 240 "GenerateCode.ag" #-} + _lhsInr + {-# LINE 6355 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOnt = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 6360 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 6365 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 6370 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 6375 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 6380 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 6385 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 6390 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 6395 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 6400 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 6405 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 6410 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 6415 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 6420 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 6425 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 6430 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 6435 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOparamInstMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamInstMap + {-# LINE 6440 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 6445 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 6450 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOsyn = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 6455 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOterminals = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIterminals + {-# LINE 6460 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOunfoldSemDom = + ({-# LINE 676 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 6465 "GenerateCode.hs" #-}) + -- copy rule (down) + _hdOwhat = + ({-# LINE 795 "GenerateCode.ag" #-} + _lhsIwhat + {-# LINE 6470 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOallNts = + ({-# LINE 121 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 6475 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOaroundMap = + ({-# LINE 537 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 6480 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOchildren = + ({-# LINE 221 "GenerateCode.ag" #-} + _lhsIchildren + {-# LINE 6485 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOcon = + ({-# LINE 83 "GenerateCode.ag" #-} + _lhsIcon + {-# LINE 6490 "GenerateCode.hs" #-}) + -- copy rule (chain) + _tlOdeclsAbove = + ({-# LINE 549 "GenerateCode.ag" #-} + _hdIdeclsAbove + {-# LINE 6495 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOinh = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 6500 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOinstVisitNrs = + ({-# LINE 517 "GenerateCode.ag" #-} + _lhsIinstVisitNrs + {-# LINE 6505 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOlastExpr = + ({-# LINE 547 "GenerateCode.ag" #-} + _lhsIlastExpr + {-# LINE 6510 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOnr = + ({-# LINE 240 "GenerateCode.ag" #-} + _lhsInr + {-# LINE 6515 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOnt = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 6520 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_case = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 6525 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_cata = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 6530 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_costcentre = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 6535 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_data = + ({-# LINE 46 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 6540 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_linePragmas = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 6545 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_monadic = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 6550 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_newtypes = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 6555 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_pretty = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 6560 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_rename = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 6565 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_sem = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 6570 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_sig = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 6575 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_splitsems = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 6580 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_strictwrap = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 6585 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_traces = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 6590 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOo_unbox = + ({-# LINE 45 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 6595 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOparamInstMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamInstMap + {-# LINE 6600 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOparamMap = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 6605 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOprefix = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 6610 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOsyn = + ({-# LINE 78 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 6615 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOterminals = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIterminals + {-# LINE 6620 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOunfoldSemDom = + ({-# LINE 676 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 6625 "GenerateCode.hs" #-}) + -- copy rule (down) + _tlOwhat = + ({-# LINE 795 "GenerateCode.ag" #-} + _lhsIwhat + {-# LINE 6630 "GenerateCode.hs" #-}) + ( _hdIallTpsFound,_hdIbldBlocksFun,_hdIcomments,_hdIdecls,_hdIdeclsAbove,_hdIdefinedInsts,_hdIexprs,_hdItSigs,_hdItps,_hdIusedVars) = + (hd_ _hdOallNts _hdOaroundMap _hdOchildren _hdOcon _hdOdeclsAbove _hdOinh _hdOinstVisitNrs _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOwhat ) + ( _tlIallTpsFound,_tlIblockDecls,_tlIcomments,_tlIdecls,_tlIdeclsAbove,_tlIdefinedInsts,_tlIexprs,_tlItSigs,_tlItps,_tlIusedVars) = + (tl_ _tlOallNts _tlOaroundMap _tlOchildren _tlOcon _tlOdeclsAbove _tlOinh _tlOinstVisitNrs _tlOlastExpr _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOwhat ) + in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars))) ) +sem_Sequence_Nil :: T_Sequence +sem_Sequence_Nil = + (T_Sequence (\ _lhsIallNts + _lhsIaroundMap + _lhsIchildren + _lhsIcon + _lhsIdeclsAbove + _lhsIinh + _lhsIinstVisitNrs + _lhsIlastExpr + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIparamInstMap + _lhsIparamMap + _lhsIprefix + _lhsIsyn + _lhsIterminals + _lhsIunfoldSemDom + _lhsIwhat -> + (let _lhsOblockDecls :: DeclBlocks + _lhsOallTpsFound :: Bool + _lhsOcomments :: ([String]) + _lhsOdecls :: Decls + _lhsOdefinedInsts :: ([Identifier]) + _lhsOexprs :: Exprs + _lhsOtSigs :: ([Decl]) + _lhsOtps :: ([Type]) + _lhsOusedVars :: (Set String) + _lhsOdeclsAbove :: ([Decl]) + -- "GenerateCode.ag"(line 565, column 7) + _lhsOblockDecls = + ({-# LINE 565 "GenerateCode.ag" #-} + DeclTerminator _lhsIdeclsAbove _lhsIlastExpr + {-# LINE 6684 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 387, column 39) + _lhsOallTpsFound = + ({-# LINE 387 "GenerateCode.ag" #-} + True + {-# LINE 6689 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 793, column 52) + _lhsOcomments = + ({-# LINE 793 "GenerateCode.ag" #-} + [] + {-# LINE 6694 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 139, column 34) + _lhsOdecls = + ({-# LINE 139 "GenerateCode.ag" #-} + [] + {-# LINE 6699 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 223, column 55) + _lhsOdefinedInsts = + ({-# LINE 223 "GenerateCode.ag" #-} + [] + {-# LINE 6704 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 296, column 34) + _lhsOexprs = + ({-# LINE 296 "GenerateCode.ag" #-} + [] + {-# LINE 6709 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 325, column 33) + _lhsOtSigs = + ({-# LINE 325 "GenerateCode.ag" #-} + [] + {-# LINE 6714 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 386, column 31) + _lhsOtps = + ({-# LINE 386 "GenerateCode.ag" #-} + [] + {-# LINE 6719 "GenerateCode.hs" #-}) + -- use rule "GenerateCode.ag"(line 314, column 37) + _lhsOusedVars = + ({-# LINE 314 "GenerateCode.ag" #-} + Set.empty + {-# LINE 6724 "GenerateCode.hs" #-}) + -- copy rule (chain) + _lhsOdeclsAbove = + ({-# LINE 549 "GenerateCode.ag" #-} + _lhsIdeclsAbove + {-# LINE 6729 "GenerateCode.hs" #-}) + in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars))) ) 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.22 (HsToken.ag) +-- UUAGC 0.9.21 (HsToken.ag) module HsToken where {-# LINE 2 "HsToken.ag" #-} @@ -32,8 +32,8 @@ child value : {String} child pos : {Pos} -} -data HsToken = AGField (Identifier) (Identifier) (Pos) ((Maybe String)) - | AGLocal (Identifier) (Pos) ((Maybe String)) +data HsToken = AGField (Identifier) (Identifier) (Pos) (Maybe String) + | AGLocal (Identifier) (Pos) (Maybe String) | CharToken (String) (Pos) | Err (String) (Pos) | HsToken (String) (Pos) @@ -46,11 +46,11 @@ child tl : HsTokens alternative Nil: -} -type HsTokens = [HsToken ] +type HsTokens = [(HsToken)] -- HsTokensRoot ------------------------------------------------ {- alternatives: alternative HsTokensRoot: child tokens : HsTokens -} -data HsTokensRoot = HsTokensRoot (HsTokens ) +data HsTokensRoot = HsTokensRoot (HsTokens) 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.22 (Interfaces.ag) +-- UUAGC 0.9.21 (Interfaces.ag) module Interfaces where {-# LINE 2 "Interfaces.ag" #-} @@ -13,7 +13,7 @@ alternative IRoot: child inters : Interfaces -} -data IRoot = IRoot (Interfaces ) +data IRoot = IRoot (Interfaces) -- Interface --------------------------------------------------- {- alternatives: @@ -22,7 +22,7 @@ child cons : {[ConstructorIdent]} child seg : Segments -} -data Interface = Interface (NontermIdent) (([ConstructorIdent])) (Segments ) +data Interface = Interface (NontermIdent) ([ConstructorIdent]) (Segments) -- Interfaces -------------------------------------------------- {- alternatives: @@ -31,7 +31,7 @@ child tl : Interfaces alternative Nil: -} -type Interfaces = [Interface ] +type Interfaces = [(Interface)] -- Segment ----------------------------------------------------- {- alternatives: @@ -39,7 +39,7 @@ child inh : {[Vertex]} child syn : {[Vertex]} -} -data Segment = Segment (([Vertex])) (([Vertex])) +data Segment = Segment ([Vertex]) ([Vertex]) -- Segments ---------------------------------------------------- {- alternatives: @@ -48,4 +48,4 @@ child tl : Segments alternative Nil: -} -type Segments = [Segment ] +type Segments = [(Segment)] 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.22 (InterfacesRules.lag) +-- UUAGC 0.9.21 (InterfacesRules.lag) module InterfacesRules where {-# LINE 10 "InterfacesRules.lag" #-} @@ -115,8 +115,8 @@ Info -> Graph -> ( ([Edge]),CInterfaceMap,CVisitsMap)) -data Inh_IRoot = Inh_IRoot {dpr_Inh_IRoot :: !(([Edge])),info_Inh_IRoot :: !(Info),tdp_Inh_IRoot :: !(Graph)} -data Syn_IRoot = Syn_IRoot {edp_Syn_IRoot :: !(([Edge])),inters_Syn_IRoot :: !(CInterfaceMap),visits_Syn_IRoot :: !(CVisitsMap)} +data Inh_IRoot = Inh_IRoot {dpr_Inh_IRoot :: !([Edge]),info_Inh_IRoot :: !(Info),tdp_Inh_IRoot :: !(Graph)} +data Syn_IRoot = Syn_IRoot {edp_Syn_IRoot :: !([Edge]),inters_Syn_IRoot :: !(CInterfaceMap),visits_Syn_IRoot :: !(CVisitsMap)} wrap_IRoot :: T_IRoot -> Inh_IRoot -> Syn_IRoot @@ -246,8 +246,8 @@ newtype T_Interface_2 = T_Interface_2 (CInterfaceMap -> Graph -> ( (Seq Edge),(Map ConstructorIdent CVisits))) -data Inh_Interface = Inh_Interface {allInters_Inh_Interface :: !(CInterfaceMap),ddp_Inh_Interface :: !(Graph),info_Inh_Interface :: !(Info),prev_Inh_Interface :: !(([Vertex])),v_Inh_Interface :: !(Vertex),visitDescr_Inh_Interface :: !((Map Vertex ChildVisit)),vssGraph_Inh_Interface :: !(Graph)} -data Syn_Interface = Syn_Interface {descr_Syn_Interface :: !((Seq (Vertex,ChildVisit))),edp_Syn_Interface :: !((Seq Edge)),firstvisitvertices_Syn_Interface :: !(([Vertex])),inter_Syn_Interface :: !(CInterface),newedges_Syn_Interface :: !((Seq Edge )),nt_Syn_Interface :: !(NontermIdent),v_Syn_Interface :: !(Vertex),visits_Syn_Interface :: !((Map ConstructorIdent CVisits))} +data Inh_Interface = Inh_Interface {allInters_Inh_Interface :: !(CInterfaceMap),ddp_Inh_Interface :: !(Graph),info_Inh_Interface :: !(Info),prev_Inh_Interface :: !([Vertex]),v_Inh_Interface :: !(Vertex),visitDescr_Inh_Interface :: !(Map Vertex ChildVisit),vssGraph_Inh_Interface :: !(Graph)} +data Syn_Interface = Syn_Interface {descr_Syn_Interface :: !(Seq (Vertex,ChildVisit)),edp_Syn_Interface :: !(Seq Edge),firstvisitvertices_Syn_Interface :: !([Vertex]),inter_Syn_Interface :: !(CInterface),newedges_Syn_Interface :: !(Seq Edge ),nt_Syn_Interface :: !(NontermIdent),v_Syn_Interface :: !(Vertex),visits_Syn_Interface :: !(Map ConstructorIdent CVisits)} wrap_Interface :: T_Interface -> Inh_Interface -> Syn_Interface @@ -437,8 +437,8 @@ newtype T_Interfaces_2 = T_Interfaces_2 (CInterfaceMap -> Graph -> ( (Seq Edge),CVisitsMap)) -data Inh_Interfaces = Inh_Interfaces {allInters_Inh_Interfaces :: !(CInterfaceMap),ddp_Inh_Interfaces :: !(Graph),info_Inh_Interfaces :: !(Info),prev_Inh_Interfaces :: !(([Vertex])),v_Inh_Interfaces :: !(Vertex),visitDescr_Inh_Interfaces :: !((Map Vertex ChildVisit)),vssGraph_Inh_Interfaces :: !(Graph)} -data Syn_Interfaces = Syn_Interfaces {descr_Syn_Interfaces :: !((Seq (Vertex,ChildVisit))),edp_Syn_Interfaces :: !((Seq Edge)),firstvisitvertices_Syn_Interfaces :: !(([Vertex])),inters_Syn_Interfaces :: !(CInterfaceMap),newedges_Syn_Interfaces :: !((Seq Edge )),v_Syn_Interfaces :: !(Vertex),visits_Syn_Interfaces :: !(CVisitsMap)} +data Inh_Interfaces = Inh_Interfaces {allInters_Inh_Interfaces :: !(CInterfaceMap),ddp_Inh_Interfaces :: !(Graph),info_Inh_Interfaces :: !(Info),prev_Inh_Interfaces :: !([Vertex]),v_Inh_Interfaces :: !(Vertex),visitDescr_Inh_Interfaces :: !(Map Vertex ChildVisit),vssGraph_Inh_Interfaces :: !(Graph)} +data Syn_Interfaces = Syn_Interfaces {descr_Syn_Interfaces :: !(Seq (Vertex,ChildVisit)),edp_Syn_Interfaces :: !(Seq Edge),firstvisitvertices_Syn_Interfaces :: !([Vertex]),inters_Syn_Interfaces :: !(CInterfaceMap),newedges_Syn_Interfaces :: !(Seq Edge ),v_Syn_Interfaces :: !(Vertex),visits_Syn_Interfaces :: !(CVisitsMap)} wrap_Interfaces :: T_Interfaces -> Inh_Interfaces -> Syn_Interfaces @@ -721,8 +721,8 @@ ([Vertex]) -> ([IntraVisit]) -> ( ([CVisit]),(Seq Edge),([Vertex]),([IntraVisit]),([VisitSS]))) -data Inh_Segment = Inh_Segment {allInters_Inh_Segment :: !(CInterfaceMap),cons_Inh_Segment :: !(([ConstructorIdent])),ddp_Inh_Segment :: !(Graph),fromLhs_Inh_Segment :: !(([Vertex])),info_Inh_Segment :: !(Info),isFirst_Inh_Segment :: !(Bool),n_Inh_Segment :: !(Int),nextInh_Inh_Segment :: !(([Vertex])),nextIntravisits_Inh_Segment :: !(([IntraVisit])),nextNewvertices_Inh_Segment :: !(([Vertex])),prev_Inh_Segment :: !(([Vertex])),v_Inh_Segment :: !(Vertex),visitDescr_Inh_Segment :: !((Map Vertex ChildVisit)),vssGraph_Inh_Segment :: !(Graph)} -data Syn_Segment = Syn_Segment {cvisits_Syn_Segment :: !(([CVisit])),descr_Syn_Segment :: !((Seq (Vertex,ChildVisit))),edp_Syn_Segment :: !((Seq Edge)),groups_Syn_Segment :: !(([([Vertex],[Vertex])])),inh_Syn_Segment :: !(([Vertex])),intravisits_Syn_Segment :: !(([IntraVisit])),newedges_Syn_Segment :: !((Seq Edge )),newvertices_Syn_Segment :: !(([Vertex])),prev_Syn_Segment :: !(([Vertex])),seg_Syn_Segment :: !(CSegment),v_Syn_Segment :: !(Vertex),visitss_Syn_Segment :: !(([VisitSS]))} +data Inh_Segment = Inh_Segment {allInters_Inh_Segment :: !(CInterfaceMap),cons_Inh_Segment :: !([ConstructorIdent]),ddp_Inh_Segment :: !(Graph),fromLhs_Inh_Segment :: !([Vertex]),info_Inh_Segment :: !(Info),isFirst_Inh_Segment :: !(Bool),n_Inh_Segment :: !(Int),nextInh_Inh_Segment :: !([Vertex]),nextIntravisits_Inh_Segment :: !([IntraVisit]),nextNewvertices_Inh_Segment :: !([Vertex]),prev_Inh_Segment :: !([Vertex]),v_Inh_Segment :: !(Vertex),visitDescr_Inh_Segment :: !(Map Vertex ChildVisit),vssGraph_Inh_Segment :: !(Graph)} +data Syn_Segment = Syn_Segment {cvisits_Syn_Segment :: !([CVisit]),descr_Syn_Segment :: !(Seq (Vertex,ChildVisit)),edp_Syn_Segment :: !(Seq Edge),groups_Syn_Segment :: !([([Vertex],[Vertex])]),inh_Syn_Segment :: !([Vertex]),intravisits_Syn_Segment :: !([IntraVisit]),newedges_Syn_Segment :: !(Seq Edge ),newvertices_Syn_Segment :: !([Vertex]),prev_Syn_Segment :: !([Vertex]),seg_Syn_Segment :: !(CSegment),v_Syn_Segment :: !(Vertex),visitss_Syn_Segment :: !([VisitSS])} wrap_Segment :: T_Segment -> Inh_Segment -> Syn_Segment @@ -1011,8 +1011,8 @@ ([Vertex]) -> Bool -> ( ([[CVisit]]),(Seq Edge),([Vertex]),([IntraVisit]),([Vertex]))) -data Inh_Segments = Inh_Segments {allInters_Inh_Segments :: !(CInterfaceMap),cons_Inh_Segments :: !(([ConstructorIdent])),ddp_Inh_Segments :: !(Graph),fromLhs_Inh_Segments :: !(([Vertex])),info_Inh_Segments :: !(Info),isFirst_Inh_Segments :: !(Bool),n_Inh_Segments :: !(Int),prev_Inh_Segments :: !(([Vertex])),v_Inh_Segments :: !(Vertex),visitDescr_Inh_Segments :: !((Map Vertex ChildVisit)),vssGraph_Inh_Segments :: !(Graph)} -data Syn_Segments = Syn_Segments {cvisits_Syn_Segments :: !(([[CVisit]])),descr_Syn_Segments :: !((Seq (Vertex,ChildVisit))),edp_Syn_Segments :: !((Seq Edge)),firstInh_Syn_Segments :: !(([Vertex])),groups_Syn_Segments :: !(([([Vertex],[Vertex])])),hdIntravisits_Syn_Segments :: !(([IntraVisit])),newedges_Syn_Segments :: !((Seq Edge )),newvertices_Syn_Segments :: !(([Vertex])),prev_Syn_Segments :: !(([Vertex])),segs_Syn_Segments :: !(CSegments),v_Syn_Segments :: !(Vertex)} +data Inh_Segments = Inh_Segments {allInters_Inh_Segments :: !(CInterfaceMap),cons_Inh_Segments :: !([ConstructorIdent]),ddp_Inh_Segments :: !(Graph),fromLhs_Inh_Segments :: !([Vertex]),info_Inh_Segments :: !(Info),isFirst_Inh_Segments :: !(Bool),n_Inh_Segments :: !(Int),prev_Inh_Segments :: !([Vertex]),v_Inh_Segments :: !(Vertex),visitDescr_Inh_Segments :: !(Map Vertex ChildVisit),vssGraph_Inh_Segments :: !(Graph)} +data Syn_Segments = Syn_Segments {cvisits_Syn_Segments :: !([[CVisit]]),descr_Syn_Segments :: !(Seq (Vertex,ChildVisit)),edp_Syn_Segments :: !(Seq Edge),firstInh_Syn_Segments :: !([Vertex]),groups_Syn_Segments :: !([([Vertex],[Vertex])]),hdIntravisits_Syn_Segments :: !([IntraVisit]),newedges_Syn_Segments :: !(Seq Edge ),newvertices_Syn_Segments :: !([Vertex]),prev_Syn_Segments :: !([Vertex]),segs_Syn_Segments :: !(CSegments),v_Syn_Segments :: !(Vertex)} wrap_Segments :: T_Segments -> Inh_Segments -> Syn_Segments diff --git a/src-derived/Order.hs b/src-derived/Order.hs --- a/src-derived/Order.hs +++ b/src-derived/Order.hs @@ -1,4641 +1,4803 @@ --- UUAGC 0.9.22 (Order.ag) -module Order where -{-# LINE 9 "Order.ag" #-} - --- From uuagc -import CommonTypes -import Patterns -import ErrorMessages -import AbstractSyntax -import Code hiding (Type) -import qualified Code -import Expression -import Options -import SequentialComputation -import SequentialTypes -import CodeSyntax -import GrammarInfo -import HsToken(HsTokensRoot(HsTokensRoot)) -import HsTokenScanner(lexTokens) -import SemHsTokens(sem_HsTokensRoot,wrap_HsTokensRoot, Syn_HsTokensRoot(..),Inh_HsTokensRoot(..)) --- From uulib -import qualified Data.Map as Map -import qualified Data.Set as Set -import qualified Data.Sequence as Seq -import Data.Map(Map) -import Data.Set(Set) -import Data.Sequence(Seq, (><)) -import UU.Util.Utils -import UU.Scanner.Position(Pos(..),initPos) -import Data.Foldable(toList) - --- From haskell libraries -import Control.Monad(liftM) -import qualified Data.Array as Array -import Data.Array((!),bounds,inRange) -import Data.List(elemIndex,partition,sort,mapAccumL,find,nubBy,intersperse,groupBy,transpose) -import qualified Data.Tree as Tree -import Maybe -{-# LINE 42 "../src-derived/Order.hs" #-} - -{-# LINE 2 "./Patterns.ag" #-} - --- Patterns.ag imports -import UU.Scanner.Position(Pos) -import CommonTypes (ConstructorIdent,Identifier) -{-# LINE 49 "../src-derived/Order.hs" #-} - -{-# LINE 2 "./Expression.ag" #-} - -import UU.Scanner.Position(Pos) -import HsToken -{-# LINE 55 "../src-derived/Order.hs" #-} - -{-# LINE 2 "./AbstractSyntax.ag" #-} - --- AbstractSyntax.ag imports -import Data.Set(Set) -import Data.Map(Map) -import Patterns (Pattern(..),Patterns) -import Expression (Expression(..)) -import CommonTypes -{-# LINE 65 "../src-derived/Order.hs" #-} -{-# LINE 46 "Order.ag" #-} - --- Terminates with an error if the key is not in the map -findWithErr1 :: (Ord k, Show k) => String -> k -> Map k a -> a -findWithErr1 s k - = Map.findWithDefault (error ("findWithErr1 " ++ s ++ ": key " ++ show k ++ " not in map.")) k - -findWithErr2 :: (Ord k, Show k, Show a) => k -> Map k a -> a -findWithErr2 k m - = Map.findWithDefault (error ("findWithErr2: key " ++ show k ++ " not in map: " ++ show m)) k m -{-# LINE 76 "../src-derived/Order.hs" #-} - -{-# LINE 118 "Order.ag" #-} - -getNtName :: Type -> NontermIdent -getNtName (NT nt _) = maybe nt id (deforestedNt nt) -getNtName _ = nullIdent -{-# LINE 83 "../src-derived/Order.hs" #-} - -{-# LINE 146 "Order.ag" #-} - -data AltAttr = AltAttr Identifier Identifier Bool - deriving (Eq, Ord, Show) -{-# LINE 89 "../src-derived/Order.hs" #-} - -{-# LINE 218 "Order.ag" #-} - -substSelf nt tp - = case tp of - NT n tps | n == _SELF -> NT nt tps - _ -> tp - -haskellTupel :: [Type] -> Maybe Type -haskellTupel ts = Just ( Haskell ( '(' : (concat (intersperse "," (map show ts))) ++ ")" )) -{-# LINE 100 "../src-derived/Order.hs" #-} - -{-# LINE 610 "Order.ag" #-} - -swap (a,b) = (b,a) - -showPath :: Table CRule -> [Vertex] -> [String] -showPath ruleTable path - = let look a | inRange (bounds ruleTable) a = [showOrigin (ruleTable ! a)] - | otherwise = ["Vertex " ++ show a] - showOrigin cr | getHasCode cr && getName (getAttr cr) /= "self" = prettyCRule cr ++ " (" ++ show (getPos (getAttr cr)) ++ ")" - | otherwise = prettyCRule cr - in concatMap look path - - -showPathLocal :: Table CRule -> [Vertex] -> [String] -showPathLocal _ [] = [] -showPathLocal ruleTable xs = showP (xs++[-1]) - where showP [] = [] - showP (v1:v2:vs) = let line = step v1 v2 - lines = showP vs - in line:lines - step v1 v2 = " - " ++ a1 - where r1 = ruleTable ! v1 - a1 = show (getAttr r1) - - -limitTo :: Int -> [String] -> [String] -limitTo _ [] = [] -limitTo 0 _ = ["....etcetera, etcetera...."] -limitTo n (x:xs) = x : limitTo (n-1) xs - -showPathNice :: Table CRule -> [Vertex] -> [String] -showPathNice _ [] = [] -showPathNice ruleTable xs = limitTo 100 (showP ((-1):xs++[-1])) - where [maxf, maxa, maxn, maxc] = maxWidths ruleTable (take 100 xs) - showP [] = [] - showP (v1:v2:vs) = let line = step v1 v2 - lines = showP vs - in if null line then lines else line:lines - step v1 v2 | last && first = induced - | last && isSyn r1 = "pass up " ++ alignR maxf "" ++ " " ++ alignL maxa a1 ++ " in " ++ alignR maxn n1 ++ "|" ++ c1 ++ induced - | first&& not(isSyn r2) = "get from above " ++ alignR maxf "" ++ " " ++ alignL maxa a2 ++ " in " ++ alignR maxn n2 ++ "|" ++ c2 - | last = "pass down " ++ alignR maxf f1 ++ "." ++ a1 ++ induced - | isSyn r2 = "get from below " ++ alignR maxf f2 ++ "." ++ alignL maxa a2 ++ " in " ++ alignR maxn n2 ++ "|" ++ c2 - | isLocal r1 = if head a1 == '_' - then "" - else "calculate " ++ alignR maxf "loc" ++ "." ++ a1 - | otherwise = "pass down " ++ alignR maxf f1 ++ "." ++ alignL maxa a1 ++ " to " ++ alignR maxn n2 ++ "|" ++ c2 - where - first = v1<0 - last = v2<0 - r1 = ruleTable ! v1 - r2 = ruleTable ! v2 - a1 = show (getAttr r1) - a2 = show (getAttr r2) - f1 = show (getField r1) - f2 = show (getField r2) - n1 = show (getLhsNt r1) - n2 = show (getLhsNt r2) - c1 = show (getCon r1) - c2 = show (getCon r2) - induced | v2== -2 = " INDUCED dependency to " - | otherwise = "" - - -maxWidths ruleTable vs - = map maximum (transpose (map getWidth vs)) - where getWidth v | v<0 = [0,0,0,0] - | otherwise = map (length . show . ($ (ruleTable!v))) [getField, getAttr, getLhsNt, getCon] - -alignL n xs | k Bool -> Route -> Error -localCycleErr ruleTable o_visit (s:path) - = let cr = ruleTable ! s - attr = getAttr cr - nt = getLhsNt cr - con = getCon cr - in LocalCirc nt con attr o_visit (showPathLocal ruleTable path) - -instCycleErr :: Table CRule -> Bool -> Route -> Error -instCycleErr ruleTable o_visit (s:path) - = let cr = ruleTable ! s - attr = getAttr cr - nt = getLhsNt cr - con = getCon cr - in InstCirc nt con attr o_visit (showPathLocal ruleTable path) - -directCycleErrs :: Table NTAttr -> Table CRule -> Bool -> [EdgeRoutes] -> [Error] -directCycleErrs attrTable ruleTable o_visit xs - = let getNont v = case attrTable ! v of - NTASyn nt _ _ -> nt - NTAInh nt _ _ -> nt - getAttr v = case attrTable ! v of - NTASyn _ a _ -> a - NTAInh _ a _ -> a - sameNont ((v1,_),_,_) ((v2,_),_,_) = getNont v1 == getNont v2 - procCycle ((v1,v2),p1,p2) = ((getAttr v1, getAttr v2), showPathNice ruleTable p1, showPathNice ruleTable p2) - wrapGroup gr@(((v1,_),_,_):_) = DirectCirc (getNont v1) o_visit (map procCycle gr) - in map wrapGroup (groupBy sameNont xs) - -inducedCycleErrs :: Table NTAttr -> Table CRule -> CInterfaceMap -> [EdgeRoutes] -> [Error] -inducedCycleErrs attrTable ruleTable cim xs - = let getNont v = case attrTable ! v of - NTASyn nt _ _ -> nt - NTAInh nt _ _ -> nt - getAttr v = case attrTable ! v of - NTASyn _ a _ -> a - NTAInh _ a _ -> a - sameNont ((v1,_),_,_) ((v2,_),_,_) = getNont v1 == getNont v2 - procCycle ((v1,v2),p1,p2) = ((getAttr v1, getAttr v2), showPathNice ruleTable p1, showPathNice ruleTable p2) - wrapGroup gr@(((v1,_),_,_):_) = InducedCirc (getNont v1) (findWithErr1 "inducedCycleErr.cinter" (getNont v1) cim) (map procCycle gr) - in map wrapGroup (groupBy sameNont xs) -{-# LINE 220 "../src-derived/Order.hs" #-} --- Child ------------------------------------------------------- -{- - visit 0: - inherited attributes: - allfields : [(Identifier,Type,Bool)] - allnts : [Identifier] - attrs : [(Identifier,Identifier)] - con : Identifier - inh : Attributes - nt : Identifier - o_unbox : Bool - syn : Attributes - synthesized attributes: - attributes : [(Identifier,Attributes,Attributes)] - collectChildrenInhs : Map Identifier Attributes - collectChildrenSyns : Map Identifier Attributes - errors : Seq Error - field : (Identifier,Type,Bool) - gathAltAttrs : [AltAttr] - gathRules : Seq CRule - inhs : Seq (Identifier,Attributes) - nts : Seq (Identifier,NontermIdent) - singlevisits : [CRule] - terminals : [Identifier] - alternatives: - alternative Child: - child name : {Identifier} - child tp : {Type} - child inh : {Attributes} - child syn : {Attributes} - child higherOrder : {Bool} - visit 0: - local maptolocal : _ - local gathRules : _ --} --- cata -sem_Child :: Child -> - T_Child -sem_Child (Child _name _tp _inh _syn _higherOrder ) = - (sem_Child_Child _name _tp _inh _syn _higherOrder ) --- semantic domain -newtype T_Child = T_Child (([(Identifier,Type,Bool)]) -> - ([Identifier]) -> - ([(Identifier,Identifier)]) -> - Identifier -> - Attributes -> - Identifier -> - Bool -> - Attributes -> - ( ([(Identifier,Attributes,Attributes)]),(Map Identifier Attributes ),(Map Identifier Attributes ),(Seq Error),((Identifier,Type,Bool)),([AltAttr]),(Seq CRule),(Seq (Identifier,Attributes)),(Seq (Identifier,NontermIdent)),([CRule]),([Identifier]))) -data Inh_Child = Inh_Child {allfields_Inh_Child :: !(([(Identifier,Type,Bool)])),allnts_Inh_Child :: !(([Identifier])),attrs_Inh_Child :: !(([(Identifier,Identifier)])),con_Inh_Child :: !(Identifier),inh_Inh_Child :: !(Attributes),nt_Inh_Child :: !(Identifier),o_unbox_Inh_Child :: !(Bool),syn_Inh_Child :: !(Attributes)} -data Syn_Child = Syn_Child {attributes_Syn_Child :: !(([(Identifier,Attributes,Attributes)])),collectChildrenInhs_Syn_Child :: !((Map Identifier Attributes )),collectChildrenSyns_Syn_Child :: !((Map Identifier Attributes )),errors_Syn_Child :: !((Seq Error)),field_Syn_Child :: !(((Identifier,Type,Bool))),gathAltAttrs_Syn_Child :: !(([AltAttr])),gathRules_Syn_Child :: !((Seq CRule)),inhs_Syn_Child :: !((Seq (Identifier,Attributes))),nts_Syn_Child :: !((Seq (Identifier,NontermIdent))),singlevisits_Syn_Child :: !(([CRule])),terminals_Syn_Child :: !(([Identifier]))} -wrap_Child :: T_Child -> - Inh_Child -> - Syn_Child -wrap_Child (T_Child sem ) (Inh_Child _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsIinh _lhsInt _lhsIo_unbox _lhsIsyn ) = - (let ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfield,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals) = - (sem _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsIinh _lhsInt _lhsIo_unbox _lhsIsyn ) - in (Syn_Child _lhsOattributes _lhsOcollectChildrenInhs _lhsOcollectChildrenSyns _lhsOerrors _lhsOfield _lhsOgathAltAttrs _lhsOgathRules _lhsOinhs _lhsOnts _lhsOsinglevisits _lhsOterminals )) -sem_Child_Child :: Identifier -> - Type -> - Attributes -> - Attributes -> - Bool -> - T_Child -sem_Child_Child name_ tp_ inh_ syn_ higherOrder_ = - (T_Child (\ _lhsIallfields - _lhsIallnts - _lhsIattrs - _lhsIcon - _lhsIinh - _lhsInt - _lhsIo_unbox - _lhsIsyn -> - (let _lhsOgathAltAttrs :: ([AltAttr]) - _lhsOnts :: (Seq (Identifier,NontermIdent)) - _lhsOinhs :: (Seq (Identifier,Attributes)) - _lhsOcollectChildrenSyns :: (Map Identifier Attributes ) - _lhsOcollectChildrenInhs :: (Map Identifier Attributes ) - _lhsOsinglevisits :: ([CRule]) - _lhsOterminals :: ([Identifier]) - _lhsOattributes :: ([(Identifier,Attributes,Attributes)]) - _lhsOfield :: ((Identifier,Type,Bool)) - _lhsOerrors :: (Seq Error) - _lhsOgathRules :: (Seq CRule) - -- "Order.ag"(line 157, column 13) - _maptolocal = - ({-# LINE 157 "Order.ag" #-} - case tp_ of - NT nt _ -> Map.null syn_ - _ -> True - {-# LINE 312 "Order.hs" #-}) - -- "Order.ag"(line 160, column 13) - _lhsOgathAltAttrs = - ({-# LINE 160 "Order.ag" #-} - if _maptolocal - then [ AltAttr _LOC name_ True ] - else [ AltAttr name_ syn True | syn <- Map.keys syn_ ] - {-# LINE 319 "Order.hs" #-}) - -- "Order.ag"(line 175, column 13) - _lhsOnts = - ({-# LINE 175 "Order.ag" #-} - Seq.singleton (name_,getNtName tp_) - {-# LINE 324 "Order.hs" #-}) - -- "Order.ag"(line 176, column 13) - _lhsOinhs = - ({-# LINE 176 "Order.ag" #-} - Seq.singleton (name_,inh_) - {-# LINE 329 "Order.hs" #-}) - -- "Order.ag"(line 192, column 13) - _gathRules = - ({-# LINE 192 "Order.ag" #-} - if _maptolocal - then Seq.singleton (cRuleTerminal name_ _lhsInt _lhsIcon tp_) - else Seq.fromList [ cRuleRhsSyn syn _lhsInt _lhsIcon tp name_ (getNtName tp_) | (syn,tp) <- Map.assocs syn_] - {-# LINE 336 "Order.hs" #-}) - -- "Order.ag"(line 326, column 12) - _lhsOcollectChildrenSyns = - ({-# LINE 326 "Order.ag" #-} - Map.singleton name_ syn_ - {-# LINE 341 "Order.hs" #-}) - -- "Order.ag"(line 327, column 12) - _lhsOcollectChildrenInhs = - ({-# LINE 327 "Order.ag" #-} - Map.singleton name_ inh_ - {-# LINE 346 "Order.hs" #-}) - -- "Order.ag"(line 537, column 11) - _lhsOsinglevisits = - ({-# LINE 537 "Order.ag" #-} - if _maptolocal - then [] - else [CChildVisit name_ (getNtName tp_) 0 inh_ syn_ True] - {-# LINE 353 "Order.hs" #-}) - -- "Order.ag"(line 561, column 11) - _lhsOterminals = - ({-# LINE 561 "Order.ag" #-} - if _maptolocal - then [name_] - else [] - {-# LINE 360 "Order.hs" #-}) - -- "Order.ag"(line 590, column 11) - _lhsOattributes = - ({-# LINE 590 "Order.ag" #-} - [(name_, inh_, syn_)] - {-# LINE 365 "Order.hs" #-}) - -- "Order.ag"(line 594, column 11) - _lhsOfield = - ({-# LINE 594 "Order.ag" #-} - (name_, tp_, higherOrder_) - {-# LINE 370 "Order.hs" #-}) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - Seq.empty - {-# LINE 375 "Order.hs" #-}) - -- use rule "Order.ag"(line 186, column 23) - _lhsOgathRules = - ({-# LINE 186 "Order.ag" #-} - _gathRules - {-# LINE 380 "Order.hs" #-}) - in ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfield,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals))) ) --- Children ---------------------------------------------------- -{- - visit 0: - inherited attributes: - allfields : [(Identifier,Type,Bool)] - allnts : [Identifier] - attrs : [(Identifier,Identifier)] - con : Identifier - inh : Attributes - nt : Identifier - o_unbox : Bool - syn : Attributes - synthesized attributes: - attributes : [(Identifier,Attributes,Attributes)] - collectChildrenInhs : Map Identifier Attributes - collectChildrenSyns : Map Identifier Attributes - errors : Seq Error - fields : [(Identifier,Type,Bool)] - gathAltAttrs : [AltAttr] - gathRules : Seq CRule - inhs : Seq (Identifier,Attributes) - nts : Seq (Identifier,NontermIdent) - singlevisits : [CRule] - terminals : [Identifier] - alternatives: - alternative Cons: - child hd : Child - child tl : Children - alternative Nil: --} --- cata -sem_Children :: Children -> - T_Children -sem_Children list = - (Prelude.foldr sem_Children_Cons sem_Children_Nil (Prelude.map sem_Child list) ) --- semantic domain -newtype T_Children = T_Children (([(Identifier,Type,Bool)]) -> - ([Identifier]) -> - ([(Identifier,Identifier)]) -> - Identifier -> - Attributes -> - Identifier -> - Bool -> - Attributes -> - ( ([(Identifier,Attributes,Attributes)]),(Map Identifier Attributes ),(Map Identifier Attributes ),(Seq Error),([(Identifier,Type,Bool)]),([AltAttr]),(Seq CRule),(Seq (Identifier,Attributes)),(Seq (Identifier,NontermIdent)),([CRule]),([Identifier]))) -data Inh_Children = Inh_Children {allfields_Inh_Children :: !(([(Identifier,Type,Bool)])),allnts_Inh_Children :: !(([Identifier])),attrs_Inh_Children :: !(([(Identifier,Identifier)])),con_Inh_Children :: !(Identifier),inh_Inh_Children :: !(Attributes),nt_Inh_Children :: !(Identifier),o_unbox_Inh_Children :: !(Bool),syn_Inh_Children :: !(Attributes)} -data Syn_Children = Syn_Children {attributes_Syn_Children :: !(([(Identifier,Attributes,Attributes)])),collectChildrenInhs_Syn_Children :: !((Map Identifier Attributes )),collectChildrenSyns_Syn_Children :: !((Map Identifier Attributes )),errors_Syn_Children :: !((Seq Error)),fields_Syn_Children :: !(([(Identifier,Type,Bool)])),gathAltAttrs_Syn_Children :: !(([AltAttr])),gathRules_Syn_Children :: !((Seq CRule)),inhs_Syn_Children :: !((Seq (Identifier,Attributes))),nts_Syn_Children :: !((Seq (Identifier,NontermIdent))),singlevisits_Syn_Children :: !(([CRule])),terminals_Syn_Children :: !(([Identifier]))} -wrap_Children :: T_Children -> - Inh_Children -> - Syn_Children -wrap_Children (T_Children sem ) (Inh_Children _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsIinh _lhsInt _lhsIo_unbox _lhsIsyn ) = - (let ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfields,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals) = - (sem _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsIinh _lhsInt _lhsIo_unbox _lhsIsyn ) - in (Syn_Children _lhsOattributes _lhsOcollectChildrenInhs _lhsOcollectChildrenSyns _lhsOerrors _lhsOfields _lhsOgathAltAttrs _lhsOgathRules _lhsOinhs _lhsOnts _lhsOsinglevisits _lhsOterminals )) -sem_Children_Cons :: T_Child -> - T_Children -> - T_Children -sem_Children_Cons (T_Child hd_ ) (T_Children tl_ ) = - (T_Children (\ _lhsIallfields - _lhsIallnts - _lhsIattrs - _lhsIcon - _lhsIinh - _lhsInt - _lhsIo_unbox - _lhsIsyn -> - (let _lhsOfields :: ([(Identifier,Type,Bool)]) - _lhsOattributes :: ([(Identifier,Attributes,Attributes)]) - _lhsOcollectChildrenInhs :: (Map Identifier Attributes ) - _lhsOcollectChildrenSyns :: (Map Identifier Attributes ) - _lhsOerrors :: (Seq Error) - _lhsOgathAltAttrs :: ([AltAttr]) - _lhsOgathRules :: (Seq CRule) - _lhsOinhs :: (Seq (Identifier,Attributes)) - _lhsOnts :: (Seq (Identifier,NontermIdent)) - _lhsOsinglevisits :: ([CRule]) - _lhsOterminals :: ([Identifier]) - _hdOallfields :: ([(Identifier,Type,Bool)]) - _hdOallnts :: ([Identifier]) - _hdOattrs :: ([(Identifier,Identifier)]) - _hdOcon :: Identifier - _hdOinh :: Attributes - _hdOnt :: Identifier - _hdOo_unbox :: Bool - _hdOsyn :: Attributes - _tlOallfields :: ([(Identifier,Type,Bool)]) - _tlOallnts :: ([Identifier]) - _tlOattrs :: ([(Identifier,Identifier)]) - _tlOcon :: Identifier - _tlOinh :: Attributes - _tlOnt :: Identifier - _tlOo_unbox :: Bool - _tlOsyn :: Attributes - _hdIattributes :: ([(Identifier,Attributes,Attributes)]) - _hdIcollectChildrenInhs :: (Map Identifier Attributes ) - _hdIcollectChildrenSyns :: (Map Identifier Attributes ) - _hdIerrors :: (Seq Error) - _hdIfield :: ((Identifier,Type,Bool)) - _hdIgathAltAttrs :: ([AltAttr]) - _hdIgathRules :: (Seq CRule) - _hdIinhs :: (Seq (Identifier,Attributes)) - _hdInts :: (Seq (Identifier,NontermIdent)) - _hdIsinglevisits :: ([CRule]) - _hdIterminals :: ([Identifier]) - _tlIattributes :: ([(Identifier,Attributes,Attributes)]) - _tlIcollectChildrenInhs :: (Map Identifier Attributes ) - _tlIcollectChildrenSyns :: (Map Identifier Attributes ) - _tlIerrors :: (Seq Error) - _tlIfields :: ([(Identifier,Type,Bool)]) - _tlIgathAltAttrs :: ([AltAttr]) - _tlIgathRules :: (Seq CRule) - _tlIinhs :: (Seq (Identifier,Attributes)) - _tlInts :: (Seq (Identifier,NontermIdent)) - _tlIsinglevisits :: ([CRule]) - _tlIterminals :: ([Identifier]) - -- "Order.ag"(line 597, column 11) - _lhsOfields = - ({-# LINE 597 "Order.ag" #-} - _hdIfield : _tlIfields - {-# LINE 501 "Order.hs" #-}) - -- use rule "Order.ag"(line 588, column 32) - _lhsOattributes = - ({-# LINE 588 "Order.ag" #-} - _hdIattributes ++ _tlIattributes - {-# LINE 506 "Order.hs" #-}) - -- use rule "Order.ag"(line 324, column 68) - _lhsOcollectChildrenInhs = - ({-# LINE 324 "Order.ag" #-} - _hdIcollectChildrenInhs `Map.union` _tlIcollectChildrenInhs - {-# LINE 511 "Order.hs" #-}) - -- use rule "Order.ag"(line 324, column 68) - _lhsOcollectChildrenSyns = - ({-# LINE 324 "Order.ag" #-} - _hdIcollectChildrenSyns `Map.union` _tlIcollectChildrenSyns - {-# LINE 516 "Order.hs" #-}) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 521 "Order.hs" #-}) - -- use rule "Order.ag"(line 150, column 68) - _lhsOgathAltAttrs = - ({-# LINE 150 "Order.ag" #-} - _hdIgathAltAttrs ++ _tlIgathAltAttrs - {-# LINE 526 "Order.hs" #-}) - -- use rule "Order.ag"(line 186, column 23) - _lhsOgathRules = - ({-# LINE 186 "Order.ag" #-} - _hdIgathRules Seq.>< _tlIgathRules - {-# LINE 531 "Order.hs" #-}) - -- use rule "Order.ag"(line 173, column 20) - _lhsOinhs = - ({-# LINE 173 "Order.ag" #-} - _hdIinhs Seq.>< _tlIinhs - {-# LINE 536 "Order.hs" #-}) - -- use rule "Order.ag"(line 172, column 19) - _lhsOnts = - ({-# LINE 172 "Order.ag" #-} - _hdInts Seq.>< _tlInts - {-# LINE 541 "Order.hs" #-}) - -- use rule "Order.ag"(line 535, column 40) - _lhsOsinglevisits = - ({-# LINE 535 "Order.ag" #-} - _hdIsinglevisits ++ _tlIsinglevisits - {-# LINE 546 "Order.hs" #-}) - -- use rule "Order.ag"(line 559, column 38) - _lhsOterminals = - ({-# LINE 559 "Order.ag" #-} - _hdIterminals ++ _tlIterminals - {-# LINE 551 "Order.hs" #-}) - -- copy rule (down) - _hdOallfields = - ({-# LINE 577 "Order.ag" #-} - _lhsIallfields - {-# LINE 556 "Order.hs" #-}) - -- copy rule (down) - _hdOallnts = - ({-# LINE 570 "Order.ag" #-} - _lhsIallnts - {-# LINE 561 "Order.hs" #-}) - -- copy rule (down) - _hdOattrs = - ({-# LINE 577 "Order.ag" #-} - _lhsIattrs - {-# LINE 566 "Order.hs" #-}) - -- copy rule (down) - _hdOcon = - ({-# LINE 70 "Order.ag" #-} - _lhsIcon - {-# LINE 571 "Order.hs" #-}) - -- copy rule (down) - _hdOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 576 "Order.hs" #-}) - -- copy rule (down) - _hdOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 581 "Order.hs" #-}) - -- copy rule (down) - _hdOo_unbox = - ({-# LINE 99 "Order.ag" #-} - _lhsIo_unbox - {-# LINE 586 "Order.hs" #-}) - -- copy rule (down) - _hdOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 591 "Order.hs" #-}) - -- copy rule (down) - _tlOallfields = - ({-# LINE 577 "Order.ag" #-} - _lhsIallfields - {-# LINE 596 "Order.hs" #-}) - -- copy rule (down) - _tlOallnts = - ({-# LINE 570 "Order.ag" #-} - _lhsIallnts - {-# LINE 601 "Order.hs" #-}) - -- copy rule (down) - _tlOattrs = - ({-# LINE 577 "Order.ag" #-} - _lhsIattrs - {-# LINE 606 "Order.hs" #-}) - -- copy rule (down) - _tlOcon = - ({-# LINE 70 "Order.ag" #-} - _lhsIcon - {-# LINE 611 "Order.hs" #-}) - -- copy rule (down) - _tlOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 616 "Order.hs" #-}) - -- copy rule (down) - _tlOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 621 "Order.hs" #-}) - -- copy rule (down) - _tlOo_unbox = - ({-# LINE 99 "Order.ag" #-} - _lhsIo_unbox - {-# LINE 626 "Order.hs" #-}) - -- copy rule (down) - _tlOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 631 "Order.hs" #-}) - ( _hdIattributes,_hdIcollectChildrenInhs,_hdIcollectChildrenSyns,_hdIerrors,_hdIfield,_hdIgathAltAttrs,_hdIgathRules,_hdIinhs,_hdInts,_hdIsinglevisits,_hdIterminals) = - (hd_ _hdOallfields _hdOallnts _hdOattrs _hdOcon _hdOinh _hdOnt _hdOo_unbox _hdOsyn ) - ( _tlIattributes,_tlIcollectChildrenInhs,_tlIcollectChildrenSyns,_tlIerrors,_tlIfields,_tlIgathAltAttrs,_tlIgathRules,_tlIinhs,_tlInts,_tlIsinglevisits,_tlIterminals) = - (tl_ _tlOallfields _tlOallnts _tlOattrs _tlOcon _tlOinh _tlOnt _tlOo_unbox _tlOsyn ) - in ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfields,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals))) ) -sem_Children_Nil :: T_Children -sem_Children_Nil = - (T_Children (\ _lhsIallfields - _lhsIallnts - _lhsIattrs - _lhsIcon - _lhsIinh - _lhsInt - _lhsIo_unbox - _lhsIsyn -> - (let _lhsOfields :: ([(Identifier,Type,Bool)]) - _lhsOattributes :: ([(Identifier,Attributes,Attributes)]) - _lhsOcollectChildrenInhs :: (Map Identifier Attributes ) - _lhsOcollectChildrenSyns :: (Map Identifier Attributes ) - _lhsOerrors :: (Seq Error) - _lhsOgathAltAttrs :: ([AltAttr]) - _lhsOgathRules :: (Seq CRule) - _lhsOinhs :: (Seq (Identifier,Attributes)) - _lhsOnts :: (Seq (Identifier,NontermIdent)) - _lhsOsinglevisits :: ([CRule]) - _lhsOterminals :: ([Identifier]) - -- "Order.ag"(line 598, column 11) - _lhsOfields = - ({-# LINE 598 "Order.ag" #-} - [] - {-# LINE 662 "Order.hs" #-}) - -- use rule "Order.ag"(line 588, column 32) - _lhsOattributes = - ({-# LINE 588 "Order.ag" #-} - [] - {-# LINE 667 "Order.hs" #-}) - -- use rule "Order.ag"(line 324, column 68) - _lhsOcollectChildrenInhs = - ({-# LINE 324 "Order.ag" #-} - Map.empty - {-# LINE 672 "Order.hs" #-}) - -- use rule "Order.ag"(line 324, column 68) - _lhsOcollectChildrenSyns = - ({-# LINE 324 "Order.ag" #-} - Map.empty - {-# LINE 677 "Order.hs" #-}) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - Seq.empty - {-# LINE 682 "Order.hs" #-}) - -- use rule "Order.ag"(line 150, column 68) - _lhsOgathAltAttrs = - ({-# LINE 150 "Order.ag" #-} - [] - {-# LINE 687 "Order.hs" #-}) - -- use rule "Order.ag"(line 186, column 23) - _lhsOgathRules = - ({-# LINE 186 "Order.ag" #-} - Seq.empty - {-# LINE 692 "Order.hs" #-}) - -- use rule "Order.ag"(line 173, column 20) - _lhsOinhs = - ({-# LINE 173 "Order.ag" #-} - Seq.empty - {-# LINE 697 "Order.hs" #-}) - -- use rule "Order.ag"(line 172, column 19) - _lhsOnts = - ({-# LINE 172 "Order.ag" #-} - Seq.empty - {-# LINE 702 "Order.hs" #-}) - -- use rule "Order.ag"(line 535, column 40) - _lhsOsinglevisits = - ({-# LINE 535 "Order.ag" #-} - [] - {-# LINE 707 "Order.hs" #-}) - -- use rule "Order.ag"(line 559, column 38) - _lhsOterminals = - ({-# LINE 559 "Order.ag" #-} - [] - {-# LINE 712 "Order.hs" #-}) - in ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfields,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals))) ) --- Expression -------------------------------------------------- -{- - visit 0: - inherited attributes: - allfields : [(Identifier,Type,Bool)] - allnts : [Identifier] - attrs : [(Identifier,Identifier)] - con : Identifier - nt : Identifier - synthesized attributes: - allRhsVars : Set (Identifier,Identifier) - copy : SELF - errors : Seq Error - textLines : [String] - usedAttrs : [(Identifier,Identifier)] - usedFields : [Identifier] - usedLocals : [Identifier] - alternatives: - alternative Expression: - child pos : {Pos} - child tks : {[HsToken]} - visit 0: - local _tup1 : _ - local errors : _ - local textLines : _ - local usedAttrs : _ - local usedLocals : _ - local usedFields : _ - local copy : _ --} --- cata -sem_Expression :: Expression -> - T_Expression -sem_Expression (Expression _pos _tks ) = - (sem_Expression_Expression _pos _tks ) --- semantic domain -newtype T_Expression = T_Expression (([(Identifier,Type,Bool)]) -> - ([Identifier]) -> - ([(Identifier,Identifier)]) -> - Identifier -> - Identifier -> - ( (Set (Identifier,Identifier)),Expression ,(Seq Error),([String]),([(Identifier,Identifier)]),([Identifier]),([Identifier]))) -data Inh_Expression = Inh_Expression {allfields_Inh_Expression :: !(([(Identifier,Type,Bool)])),allnts_Inh_Expression :: !(([Identifier])),attrs_Inh_Expression :: !(([(Identifier,Identifier)])),con_Inh_Expression :: !(Identifier),nt_Inh_Expression :: !(Identifier)} -data Syn_Expression = Syn_Expression {allRhsVars_Syn_Expression :: !((Set (Identifier,Identifier))),copy_Syn_Expression :: !(Expression ),errors_Syn_Expression :: !((Seq Error)),textLines_Syn_Expression :: !(([String])),usedAttrs_Syn_Expression :: !(([(Identifier,Identifier)])),usedFields_Syn_Expression :: !(([Identifier])),usedLocals_Syn_Expression :: !(([Identifier]))} -wrap_Expression :: T_Expression -> - Inh_Expression -> - Syn_Expression -wrap_Expression (T_Expression sem ) (Inh_Expression _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsInt ) = - (let ( _lhsOallRhsVars,_lhsOcopy,_lhsOerrors,_lhsOtextLines,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals) = - (sem _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsInt ) - in (Syn_Expression _lhsOallRhsVars _lhsOcopy _lhsOerrors _lhsOtextLines _lhsOusedAttrs _lhsOusedFields _lhsOusedLocals )) -sem_Expression_Expression :: Pos -> - ([HsToken]) -> - T_Expression -sem_Expression_Expression pos_ tks_ = - (T_Expression (\ _lhsIallfields - _lhsIallnts - _lhsIattrs - _lhsIcon - _lhsInt -> - (let _lhsOallRhsVars :: (Set (Identifier,Identifier)) - _lhsOcopy :: Expression - _lhsOerrors :: (Seq Error) - _lhsOtextLines :: ([String]) - _lhsOusedAttrs :: ([(Identifier,Identifier)]) - _lhsOusedFields :: ([Identifier]) - _lhsOusedLocals :: ([Identifier]) - -- "Order.ag"(line 396, column 21) - __tup1 = - ({-# LINE 396 "Order.ag" #-} - let inherited = Inh_HsTokensRoot - { attrs_Inh_HsTokensRoot = _lhsIattrs - , con_Inh_HsTokensRoot = _lhsIcon - , allfields_Inh_HsTokensRoot = _lhsIallfields - , allnts_Inh_HsTokensRoot = _lhsIallnts - , nt_Inh_HsTokensRoot = _lhsInt - } - synthesized = wrap_HsTokensRoot (sem_HsTokensRoot (HsTokensRoot tks_)) inherited - in case synthesized of - Syn_HsTokensRoot - { errors_Syn_HsTokensRoot = errors - , textLines_Syn_HsTokensRoot = textLines - , usedAttrs_Syn_HsTokensRoot = usedAttrs - , usedLocals_Syn_HsTokensRoot = usedLocals - , usedFields_Syn_HsTokensRoot = usedFields - } -> (errors,textLines,usedAttrs,usedLocals,usedFields) - {-# LINE 800 "Order.hs" #-}) - -- "Order.ag"(line 396, column 21) - (_errors,_,_,_,_) = - ({-# LINE 396 "Order.ag" #-} - __tup1 - {-# LINE 805 "Order.hs" #-}) - -- "Order.ag"(line 396, column 21) - (_,_textLines,_,_,_) = - ({-# LINE 396 "Order.ag" #-} - __tup1 - {-# LINE 810 "Order.hs" #-}) - -- "Order.ag"(line 396, column 21) - (_,_,_usedAttrs,_,_) = - ({-# LINE 396 "Order.ag" #-} - __tup1 - {-# LINE 815 "Order.hs" #-}) - -- "Order.ag"(line 396, column 21) - (_,_,_,_usedLocals,_) = - ({-# LINE 396 "Order.ag" #-} - __tup1 - {-# LINE 820 "Order.hs" #-}) - -- "Order.ag"(line 396, column 21) - (_,_,_,_,_usedFields) = - ({-# LINE 396 "Order.ag" #-} - __tup1 - {-# LINE 825 "Order.hs" #-}) - -- "Order.ag"(line 414, column 17) - _lhsOallRhsVars = - ({-# LINE 414 "Order.ag" #-} - Set.fromList _usedAttrs - `Set.union` - Set.fromList [ (_LOC, l) | l <- _usedLocals ] - `Set.union` - Set.fromList [ (_FIELD, fld) | fld <- _usedFields ] - {-# LINE 834 "Order.hs" #-}) - -- self rule - _copy = - ({-# LINE 391 "Order.ag" #-} - Expression pos_ tks_ - {-# LINE 839 "Order.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 391 "Order.ag" #-} - _copy - {-# LINE 844 "Order.hs" #-}) - -- copy rule (from local) - _lhsOerrors = - ({-# LINE 386 "Order.ag" #-} - _errors - {-# LINE 849 "Order.hs" #-}) - -- copy rule (from local) - _lhsOtextLines = - ({-# LINE 390 "Order.ag" #-} - _textLines - {-# LINE 854 "Order.hs" #-}) - -- copy rule (from local) - _lhsOusedAttrs = - ({-# LINE 388 "Order.ag" #-} - _usedAttrs - {-# LINE 859 "Order.hs" #-}) - -- copy rule (from local) - _lhsOusedFields = - ({-# LINE 389 "Order.ag" #-} - _usedFields - {-# LINE 864 "Order.hs" #-}) - -- copy rule (from local) - _lhsOusedLocals = - ({-# LINE 387 "Order.ag" #-} - _usedLocals - {-# LINE 869 "Order.hs" #-}) - in ( _lhsOallRhsVars,_lhsOcopy,_lhsOerrors,_lhsOtextLines,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals))) ) --- Grammar ----------------------------------------------------- -{- - visit 0: - inherited attribute: - options : Options - synthesized attributes: - errors : Seq Error - output : CGrammar - alternatives: - alternative Grammar: - child typeSyns : {TypeSyns} - child useMap : {UseMap} - child derivings : {Derivings} - child wrappers : {Set NontermIdent} - child nonts : Nonterminals - child pragmas : {PragmaMap} - child manualAttrOrderMap : {AttrOrderMap} - child paramMap : {ParamMap} - child contextMap : {ContextMap} - child uniqueMap : {UniqueMap} - child augmentsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} - child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} - visit 0: - local ruleTable : _ - local attrTable : _ - local attrVertex : _ - local tdpToTds : _ - local tdsToTdp : _ - local directDep : _ - local instDep : _ - local aroundDep : _ - local info : _ - local _tup2 : _ - local cInterfaceMap : _ - local cVisitsMap : _ - local cyclesErrors : _ - local aroundMap : _ --} --- cata -sem_Grammar :: Grammar -> - T_Grammar -sem_Grammar (Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap ) = - (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap ) --- semantic domain -newtype T_Grammar = T_Grammar (Options -> - ( (Seq Error),CGrammar)) -data Inh_Grammar = Inh_Grammar {options_Inh_Grammar :: !(Options)} -data Syn_Grammar = Syn_Grammar {errors_Syn_Grammar :: !((Seq Error)),output_Syn_Grammar :: !(CGrammar)} -wrap_Grammar :: T_Grammar -> - Inh_Grammar -> - Syn_Grammar -wrap_Grammar (T_Grammar sem ) (Inh_Grammar _lhsIoptions ) = - (let ( _lhsOerrors,_lhsOoutput) = - (sem _lhsIoptions ) - in (Syn_Grammar _lhsOerrors _lhsOoutput )) -sem_Grammar_Grammar :: TypeSyns -> - UseMap -> - Derivings -> - (Set NontermIdent) -> - T_Nonterminals -> - PragmaMap -> - AttrOrderMap -> - ParamMap -> - ContextMap -> - UniqueMap -> - (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> - (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> - T_Grammar -sem_Grammar_Grammar typeSyns_ useMap_ derivings_ wrappers_ (T_Nonterminals nonts_ ) pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ uniqueMap_ augmentsMap_ aroundsMap_ = - (T_Grammar (\ _lhsIoptions -> - (let _nontsOo_cata :: Bool - _nontsOo_data :: Bool - _nontsOo_sig :: Bool - _nontsOo_sem :: Bool - _nontsOo_rename :: Bool - _nontsOo_newtypes :: Bool - _nontsOo_wantvisit :: Bool - _nontsOo_dovisit :: Bool - _nontsOo_unbox :: Bool - _nontsOo_case :: Bool - _nontsOprefix :: String - _nontsOvcount :: Int - _nontsOmanualAttrDepMap :: AttrOrderMap - _nontsOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) - _nontsOacount :: Int - _lhsOerrors :: (Seq Error) - _lhsOoutput :: CGrammar - _nontsOallnts :: ([Identifier]) - _nontsOcInterfaceMap :: CInterfaceMap - _nontsOcVisitsMap :: CVisitsMap - _nontsIacount :: Int - _nontsIadditionalDep :: (Seq Edge) - _nontsIaranges :: (Seq (Int,Int,Int)) - _nontsIaroundDep :: (Seq Edge) - _nontsIcNonterminals :: CNonterminals - _nontsIdirectDep :: (Seq Edge) - _nontsIerrors :: (Seq Error) - _nontsIinstDep :: (Seq Edge) - _nontsInonts :: ([(NontermIdent,[ConstructorIdent])]) - _nontsIntattrs :: (Seq (Vertex,NTAttr)) - _nontsIrules :: (Seq (Vertex,CRule)) - _nontsIvcount :: Int - -- "Order.ag"(line 103, column 17) - _nontsOo_cata = - ({-# LINE 103 "Order.ag" #-} - folds _lhsIoptions - {-# LINE 977 "Order.hs" #-}) - -- "Order.ag"(line 103, column 17) - _nontsOo_data = - ({-# LINE 104 "Order.ag" #-} - dataTypes _lhsIoptions - {-# LINE 982 "Order.hs" #-}) - -- "Order.ag"(line 103, column 17) - _nontsOo_sig = - ({-# LINE 105 "Order.ag" #-} - typeSigs _lhsIoptions - {-# LINE 987 "Order.hs" #-}) - -- "Order.ag"(line 103, column 17) - _nontsOo_sem = - ({-# LINE 106 "Order.ag" #-} - semfuns _lhsIoptions - {-# LINE 992 "Order.hs" #-}) - -- "Order.ag"(line 103, column 17) - _nontsOo_rename = - ({-# LINE 107 "Order.ag" #-} - rename _lhsIoptions - {-# LINE 997 "Order.hs" #-}) - -- "Order.ag"(line 103, column 17) - _nontsOo_newtypes = - ({-# LINE 108 "Order.ag" #-} - newtypes _lhsIoptions - {-# LINE 1002 "Order.hs" #-}) - -- "Order.ag"(line 103, column 17) - _nontsOo_wantvisit = - ({-# LINE 109 "Order.ag" #-} - visit _lhsIoptions - {-# LINE 1007 "Order.hs" #-}) - -- "Order.ag"(line 103, column 17) - _nontsOo_dovisit = - ({-# LINE 110 "Order.ag" #-} - visit _lhsIoptions && null _cyclesErrors - {-# LINE 1012 "Order.hs" #-}) - -- "Order.ag"(line 103, column 17) - _nontsOo_unbox = - ({-# LINE 111 "Order.ag" #-} - unbox _lhsIoptions - {-# LINE 1017 "Order.hs" #-}) - -- "Order.ag"(line 103, column 17) - _nontsOo_case = - ({-# LINE 112 "Order.ag" #-} - cases _lhsIoptions - {-# LINE 1022 "Order.hs" #-}) - -- "Order.ag"(line 103, column 17) - _nontsOprefix = - ({-# LINE 113 "Order.ag" #-} - prefix _lhsIoptions - {-# LINE 1027 "Order.hs" #-}) - -- "Order.ag"(line 241, column 15) - _nontsOvcount = - ({-# LINE 241 "Order.ag" #-} - 0 - {-# LINE 1032 "Order.hs" #-}) - -- "Order.ag"(line 267, column 7) - _nontsOmanualAttrDepMap = - ({-# LINE 267 "Order.ag" #-} - manualAttrOrderMap_ - {-# LINE 1037 "Order.hs" #-}) - -- "Order.ag"(line 350, column 14) - _nontsOaroundMap = - ({-# LINE 350 "Order.ag" #-} - aroundsMap_ - {-# LINE 1042 "Order.hs" #-}) - -- "Order.ag"(line 428, column 13) - _nontsOacount = - ({-# LINE 428 "Order.ag" #-} - 0 - {-# LINE 1047 "Order.hs" #-}) - -- "Order.ag"(line 466, column 13) - _ruleTable = - ({-# LINE 466 "Order.ag" #-} - Array.array (0,_nontsIvcount-1) (toList _nontsIrules) - {-# LINE 1052 "Order.hs" #-}) - -- "Order.ag"(line 467, column 13) - _attrTable = - ({-# LINE 467 "Order.ag" #-} - Array.array (0,_nontsIacount-1) (toList _nontsIntattrs) - {-# LINE 1057 "Order.hs" #-}) - -- "Order.ag"(line 468, column 13) - _attrVertex = - ({-# LINE 468 "Order.ag" #-} - Map.fromList (map swap (toList _nontsIntattrs)) - {-# LINE 1062 "Order.hs" #-}) - -- "Order.ag"(line 469, column 13) - _tdpToTds = - ({-# LINE 469 "Order.ag" #-} - [ (s, maybe (-1) (\v -> findWithErr1 "Grammar.tdpToTds" v _attrVertex) (ntattr cr)) - | (s,cr) <- toList _nontsIrules] - {-# LINE 1068 "Order.hs" #-}) - -- "Order.ag"(line 471, column 13) - _tdsToTdp = - ({-# LINE 471 "Order.ag" #-} - let eq (_,v) (_,v') = v == v' - conv ((s,v):svs) | v == -1 = Nothing - | otherwise = Just (v,s:map fst svs) - in mapMaybe conv (eqClasses eq _tdpToTds) - {-# LINE 1076 "Order.hs" #-}) - -- "Order.ag"(line 475, column 13) - _directDep = - ({-# LINE 475 "Order.ag" #-} - toList (_nontsIdirectDep Seq.>< _nontsIadditionalDep) - {-# LINE 1081 "Order.hs" #-}) - -- "Order.ag"(line 476, column 13) - _instDep = - ({-# LINE 476 "Order.ag" #-} - toList _nontsIinstDep - {-# LINE 1086 "Order.hs" #-}) - -- "Order.ag"(line 477, column 13) - _aroundDep = - ({-# LINE 477 "Order.ag" #-} - toList _nontsIaroundDep - {-# LINE 1091 "Order.hs" #-}) - -- "Order.ag"(line 478, column 13) - _info = - ({-# LINE 478 "Order.ag" #-} - let def [] = -1 - def (v:vs) = v - in Info { tdsToTdp = Array.array (0,_nontsIacount-1) _tdsToTdp - , tdpToTds = Array.array (0,_nontsIvcount-1) _tdpToTds - , attrTable = _attrTable - , ruleTable = _ruleTable - , lmh = toList _nontsIaranges - , nonts = _nontsInonts - , wraps = wrappers_ - } - {-# LINE 1105 "Order.hs" #-}) - -- "Order.ag"(line 489, column 17) - __tup2 = - ({-# LINE 489 "Order.ag" #-} - case computeSequential _info _directDep (_instDep ++ _aroundDep) of - CycleFree cim cvm -> ( cim - , cvm - , [] - ) - LocalCycle errs -> ( error "No interfaces for AG with local cycles" - , error "No visit sub-sequences for AG with local cycles" - , map (localCycleErr _ruleTable (visit _lhsIoptions)) errs - ) - InstCycle errs -> ( error "No interfaces for AG with cycles through insts" - , error "No visit sub-sequences for AG with cycles through insts" - , map (instCycleErr _ruleTable (visit _lhsIoptions)) errs - ) - DirectCycle errs -> ( error "No interfaces for AG with direct cycles" - , error "No visit sub-sequences for AG with direct cycles" - , directCycleErrs _attrTable _ruleTable (visit _lhsIoptions) errs - ) - InducedCycle cim errs -> ( cim - , error "No visit sub-sequences for AG with induced cycles" - , inducedCycleErrs _attrTable _ruleTable cim errs - ) - {-# LINE 1130 "Order.hs" #-}) - -- "Order.ag"(line 489, column 17) - (_cInterfaceMap,_,_) = - ({-# LINE 489 "Order.ag" #-} - __tup2 - {-# LINE 1135 "Order.hs" #-}) - -- "Order.ag"(line 489, column 17) - (_,_cVisitsMap,_) = - ({-# LINE 489 "Order.ag" #-} - __tup2 - {-# LINE 1140 "Order.hs" #-}) - -- "Order.ag"(line 489, column 17) - (_,_,_cyclesErrors) = - ({-# LINE 489 "Order.ag" #-} - __tup2 - {-# LINE 1145 "Order.hs" #-}) - -- "Order.ag"(line 511, column 13) - _lhsOerrors = - ({-# LINE 511 "Order.ag" #-} - (if withCycle _lhsIoptions then Seq.fromList _cyclesErrors else Seq.empty) - Seq.>< _nontsIerrors - {-# LINE 1151 "Order.hs" #-}) - -- "Order.ag"(line 543, column 15) - _lhsOoutput = - ({-# LINE 543 "Order.ag" #-} - CGrammar typeSyns_ derivings_ wrappers_ _nontsIcNonterminals pragmas_ paramMap_ contextMap_ _aroundMap - {-# LINE 1156 "Order.hs" #-}) - -- "Order.ag"(line 556, column 14) - _aroundMap = - ({-# LINE 556 "Order.ag" #-} - Map.map (Map.map Map.keysSet) aroundsMap_ - {-# LINE 1161 "Order.hs" #-}) - -- "Order.ag"(line 573, column 13) - _nontsOallnts = - ({-# LINE 573 "Order.ag" #-} - map fst (_nontsInonts) - {-# LINE 1166 "Order.hs" #-}) - -- copy rule (from local) - _nontsOcInterfaceMap = - ({-# LINE 518 "Order.ag" #-} - _cInterfaceMap - {-# LINE 1171 "Order.hs" #-}) - -- copy rule (from local) - _nontsOcVisitsMap = - ({-# LINE 525 "Order.ag" #-} - _cVisitsMap - {-# LINE 1176 "Order.hs" #-}) - ( _nontsIacount,_nontsIadditionalDep,_nontsIaranges,_nontsIaroundDep,_nontsIcNonterminals,_nontsIdirectDep,_nontsIerrors,_nontsIinstDep,_nontsInonts,_nontsIntattrs,_nontsIrules,_nontsIvcount) = - (nonts_ _nontsOacount _nontsOallnts _nontsOaroundMap _nontsOcInterfaceMap _nontsOcVisitsMap _nontsOmanualAttrDepMap _nontsOo_case _nontsOo_cata _nontsOo_data _nontsOo_dovisit _nontsOo_newtypes _nontsOo_rename _nontsOo_sem _nontsOo_sig _nontsOo_unbox _nontsOo_wantvisit _nontsOprefix _nontsOvcount ) - in ( _lhsOerrors,_lhsOoutput))) ) --- Nonterminal ------------------------------------------------- -{- - visit 0: - inherited attributes: - allnts : [Identifier] - aroundMap : Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])) - cInterfaceMap : CInterfaceMap - cVisitsMap : CVisitsMap - manualAttrDepMap : AttrOrderMap - o_case : Bool - o_cata : Bool - o_data : Bool - o_dovisit : Bool - o_newtypes : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_unbox : Bool - o_wantvisit : Bool - prefix : String - chained attributes: - acount : Int - vcount : Int - synthesized attributes: - additionalDep : Seq Edge - aranges : Seq (Int,Int,Int) - aroundDep : Seq Edge - cNonterminal : CNonterminal - directDep : Seq Edge - errors : Seq Error - instDep : Seq Edge - nonts : [(NontermIdent,[ConstructorIdent])] - ntattrs : Seq (Vertex,NTAttr) - rules : Seq (Vertex,CRule) - alternatives: - alternative Nonterminal: - child nt : {NontermIdent} - child params : {[Identifier]} - child inh : {Attributes} - child syn : {Attributes} - child prods : Productions - visit 0: - local aroundMap : _ - local ntattrs : _ - local cInter : _ --} --- cata -sem_Nonterminal :: Nonterminal -> - T_Nonterminal -sem_Nonterminal (Nonterminal _nt _params _inh _syn _prods ) = - (sem_Nonterminal_Nonterminal _nt _params _inh _syn (sem_Productions _prods ) ) --- semantic domain -newtype T_Nonterminal = T_Nonterminal (Int -> - ([Identifier]) -> - (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> - CInterfaceMap -> - CVisitsMap -> - AttrOrderMap -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - String -> - Int -> - ( Int,(Seq Edge),(Seq (Int,Int,Int)),(Seq Edge),CNonterminal,(Seq Edge),(Seq Error),(Seq Edge),([(NontermIdent,[ConstructorIdent])]),(Seq (Vertex,NTAttr)),(Seq (Vertex,CRule)),Int)) -data Inh_Nonterminal = Inh_Nonterminal {acount_Inh_Nonterminal :: !(Int),allnts_Inh_Nonterminal :: !(([Identifier])),aroundMap_Inh_Nonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))),cInterfaceMap_Inh_Nonterminal :: !(CInterfaceMap),cVisitsMap_Inh_Nonterminal :: !(CVisitsMap),manualAttrDepMap_Inh_Nonterminal :: !(AttrOrderMap),o_case_Inh_Nonterminal :: !(Bool),o_cata_Inh_Nonterminal :: !(Bool),o_data_Inh_Nonterminal :: !(Bool),o_dovisit_Inh_Nonterminal :: !(Bool),o_newtypes_Inh_Nonterminal :: !(Bool),o_rename_Inh_Nonterminal :: !(Bool),o_sem_Inh_Nonterminal :: !(Bool),o_sig_Inh_Nonterminal :: !(Bool),o_unbox_Inh_Nonterminal :: !(Bool),o_wantvisit_Inh_Nonterminal :: !(Bool),prefix_Inh_Nonterminal :: !(String),vcount_Inh_Nonterminal :: !(Int)} -data Syn_Nonterminal = Syn_Nonterminal {acount_Syn_Nonterminal :: !(Int),additionalDep_Syn_Nonterminal :: !((Seq Edge)),aranges_Syn_Nonterminal :: !((Seq (Int,Int,Int))),aroundDep_Syn_Nonterminal :: !((Seq Edge)),cNonterminal_Syn_Nonterminal :: !(CNonterminal),directDep_Syn_Nonterminal :: !((Seq Edge)),errors_Syn_Nonterminal :: !((Seq Error)),instDep_Syn_Nonterminal :: !((Seq Edge)),nonts_Syn_Nonterminal :: !(([(NontermIdent,[ConstructorIdent])])),ntattrs_Syn_Nonterminal :: !((Seq (Vertex,NTAttr))),rules_Syn_Nonterminal :: !((Seq (Vertex,CRule))),vcount_Syn_Nonterminal :: !(Int)} -wrap_Nonterminal :: T_Nonterminal -> - Inh_Nonterminal -> - Syn_Nonterminal -wrap_Nonterminal (T_Nonterminal sem ) (Inh_Nonterminal _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsImanualAttrDepMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIvcount ) = - (let ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminal,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOvcount) = - (sem _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsImanualAttrDepMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIvcount ) - in (Syn_Nonterminal _lhsOacount _lhsOadditionalDep _lhsOaranges _lhsOaroundDep _lhsOcNonterminal _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOnonts _lhsOntattrs _lhsOrules _lhsOvcount )) -sem_Nonterminal_Nonterminal :: NontermIdent -> - ([Identifier]) -> - Attributes -> - Attributes -> - T_Productions -> - T_Nonterminal -sem_Nonterminal_Nonterminal nt_ params_ inh_ syn_ (T_Productions prods_ ) = - (T_Nonterminal (\ _lhsIacount - _lhsIallnts - _lhsIaroundMap - _lhsIcInterfaceMap - _lhsIcVisitsMap - _lhsImanualAttrDepMap - _lhsIo_case - _lhsIo_cata - _lhsIo_data - _lhsIo_dovisit - _lhsIo_newtypes - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_unbox - _lhsIo_wantvisit - _lhsIprefix - _lhsIvcount -> - (let _prodsOnt :: Identifier - _prodsOinh :: Attributes - _prodsOsyn :: Attributes - _lhsOntattrs :: (Seq (Vertex,NTAttr)) - _lhsOacount :: Int - _lhsOaranges :: (Seq (Int,Int,Int)) - _lhsOnonts :: ([(NontermIdent,[ConstructorIdent])]) - _lhsOcNonterminal :: CNonterminal - _lhsOadditionalDep :: (Seq Edge) - _lhsOaroundDep :: (Seq Edge) - _lhsOdirectDep :: (Seq Edge) - _lhsOerrors :: (Seq Error) - _lhsOinstDep :: (Seq Edge) - _lhsOrules :: (Seq (Vertex,CRule)) - _lhsOvcount :: Int - _prodsOallnts :: ([Identifier]) - _prodsOaroundMap :: (Map ConstructorIdent (Map Identifier [Expression])) - _prodsOcVisitsMap :: CVisitsMap - _prodsOmanualAttrDepMap :: AttrOrderMap - _prodsOo_case :: Bool - _prodsOo_cata :: Bool - _prodsOo_dovisit :: Bool - _prodsOo_newtypes :: Bool - _prodsOo_rename :: Bool - _prodsOo_sem :: Bool - _prodsOo_sig :: Bool - _prodsOo_unbox :: Bool - _prodsOo_wantvisit :: Bool - _prodsOprefix :: String - _prodsOvcount :: Int - _prodsIadditionalDep :: (Seq Edge) - _prodsIaroundDep :: (Seq Edge) - _prodsIcProductions :: CProductions - _prodsIcons :: ([ConstructorIdent]) - _prodsIdirectDep :: (Seq Edge) - _prodsIerrors :: (Seq Error) - _prodsIinstDep :: (Seq Edge) - _prodsIrules :: (Seq (Vertex,CRule)) - _prodsIvcount :: Int - -- "Order.ag"(line 77, column 17) - _prodsOnt = - ({-# LINE 77 "Order.ag" #-} - nt_ - {-# LINE 1328 "Order.hs" #-}) - -- "Order.ag"(line 80, column 17) - _prodsOinh = - ({-# LINE 80 "Order.ag" #-} - inh_ - {-# LINE 1333 "Order.hs" #-}) - -- "Order.ag"(line 81, column 17) - _prodsOsyn = - ({-# LINE 81 "Order.ag" #-} - syn_ - {-# LINE 1338 "Order.hs" #-}) - -- "Order.ag"(line 346, column 32) - _aroundMap = - ({-# LINE 346 "Order.ag" #-} - Map.findWithDefault Map.empty nt_ _lhsIaroundMap - {-# LINE 1343 "Order.hs" #-}) - -- "Order.ag"(line 431, column 17) - _ntattrs = - ({-# LINE 431 "Order.ag" #-} - [ NTAInh nt_ inh tp | (inh,tp) <- Map.assocs inh_ ] - ++ [NTASyn nt_ syn tp | (syn,tp) <- Map.assocs syn_ ] - {-# LINE 1349 "Order.hs" #-}) - -- "Order.ag"(line 433, column 17) - _lhsOntattrs = - ({-# LINE 433 "Order.ag" #-} - Seq.fromList (zip [_lhsIacount ..] _ntattrs) - {-# LINE 1354 "Order.hs" #-}) - -- "Order.ag"(line 434, column 17) - _lhsOacount = - ({-# LINE 434 "Order.ag" #-} - _lhsIacount + Map.size inh_ + Map.size syn_ - {-# LINE 1359 "Order.hs" #-}) - -- "Order.ag"(line 435, column 17) - _lhsOaranges = - ({-# LINE 435 "Order.ag" #-} - Seq.singleton - (_lhsIacount - ,_lhsIacount + Map.size inh_ - ,_lhsIacount + Map.size syn_ + Map.size inh_ - 1) - {-# LINE 1367 "Order.hs" #-}) - -- "Order.ag"(line 444, column 19) - _lhsOnonts = - ({-# LINE 444 "Order.ag" #-} - [(nt_,_prodsIcons)] - {-# LINE 1372 "Order.hs" #-}) - -- "Order.ag"(line 520, column 19) - _cInter = - ({-# LINE 520 "Order.ag" #-} - if _lhsIo_dovisit - then findWithErr1 "Nonterminal.cInter" nt_ _lhsIcInterfaceMap - else CInterface [CSegment inh_ syn_] - {-# LINE 1379 "Order.hs" #-}) - -- "Order.ag"(line 548, column 19) - _lhsOcNonterminal = - ({-# LINE 548 "Order.ag" #-} - CNonterminal nt_ params_ inh_ syn_ _prodsIcProductions _cInter - {-# LINE 1384 "Order.hs" #-}) - -- use rule "Order.ag"(line 263, column 60) - _lhsOadditionalDep = - ({-# LINE 263 "Order.ag" #-} - _prodsIadditionalDep - {-# LINE 1389 "Order.hs" #-}) - -- use rule "Order.ag"(line 338, column 24) - _lhsOaroundDep = - ({-# LINE 338 "Order.ag" #-} - _prodsIaroundDep - {-# LINE 1394 "Order.hs" #-}) - -- use rule "Order.ag"(line 249, column 33) - _lhsOdirectDep = - ({-# LINE 249 "Order.ag" #-} - _prodsIdirectDep - {-# LINE 1399 "Order.hs" #-}) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - _prodsIerrors - {-# LINE 1404 "Order.hs" #-}) - -- use rule "Order.ag"(line 292, column 31) - _lhsOinstDep = - ({-# LINE 292 "Order.ag" #-} - _prodsIinstDep - {-# LINE 1409 "Order.hs" #-}) - -- use rule "Order.ag"(line 239, column 18) - _lhsOrules = - ({-# LINE 239 "Order.ag" #-} - _prodsIrules - {-# LINE 1414 "Order.hs" #-}) - -- copy rule (up) - _lhsOvcount = - ({-# LINE 238 "Order.ag" #-} - _prodsIvcount - {-# LINE 1419 "Order.hs" #-}) - -- copy rule (down) - _prodsOallnts = - ({-# LINE 570 "Order.ag" #-} - _lhsIallnts - {-# LINE 1424 "Order.hs" #-}) - -- copy rule (from local) - _prodsOaroundMap = - ({-# LINE 344 "Order.ag" #-} - _aroundMap - {-# LINE 1429 "Order.hs" #-}) - -- copy rule (down) - _prodsOcVisitsMap = - ({-# LINE 525 "Order.ag" #-} - _lhsIcVisitsMap - {-# LINE 1434 "Order.hs" #-}) - -- copy rule (down) - _prodsOmanualAttrDepMap = - ({-# LINE 263 "Order.ag" #-} - _lhsImanualAttrDepMap - {-# LINE 1439 "Order.hs" #-}) - -- copy rule (down) - _prodsOo_case = - ({-# LINE 97 "Order.ag" #-} - _lhsIo_case - {-# LINE 1444 "Order.hs" #-}) - -- copy rule (down) - _prodsOo_cata = - ({-# LINE 91 "Order.ag" #-} - _lhsIo_cata - {-# LINE 1449 "Order.hs" #-}) - -- copy rule (down) - _prodsOo_dovisit = - ({-# LINE 96 "Order.ag" #-} - _lhsIo_dovisit - {-# LINE 1454 "Order.hs" #-}) - -- copy rule (down) - _prodsOo_newtypes = - ({-# LINE 90 "Order.ag" #-} - _lhsIo_newtypes - {-# LINE 1459 "Order.hs" #-}) - -- copy rule (down) - _prodsOo_rename = - ({-# LINE 94 "Order.ag" #-} - _lhsIo_rename - {-# LINE 1464 "Order.hs" #-}) - -- copy rule (down) - _prodsOo_sem = - ({-# LINE 93 "Order.ag" #-} - _lhsIo_sem - {-# LINE 1469 "Order.hs" #-}) - -- copy rule (down) - _prodsOo_sig = - ({-# LINE 92 "Order.ag" #-} - _lhsIo_sig - {-# LINE 1474 "Order.hs" #-}) - -- copy rule (down) - _prodsOo_unbox = - ({-# LINE 99 "Order.ag" #-} - _lhsIo_unbox - {-# LINE 1479 "Order.hs" #-}) - -- copy rule (down) - _prodsOo_wantvisit = - ({-# LINE 95 "Order.ag" #-} - _lhsIo_wantvisit - {-# LINE 1484 "Order.hs" #-}) - -- copy rule (down) - _prodsOprefix = - ({-# LINE 98 "Order.ag" #-} - _lhsIprefix - {-# LINE 1489 "Order.hs" #-}) - -- copy rule (down) - _prodsOvcount = - ({-# LINE 238 "Order.ag" #-} - _lhsIvcount - {-# LINE 1494 "Order.hs" #-}) - ( _prodsIadditionalDep,_prodsIaroundDep,_prodsIcProductions,_prodsIcons,_prodsIdirectDep,_prodsIerrors,_prodsIinstDep,_prodsIrules,_prodsIvcount) = - (prods_ _prodsOallnts _prodsOaroundMap _prodsOcVisitsMap _prodsOinh _prodsOmanualAttrDepMap _prodsOnt _prodsOo_case _prodsOo_cata _prodsOo_dovisit _prodsOo_newtypes _prodsOo_rename _prodsOo_sem _prodsOo_sig _prodsOo_unbox _prodsOo_wantvisit _prodsOprefix _prodsOsyn _prodsOvcount ) - in ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminal,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOvcount))) ) --- Nonterminals ------------------------------------------------ -{- - visit 0: - inherited attributes: - allnts : [Identifier] - aroundMap : Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])) - cInterfaceMap : CInterfaceMap - cVisitsMap : CVisitsMap - manualAttrDepMap : AttrOrderMap - o_case : Bool - o_cata : Bool - o_data : Bool - o_dovisit : Bool - o_newtypes : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_unbox : Bool - o_wantvisit : Bool - prefix : String - chained attributes: - acount : Int - vcount : Int - synthesized attributes: - additionalDep : Seq Edge - aranges : Seq (Int,Int,Int) - aroundDep : Seq Edge - cNonterminals : CNonterminals - directDep : Seq Edge - errors : Seq Error - instDep : Seq Edge - nonts : [(NontermIdent,[ConstructorIdent])] - ntattrs : Seq (Vertex,NTAttr) - rules : Seq (Vertex,CRule) - alternatives: - alternative Cons: - child hd : Nonterminal - child tl : Nonterminals - alternative Nil: --} --- cata -sem_Nonterminals :: Nonterminals -> - T_Nonterminals -sem_Nonterminals list = - (Prelude.foldr sem_Nonterminals_Cons sem_Nonterminals_Nil (Prelude.map sem_Nonterminal list) ) --- semantic domain -newtype T_Nonterminals = T_Nonterminals (Int -> - ([Identifier]) -> - (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> - CInterfaceMap -> - CVisitsMap -> - AttrOrderMap -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - String -> - Int -> - ( Int,(Seq Edge),(Seq (Int,Int,Int)),(Seq Edge),CNonterminals,(Seq Edge),(Seq Error),(Seq Edge),([(NontermIdent,[ConstructorIdent])]),(Seq (Vertex,NTAttr)),(Seq (Vertex,CRule)),Int)) -data Inh_Nonterminals = Inh_Nonterminals {acount_Inh_Nonterminals :: !(Int),allnts_Inh_Nonterminals :: !(([Identifier])),aroundMap_Inh_Nonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))),cInterfaceMap_Inh_Nonterminals :: !(CInterfaceMap),cVisitsMap_Inh_Nonterminals :: !(CVisitsMap),manualAttrDepMap_Inh_Nonterminals :: !(AttrOrderMap),o_case_Inh_Nonterminals :: !(Bool),o_cata_Inh_Nonterminals :: !(Bool),o_data_Inh_Nonterminals :: !(Bool),o_dovisit_Inh_Nonterminals :: !(Bool),o_newtypes_Inh_Nonterminals :: !(Bool),o_rename_Inh_Nonterminals :: !(Bool),o_sem_Inh_Nonterminals :: !(Bool),o_sig_Inh_Nonterminals :: !(Bool),o_unbox_Inh_Nonterminals :: !(Bool),o_wantvisit_Inh_Nonterminals :: !(Bool),prefix_Inh_Nonterminals :: !(String),vcount_Inh_Nonterminals :: !(Int)} -data Syn_Nonterminals = Syn_Nonterminals {acount_Syn_Nonterminals :: !(Int),additionalDep_Syn_Nonterminals :: !((Seq Edge)),aranges_Syn_Nonterminals :: !((Seq (Int,Int,Int))),aroundDep_Syn_Nonterminals :: !((Seq Edge)),cNonterminals_Syn_Nonterminals :: !(CNonterminals),directDep_Syn_Nonterminals :: !((Seq Edge)),errors_Syn_Nonterminals :: !((Seq Error)),instDep_Syn_Nonterminals :: !((Seq Edge)),nonts_Syn_Nonterminals :: !(([(NontermIdent,[ConstructorIdent])])),ntattrs_Syn_Nonterminals :: !((Seq (Vertex,NTAttr))),rules_Syn_Nonterminals :: !((Seq (Vertex,CRule))),vcount_Syn_Nonterminals :: !(Int)} -wrap_Nonterminals :: T_Nonterminals -> - Inh_Nonterminals -> - Syn_Nonterminals -wrap_Nonterminals (T_Nonterminals sem ) (Inh_Nonterminals _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsImanualAttrDepMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIvcount ) = - (let ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminals,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOvcount) = - (sem _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsImanualAttrDepMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIvcount ) - in (Syn_Nonterminals _lhsOacount _lhsOadditionalDep _lhsOaranges _lhsOaroundDep _lhsOcNonterminals _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOnonts _lhsOntattrs _lhsOrules _lhsOvcount )) -sem_Nonterminals_Cons :: T_Nonterminal -> - T_Nonterminals -> - T_Nonterminals -sem_Nonterminals_Cons (T_Nonterminal hd_ ) (T_Nonterminals tl_ ) = - (T_Nonterminals (\ _lhsIacount - _lhsIallnts - _lhsIaroundMap - _lhsIcInterfaceMap - _lhsIcVisitsMap - _lhsImanualAttrDepMap - _lhsIo_case - _lhsIo_cata - _lhsIo_data - _lhsIo_dovisit - _lhsIo_newtypes - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_unbox - _lhsIo_wantvisit - _lhsIprefix - _lhsIvcount -> - (let _lhsOcNonterminals :: CNonterminals - _lhsOadditionalDep :: (Seq Edge) - _lhsOaranges :: (Seq (Int,Int,Int)) - _lhsOaroundDep :: (Seq Edge) - _lhsOdirectDep :: (Seq Edge) - _lhsOerrors :: (Seq Error) - _lhsOinstDep :: (Seq Edge) - _lhsOnonts :: ([(NontermIdent,[ConstructorIdent])]) - _lhsOntattrs :: (Seq (Vertex,NTAttr)) - _lhsOrules :: (Seq (Vertex,CRule)) - _lhsOacount :: Int - _lhsOvcount :: Int - _hdOacount :: Int - _hdOallnts :: ([Identifier]) - _hdOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) - _hdOcInterfaceMap :: CInterfaceMap - _hdOcVisitsMap :: CVisitsMap - _hdOmanualAttrDepMap :: AttrOrderMap - _hdOo_case :: Bool - _hdOo_cata :: Bool - _hdOo_data :: Bool - _hdOo_dovisit :: Bool - _hdOo_newtypes :: Bool - _hdOo_rename :: Bool - _hdOo_sem :: Bool - _hdOo_sig :: Bool - _hdOo_unbox :: Bool - _hdOo_wantvisit :: Bool - _hdOprefix :: String - _hdOvcount :: Int - _tlOacount :: Int - _tlOallnts :: ([Identifier]) - _tlOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) - _tlOcInterfaceMap :: CInterfaceMap - _tlOcVisitsMap :: CVisitsMap - _tlOmanualAttrDepMap :: AttrOrderMap - _tlOo_case :: Bool - _tlOo_cata :: Bool - _tlOo_data :: Bool - _tlOo_dovisit :: Bool - _tlOo_newtypes :: Bool - _tlOo_rename :: Bool - _tlOo_sem :: Bool - _tlOo_sig :: Bool - _tlOo_unbox :: Bool - _tlOo_wantvisit :: Bool - _tlOprefix :: String - _tlOvcount :: Int - _hdIacount :: Int - _hdIadditionalDep :: (Seq Edge) - _hdIaranges :: (Seq (Int,Int,Int)) - _hdIaroundDep :: (Seq Edge) - _hdIcNonterminal :: CNonterminal - _hdIdirectDep :: (Seq Edge) - _hdIerrors :: (Seq Error) - _hdIinstDep :: (Seq Edge) - _hdInonts :: ([(NontermIdent,[ConstructorIdent])]) - _hdIntattrs :: (Seq (Vertex,NTAttr)) - _hdIrules :: (Seq (Vertex,CRule)) - _hdIvcount :: Int - _tlIacount :: Int - _tlIadditionalDep :: (Seq Edge) - _tlIaranges :: (Seq (Int,Int,Int)) - _tlIaroundDep :: (Seq Edge) - _tlIcNonterminals :: CNonterminals - _tlIdirectDep :: (Seq Edge) - _tlIerrors :: (Seq Error) - _tlIinstDep :: (Seq Edge) - _tlInonts :: ([(NontermIdent,[ConstructorIdent])]) - _tlIntattrs :: (Seq (Vertex,NTAttr)) - _tlIrules :: (Seq (Vertex,CRule)) - _tlIvcount :: Int - -- "Order.ag"(line 545, column 12) - _lhsOcNonterminals = - ({-# LINE 545 "Order.ag" #-} - _hdIcNonterminal : _tlIcNonterminals - {-# LINE 1670 "Order.hs" #-}) - -- use rule "Order.ag"(line 263, column 60) - _lhsOadditionalDep = - ({-# LINE 263 "Order.ag" #-} - _hdIadditionalDep Seq.>< _tlIadditionalDep - {-# LINE 1675 "Order.hs" #-}) - -- use rule "Order.ag"(line 425, column 36) - _lhsOaranges = - ({-# LINE 425 "Order.ag" #-} - _hdIaranges Seq.>< _tlIaranges - {-# LINE 1680 "Order.hs" #-}) - -- use rule "Order.ag"(line 338, column 24) - _lhsOaroundDep = - ({-# LINE 338 "Order.ag" #-} - _hdIaroundDep Seq.>< _tlIaroundDep - {-# LINE 1685 "Order.hs" #-}) - -- use rule "Order.ag"(line 249, column 33) - _lhsOdirectDep = - ({-# LINE 249 "Order.ag" #-} - _hdIdirectDep Seq.>< _tlIdirectDep - {-# LINE 1690 "Order.hs" #-}) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 1695 "Order.hs" #-}) - -- use rule "Order.ag"(line 292, column 31) - _lhsOinstDep = - ({-# LINE 292 "Order.ag" #-} - _hdIinstDep Seq.>< _tlIinstDep - {-# LINE 1700 "Order.hs" #-}) - -- use rule "Order.ag"(line 442, column 43) - _lhsOnonts = - ({-# LINE 442 "Order.ag" #-} - _hdInonts ++ _tlInonts - {-# LINE 1705 "Order.hs" #-}) - -- use rule "Order.ag"(line 424, column 35) - _lhsOntattrs = - ({-# LINE 424 "Order.ag" #-} - _hdIntattrs Seq.>< _tlIntattrs - {-# LINE 1710 "Order.hs" #-}) - -- use rule "Order.ag"(line 239, column 18) - _lhsOrules = - ({-# LINE 239 "Order.ag" #-} - _hdIrules Seq.>< _tlIrules - {-# LINE 1715 "Order.hs" #-}) - -- copy rule (up) - _lhsOacount = - ({-# LINE 424 "Order.ag" #-} - _tlIacount - {-# LINE 1720 "Order.hs" #-}) - -- copy rule (up) - _lhsOvcount = - ({-# LINE 238 "Order.ag" #-} - _tlIvcount - {-# LINE 1725 "Order.hs" #-}) - -- copy rule (down) - _hdOacount = - ({-# LINE 424 "Order.ag" #-} - _lhsIacount - {-# LINE 1730 "Order.hs" #-}) - -- copy rule (down) - _hdOallnts = - ({-# LINE 570 "Order.ag" #-} - _lhsIallnts - {-# LINE 1735 "Order.hs" #-}) - -- copy rule (down) - _hdOaroundMap = - ({-# LINE 341 "Order.ag" #-} - _lhsIaroundMap - {-# LINE 1740 "Order.hs" #-}) - -- copy rule (down) - _hdOcInterfaceMap = - ({-# LINE 518 "Order.ag" #-} - _lhsIcInterfaceMap - {-# LINE 1745 "Order.hs" #-}) - -- copy rule (down) - _hdOcVisitsMap = - ({-# LINE 525 "Order.ag" #-} - _lhsIcVisitsMap - {-# LINE 1750 "Order.hs" #-}) - -- copy rule (down) - _hdOmanualAttrDepMap = - ({-# LINE 263 "Order.ag" #-} - _lhsImanualAttrDepMap - {-# LINE 1755 "Order.hs" #-}) - -- copy rule (down) - _hdOo_case = - ({-# LINE 97 "Order.ag" #-} - _lhsIo_case - {-# LINE 1760 "Order.hs" #-}) - -- copy rule (down) - _hdOo_cata = - ({-# LINE 91 "Order.ag" #-} - _lhsIo_cata - {-# LINE 1765 "Order.hs" #-}) - -- copy rule (down) - _hdOo_data = - ({-# LINE 100 "Order.ag" #-} - _lhsIo_data - {-# LINE 1770 "Order.hs" #-}) - -- copy rule (down) - _hdOo_dovisit = - ({-# LINE 96 "Order.ag" #-} - _lhsIo_dovisit - {-# LINE 1775 "Order.hs" #-}) - -- copy rule (down) - _hdOo_newtypes = - ({-# LINE 90 "Order.ag" #-} - _lhsIo_newtypes - {-# LINE 1780 "Order.hs" #-}) - -- copy rule (down) - _hdOo_rename = - ({-# LINE 94 "Order.ag" #-} - _lhsIo_rename - {-# LINE 1785 "Order.hs" #-}) - -- copy rule (down) - _hdOo_sem = - ({-# LINE 93 "Order.ag" #-} - _lhsIo_sem - {-# LINE 1790 "Order.hs" #-}) - -- copy rule (down) - _hdOo_sig = - ({-# LINE 92 "Order.ag" #-} - _lhsIo_sig - {-# LINE 1795 "Order.hs" #-}) - -- copy rule (down) - _hdOo_unbox = - ({-# LINE 99 "Order.ag" #-} - _lhsIo_unbox - {-# LINE 1800 "Order.hs" #-}) - -- copy rule (down) - _hdOo_wantvisit = - ({-# LINE 95 "Order.ag" #-} - _lhsIo_wantvisit - {-# LINE 1805 "Order.hs" #-}) - -- copy rule (down) - _hdOprefix = - ({-# LINE 98 "Order.ag" #-} - _lhsIprefix - {-# LINE 1810 "Order.hs" #-}) - -- copy rule (down) - _hdOvcount = - ({-# LINE 238 "Order.ag" #-} - _lhsIvcount - {-# LINE 1815 "Order.hs" #-}) - -- copy rule (chain) - _tlOacount = - ({-# LINE 424 "Order.ag" #-} - _hdIacount - {-# LINE 1820 "Order.hs" #-}) - -- copy rule (down) - _tlOallnts = - ({-# LINE 570 "Order.ag" #-} - _lhsIallnts - {-# LINE 1825 "Order.hs" #-}) - -- copy rule (down) - _tlOaroundMap = - ({-# LINE 341 "Order.ag" #-} - _lhsIaroundMap - {-# LINE 1830 "Order.hs" #-}) - -- copy rule (down) - _tlOcInterfaceMap = - ({-# LINE 518 "Order.ag" #-} - _lhsIcInterfaceMap - {-# LINE 1835 "Order.hs" #-}) - -- copy rule (down) - _tlOcVisitsMap = - ({-# LINE 525 "Order.ag" #-} - _lhsIcVisitsMap - {-# LINE 1840 "Order.hs" #-}) - -- copy rule (down) - _tlOmanualAttrDepMap = - ({-# LINE 263 "Order.ag" #-} - _lhsImanualAttrDepMap - {-# LINE 1845 "Order.hs" #-}) - -- copy rule (down) - _tlOo_case = - ({-# LINE 97 "Order.ag" #-} - _lhsIo_case - {-# LINE 1850 "Order.hs" #-}) - -- copy rule (down) - _tlOo_cata = - ({-# LINE 91 "Order.ag" #-} - _lhsIo_cata - {-# LINE 1855 "Order.hs" #-}) - -- copy rule (down) - _tlOo_data = - ({-# LINE 100 "Order.ag" #-} - _lhsIo_data - {-# LINE 1860 "Order.hs" #-}) - -- copy rule (down) - _tlOo_dovisit = - ({-# LINE 96 "Order.ag" #-} - _lhsIo_dovisit - {-# LINE 1865 "Order.hs" #-}) - -- copy rule (down) - _tlOo_newtypes = - ({-# LINE 90 "Order.ag" #-} - _lhsIo_newtypes - {-# LINE 1870 "Order.hs" #-}) - -- copy rule (down) - _tlOo_rename = - ({-# LINE 94 "Order.ag" #-} - _lhsIo_rename - {-# LINE 1875 "Order.hs" #-}) - -- copy rule (down) - _tlOo_sem = - ({-# LINE 93 "Order.ag" #-} - _lhsIo_sem - {-# LINE 1880 "Order.hs" #-}) - -- copy rule (down) - _tlOo_sig = - ({-# LINE 92 "Order.ag" #-} - _lhsIo_sig - {-# LINE 1885 "Order.hs" #-}) - -- copy rule (down) - _tlOo_unbox = - ({-# LINE 99 "Order.ag" #-} - _lhsIo_unbox - {-# LINE 1890 "Order.hs" #-}) - -- copy rule (down) - _tlOo_wantvisit = - ({-# LINE 95 "Order.ag" #-} - _lhsIo_wantvisit - {-# LINE 1895 "Order.hs" #-}) - -- copy rule (down) - _tlOprefix = - ({-# LINE 98 "Order.ag" #-} - _lhsIprefix - {-# LINE 1900 "Order.hs" #-}) - -- copy rule (chain) - _tlOvcount = - ({-# LINE 238 "Order.ag" #-} - _hdIvcount - {-# LINE 1905 "Order.hs" #-}) - ( _hdIacount,_hdIadditionalDep,_hdIaranges,_hdIaroundDep,_hdIcNonterminal,_hdIdirectDep,_hdIerrors,_hdIinstDep,_hdInonts,_hdIntattrs,_hdIrules,_hdIvcount) = - (hd_ _hdOacount _hdOallnts _hdOaroundMap _hdOcInterfaceMap _hdOcVisitsMap _hdOmanualAttrDepMap _hdOo_case _hdOo_cata _hdOo_data _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_unbox _hdOo_wantvisit _hdOprefix _hdOvcount ) - ( _tlIacount,_tlIadditionalDep,_tlIaranges,_tlIaroundDep,_tlIcNonterminals,_tlIdirectDep,_tlIerrors,_tlIinstDep,_tlInonts,_tlIntattrs,_tlIrules,_tlIvcount) = - (tl_ _tlOacount _tlOallnts _tlOaroundMap _tlOcInterfaceMap _tlOcVisitsMap _tlOmanualAttrDepMap _tlOo_case _tlOo_cata _tlOo_data _tlOo_dovisit _tlOo_newtypes _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_unbox _tlOo_wantvisit _tlOprefix _tlOvcount ) - in ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminals,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOvcount))) ) -sem_Nonterminals_Nil :: T_Nonterminals -sem_Nonterminals_Nil = - (T_Nonterminals (\ _lhsIacount - _lhsIallnts - _lhsIaroundMap - _lhsIcInterfaceMap - _lhsIcVisitsMap - _lhsImanualAttrDepMap - _lhsIo_case - _lhsIo_cata - _lhsIo_data - _lhsIo_dovisit - _lhsIo_newtypes - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_unbox - _lhsIo_wantvisit - _lhsIprefix - _lhsIvcount -> - (let _lhsOcNonterminals :: CNonterminals - _lhsOadditionalDep :: (Seq Edge) - _lhsOaranges :: (Seq (Int,Int,Int)) - _lhsOaroundDep :: (Seq Edge) - _lhsOdirectDep :: (Seq Edge) - _lhsOerrors :: (Seq Error) - _lhsOinstDep :: (Seq Edge) - _lhsOnonts :: ([(NontermIdent,[ConstructorIdent])]) - _lhsOntattrs :: (Seq (Vertex,NTAttr)) - _lhsOrules :: (Seq (Vertex,CRule)) - _lhsOacount :: Int - _lhsOvcount :: Int - -- "Order.ag"(line 546, column 12) - _lhsOcNonterminals = - ({-# LINE 546 "Order.ag" #-} - [] - {-# LINE 1947 "Order.hs" #-}) - -- use rule "Order.ag"(line 263, column 60) - _lhsOadditionalDep = - ({-# LINE 263 "Order.ag" #-} - Seq.empty - {-# LINE 1952 "Order.hs" #-}) - -- use rule "Order.ag"(line 425, column 36) - _lhsOaranges = - ({-# LINE 425 "Order.ag" #-} - Seq.empty - {-# LINE 1957 "Order.hs" #-}) - -- use rule "Order.ag"(line 338, column 24) - _lhsOaroundDep = - ({-# LINE 338 "Order.ag" #-} - Seq.empty - {-# LINE 1962 "Order.hs" #-}) - -- use rule "Order.ag"(line 249, column 33) - _lhsOdirectDep = - ({-# LINE 249 "Order.ag" #-} - Seq.empty - {-# LINE 1967 "Order.hs" #-}) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - Seq.empty - {-# LINE 1972 "Order.hs" #-}) - -- use rule "Order.ag"(line 292, column 31) - _lhsOinstDep = - ({-# LINE 292 "Order.ag" #-} - Seq.empty - {-# LINE 1977 "Order.hs" #-}) - -- use rule "Order.ag"(line 442, column 43) - _lhsOnonts = - ({-# LINE 442 "Order.ag" #-} - [] - {-# LINE 1982 "Order.hs" #-}) - -- use rule "Order.ag"(line 424, column 35) - _lhsOntattrs = - ({-# LINE 424 "Order.ag" #-} - Seq.empty - {-# LINE 1987 "Order.hs" #-}) - -- use rule "Order.ag"(line 239, column 18) - _lhsOrules = - ({-# LINE 239 "Order.ag" #-} - Seq.empty - {-# LINE 1992 "Order.hs" #-}) - -- copy rule (chain) - _lhsOacount = - ({-# LINE 424 "Order.ag" #-} - _lhsIacount - {-# LINE 1997 "Order.hs" #-}) - -- copy rule (chain) - _lhsOvcount = - ({-# LINE 238 "Order.ag" #-} - _lhsIvcount - {-# LINE 2002 "Order.hs" #-}) - in ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminals,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOvcount))) ) --- Pattern ----------------------------------------------------- -{- - visit 0: - inherited attributes: - allTypeSigs : Map Identifier Type - altAttrs : Map AltAttr Vertex - con : Identifier - inh : Attributes - nt : Identifier - syn : Attributes - synthesized attributes: - copy : SELF - errors : Seq Error - gathAltAttrs : [AltAttr] - instVars : [Identifier] - locVars : [Identifier] - patternAttrs : [(Identifier,Identifier,Bool,Patterns)] - 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 ((Map Identifier Type) -> - (Map AltAttr Vertex) -> - Identifier -> - Attributes -> - Identifier -> - Attributes -> - ( Pattern ,(Seq Error),([AltAttr]),([Identifier]),([Identifier]),([(Identifier,Identifier,Bool,Patterns)]))) -data Inh_Pattern = Inh_Pattern {allTypeSigs_Inh_Pattern :: !((Map Identifier Type)),altAttrs_Inh_Pattern :: !((Map AltAttr Vertex)),con_Inh_Pattern :: !(Identifier),inh_Inh_Pattern :: !(Attributes),nt_Inh_Pattern :: !(Identifier),syn_Inh_Pattern :: !(Attributes)} -data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),errors_Syn_Pattern :: !((Seq Error)),gathAltAttrs_Syn_Pattern :: !(([AltAttr])),instVars_Syn_Pattern :: !(([Identifier])),locVars_Syn_Pattern :: !(([Identifier])),patternAttrs_Syn_Pattern :: !(([(Identifier,Identifier,Bool,Patterns)]))} -wrap_Pattern :: T_Pattern -> - Inh_Pattern -> - Syn_Pattern -wrap_Pattern (T_Pattern sem ) (Inh_Pattern _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn ) = - (let ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs) = - (sem _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn ) - in (Syn_Pattern _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs )) -sem_Pattern_Alias :: Identifier -> - Identifier -> - T_Pattern -> - T_Patterns -> - T_Pattern -sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) = - (T_Pattern (\ _lhsIallTypeSigs - _lhsIaltAttrs - _lhsIcon - _lhsIinh - _lhsInt - _lhsIsyn -> - (let _lhsOgathAltAttrs :: ([AltAttr]) - _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - _lhsOlocVars :: ([Identifier]) - _lhsOinstVars :: ([Identifier]) - _lhsOerrors :: (Seq Error) - _lhsOcopy :: Pattern - _patOallTypeSigs :: (Map Identifier Type) - _patOaltAttrs :: (Map AltAttr Vertex) - _patOcon :: Identifier - _patOinh :: Attributes - _patOnt :: Identifier - _patOsyn :: Attributes - _partsOallTypeSigs :: (Map Identifier Type) - _partsOaltAttrs :: (Map AltAttr Vertex) - _partsOcon :: Identifier - _partsOinh :: Attributes - _partsOnt :: Identifier - _partsOsyn :: Attributes - _patIcopy :: Pattern - _patIerrors :: (Seq Error) - _patIgathAltAttrs :: ([AltAttr]) - _patIinstVars :: ([Identifier]) - _patIlocVars :: ([Identifier]) - _patIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - _partsIcopy :: Patterns - _partsIerrors :: (Seq Error) - _partsIgathAltAttrs :: ([AltAttr]) - _partsIinstVars :: ([Identifier]) - _partsIlocVars :: ([Identifier]) - _partsIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - -- "Order.ag"(line 164, column 12) - _lhsOgathAltAttrs = - ({-# LINE 164 "Order.ag" #-} - [AltAttr field_ attr_ (field_ == _LOC || field_ == _INST)] - {-# LINE 2124 "Order.hs" #-}) - -- "Order.ag"(line 232, column 12) - _lhsOpatternAttrs = - ({-# LINE 232 "Order.ag" #-} - [(field_,attr_,(field_ == _LOC || field_ == _INST),_partsIcopy)] - {-# LINE 2129 "Order.hs" #-}) - -- "Order.ag"(line 603, column 14) - _lhsOlocVars = - ({-# LINE 603 "Order.ag" #-} - if field_ == _LOC - then [attr_] - else [] - {-# LINE 2136 "Order.hs" #-}) - -- "Order.ag"(line 606, column 14) - _lhsOinstVars = - ({-# LINE 606 "Order.ag" #-} - if field_ == _INST - then [attr_] - else [] - {-# LINE 2143 "Order.hs" #-}) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - _patIerrors Seq.>< _partsIerrors - {-# LINE 2148 "Order.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Alias field_ attr_ _patIcopy _partsIcopy - {-# LINE 2153 "Order.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 2158 "Order.hs" #-}) - -- copy rule (down) - _patOallTypeSigs = - ({-# LINE 458 "Order.ag" #-} - _lhsIallTypeSigs - {-# LINE 2163 "Order.hs" #-}) - -- copy rule (down) - _patOaltAttrs = - ({-# LINE 166 "Order.ag" #-} - _lhsIaltAttrs - {-# LINE 2168 "Order.hs" #-}) - -- copy rule (down) - _patOcon = - ({-# LINE 70 "Order.ag" #-} - _lhsIcon - {-# LINE 2173 "Order.hs" #-}) - -- copy rule (down) - _patOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 2178 "Order.hs" #-}) - -- copy rule (down) - _patOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 2183 "Order.hs" #-}) - -- copy rule (down) - _patOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 2188 "Order.hs" #-}) - -- copy rule (down) - _partsOallTypeSigs = - ({-# LINE 458 "Order.ag" #-} - _lhsIallTypeSigs - {-# LINE 2193 "Order.hs" #-}) - -- copy rule (down) - _partsOaltAttrs = - ({-# LINE 166 "Order.ag" #-} - _lhsIaltAttrs - {-# LINE 2198 "Order.hs" #-}) - -- copy rule (down) - _partsOcon = - ({-# LINE 70 "Order.ag" #-} - _lhsIcon - {-# LINE 2203 "Order.hs" #-}) - -- copy rule (down) - _partsOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 2208 "Order.hs" #-}) - -- copy rule (down) - _partsOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 2213 "Order.hs" #-}) - -- copy rule (down) - _partsOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 2218 "Order.hs" #-}) - ( _patIcopy,_patIerrors,_patIgathAltAttrs,_patIinstVars,_patIlocVars,_patIpatternAttrs) = - (pat_ _patOallTypeSigs _patOaltAttrs _patOcon _patOinh _patOnt _patOsyn ) - ( _partsIcopy,_partsIerrors,_partsIgathAltAttrs,_partsIinstVars,_partsIlocVars,_partsIpatternAttrs) = - (parts_ _partsOallTypeSigs _partsOaltAttrs _partsOcon _partsOinh _partsOnt _partsOsyn ) - in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) -sem_Pattern_Constr :: ConstructorIdent -> - T_Patterns -> - T_Pattern -sem_Pattern_Constr name_ (T_Patterns pats_ ) = - (T_Pattern (\ _lhsIallTypeSigs - _lhsIaltAttrs - _lhsIcon - _lhsIinh - _lhsInt - _lhsIsyn -> - (let _lhsOerrors :: (Seq Error) - _lhsOgathAltAttrs :: ([AltAttr]) - _lhsOinstVars :: ([Identifier]) - _lhsOlocVars :: ([Identifier]) - _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - _lhsOcopy :: Pattern - _patsOallTypeSigs :: (Map Identifier Type) - _patsOaltAttrs :: (Map AltAttr Vertex) - _patsOcon :: Identifier - _patsOinh :: Attributes - _patsOnt :: Identifier - _patsOsyn :: Attributes - _patsIcopy :: Patterns - _patsIerrors :: (Seq Error) - _patsIgathAltAttrs :: ([AltAttr]) - _patsIinstVars :: ([Identifier]) - _patsIlocVars :: ([Identifier]) - _patsIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - _patsIerrors - {-# LINE 2256 "Order.hs" #-}) - -- use rule "Order.ag"(line 150, column 68) - _lhsOgathAltAttrs = - ({-# LINE 150 "Order.ag" #-} - _patsIgathAltAttrs - {-# LINE 2261 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 86) - _lhsOinstVars = - ({-# LINE 600 "Order.ag" #-} - _patsIinstVars - {-# LINE 2266 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 48) - _lhsOlocVars = - ({-# LINE 600 "Order.ag" #-} - _patsIlocVars - {-# LINE 2271 "Order.hs" #-}) - -- use rule "Order.ag"(line 229, column 42) - _lhsOpatternAttrs = - ({-# LINE 229 "Order.ag" #-} - _patsIpatternAttrs - {-# LINE 2276 "Order.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Constr name_ _patsIcopy - {-# LINE 2281 "Order.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 2286 "Order.hs" #-}) - -- copy rule (down) - _patsOallTypeSigs = - ({-# LINE 458 "Order.ag" #-} - _lhsIallTypeSigs - {-# LINE 2291 "Order.hs" #-}) - -- copy rule (down) - _patsOaltAttrs = - ({-# LINE 166 "Order.ag" #-} - _lhsIaltAttrs - {-# LINE 2296 "Order.hs" #-}) - -- copy rule (down) - _patsOcon = - ({-# LINE 70 "Order.ag" #-} - _lhsIcon - {-# LINE 2301 "Order.hs" #-}) - -- copy rule (down) - _patsOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 2306 "Order.hs" #-}) - -- copy rule (down) - _patsOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 2311 "Order.hs" #-}) - -- copy rule (down) - _patsOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 2316 "Order.hs" #-}) - ( _patsIcopy,_patsIerrors,_patsIgathAltAttrs,_patsIinstVars,_patsIlocVars,_patsIpatternAttrs) = - (pats_ _patsOallTypeSigs _patsOaltAttrs _patsOcon _patsOinh _patsOnt _patsOsyn ) - in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) -sem_Pattern_Irrefutable :: T_Pattern -> - T_Pattern -sem_Pattern_Irrefutable (T_Pattern pat_ ) = - (T_Pattern (\ _lhsIallTypeSigs - _lhsIaltAttrs - _lhsIcon - _lhsIinh - _lhsInt - _lhsIsyn -> - (let _lhsOerrors :: (Seq Error) - _lhsOgathAltAttrs :: ([AltAttr]) - _lhsOinstVars :: ([Identifier]) - _lhsOlocVars :: ([Identifier]) - _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - _lhsOcopy :: Pattern - _patOallTypeSigs :: (Map Identifier Type) - _patOaltAttrs :: (Map AltAttr Vertex) - _patOcon :: Identifier - _patOinh :: Attributes - _patOnt :: Identifier - _patOsyn :: Attributes - _patIcopy :: Pattern - _patIerrors :: (Seq Error) - _patIgathAltAttrs :: ([AltAttr]) - _patIinstVars :: ([Identifier]) - _patIlocVars :: ([Identifier]) - _patIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - _patIerrors - {-# LINE 2351 "Order.hs" #-}) - -- use rule "Order.ag"(line 150, column 68) - _lhsOgathAltAttrs = - ({-# LINE 150 "Order.ag" #-} - _patIgathAltAttrs - {-# LINE 2356 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 86) - _lhsOinstVars = - ({-# LINE 600 "Order.ag" #-} - _patIinstVars - {-# LINE 2361 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 48) - _lhsOlocVars = - ({-# LINE 600 "Order.ag" #-} - _patIlocVars - {-# LINE 2366 "Order.hs" #-}) - -- use rule "Order.ag"(line 229, column 42) - _lhsOpatternAttrs = - ({-# LINE 229 "Order.ag" #-} - _patIpatternAttrs - {-# LINE 2371 "Order.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Irrefutable _patIcopy - {-# LINE 2376 "Order.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 2381 "Order.hs" #-}) - -- copy rule (down) - _patOallTypeSigs = - ({-# LINE 458 "Order.ag" #-} - _lhsIallTypeSigs - {-# LINE 2386 "Order.hs" #-}) - -- copy rule (down) - _patOaltAttrs = - ({-# LINE 166 "Order.ag" #-} - _lhsIaltAttrs - {-# LINE 2391 "Order.hs" #-}) - -- copy rule (down) - _patOcon = - ({-# LINE 70 "Order.ag" #-} - _lhsIcon - {-# LINE 2396 "Order.hs" #-}) - -- copy rule (down) - _patOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 2401 "Order.hs" #-}) - -- copy rule (down) - _patOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 2406 "Order.hs" #-}) - -- copy rule (down) - _patOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 2411 "Order.hs" #-}) - ( _patIcopy,_patIerrors,_patIgathAltAttrs,_patIinstVars,_patIlocVars,_patIpatternAttrs) = - (pat_ _patOallTypeSigs _patOaltAttrs _patOcon _patOinh _patOnt _patOsyn ) - in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) -sem_Pattern_Product :: Pos -> - T_Patterns -> - T_Pattern -sem_Pattern_Product pos_ (T_Patterns pats_ ) = - (T_Pattern (\ _lhsIallTypeSigs - _lhsIaltAttrs - _lhsIcon - _lhsIinh - _lhsInt - _lhsIsyn -> - (let _lhsOerrors :: (Seq Error) - _lhsOgathAltAttrs :: ([AltAttr]) - _lhsOinstVars :: ([Identifier]) - _lhsOlocVars :: ([Identifier]) - _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - _lhsOcopy :: Pattern - _patsOallTypeSigs :: (Map Identifier Type) - _patsOaltAttrs :: (Map AltAttr Vertex) - _patsOcon :: Identifier - _patsOinh :: Attributes - _patsOnt :: Identifier - _patsOsyn :: Attributes - _patsIcopy :: Patterns - _patsIerrors :: (Seq Error) - _patsIgathAltAttrs :: ([AltAttr]) - _patsIinstVars :: ([Identifier]) - _patsIlocVars :: ([Identifier]) - _patsIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - _patsIerrors - {-# LINE 2447 "Order.hs" #-}) - -- use rule "Order.ag"(line 150, column 68) - _lhsOgathAltAttrs = - ({-# LINE 150 "Order.ag" #-} - _patsIgathAltAttrs - {-# LINE 2452 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 86) - _lhsOinstVars = - ({-# LINE 600 "Order.ag" #-} - _patsIinstVars - {-# LINE 2457 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 48) - _lhsOlocVars = - ({-# LINE 600 "Order.ag" #-} - _patsIlocVars - {-# LINE 2462 "Order.hs" #-}) - -- use rule "Order.ag"(line 229, column 42) - _lhsOpatternAttrs = - ({-# LINE 229 "Order.ag" #-} - _patsIpatternAttrs - {-# LINE 2467 "Order.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Product pos_ _patsIcopy - {-# LINE 2472 "Order.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 2477 "Order.hs" #-}) - -- copy rule (down) - _patsOallTypeSigs = - ({-# LINE 458 "Order.ag" #-} - _lhsIallTypeSigs - {-# LINE 2482 "Order.hs" #-}) - -- copy rule (down) - _patsOaltAttrs = - ({-# LINE 166 "Order.ag" #-} - _lhsIaltAttrs - {-# LINE 2487 "Order.hs" #-}) - -- copy rule (down) - _patsOcon = - ({-# LINE 70 "Order.ag" #-} - _lhsIcon - {-# LINE 2492 "Order.hs" #-}) - -- copy rule (down) - _patsOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 2497 "Order.hs" #-}) - -- copy rule (down) - _patsOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 2502 "Order.hs" #-}) - -- copy rule (down) - _patsOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 2507 "Order.hs" #-}) - ( _patsIcopy,_patsIerrors,_patsIgathAltAttrs,_patsIinstVars,_patsIlocVars,_patsIpatternAttrs) = - (pats_ _patsOallTypeSigs _patsOaltAttrs _patsOcon _patsOinh _patsOnt _patsOsyn ) - in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) -sem_Pattern_Underscore :: Pos -> - T_Pattern -sem_Pattern_Underscore pos_ = - (T_Pattern (\ _lhsIallTypeSigs - _lhsIaltAttrs - _lhsIcon - _lhsIinh - _lhsInt - _lhsIsyn -> - (let _lhsOerrors :: (Seq Error) - _lhsOgathAltAttrs :: ([AltAttr]) - _lhsOinstVars :: ([Identifier]) - _lhsOlocVars :: ([Identifier]) - _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - _lhsOcopy :: Pattern - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - Seq.empty - {-# LINE 2530 "Order.hs" #-}) - -- use rule "Order.ag"(line 150, column 68) - _lhsOgathAltAttrs = - ({-# LINE 150 "Order.ag" #-} - [] - {-# LINE 2535 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 86) - _lhsOinstVars = - ({-# LINE 600 "Order.ag" #-} - [] - {-# LINE 2540 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 48) - _lhsOlocVars = - ({-# LINE 600 "Order.ag" #-} - [] - {-# LINE 2545 "Order.hs" #-}) - -- use rule "Order.ag"(line 229, column 42) - _lhsOpatternAttrs = - ({-# LINE 229 "Order.ag" #-} - [] - {-# LINE 2550 "Order.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Underscore pos_ - {-# LINE 2555 "Order.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 2560 "Order.hs" #-}) - in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) --- Patterns ---------------------------------------------------- -{- - visit 0: - inherited attributes: - allTypeSigs : Map Identifier Type - altAttrs : Map AltAttr Vertex - con : Identifier - inh : Attributes - nt : Identifier - syn : Attributes - synthesized attributes: - copy : SELF - errors : Seq Error - gathAltAttrs : [AltAttr] - instVars : [Identifier] - locVars : [Identifier] - patternAttrs : [(Identifier,Identifier,Bool,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 ((Map Identifier Type) -> - (Map AltAttr Vertex) -> - Identifier -> - Attributes -> - Identifier -> - Attributes -> - ( Patterns ,(Seq Error),([AltAttr]),([Identifier]),([Identifier]),([(Identifier,Identifier,Bool,Patterns)]))) -data Inh_Patterns = Inh_Patterns {allTypeSigs_Inh_Patterns :: !((Map Identifier Type)),altAttrs_Inh_Patterns :: !((Map AltAttr Vertex)),con_Inh_Patterns :: !(Identifier),inh_Inh_Patterns :: !(Attributes),nt_Inh_Patterns :: !(Identifier),syn_Inh_Patterns :: !(Attributes)} -data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),errors_Syn_Patterns :: !((Seq Error)),gathAltAttrs_Syn_Patterns :: !(([AltAttr])),instVars_Syn_Patterns :: !(([Identifier])),locVars_Syn_Patterns :: !(([Identifier])),patternAttrs_Syn_Patterns :: !(([(Identifier,Identifier,Bool,Patterns)]))} -wrap_Patterns :: T_Patterns -> - Inh_Patterns -> - Syn_Patterns -wrap_Patterns (T_Patterns sem ) (Inh_Patterns _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn ) = - (let ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs) = - (sem _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn ) - in (Syn_Patterns _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs )) -sem_Patterns_Cons :: T_Pattern -> - T_Patterns -> - T_Patterns -sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) = - (T_Patterns (\ _lhsIallTypeSigs - _lhsIaltAttrs - _lhsIcon - _lhsIinh - _lhsInt - _lhsIsyn -> - (let _lhsOerrors :: (Seq Error) - _lhsOgathAltAttrs :: ([AltAttr]) - _lhsOinstVars :: ([Identifier]) - _lhsOlocVars :: ([Identifier]) - _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - _lhsOcopy :: Patterns - _hdOallTypeSigs :: (Map Identifier Type) - _hdOaltAttrs :: (Map AltAttr Vertex) - _hdOcon :: Identifier - _hdOinh :: Attributes - _hdOnt :: Identifier - _hdOsyn :: Attributes - _tlOallTypeSigs :: (Map Identifier Type) - _tlOaltAttrs :: (Map AltAttr Vertex) - _tlOcon :: Identifier - _tlOinh :: Attributes - _tlOnt :: Identifier - _tlOsyn :: Attributes - _hdIcopy :: Pattern - _hdIerrors :: (Seq Error) - _hdIgathAltAttrs :: ([AltAttr]) - _hdIinstVars :: ([Identifier]) - _hdIlocVars :: ([Identifier]) - _hdIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - _tlIcopy :: Patterns - _tlIerrors :: (Seq Error) - _tlIgathAltAttrs :: ([AltAttr]) - _tlIinstVars :: ([Identifier]) - _tlIlocVars :: ([Identifier]) - _tlIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 2655 "Order.hs" #-}) - -- use rule "Order.ag"(line 150, column 68) - _lhsOgathAltAttrs = - ({-# LINE 150 "Order.ag" #-} - _hdIgathAltAttrs ++ _tlIgathAltAttrs - {-# LINE 2660 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 86) - _lhsOinstVars = - ({-# LINE 600 "Order.ag" #-} - _hdIinstVars ++ _tlIinstVars - {-# LINE 2665 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 48) - _lhsOlocVars = - ({-# LINE 600 "Order.ag" #-} - _hdIlocVars ++ _tlIlocVars - {-# LINE 2670 "Order.hs" #-}) - -- use rule "Order.ag"(line 229, column 42) - _lhsOpatternAttrs = - ({-# LINE 229 "Order.ag" #-} - _hdIpatternAttrs ++ _tlIpatternAttrs - {-# LINE 2675 "Order.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 2680 "Order.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 2685 "Order.hs" #-}) - -- copy rule (down) - _hdOallTypeSigs = - ({-# LINE 458 "Order.ag" #-} - _lhsIallTypeSigs - {-# LINE 2690 "Order.hs" #-}) - -- copy rule (down) - _hdOaltAttrs = - ({-# LINE 166 "Order.ag" #-} - _lhsIaltAttrs - {-# LINE 2695 "Order.hs" #-}) - -- copy rule (down) - _hdOcon = - ({-# LINE 70 "Order.ag" #-} - _lhsIcon - {-# LINE 2700 "Order.hs" #-}) - -- copy rule (down) - _hdOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 2705 "Order.hs" #-}) - -- copy rule (down) - _hdOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 2710 "Order.hs" #-}) - -- copy rule (down) - _hdOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 2715 "Order.hs" #-}) - -- copy rule (down) - _tlOallTypeSigs = - ({-# LINE 458 "Order.ag" #-} - _lhsIallTypeSigs - {-# LINE 2720 "Order.hs" #-}) - -- copy rule (down) - _tlOaltAttrs = - ({-# LINE 166 "Order.ag" #-} - _lhsIaltAttrs - {-# LINE 2725 "Order.hs" #-}) - -- copy rule (down) - _tlOcon = - ({-# LINE 70 "Order.ag" #-} - _lhsIcon - {-# LINE 2730 "Order.hs" #-}) - -- copy rule (down) - _tlOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 2735 "Order.hs" #-}) - -- copy rule (down) - _tlOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 2740 "Order.hs" #-}) - -- copy rule (down) - _tlOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 2745 "Order.hs" #-}) - ( _hdIcopy,_hdIerrors,_hdIgathAltAttrs,_hdIinstVars,_hdIlocVars,_hdIpatternAttrs) = - (hd_ _hdOallTypeSigs _hdOaltAttrs _hdOcon _hdOinh _hdOnt _hdOsyn ) - ( _tlIcopy,_tlIerrors,_tlIgathAltAttrs,_tlIinstVars,_tlIlocVars,_tlIpatternAttrs) = - (tl_ _tlOallTypeSigs _tlOaltAttrs _tlOcon _tlOinh _tlOnt _tlOsyn ) - in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) -sem_Patterns_Nil :: T_Patterns -sem_Patterns_Nil = - (T_Patterns (\ _lhsIallTypeSigs - _lhsIaltAttrs - _lhsIcon - _lhsIinh - _lhsInt - _lhsIsyn -> - (let _lhsOerrors :: (Seq Error) - _lhsOgathAltAttrs :: ([AltAttr]) - _lhsOinstVars :: ([Identifier]) - _lhsOlocVars :: ([Identifier]) - _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - _lhsOcopy :: Patterns - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - Seq.empty - {-# LINE 2769 "Order.hs" #-}) - -- use rule "Order.ag"(line 150, column 68) - _lhsOgathAltAttrs = - ({-# LINE 150 "Order.ag" #-} - [] - {-# LINE 2774 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 86) - _lhsOinstVars = - ({-# LINE 600 "Order.ag" #-} - [] - {-# LINE 2779 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 48) - _lhsOlocVars = - ({-# LINE 600 "Order.ag" #-} - [] - {-# LINE 2784 "Order.hs" #-}) - -- use rule "Order.ag"(line 229, column 42) - _lhsOpatternAttrs = - ({-# LINE 229 "Order.ag" #-} - [] - {-# LINE 2789 "Order.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - [] - {-# LINE 2794 "Order.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 2799 "Order.hs" #-}) - in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) --- Production -------------------------------------------------- -{- - visit 0: - inherited attributes: - allnts : [Identifier] - aroundMap : Map ConstructorIdent (Map Identifier [Expression]) - cVisitsMap : CVisitsMap - inh : Attributes - manualAttrDepMap : AttrOrderMap - nt : Identifier - o_case : Bool - o_cata : Bool - o_dovisit : Bool - o_newtypes : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_unbox : Bool - o_wantvisit : Bool - prefix : String - syn : Attributes - chained attribute: - vcount : Int - synthesized attributes: - additionalDep : Seq Edge - aroundDep : Seq Edge - cProduction : CProduction - cons : [ConstructorIdent] - directDep : Seq Edge - errors : Seq Error - instDep : Seq Edge - rules : Seq (Vertex,CRule) - alternatives: - alternative Production: - child con : {ConstructorIdent} - child children : Children - child rules : Rules - child typeSigs : TypeSigs - visit 0: - local gathAltAttrs : _ - local altAttrs : _ - local inhRules : _ - local gathRules : _ - local manualDeps : _ - local aroundMap : _ - local aroundDep1 : _ - local aroundDep2 : _ - local cVisits : _ - local allfields : _ - local attrs : _ - local inhnames : _ - local synnames : _ --} --- cata -sem_Production :: Production -> - T_Production -sem_Production (Production _con _children _rules _typeSigs ) = - (sem_Production_Production _con (sem_Children _children ) (sem_Rules _rules ) (sem_TypeSigs _typeSigs ) ) --- semantic domain -newtype T_Production = T_Production (([Identifier]) -> - (Map ConstructorIdent (Map Identifier [Expression])) -> - CVisitsMap -> - Attributes -> - AttrOrderMap -> - Identifier -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - String -> - Attributes -> - Int -> - ( (Seq Edge),(Seq Edge),CProduction,([ConstructorIdent]),(Seq Edge),(Seq Error),(Seq Edge),(Seq (Vertex,CRule)),Int)) -data Inh_Production = Inh_Production {allnts_Inh_Production :: !(([Identifier])),aroundMap_Inh_Production :: !((Map ConstructorIdent (Map Identifier [Expression]))),cVisitsMap_Inh_Production :: !(CVisitsMap),inh_Inh_Production :: !(Attributes),manualAttrDepMap_Inh_Production :: !(AttrOrderMap),nt_Inh_Production :: !(Identifier),o_case_Inh_Production :: !(Bool),o_cata_Inh_Production :: !(Bool),o_dovisit_Inh_Production :: !(Bool),o_newtypes_Inh_Production :: !(Bool),o_rename_Inh_Production :: !(Bool),o_sem_Inh_Production :: !(Bool),o_sig_Inh_Production :: !(Bool),o_unbox_Inh_Production :: !(Bool),o_wantvisit_Inh_Production :: !(Bool),prefix_Inh_Production :: !(String),syn_Inh_Production :: !(Attributes),vcount_Inh_Production :: !(Int)} -data Syn_Production = Syn_Production {additionalDep_Syn_Production :: !((Seq Edge)),aroundDep_Syn_Production :: !((Seq Edge)),cProduction_Syn_Production :: !(CProduction),cons_Syn_Production :: !(([ConstructorIdent])),directDep_Syn_Production :: !((Seq Edge)),errors_Syn_Production :: !((Seq Error)),instDep_Syn_Production :: !((Seq Edge)),rules_Syn_Production :: !((Seq (Vertex,CRule))),vcount_Syn_Production :: !(Int)} -wrap_Production :: T_Production -> - Inh_Production -> - Syn_Production -wrap_Production (T_Production sem ) (Inh_Production _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsImanualAttrDepMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIvcount ) = - (let ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProduction,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOrules,_lhsOvcount) = - (sem _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsImanualAttrDepMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIvcount ) - in (Syn_Production _lhsOadditionalDep _lhsOaroundDep _lhsOcProduction _lhsOcons _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOrules _lhsOvcount )) -sem_Production_Production :: ConstructorIdent -> - T_Children -> - T_Rules -> - T_TypeSigs -> - T_Production -sem_Production_Production con_ (T_Children children_ ) (T_Rules rules_ ) (T_TypeSigs typeSigs_ ) = - (T_Production (\ _lhsIallnts - _lhsIaroundMap - _lhsIcVisitsMap - _lhsIinh - _lhsImanualAttrDepMap - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_dovisit - _lhsIo_newtypes - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_unbox - _lhsIo_wantvisit - _lhsIprefix - _lhsIsyn - _lhsIvcount -> - (let _childrenOcon :: Identifier - _rulesOcon :: Identifier - _rulesOchildNts :: (Map Identifier NontermIdent) - _rulesOchildInhs :: (Map Identifier Attributes) - _lhsOrules :: (Seq (Vertex,CRule)) - _lhsOvcount :: Int - _lhsOadditionalDep :: (Seq Edge) - _rulesOsynsOfChildren :: (Map Identifier Attributes) - _rulesOinhsOfChildren :: (Map Identifier Attributes) - _lhsOaroundDep :: (Seq Edge) - _lhsOcons :: ([ConstructorIdent]) - _typeSigsOtypeSigs :: (Map Identifier Type) - _rulesOallTypeSigs :: (Map Identifier Type) - _lhsOcProduction :: CProduction - _lhsOdirectDep :: (Seq Edge) - _lhsOerrors :: (Seq Error) - _lhsOinstDep :: (Seq Edge) - _childrenOallfields :: ([(Identifier,Type,Bool)]) - _childrenOallnts :: ([Identifier]) - _childrenOattrs :: ([(Identifier,Identifier)]) - _childrenOinh :: Attributes - _childrenOnt :: Identifier - _childrenOo_unbox :: Bool - _childrenOsyn :: Attributes - _rulesOallfields :: ([(Identifier,Type,Bool)]) - _rulesOallnts :: ([Identifier]) - _rulesOaltAttrs :: (Map AltAttr Vertex) - _rulesOattrs :: ([(Identifier,Identifier)]) - _rulesOinh :: Attributes - _rulesOnt :: Identifier - _rulesOo_case :: Bool - _rulesOo_cata :: Bool - _rulesOo_dovisit :: Bool - _rulesOo_newtypes :: Bool - _rulesOo_rename :: Bool - _rulesOo_sem :: Bool - _rulesOo_sig :: Bool - _rulesOo_wantvisit :: Bool - _rulesOprefix :: String - _rulesOsyn :: Attributes - _childrenIattributes :: ([(Identifier,Attributes,Attributes)]) - _childrenIcollectChildrenInhs :: (Map Identifier Attributes ) - _childrenIcollectChildrenSyns :: (Map Identifier Attributes ) - _childrenIerrors :: (Seq Error) - _childrenIfields :: ([(Identifier,Type,Bool)]) - _childrenIgathAltAttrs :: ([AltAttr]) - _childrenIgathRules :: (Seq CRule) - _childrenIinhs :: (Seq (Identifier,Attributes)) - _childrenInts :: (Seq (Identifier,NontermIdent)) - _childrenIsinglevisits :: ([CRule]) - _childrenIterminals :: ([Identifier]) - _rulesIdirectDep :: (Seq Edge) - _rulesIerrors :: (Seq Error) - _rulesIgathAltAttrs :: ([AltAttr]) - _rulesIgathRules :: (Seq CRule) - _rulesIinstDep :: (Seq Edge) - _rulesIinstVars :: ([Identifier]) - _rulesIlocVars :: ([Identifier]) - _typeSigsItypeSigs :: (Map Identifier Type) - -- "Order.ag"(line 73, column 16) - _childrenOcon = - ({-# LINE 73 "Order.ag" #-} - con_ - {-# LINE 2975 "Order.hs" #-}) - -- "Order.ag"(line 75, column 16) - _rulesOcon = - ({-# LINE 75 "Order.ag" #-} - con_ - {-# LINE 2980 "Order.hs" #-}) - -- "Order.ag"(line 152, column 18) - _gathAltAttrs = - ({-# LINE 152 "Order.ag" #-} - [ AltAttr _LHS inh True | inh <- Map.keys _lhsIinh ] - ++ _childrenIgathAltAttrs - ++ _rulesIgathAltAttrs - {-# LINE 2987 "Order.hs" #-}) - -- "Order.ag"(line 168, column 17) - _altAttrs = - ({-# LINE 168 "Order.ag" #-} - Map.fromList (zip _gathAltAttrs [_lhsIvcount..]) - {-# LINE 2992 "Order.hs" #-}) - -- "Order.ag"(line 181, column 18) - _rulesOchildNts = - ({-# LINE 181 "Order.ag" #-} - Map.fromList (toList _childrenInts) - {-# LINE 2997 "Order.hs" #-}) - -- "Order.ag"(line 182, column 19) - _rulesOchildInhs = - ({-# LINE 182 "Order.ag" #-} - Map.fromList (toList _childrenIinhs) - {-# LINE 3002 "Order.hs" #-}) - -- "Order.ag"(line 188, column 18) - _inhRules = - ({-# LINE 188 "Order.ag" #-} - [ cRuleLhsInh inh _lhsInt con_ tp | (inh,tp) <- Map.assocs _lhsIinh ] - {-# LINE 3007 "Order.hs" #-}) - -- "Order.ag"(line 189, column 19) - _gathRules = - ({-# LINE 189 "Order.ag" #-} - _inhRules ++ toList (_childrenIgathRules Seq.>< _rulesIgathRules) - {-# LINE 3012 "Order.hs" #-}) - -- "Order.ag"(line 243, column 18) - _lhsOrules = - ({-# LINE 243 "Order.ag" #-} - Seq.fromList (zip [_lhsIvcount..] _gathRules) - {-# LINE 3017 "Order.hs" #-}) - -- "Order.ag"(line 244, column 19) - _lhsOvcount = - ({-# LINE 244 "Order.ag" #-} - _lhsIvcount + length _gathRules - {-# LINE 3022 "Order.hs" #-}) - -- "Order.ag"(line 271, column 7) - _manualDeps = - ({-# LINE 271 "Order.ag" #-} - Set.toList $ Map.findWithDefault Set.empty con_ $ Map.findWithDefault Map.empty _lhsInt _lhsImanualAttrDepMap - {-# LINE 3027 "Order.hs" #-}) - -- "Order.ag"(line 274, column 7) - _lhsOadditionalDep = - ({-# LINE 274 "Order.ag" #-} - Seq.fromList [ (vertex True occA, vertex False occB) - | Dependency occA occB <- _manualDeps - , let vertex inout (OccAttr child nm) - | child == _LOC = findWithErr2 (AltAttr _LOC nm True) _altAttrs - | otherwise = findWithErr2 (AltAttr child nm inout) _altAttrs - vertex _ (OccRule nm) - = findWithErr2 (AltAttr _LOC (Ident ("_rule_" ++ show nm) (getPos nm)) True) _altAttrs - ] - {-# LINE 3039 "Order.hs" #-}) - -- "Order.ag"(line 321, column 17) - _rulesOsynsOfChildren = - ({-# LINE 321 "Order.ag" #-} - _childrenIcollectChildrenSyns - {-# LINE 3044 "Order.hs" #-}) - -- "Order.ag"(line 322, column 17) - _rulesOinhsOfChildren = - ({-# LINE 322 "Order.ag" #-} - _childrenIcollectChildrenInhs - {-# LINE 3049 "Order.hs" #-}) - -- "Order.ag"(line 347, column 32) - _aroundMap = - ({-# LINE 347 "Order.ag" #-} - Map.findWithDefault Map.empty con_ _lhsIaroundMap - {-# LINE 3054 "Order.hs" #-}) - -- "Order.ag"(line 354, column 6) - _aroundDep1 = - ({-# LINE 354 "Order.ag" #-} - Seq.fromList $ - [ (childVert, synVert) - | childNm <- Map.keys _aroundMap - , synNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenSyns) - , let childNm' = Ident (show childNm ++ "_around") (getPos childNm) - childAttr = AltAttr _LOC childNm' True - synAttr = AltAttr childNm synNm True - childVert = findWithErr2 childAttr _altAttrs - synVert = findWithErr2 synAttr _altAttrs - ] - {-# LINE 3068 "Order.hs" #-}) - -- "Order.ag"(line 365, column 6) - _aroundDep2 = - ({-# LINE 365 "Order.ag" #-} - Seq.fromList $ - [ (childVert, inhVert) - | childNm <- Map.keys _aroundMap - , inhNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenInhs) - , let childNm' = Ident (show childNm ++ "_around") (getPos childNm) - childAttr = AltAttr _LOC childNm' True - inhAttr = AltAttr childNm inhNm False - childVert = findWithErr2 childAttr _altAttrs - inhVert = findWithErr2 inhAttr _altAttrs - ] - {-# LINE 3082 "Order.hs" #-}) - -- "Order.ag"(line 376, column 6) - _lhsOaroundDep = - ({-# LINE 376 "Order.ag" #-} - _aroundDep1 Seq.>< _aroundDep2 - {-# LINE 3087 "Order.hs" #-}) - -- "Order.ag"(line 447, column 18) - _lhsOcons = - ({-# LINE 447 "Order.ag" #-} - [con_] - {-# LINE 3092 "Order.hs" #-}) - -- "Order.ag"(line 454, column 16) - _typeSigsOtypeSigs = - ({-# LINE 454 "Order.ag" #-} - Map.empty - {-# LINE 3097 "Order.hs" #-}) - -- "Order.ag"(line 460, column 17) - _rulesOallTypeSigs = - ({-# LINE 460 "Order.ag" #-} - _typeSigsItypeSigs - {-# LINE 3102 "Order.hs" #-}) - -- "Order.ag"(line 527, column 17) - _cVisits = - ({-# LINE 527 "Order.ag" #-} - if _lhsIo_dovisit - then let prodsVisitsMap = findWithErr1 "Production.cVisits.nt" _lhsInt _lhsIcVisitsMap - visits = findWithErr1 "Production.cVisits.con" con_ prodsVisitsMap - in visits - else let vss = nubBy eqCRuleDefines _gathRules ++ _childrenIsinglevisits - in [CVisit _lhsIinh _lhsIsyn vss [] False] - {-# LINE 3112 "Order.hs" #-}) - -- "Order.ag"(line 553, column 18) - _lhsOcProduction = - ({-# LINE 553 "Order.ag" #-} - CProduction con_ _cVisits _childrenIfields _childrenIterminals - {-# LINE 3117 "Order.hs" #-}) - -- "Order.ag"(line 580, column 16) - _allfields = - ({-# LINE 580 "Order.ag" #-} - _childrenIfields - {-# LINE 3122 "Order.hs" #-}) - -- "Order.ag"(line 580, column 16) - _attrs = - ({-# LINE 581 "Order.ag" #-} - map ((,) _LOC) _rulesIlocVars ++ - map ((,) _INST) _rulesIinstVars ++ - map ((,) _LHS) _inhnames ++ - concat [map ((,) nm) (Map.keys as) | (nm,_,as) <- _childrenIattributes] - {-# LINE 3130 "Order.hs" #-}) - -- "Order.ag"(line 580, column 16) - _inhnames = - ({-# LINE 585 "Order.ag" #-} - Map.keys _lhsIinh - {-# LINE 3135 "Order.hs" #-}) - -- "Order.ag"(line 580, column 16) - _synnames = - ({-# LINE 586 "Order.ag" #-} - Map.keys _lhsIsyn - {-# LINE 3140 "Order.hs" #-}) - -- use rule "Order.ag"(line 249, column 33) - _lhsOdirectDep = - ({-# LINE 249 "Order.ag" #-} - _rulesIdirectDep - {-# LINE 3145 "Order.hs" #-}) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - _childrenIerrors Seq.>< _rulesIerrors - {-# LINE 3150 "Order.hs" #-}) - -- use rule "Order.ag"(line 292, column 31) - _lhsOinstDep = - ({-# LINE 292 "Order.ag" #-} - _rulesIinstDep - {-# LINE 3155 "Order.hs" #-}) - -- copy rule (from local) - _childrenOallfields = - ({-# LINE 577 "Order.ag" #-} - _allfields - {-# LINE 3160 "Order.hs" #-}) - -- copy rule (down) - _childrenOallnts = - ({-# LINE 570 "Order.ag" #-} - _lhsIallnts - {-# LINE 3165 "Order.hs" #-}) - -- copy rule (from local) - _childrenOattrs = - ({-# LINE 577 "Order.ag" #-} - _attrs - {-# LINE 3170 "Order.hs" #-}) - -- copy rule (down) - _childrenOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 3175 "Order.hs" #-}) - -- copy rule (down) - _childrenOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 3180 "Order.hs" #-}) - -- copy rule (down) - _childrenOo_unbox = - ({-# LINE 99 "Order.ag" #-} - _lhsIo_unbox - {-# LINE 3185 "Order.hs" #-}) - -- copy rule (down) - _childrenOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 3190 "Order.hs" #-}) - -- copy rule (from local) - _rulesOallfields = - ({-# LINE 577 "Order.ag" #-} - _allfields - {-# LINE 3195 "Order.hs" #-}) - -- copy rule (down) - _rulesOallnts = - ({-# LINE 570 "Order.ag" #-} - _lhsIallnts - {-# LINE 3200 "Order.hs" #-}) - -- copy rule (from local) - _rulesOaltAttrs = - ({-# LINE 166 "Order.ag" #-} - _altAttrs - {-# LINE 3205 "Order.hs" #-}) - -- copy rule (from local) - _rulesOattrs = - ({-# LINE 577 "Order.ag" #-} - _attrs - {-# LINE 3210 "Order.hs" #-}) - -- copy rule (down) - _rulesOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 3215 "Order.hs" #-}) - -- copy rule (down) - _rulesOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 3220 "Order.hs" #-}) - -- copy rule (down) - _rulesOo_case = - ({-# LINE 97 "Order.ag" #-} - _lhsIo_case - {-# LINE 3225 "Order.hs" #-}) - -- copy rule (down) - _rulesOo_cata = - ({-# LINE 91 "Order.ag" #-} - _lhsIo_cata - {-# LINE 3230 "Order.hs" #-}) - -- copy rule (down) - _rulesOo_dovisit = - ({-# LINE 96 "Order.ag" #-} - _lhsIo_dovisit - {-# LINE 3235 "Order.hs" #-}) - -- copy rule (down) - _rulesOo_newtypes = - ({-# LINE 90 "Order.ag" #-} - _lhsIo_newtypes - {-# LINE 3240 "Order.hs" #-}) - -- copy rule (down) - _rulesOo_rename = - ({-# LINE 94 "Order.ag" #-} - _lhsIo_rename - {-# LINE 3245 "Order.hs" #-}) - -- copy rule (down) - _rulesOo_sem = - ({-# LINE 93 "Order.ag" #-} - _lhsIo_sem - {-# LINE 3250 "Order.hs" #-}) - -- copy rule (down) - _rulesOo_sig = - ({-# LINE 92 "Order.ag" #-} - _lhsIo_sig - {-# LINE 3255 "Order.hs" #-}) - -- copy rule (down) - _rulesOo_wantvisit = - ({-# LINE 95 "Order.ag" #-} - _lhsIo_wantvisit - {-# LINE 3260 "Order.hs" #-}) - -- copy rule (down) - _rulesOprefix = - ({-# LINE 98 "Order.ag" #-} - _lhsIprefix - {-# LINE 3265 "Order.hs" #-}) - -- copy rule (down) - _rulesOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 3270 "Order.hs" #-}) - ( _childrenIattributes,_childrenIcollectChildrenInhs,_childrenIcollectChildrenSyns,_childrenIerrors,_childrenIfields,_childrenIgathAltAttrs,_childrenIgathRules,_childrenIinhs,_childrenInts,_childrenIsinglevisits,_childrenIterminals) = - (children_ _childrenOallfields _childrenOallnts _childrenOattrs _childrenOcon _childrenOinh _childrenOnt _childrenOo_unbox _childrenOsyn ) - ( _rulesIdirectDep,_rulesIerrors,_rulesIgathAltAttrs,_rulesIgathRules,_rulesIinstDep,_rulesIinstVars,_rulesIlocVars) = - (rules_ _rulesOallTypeSigs _rulesOallfields _rulesOallnts _rulesOaltAttrs _rulesOattrs _rulesOchildInhs _rulesOchildNts _rulesOcon _rulesOinh _rulesOinhsOfChildren _rulesOnt _rulesOo_case _rulesOo_cata _rulesOo_dovisit _rulesOo_newtypes _rulesOo_rename _rulesOo_sem _rulesOo_sig _rulesOo_wantvisit _rulesOprefix _rulesOsyn _rulesOsynsOfChildren ) - ( _typeSigsItypeSigs) = - (typeSigs_ _typeSigsOtypeSigs ) - in ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProduction,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOrules,_lhsOvcount))) ) --- Productions ------------------------------------------------- -{- - visit 0: - inherited attributes: - allnts : [Identifier] - aroundMap : Map ConstructorIdent (Map Identifier [Expression]) - cVisitsMap : CVisitsMap - inh : Attributes - manualAttrDepMap : AttrOrderMap - nt : Identifier - o_case : Bool - o_cata : Bool - o_dovisit : Bool - o_newtypes : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_unbox : Bool - o_wantvisit : Bool - prefix : String - syn : Attributes - chained attribute: - vcount : Int - synthesized attributes: - additionalDep : Seq Edge - aroundDep : Seq Edge - cProductions : CProductions - cons : [ConstructorIdent] - directDep : Seq Edge - errors : Seq Error - instDep : Seq Edge - rules : Seq (Vertex,CRule) - alternatives: - alternative Cons: - child hd : Production - child tl : Productions - alternative Nil: --} --- cata -sem_Productions :: Productions -> - T_Productions -sem_Productions list = - (Prelude.foldr sem_Productions_Cons sem_Productions_Nil (Prelude.map sem_Production list) ) --- semantic domain -newtype T_Productions = T_Productions (([Identifier]) -> - (Map ConstructorIdent (Map Identifier [Expression])) -> - CVisitsMap -> - Attributes -> - AttrOrderMap -> - Identifier -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - String -> - Attributes -> - Int -> - ( (Seq Edge),(Seq Edge),CProductions,([ConstructorIdent]),(Seq Edge),(Seq Error),(Seq Edge),(Seq (Vertex,CRule)),Int)) -data Inh_Productions = Inh_Productions {allnts_Inh_Productions :: !(([Identifier])),aroundMap_Inh_Productions :: !((Map ConstructorIdent (Map Identifier [Expression]))),cVisitsMap_Inh_Productions :: !(CVisitsMap),inh_Inh_Productions :: !(Attributes),manualAttrDepMap_Inh_Productions :: !(AttrOrderMap),nt_Inh_Productions :: !(Identifier),o_case_Inh_Productions :: !(Bool),o_cata_Inh_Productions :: !(Bool),o_dovisit_Inh_Productions :: !(Bool),o_newtypes_Inh_Productions :: !(Bool),o_rename_Inh_Productions :: !(Bool),o_sem_Inh_Productions :: !(Bool),o_sig_Inh_Productions :: !(Bool),o_unbox_Inh_Productions :: !(Bool),o_wantvisit_Inh_Productions :: !(Bool),prefix_Inh_Productions :: !(String),syn_Inh_Productions :: !(Attributes),vcount_Inh_Productions :: !(Int)} -data Syn_Productions = Syn_Productions {additionalDep_Syn_Productions :: !((Seq Edge)),aroundDep_Syn_Productions :: !((Seq Edge)),cProductions_Syn_Productions :: !(CProductions),cons_Syn_Productions :: !(([ConstructorIdent])),directDep_Syn_Productions :: !((Seq Edge)),errors_Syn_Productions :: !((Seq Error)),instDep_Syn_Productions :: !((Seq Edge)),rules_Syn_Productions :: !((Seq (Vertex,CRule))),vcount_Syn_Productions :: !(Int)} -wrap_Productions :: T_Productions -> - Inh_Productions -> - Syn_Productions -wrap_Productions (T_Productions sem ) (Inh_Productions _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsImanualAttrDepMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIvcount ) = - (let ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProductions,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOrules,_lhsOvcount) = - (sem _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsImanualAttrDepMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIvcount ) - in (Syn_Productions _lhsOadditionalDep _lhsOaroundDep _lhsOcProductions _lhsOcons _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOrules _lhsOvcount )) -sem_Productions_Cons :: T_Production -> - T_Productions -> - T_Productions -sem_Productions_Cons (T_Production hd_ ) (T_Productions tl_ ) = - (T_Productions (\ _lhsIallnts - _lhsIaroundMap - _lhsIcVisitsMap - _lhsIinh - _lhsImanualAttrDepMap - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_dovisit - _lhsIo_newtypes - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_unbox - _lhsIo_wantvisit - _lhsIprefix - _lhsIsyn - _lhsIvcount -> - (let _lhsOcProductions :: CProductions - _lhsOadditionalDep :: (Seq Edge) - _lhsOaroundDep :: (Seq Edge) - _lhsOcons :: ([ConstructorIdent]) - _lhsOdirectDep :: (Seq Edge) - _lhsOerrors :: (Seq Error) - _lhsOinstDep :: (Seq Edge) - _lhsOrules :: (Seq (Vertex,CRule)) - _lhsOvcount :: Int - _hdOallnts :: ([Identifier]) - _hdOaroundMap :: (Map ConstructorIdent (Map Identifier [Expression])) - _hdOcVisitsMap :: CVisitsMap - _hdOinh :: Attributes - _hdOmanualAttrDepMap :: AttrOrderMap - _hdOnt :: Identifier - _hdOo_case :: Bool - _hdOo_cata :: Bool - _hdOo_dovisit :: Bool - _hdOo_newtypes :: Bool - _hdOo_rename :: Bool - _hdOo_sem :: Bool - _hdOo_sig :: Bool - _hdOo_unbox :: Bool - _hdOo_wantvisit :: Bool - _hdOprefix :: String - _hdOsyn :: Attributes - _hdOvcount :: Int - _tlOallnts :: ([Identifier]) - _tlOaroundMap :: (Map ConstructorIdent (Map Identifier [Expression])) - _tlOcVisitsMap :: CVisitsMap - _tlOinh :: Attributes - _tlOmanualAttrDepMap :: AttrOrderMap - _tlOnt :: Identifier - _tlOo_case :: Bool - _tlOo_cata :: Bool - _tlOo_dovisit :: Bool - _tlOo_newtypes :: Bool - _tlOo_rename :: Bool - _tlOo_sem :: Bool - _tlOo_sig :: Bool - _tlOo_unbox :: Bool - _tlOo_wantvisit :: Bool - _tlOprefix :: String - _tlOsyn :: Attributes - _tlOvcount :: Int - _hdIadditionalDep :: (Seq Edge) - _hdIaroundDep :: (Seq Edge) - _hdIcProduction :: CProduction - _hdIcons :: ([ConstructorIdent]) - _hdIdirectDep :: (Seq Edge) - _hdIerrors :: (Seq Error) - _hdIinstDep :: (Seq Edge) - _hdIrules :: (Seq (Vertex,CRule)) - _hdIvcount :: Int - _tlIadditionalDep :: (Seq Edge) - _tlIaroundDep :: (Seq Edge) - _tlIcProductions :: CProductions - _tlIcons :: ([ConstructorIdent]) - _tlIdirectDep :: (Seq Edge) - _tlIerrors :: (Seq Error) - _tlIinstDep :: (Seq Edge) - _tlIrules :: (Seq (Vertex,CRule)) - _tlIvcount :: Int - -- "Order.ag"(line 550, column 12) - _lhsOcProductions = - ({-# LINE 550 "Order.ag" #-} - _hdIcProduction : _tlIcProductions - {-# LINE 3439 "Order.hs" #-}) - -- use rule "Order.ag"(line 263, column 60) - _lhsOadditionalDep = - ({-# LINE 263 "Order.ag" #-} - _hdIadditionalDep Seq.>< _tlIadditionalDep - {-# LINE 3444 "Order.hs" #-}) - -- use rule "Order.ag"(line 338, column 24) - _lhsOaroundDep = - ({-# LINE 338 "Order.ag" #-} - _hdIaroundDep Seq.>< _tlIaroundDep - {-# LINE 3449 "Order.hs" #-}) - -- use rule "Order.ag"(line 445, column 40) - _lhsOcons = - ({-# LINE 445 "Order.ag" #-} - _hdIcons ++ _tlIcons - {-# LINE 3454 "Order.hs" #-}) - -- use rule "Order.ag"(line 249, column 33) - _lhsOdirectDep = - ({-# LINE 249 "Order.ag" #-} - _hdIdirectDep Seq.>< _tlIdirectDep - {-# LINE 3459 "Order.hs" #-}) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 3464 "Order.hs" #-}) - -- use rule "Order.ag"(line 292, column 31) - _lhsOinstDep = - ({-# LINE 292 "Order.ag" #-} - _hdIinstDep Seq.>< _tlIinstDep - {-# LINE 3469 "Order.hs" #-}) - -- use rule "Order.ag"(line 239, column 18) - _lhsOrules = - ({-# LINE 239 "Order.ag" #-} - _hdIrules Seq.>< _tlIrules - {-# LINE 3474 "Order.hs" #-}) - -- copy rule (up) - _lhsOvcount = - ({-# LINE 238 "Order.ag" #-} - _tlIvcount - {-# LINE 3479 "Order.hs" #-}) - -- copy rule (down) - _hdOallnts = - ({-# LINE 570 "Order.ag" #-} - _lhsIallnts - {-# LINE 3484 "Order.hs" #-}) - -- copy rule (down) - _hdOaroundMap = - ({-# LINE 344 "Order.ag" #-} - _lhsIaroundMap - {-# LINE 3489 "Order.hs" #-}) - -- copy rule (down) - _hdOcVisitsMap = - ({-# LINE 525 "Order.ag" #-} - _lhsIcVisitsMap - {-# LINE 3494 "Order.hs" #-}) - -- copy rule (down) - _hdOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 3499 "Order.hs" #-}) - -- copy rule (down) - _hdOmanualAttrDepMap = - ({-# LINE 263 "Order.ag" #-} - _lhsImanualAttrDepMap - {-# LINE 3504 "Order.hs" #-}) - -- copy rule (down) - _hdOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 3509 "Order.hs" #-}) - -- copy rule (down) - _hdOo_case = - ({-# LINE 97 "Order.ag" #-} - _lhsIo_case - {-# LINE 3514 "Order.hs" #-}) - -- copy rule (down) - _hdOo_cata = - ({-# LINE 91 "Order.ag" #-} - _lhsIo_cata - {-# LINE 3519 "Order.hs" #-}) - -- copy rule (down) - _hdOo_dovisit = - ({-# LINE 96 "Order.ag" #-} - _lhsIo_dovisit - {-# LINE 3524 "Order.hs" #-}) - -- copy rule (down) - _hdOo_newtypes = - ({-# LINE 90 "Order.ag" #-} - _lhsIo_newtypes - {-# LINE 3529 "Order.hs" #-}) - -- copy rule (down) - _hdOo_rename = - ({-# LINE 94 "Order.ag" #-} - _lhsIo_rename - {-# LINE 3534 "Order.hs" #-}) - -- copy rule (down) - _hdOo_sem = - ({-# LINE 93 "Order.ag" #-} - _lhsIo_sem - {-# LINE 3539 "Order.hs" #-}) - -- copy rule (down) - _hdOo_sig = - ({-# LINE 92 "Order.ag" #-} - _lhsIo_sig - {-# LINE 3544 "Order.hs" #-}) - -- copy rule (down) - _hdOo_unbox = - ({-# LINE 99 "Order.ag" #-} - _lhsIo_unbox - {-# LINE 3549 "Order.hs" #-}) - -- copy rule (down) - _hdOo_wantvisit = - ({-# LINE 95 "Order.ag" #-} - _lhsIo_wantvisit - {-# LINE 3554 "Order.hs" #-}) - -- copy rule (down) - _hdOprefix = - ({-# LINE 98 "Order.ag" #-} - _lhsIprefix - {-# LINE 3559 "Order.hs" #-}) - -- copy rule (down) - _hdOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 3564 "Order.hs" #-}) - -- copy rule (down) - _hdOvcount = - ({-# LINE 238 "Order.ag" #-} - _lhsIvcount - {-# LINE 3569 "Order.hs" #-}) - -- copy rule (down) - _tlOallnts = - ({-# LINE 570 "Order.ag" #-} - _lhsIallnts - {-# LINE 3574 "Order.hs" #-}) - -- copy rule (down) - _tlOaroundMap = - ({-# LINE 344 "Order.ag" #-} - _lhsIaroundMap - {-# LINE 3579 "Order.hs" #-}) - -- copy rule (down) - _tlOcVisitsMap = - ({-# LINE 525 "Order.ag" #-} - _lhsIcVisitsMap - {-# LINE 3584 "Order.hs" #-}) - -- copy rule (down) - _tlOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 3589 "Order.hs" #-}) - -- copy rule (down) - _tlOmanualAttrDepMap = - ({-# LINE 263 "Order.ag" #-} - _lhsImanualAttrDepMap - {-# LINE 3594 "Order.hs" #-}) - -- copy rule (down) - _tlOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 3599 "Order.hs" #-}) - -- copy rule (down) - _tlOo_case = - ({-# LINE 97 "Order.ag" #-} - _lhsIo_case - {-# LINE 3604 "Order.hs" #-}) - -- copy rule (down) - _tlOo_cata = - ({-# LINE 91 "Order.ag" #-} - _lhsIo_cata - {-# LINE 3609 "Order.hs" #-}) - -- copy rule (down) - _tlOo_dovisit = - ({-# LINE 96 "Order.ag" #-} - _lhsIo_dovisit - {-# LINE 3614 "Order.hs" #-}) - -- copy rule (down) - _tlOo_newtypes = - ({-# LINE 90 "Order.ag" #-} - _lhsIo_newtypes - {-# LINE 3619 "Order.hs" #-}) - -- copy rule (down) - _tlOo_rename = - ({-# LINE 94 "Order.ag" #-} - _lhsIo_rename - {-# LINE 3624 "Order.hs" #-}) - -- copy rule (down) - _tlOo_sem = - ({-# LINE 93 "Order.ag" #-} - _lhsIo_sem - {-# LINE 3629 "Order.hs" #-}) - -- copy rule (down) - _tlOo_sig = - ({-# LINE 92 "Order.ag" #-} - _lhsIo_sig - {-# LINE 3634 "Order.hs" #-}) - -- copy rule (down) - _tlOo_unbox = - ({-# LINE 99 "Order.ag" #-} - _lhsIo_unbox - {-# LINE 3639 "Order.hs" #-}) - -- copy rule (down) - _tlOo_wantvisit = - ({-# LINE 95 "Order.ag" #-} - _lhsIo_wantvisit - {-# LINE 3644 "Order.hs" #-}) - -- copy rule (down) - _tlOprefix = - ({-# LINE 98 "Order.ag" #-} - _lhsIprefix - {-# LINE 3649 "Order.hs" #-}) - -- copy rule (down) - _tlOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 3654 "Order.hs" #-}) - -- copy rule (chain) - _tlOvcount = - ({-# LINE 238 "Order.ag" #-} - _hdIvcount - {-# LINE 3659 "Order.hs" #-}) - ( _hdIadditionalDep,_hdIaroundDep,_hdIcProduction,_hdIcons,_hdIdirectDep,_hdIerrors,_hdIinstDep,_hdIrules,_hdIvcount) = - (hd_ _hdOallnts _hdOaroundMap _hdOcVisitsMap _hdOinh _hdOmanualAttrDepMap _hdOnt _hdOo_case _hdOo_cata _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_unbox _hdOo_wantvisit _hdOprefix _hdOsyn _hdOvcount ) - ( _tlIadditionalDep,_tlIaroundDep,_tlIcProductions,_tlIcons,_tlIdirectDep,_tlIerrors,_tlIinstDep,_tlIrules,_tlIvcount) = - (tl_ _tlOallnts _tlOaroundMap _tlOcVisitsMap _tlOinh _tlOmanualAttrDepMap _tlOnt _tlOo_case _tlOo_cata _tlOo_dovisit _tlOo_newtypes _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_unbox _tlOo_wantvisit _tlOprefix _tlOsyn _tlOvcount ) - in ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProductions,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOrules,_lhsOvcount))) ) -sem_Productions_Nil :: T_Productions -sem_Productions_Nil = - (T_Productions (\ _lhsIallnts - _lhsIaroundMap - _lhsIcVisitsMap - _lhsIinh - _lhsImanualAttrDepMap - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_dovisit - _lhsIo_newtypes - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_unbox - _lhsIo_wantvisit - _lhsIprefix - _lhsIsyn - _lhsIvcount -> - (let _lhsOcProductions :: CProductions - _lhsOadditionalDep :: (Seq Edge) - _lhsOaroundDep :: (Seq Edge) - _lhsOcons :: ([ConstructorIdent]) - _lhsOdirectDep :: (Seq Edge) - _lhsOerrors :: (Seq Error) - _lhsOinstDep :: (Seq Edge) - _lhsOrules :: (Seq (Vertex,CRule)) - _lhsOvcount :: Int - -- "Order.ag"(line 551, column 12) - _lhsOcProductions = - ({-# LINE 551 "Order.ag" #-} - [] - {-# LINE 3698 "Order.hs" #-}) - -- use rule "Order.ag"(line 263, column 60) - _lhsOadditionalDep = - ({-# LINE 263 "Order.ag" #-} - Seq.empty - {-# LINE 3703 "Order.hs" #-}) - -- use rule "Order.ag"(line 338, column 24) - _lhsOaroundDep = - ({-# LINE 338 "Order.ag" #-} - Seq.empty - {-# LINE 3708 "Order.hs" #-}) - -- use rule "Order.ag"(line 445, column 40) - _lhsOcons = - ({-# LINE 445 "Order.ag" #-} - [] - {-# LINE 3713 "Order.hs" #-}) - -- use rule "Order.ag"(line 249, column 33) - _lhsOdirectDep = - ({-# LINE 249 "Order.ag" #-} - Seq.empty - {-# LINE 3718 "Order.hs" #-}) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - Seq.empty - {-# LINE 3723 "Order.hs" #-}) - -- use rule "Order.ag"(line 292, column 31) - _lhsOinstDep = - ({-# LINE 292 "Order.ag" #-} - Seq.empty - {-# LINE 3728 "Order.hs" #-}) - -- use rule "Order.ag"(line 239, column 18) - _lhsOrules = - ({-# LINE 239 "Order.ag" #-} - Seq.empty - {-# LINE 3733 "Order.hs" #-}) - -- copy rule (chain) - _lhsOvcount = - ({-# LINE 238 "Order.ag" #-} - _lhsIvcount - {-# LINE 3738 "Order.hs" #-}) - in ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProductions,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOrules,_lhsOvcount))) ) --- Rule -------------------------------------------------------- -{- - visit 0: - inherited attributes: - allTypeSigs : Map Identifier Type - allfields : [(Identifier,Type,Bool)] - allnts : [Identifier] - altAttrs : Map AltAttr Vertex - attrs : [(Identifier,Identifier)] - childInhs : Map Identifier Attributes - childNts : Map Identifier NontermIdent - con : Identifier - inh : Attributes - inhsOfChildren : Map Identifier Attributes - nt : Identifier - o_case : Bool - o_cata : Bool - o_dovisit : Bool - o_newtypes : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_wantvisit : Bool - prefix : String - syn : Attributes - synsOfChildren : Map Identifier Attributes - synthesized attributes: - directDep : Seq Edge - errors : Seq Error - gathAltAttrs : [AltAttr] - gathRules : Seq CRule - instDep : Seq Edge - instVars : [Identifier] - locVars : [Identifier] - alternatives: - alternative Rule: - child mbName : {Maybe Identifier} - child pattern : Pattern - child rhs : Expression - child owrt : {Bool} - child origin : {String} - child explicit : {Bool} - visit 0: - local defines : _ - local gathRules : _ - local instDep1 : _ - local instDep2 : _ --} --- cata -sem_Rule :: Rule -> - T_Rule -sem_Rule (Rule _mbName _pattern _rhs _owrt _origin _explicit ) = - (sem_Rule_Rule _mbName (sem_Pattern _pattern ) (sem_Expression _rhs ) _owrt _origin _explicit ) --- semantic domain -newtype T_Rule = T_Rule ((Map Identifier Type) -> - ([(Identifier,Type,Bool)]) -> - ([Identifier]) -> - (Map AltAttr Vertex) -> - ([(Identifier,Identifier)]) -> - (Map Identifier Attributes) -> - (Map Identifier NontermIdent) -> - Identifier -> - Attributes -> - (Map Identifier Attributes) -> - Identifier -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - String -> - Attributes -> - (Map Identifier Attributes) -> - ( (Seq Edge),(Seq Error),([AltAttr]),(Seq CRule),(Seq Edge),([Identifier]),([Identifier]))) -data Inh_Rule = Inh_Rule {allTypeSigs_Inh_Rule :: !((Map Identifier Type)),allfields_Inh_Rule :: !(([(Identifier,Type,Bool)])),allnts_Inh_Rule :: !(([Identifier])),altAttrs_Inh_Rule :: !((Map AltAttr Vertex)),attrs_Inh_Rule :: !(([(Identifier,Identifier)])),childInhs_Inh_Rule :: !((Map Identifier Attributes)),childNts_Inh_Rule :: !((Map Identifier NontermIdent)),con_Inh_Rule :: !(Identifier),inh_Inh_Rule :: !(Attributes),inhsOfChildren_Inh_Rule :: !((Map Identifier Attributes)),nt_Inh_Rule :: !(Identifier),o_case_Inh_Rule :: !(Bool),o_cata_Inh_Rule :: !(Bool),o_dovisit_Inh_Rule :: !(Bool),o_newtypes_Inh_Rule :: !(Bool),o_rename_Inh_Rule :: !(Bool),o_sem_Inh_Rule :: !(Bool),o_sig_Inh_Rule :: !(Bool),o_wantvisit_Inh_Rule :: !(Bool),prefix_Inh_Rule :: !(String),syn_Inh_Rule :: !(Attributes),synsOfChildren_Inh_Rule :: !((Map Identifier Attributes))} -data Syn_Rule = Syn_Rule {directDep_Syn_Rule :: !((Seq Edge)),errors_Syn_Rule :: !((Seq Error)),gathAltAttrs_Syn_Rule :: !(([AltAttr])),gathRules_Syn_Rule :: !((Seq CRule)),instDep_Syn_Rule :: !((Seq Edge)),instVars_Syn_Rule :: !(([Identifier])),locVars_Syn_Rule :: !(([Identifier]))} -wrap_Rule :: T_Rule -> - Inh_Rule -> - Syn_Rule -wrap_Rule (T_Rule sem ) (Inh_Rule _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren ) = - (let ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars) = - (sem _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren ) - in (Syn_Rule _lhsOdirectDep _lhsOerrors _lhsOgathAltAttrs _lhsOgathRules _lhsOinstDep _lhsOinstVars _lhsOlocVars )) -sem_Rule_Rule :: (Maybe Identifier) -> - T_Pattern -> - T_Expression -> - Bool -> - String -> - Bool -> - T_Rule -sem_Rule_Rule mbName_ (T_Pattern pattern_ ) (T_Expression rhs_ ) owrt_ origin_ explicit_ = - (T_Rule (\ _lhsIallTypeSigs - _lhsIallfields - _lhsIallnts - _lhsIaltAttrs - _lhsIattrs - _lhsIchildInhs - _lhsIchildNts - _lhsIcon - _lhsIinh - _lhsIinhsOfChildren - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_dovisit - _lhsIo_newtypes - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_wantvisit - _lhsIprefix - _lhsIsyn - _lhsIsynsOfChildren -> - (let _lhsOdirectDep :: (Seq Edge) - _lhsOinstDep :: (Seq Edge) - _lhsOerrors :: (Seq Error) - _lhsOgathAltAttrs :: ([AltAttr]) - _lhsOgathRules :: (Seq CRule) - _lhsOinstVars :: ([Identifier]) - _lhsOlocVars :: ([Identifier]) - _patternOallTypeSigs :: (Map Identifier Type) - _patternOaltAttrs :: (Map AltAttr Vertex) - _patternOcon :: Identifier - _patternOinh :: Attributes - _patternOnt :: Identifier - _patternOsyn :: Attributes - _rhsOallfields :: ([(Identifier,Type,Bool)]) - _rhsOallnts :: ([Identifier]) - _rhsOattrs :: ([(Identifier,Identifier)]) - _rhsOcon :: Identifier - _rhsOnt :: Identifier - _patternIcopy :: Pattern - _patternIerrors :: (Seq Error) - _patternIgathAltAttrs :: ([AltAttr]) - _patternIinstVars :: ([Identifier]) - _patternIlocVars :: ([Identifier]) - _patternIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) - _rhsIallRhsVars :: (Set (Identifier,Identifier)) - _rhsIcopy :: Expression - _rhsIerrors :: (Seq Error) - _rhsItextLines :: ([String]) - _rhsIusedAttrs :: ([(Identifier,Identifier)]) - _rhsIusedFields :: ([Identifier]) - _rhsIusedLocals :: ([Identifier]) - -- "Order.ag"(line 197, column 12) - _defines = - ({-# LINE 197 "Order.ag" #-} - let tp field attr parts | field == _LOC || field == _INST - = case parts of - [] -> Map.lookup attr _lhsIallTypeSigs - _ -> (sequence (map typ parts)) >>= (haskellTupel . map (substSelf _lhsInt)) - | field == _LHS = Map.lookup attr _lhsIsyn - | otherwise = Map.lookup attr (findWithErr1 "Rule.defines.tp" field _lhsIchildInhs) - typ :: Pattern -> Maybe Type - typ (Alias field attr _ parts) = tp field attr parts - typ (Underscore _) = Nothing - typ (Product _ pats) = tp _LOC undefined pats - typ _ = Nothing - in Map.fromList [ (findWithErr1 "Rule.defines" aa _lhsIaltAttrs, (field,attr,(tp field attr parts))) - | (field,attr,isLocalOrInst,parts) <- _patternIpatternAttrs - , let aa = AltAttr field attr isLocalOrInst - ] - {-# LINE 3905 "Order.hs" #-}) - -- "Order.ag"(line 213, column 12) - _gathRules = - ({-# LINE 213 "Order.ag" #-} - let childnt field = Map.lookup field _lhsIchildNts - in Seq.fromList [ CRule attr False True _lhsInt _lhsIcon field (childnt field) tp _patternIcopy _rhsItextLines _defines owrt_ origin_ _rhsIallRhsVars explicit_ mbName_ - | (field,attr,tp) <- Map.elems _defines - ] - {-# LINE 3913 "Order.hs" #-}) - -- "Order.ag"(line 251, column 12) - _lhsOdirectDep = - ({-# LINE 251 "Order.ag" #-} - let defined = Map.keys _defines - used = [ Map.lookup (AltAttr field attr True) _lhsIaltAttrs | (field,attr) <- _rhsIusedAttrs] - ++ [ Map.lookup (AltAttr _LOC attr True) _lhsIaltAttrs | attr <- _rhsIusedLocals ++ _rhsIusedFields ] - in Seq.fromList [ (x,y) | Just x <- used, y <- defined ] - {-# LINE 3921 "Order.hs" #-}) - -- "Order.ag"(line 295, column 6) - _instDep1 = - ({-# LINE 295 "Order.ag" #-} - Seq.fromList $ - [ (instVert, synVert) - | (field,instNm,_) <- Map.elems _defines - , field == _INST - , synNm <- Map.keys (findWithErr2 instNm _lhsIsynsOfChildren) - , let instAttr = AltAttr _INST instNm True - synAttr = AltAttr instNm synNm True - instVert = findWithErr2 instAttr _lhsIaltAttrs - synVert = findWithErr2 synAttr _lhsIaltAttrs - ] - {-# LINE 3935 "Order.hs" #-}) - -- "Order.ag"(line 306, column 6) - _instDep2 = - ({-# LINE 306 "Order.ag" #-} - Seq.fromList $ - [ (instVert, inhVert) - | (field,instNm,_) <- Map.elems _defines - , field == _INST - , inhNm <- Map.keys (findWithErr2 instNm _lhsIinhsOfChildren) - , let instAttr = AltAttr _INST instNm True - inhAttr = AltAttr instNm inhNm False - instVert = findWithErr2 instAttr _lhsIaltAttrs - inhVert = findWithErr2 inhAttr _lhsIaltAttrs - ] - {-# LINE 3949 "Order.hs" #-}) - -- "Order.ag"(line 317, column 6) - _lhsOinstDep = - ({-# LINE 317 "Order.ag" #-} - _instDep1 Seq.>< _instDep2 - {-# LINE 3954 "Order.hs" #-}) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - _patternIerrors Seq.>< _rhsIerrors - {-# LINE 3959 "Order.hs" #-}) - -- use rule "Order.ag"(line 150, column 68) - _lhsOgathAltAttrs = - ({-# LINE 150 "Order.ag" #-} - _patternIgathAltAttrs - {-# LINE 3964 "Order.hs" #-}) - -- use rule "Order.ag"(line 186, column 23) - _lhsOgathRules = - ({-# LINE 186 "Order.ag" #-} - _gathRules - {-# LINE 3969 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 86) - _lhsOinstVars = - ({-# LINE 600 "Order.ag" #-} - _patternIinstVars - {-# LINE 3974 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 48) - _lhsOlocVars = - ({-# LINE 600 "Order.ag" #-} - _patternIlocVars - {-# LINE 3979 "Order.hs" #-}) - -- copy rule (down) - _patternOallTypeSigs = - ({-# LINE 458 "Order.ag" #-} - _lhsIallTypeSigs - {-# LINE 3984 "Order.hs" #-}) - -- copy rule (down) - _patternOaltAttrs = - ({-# LINE 166 "Order.ag" #-} - _lhsIaltAttrs - {-# LINE 3989 "Order.hs" #-}) - -- copy rule (down) - _patternOcon = - ({-# LINE 70 "Order.ag" #-} - _lhsIcon - {-# LINE 3994 "Order.hs" #-}) - -- copy rule (down) - _patternOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 3999 "Order.hs" #-}) - -- copy rule (down) - _patternOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 4004 "Order.hs" #-}) - -- copy rule (down) - _patternOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 4009 "Order.hs" #-}) - -- copy rule (down) - _rhsOallfields = - ({-# LINE 382 "Order.ag" #-} - _lhsIallfields - {-# LINE 4014 "Order.hs" #-}) - -- copy rule (down) - _rhsOallnts = - ({-# LINE 383 "Order.ag" #-} - _lhsIallnts - {-# LINE 4019 "Order.hs" #-}) - -- copy rule (down) - _rhsOattrs = - ({-# LINE 384 "Order.ag" #-} - _lhsIattrs - {-# LINE 4024 "Order.hs" #-}) - -- copy rule (down) - _rhsOcon = - ({-# LINE 381 "Order.ag" #-} - _lhsIcon - {-# LINE 4029 "Order.hs" #-}) - -- copy rule (down) - _rhsOnt = - ({-# LINE 381 "Order.ag" #-} - _lhsInt - {-# LINE 4034 "Order.hs" #-}) - ( _patternIcopy,_patternIerrors,_patternIgathAltAttrs,_patternIinstVars,_patternIlocVars,_patternIpatternAttrs) = - (pattern_ _patternOallTypeSigs _patternOaltAttrs _patternOcon _patternOinh _patternOnt _patternOsyn ) - ( _rhsIallRhsVars,_rhsIcopy,_rhsIerrors,_rhsItextLines,_rhsIusedAttrs,_rhsIusedFields,_rhsIusedLocals) = - (rhs_ _rhsOallfields _rhsOallnts _rhsOattrs _rhsOcon _rhsOnt ) - in ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars))) ) --- Rules ------------------------------------------------------- -{- - visit 0: - inherited attributes: - allTypeSigs : Map Identifier Type - allfields : [(Identifier,Type,Bool)] - allnts : [Identifier] - altAttrs : Map AltAttr Vertex - attrs : [(Identifier,Identifier)] - childInhs : Map Identifier Attributes - childNts : Map Identifier NontermIdent - con : Identifier - inh : Attributes - inhsOfChildren : Map Identifier Attributes - nt : Identifier - o_case : Bool - o_cata : Bool - o_dovisit : Bool - o_newtypes : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_wantvisit : Bool - prefix : String - syn : Attributes - synsOfChildren : Map Identifier Attributes - synthesized attributes: - directDep : Seq Edge - errors : Seq Error - gathAltAttrs : [AltAttr] - gathRules : Seq CRule - instDep : Seq Edge - instVars : [Identifier] - locVars : [Identifier] - alternatives: - alternative Cons: - child hd : Rule - child tl : Rules - alternative Nil: --} --- cata -sem_Rules :: Rules -> - T_Rules -sem_Rules list = - (Prelude.foldr sem_Rules_Cons sem_Rules_Nil (Prelude.map sem_Rule list) ) --- semantic domain -newtype T_Rules = T_Rules ((Map Identifier Type) -> - ([(Identifier,Type,Bool)]) -> - ([Identifier]) -> - (Map AltAttr Vertex) -> - ([(Identifier,Identifier)]) -> - (Map Identifier Attributes) -> - (Map Identifier NontermIdent) -> - Identifier -> - Attributes -> - (Map Identifier Attributes) -> - Identifier -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - String -> - Attributes -> - (Map Identifier Attributes) -> - ( (Seq Edge),(Seq Error),([AltAttr]),(Seq CRule),(Seq Edge),([Identifier]),([Identifier]))) -data Inh_Rules = Inh_Rules {allTypeSigs_Inh_Rules :: !((Map Identifier Type)),allfields_Inh_Rules :: !(([(Identifier,Type,Bool)])),allnts_Inh_Rules :: !(([Identifier])),altAttrs_Inh_Rules :: !((Map AltAttr Vertex)),attrs_Inh_Rules :: !(([(Identifier,Identifier)])),childInhs_Inh_Rules :: !((Map Identifier Attributes)),childNts_Inh_Rules :: !((Map Identifier NontermIdent)),con_Inh_Rules :: !(Identifier),inh_Inh_Rules :: !(Attributes),inhsOfChildren_Inh_Rules :: !((Map Identifier Attributes)),nt_Inh_Rules :: !(Identifier),o_case_Inh_Rules :: !(Bool),o_cata_Inh_Rules :: !(Bool),o_dovisit_Inh_Rules :: !(Bool),o_newtypes_Inh_Rules :: !(Bool),o_rename_Inh_Rules :: !(Bool),o_sem_Inh_Rules :: !(Bool),o_sig_Inh_Rules :: !(Bool),o_wantvisit_Inh_Rules :: !(Bool),prefix_Inh_Rules :: !(String),syn_Inh_Rules :: !(Attributes),synsOfChildren_Inh_Rules :: !((Map Identifier Attributes))} -data Syn_Rules = Syn_Rules {directDep_Syn_Rules :: !((Seq Edge)),errors_Syn_Rules :: !((Seq Error)),gathAltAttrs_Syn_Rules :: !(([AltAttr])),gathRules_Syn_Rules :: !((Seq CRule)),instDep_Syn_Rules :: !((Seq Edge)),instVars_Syn_Rules :: !(([Identifier])),locVars_Syn_Rules :: !(([Identifier]))} -wrap_Rules :: T_Rules -> - Inh_Rules -> - Syn_Rules -wrap_Rules (T_Rules sem ) (Inh_Rules _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren ) = - (let ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars) = - (sem _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren ) - in (Syn_Rules _lhsOdirectDep _lhsOerrors _lhsOgathAltAttrs _lhsOgathRules _lhsOinstDep _lhsOinstVars _lhsOlocVars )) -sem_Rules_Cons :: T_Rule -> - T_Rules -> - T_Rules -sem_Rules_Cons (T_Rule hd_ ) (T_Rules tl_ ) = - (T_Rules (\ _lhsIallTypeSigs - _lhsIallfields - _lhsIallnts - _lhsIaltAttrs - _lhsIattrs - _lhsIchildInhs - _lhsIchildNts - _lhsIcon - _lhsIinh - _lhsIinhsOfChildren - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_dovisit - _lhsIo_newtypes - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_wantvisit - _lhsIprefix - _lhsIsyn - _lhsIsynsOfChildren -> - (let _lhsOdirectDep :: (Seq Edge) - _lhsOerrors :: (Seq Error) - _lhsOgathAltAttrs :: ([AltAttr]) - _lhsOgathRules :: (Seq CRule) - _lhsOinstDep :: (Seq Edge) - _lhsOinstVars :: ([Identifier]) - _lhsOlocVars :: ([Identifier]) - _hdOallTypeSigs :: (Map Identifier Type) - _hdOallfields :: ([(Identifier,Type,Bool)]) - _hdOallnts :: ([Identifier]) - _hdOaltAttrs :: (Map AltAttr Vertex) - _hdOattrs :: ([(Identifier,Identifier)]) - _hdOchildInhs :: (Map Identifier Attributes) - _hdOchildNts :: (Map Identifier NontermIdent) - _hdOcon :: Identifier - _hdOinh :: Attributes - _hdOinhsOfChildren :: (Map Identifier Attributes) - _hdOnt :: Identifier - _hdOo_case :: Bool - _hdOo_cata :: Bool - _hdOo_dovisit :: Bool - _hdOo_newtypes :: Bool - _hdOo_rename :: Bool - _hdOo_sem :: Bool - _hdOo_sig :: Bool - _hdOo_wantvisit :: Bool - _hdOprefix :: String - _hdOsyn :: Attributes - _hdOsynsOfChildren :: (Map Identifier Attributes) - _tlOallTypeSigs :: (Map Identifier Type) - _tlOallfields :: ([(Identifier,Type,Bool)]) - _tlOallnts :: ([Identifier]) - _tlOaltAttrs :: (Map AltAttr Vertex) - _tlOattrs :: ([(Identifier,Identifier)]) - _tlOchildInhs :: (Map Identifier Attributes) - _tlOchildNts :: (Map Identifier NontermIdent) - _tlOcon :: Identifier - _tlOinh :: Attributes - _tlOinhsOfChildren :: (Map Identifier Attributes) - _tlOnt :: Identifier - _tlOo_case :: Bool - _tlOo_cata :: Bool - _tlOo_dovisit :: Bool - _tlOo_newtypes :: Bool - _tlOo_rename :: Bool - _tlOo_sem :: Bool - _tlOo_sig :: Bool - _tlOo_wantvisit :: Bool - _tlOprefix :: String - _tlOsyn :: Attributes - _tlOsynsOfChildren :: (Map Identifier Attributes) - _hdIdirectDep :: (Seq Edge) - _hdIerrors :: (Seq Error) - _hdIgathAltAttrs :: ([AltAttr]) - _hdIgathRules :: (Seq CRule) - _hdIinstDep :: (Seq Edge) - _hdIinstVars :: ([Identifier]) - _hdIlocVars :: ([Identifier]) - _tlIdirectDep :: (Seq Edge) - _tlIerrors :: (Seq Error) - _tlIgathAltAttrs :: ([AltAttr]) - _tlIgathRules :: (Seq CRule) - _tlIinstDep :: (Seq Edge) - _tlIinstVars :: ([Identifier]) - _tlIlocVars :: ([Identifier]) - -- use rule "Order.ag"(line 249, column 33) - _lhsOdirectDep = - ({-# LINE 249 "Order.ag" #-} - _hdIdirectDep Seq.>< _tlIdirectDep - {-# LINE 4213 "Order.hs" #-}) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 4218 "Order.hs" #-}) - -- use rule "Order.ag"(line 150, column 68) - _lhsOgathAltAttrs = - ({-# LINE 150 "Order.ag" #-} - _hdIgathAltAttrs ++ _tlIgathAltAttrs - {-# LINE 4223 "Order.hs" #-}) - -- use rule "Order.ag"(line 186, column 23) - _lhsOgathRules = - ({-# LINE 186 "Order.ag" #-} - _hdIgathRules Seq.>< _tlIgathRules - {-# LINE 4228 "Order.hs" #-}) - -- use rule "Order.ag"(line 292, column 31) - _lhsOinstDep = - ({-# LINE 292 "Order.ag" #-} - _hdIinstDep Seq.>< _tlIinstDep - {-# LINE 4233 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 86) - _lhsOinstVars = - ({-# LINE 600 "Order.ag" #-} - _hdIinstVars ++ _tlIinstVars - {-# LINE 4238 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 48) - _lhsOlocVars = - ({-# LINE 600 "Order.ag" #-} - _hdIlocVars ++ _tlIlocVars - {-# LINE 4243 "Order.hs" #-}) - -- copy rule (down) - _hdOallTypeSigs = - ({-# LINE 458 "Order.ag" #-} - _lhsIallTypeSigs - {-# LINE 4248 "Order.hs" #-}) - -- copy rule (down) - _hdOallfields = - ({-# LINE 577 "Order.ag" #-} - _lhsIallfields - {-# LINE 4253 "Order.hs" #-}) - -- copy rule (down) - _hdOallnts = - ({-# LINE 570 "Order.ag" #-} - _lhsIallnts - {-# LINE 4258 "Order.hs" #-}) - -- copy rule (down) - _hdOaltAttrs = - ({-# LINE 166 "Order.ag" #-} - _lhsIaltAttrs - {-# LINE 4263 "Order.hs" #-}) - -- copy rule (down) - _hdOattrs = - ({-# LINE 577 "Order.ag" #-} - _lhsIattrs - {-# LINE 4268 "Order.hs" #-}) - -- copy rule (down) - _hdOchildInhs = - ({-# LINE 179 "Order.ag" #-} - _lhsIchildInhs - {-# LINE 4273 "Order.hs" #-}) - -- copy rule (down) - _hdOchildNts = - ({-# LINE 178 "Order.ag" #-} - _lhsIchildNts - {-# LINE 4278 "Order.hs" #-}) - -- copy rule (down) - _hdOcon = - ({-# LINE 70 "Order.ag" #-} - _lhsIcon - {-# LINE 4283 "Order.hs" #-}) - -- copy rule (down) - _hdOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 4288 "Order.hs" #-}) - -- copy rule (down) - _hdOinhsOfChildren = - ({-# LINE 319 "Order.ag" #-} - _lhsIinhsOfChildren - {-# LINE 4293 "Order.hs" #-}) - -- copy rule (down) - _hdOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 4298 "Order.hs" #-}) - -- copy rule (down) - _hdOo_case = - ({-# LINE 97 "Order.ag" #-} - _lhsIo_case - {-# LINE 4303 "Order.hs" #-}) - -- copy rule (down) - _hdOo_cata = - ({-# LINE 91 "Order.ag" #-} - _lhsIo_cata - {-# LINE 4308 "Order.hs" #-}) - -- copy rule (down) - _hdOo_dovisit = - ({-# LINE 96 "Order.ag" #-} - _lhsIo_dovisit - {-# LINE 4313 "Order.hs" #-}) - -- copy rule (down) - _hdOo_newtypes = - ({-# LINE 90 "Order.ag" #-} - _lhsIo_newtypes - {-# LINE 4318 "Order.hs" #-}) - -- copy rule (down) - _hdOo_rename = - ({-# LINE 94 "Order.ag" #-} - _lhsIo_rename - {-# LINE 4323 "Order.hs" #-}) - -- copy rule (down) - _hdOo_sem = - ({-# LINE 93 "Order.ag" #-} - _lhsIo_sem - {-# LINE 4328 "Order.hs" #-}) - -- copy rule (down) - _hdOo_sig = - ({-# LINE 92 "Order.ag" #-} - _lhsIo_sig - {-# LINE 4333 "Order.hs" #-}) - -- copy rule (down) - _hdOo_wantvisit = - ({-# LINE 95 "Order.ag" #-} - _lhsIo_wantvisit - {-# LINE 4338 "Order.hs" #-}) - -- copy rule (down) - _hdOprefix = - ({-# LINE 98 "Order.ag" #-} - _lhsIprefix - {-# LINE 4343 "Order.hs" #-}) - -- copy rule (down) - _hdOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 4348 "Order.hs" #-}) - -- copy rule (down) - _hdOsynsOfChildren = - ({-# LINE 319 "Order.ag" #-} - _lhsIsynsOfChildren - {-# LINE 4353 "Order.hs" #-}) - -- copy rule (down) - _tlOallTypeSigs = - ({-# LINE 458 "Order.ag" #-} - _lhsIallTypeSigs - {-# LINE 4358 "Order.hs" #-}) - -- copy rule (down) - _tlOallfields = - ({-# LINE 577 "Order.ag" #-} - _lhsIallfields - {-# LINE 4363 "Order.hs" #-}) - -- copy rule (down) - _tlOallnts = - ({-# LINE 570 "Order.ag" #-} - _lhsIallnts - {-# LINE 4368 "Order.hs" #-}) - -- copy rule (down) - _tlOaltAttrs = - ({-# LINE 166 "Order.ag" #-} - _lhsIaltAttrs - {-# LINE 4373 "Order.hs" #-}) - -- copy rule (down) - _tlOattrs = - ({-# LINE 577 "Order.ag" #-} - _lhsIattrs - {-# LINE 4378 "Order.hs" #-}) - -- copy rule (down) - _tlOchildInhs = - ({-# LINE 179 "Order.ag" #-} - _lhsIchildInhs - {-# LINE 4383 "Order.hs" #-}) - -- copy rule (down) - _tlOchildNts = - ({-# LINE 178 "Order.ag" #-} - _lhsIchildNts - {-# LINE 4388 "Order.hs" #-}) - -- copy rule (down) - _tlOcon = - ({-# LINE 70 "Order.ag" #-} - _lhsIcon - {-# LINE 4393 "Order.hs" #-}) - -- copy rule (down) - _tlOinh = - ({-# LINE 69 "Order.ag" #-} - _lhsIinh - {-# LINE 4398 "Order.hs" #-}) - -- copy rule (down) - _tlOinhsOfChildren = - ({-# LINE 319 "Order.ag" #-} - _lhsIinhsOfChildren - {-# LINE 4403 "Order.hs" #-}) - -- copy rule (down) - _tlOnt = - ({-# LINE 69 "Order.ag" #-} - _lhsInt - {-# LINE 4408 "Order.hs" #-}) - -- copy rule (down) - _tlOo_case = - ({-# LINE 97 "Order.ag" #-} - _lhsIo_case - {-# LINE 4413 "Order.hs" #-}) - -- copy rule (down) - _tlOo_cata = - ({-# LINE 91 "Order.ag" #-} - _lhsIo_cata - {-# LINE 4418 "Order.hs" #-}) - -- copy rule (down) - _tlOo_dovisit = - ({-# LINE 96 "Order.ag" #-} - _lhsIo_dovisit - {-# LINE 4423 "Order.hs" #-}) - -- copy rule (down) - _tlOo_newtypes = - ({-# LINE 90 "Order.ag" #-} - _lhsIo_newtypes - {-# LINE 4428 "Order.hs" #-}) - -- copy rule (down) - _tlOo_rename = - ({-# LINE 94 "Order.ag" #-} - _lhsIo_rename - {-# LINE 4433 "Order.hs" #-}) - -- copy rule (down) - _tlOo_sem = - ({-# LINE 93 "Order.ag" #-} - _lhsIo_sem - {-# LINE 4438 "Order.hs" #-}) - -- copy rule (down) - _tlOo_sig = - ({-# LINE 92 "Order.ag" #-} - _lhsIo_sig - {-# LINE 4443 "Order.hs" #-}) - -- copy rule (down) - _tlOo_wantvisit = - ({-# LINE 95 "Order.ag" #-} - _lhsIo_wantvisit - {-# LINE 4448 "Order.hs" #-}) - -- copy rule (down) - _tlOprefix = - ({-# LINE 98 "Order.ag" #-} - _lhsIprefix - {-# LINE 4453 "Order.hs" #-}) - -- copy rule (down) - _tlOsyn = - ({-# LINE 69 "Order.ag" #-} - _lhsIsyn - {-# LINE 4458 "Order.hs" #-}) - -- copy rule (down) - _tlOsynsOfChildren = - ({-# LINE 319 "Order.ag" #-} - _lhsIsynsOfChildren - {-# LINE 4463 "Order.hs" #-}) - ( _hdIdirectDep,_hdIerrors,_hdIgathAltAttrs,_hdIgathRules,_hdIinstDep,_hdIinstVars,_hdIlocVars) = - (hd_ _hdOallTypeSigs _hdOallfields _hdOallnts _hdOaltAttrs _hdOattrs _hdOchildInhs _hdOchildNts _hdOcon _hdOinh _hdOinhsOfChildren _hdOnt _hdOo_case _hdOo_cata _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_wantvisit _hdOprefix _hdOsyn _hdOsynsOfChildren ) - ( _tlIdirectDep,_tlIerrors,_tlIgathAltAttrs,_tlIgathRules,_tlIinstDep,_tlIinstVars,_tlIlocVars) = - (tl_ _tlOallTypeSigs _tlOallfields _tlOallnts _tlOaltAttrs _tlOattrs _tlOchildInhs _tlOchildNts _tlOcon _tlOinh _tlOinhsOfChildren _tlOnt _tlOo_case _tlOo_cata _tlOo_dovisit _tlOo_newtypes _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_wantvisit _tlOprefix _tlOsyn _tlOsynsOfChildren ) - in ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars))) ) -sem_Rules_Nil :: T_Rules -sem_Rules_Nil = - (T_Rules (\ _lhsIallTypeSigs - _lhsIallfields - _lhsIallnts - _lhsIaltAttrs - _lhsIattrs - _lhsIchildInhs - _lhsIchildNts - _lhsIcon - _lhsIinh - _lhsIinhsOfChildren - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_dovisit - _lhsIo_newtypes - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_wantvisit - _lhsIprefix - _lhsIsyn - _lhsIsynsOfChildren -> - (let _lhsOdirectDep :: (Seq Edge) - _lhsOerrors :: (Seq Error) - _lhsOgathAltAttrs :: ([AltAttr]) - _lhsOgathRules :: (Seq CRule) - _lhsOinstDep :: (Seq Edge) - _lhsOinstVars :: ([Identifier]) - _lhsOlocVars :: ([Identifier]) - -- use rule "Order.ag"(line 249, column 33) - _lhsOdirectDep = - ({-# LINE 249 "Order.ag" #-} - Seq.empty - {-# LINE 4504 "Order.hs" #-}) - -- use rule "Order.ag"(line 64, column 70) - _lhsOerrors = - ({-# LINE 64 "Order.ag" #-} - Seq.empty - {-# LINE 4509 "Order.hs" #-}) - -- use rule "Order.ag"(line 150, column 68) - _lhsOgathAltAttrs = - ({-# LINE 150 "Order.ag" #-} - [] - {-# LINE 4514 "Order.hs" #-}) - -- use rule "Order.ag"(line 186, column 23) - _lhsOgathRules = - ({-# LINE 186 "Order.ag" #-} - Seq.empty - {-# LINE 4519 "Order.hs" #-}) - -- use rule "Order.ag"(line 292, column 31) - _lhsOinstDep = - ({-# LINE 292 "Order.ag" #-} - Seq.empty - {-# LINE 4524 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 86) - _lhsOinstVars = - ({-# LINE 600 "Order.ag" #-} - [] - {-# LINE 4529 "Order.hs" #-}) - -- use rule "Order.ag"(line 600, column 48) - _lhsOlocVars = - ({-# LINE 600 "Order.ag" #-} - [] - {-# LINE 4534 "Order.hs" #-}) - in ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars))) ) --- TypeSig ----------------------------------------------------- -{- - visit 0: - chained attribute: - typeSigs : Map Identifier Type - alternatives: - alternative TypeSig: - child name : {Identifier} - child tp : {Type} --} --- cata -sem_TypeSig :: TypeSig -> - T_TypeSig -sem_TypeSig (TypeSig _name _tp ) = - (sem_TypeSig_TypeSig _name _tp ) --- semantic domain -newtype T_TypeSig = T_TypeSig ((Map Identifier Type) -> - ( (Map Identifier Type))) -data Inh_TypeSig = Inh_TypeSig {typeSigs_Inh_TypeSig :: !((Map Identifier Type))} -data Syn_TypeSig = Syn_TypeSig {typeSigs_Syn_TypeSig :: !((Map Identifier Type))} -wrap_TypeSig :: T_TypeSig -> - Inh_TypeSig -> - Syn_TypeSig -wrap_TypeSig (T_TypeSig sem ) (Inh_TypeSig _lhsItypeSigs ) = - (let ( _lhsOtypeSigs) = - (sem _lhsItypeSigs ) - in (Syn_TypeSig _lhsOtypeSigs )) -sem_TypeSig_TypeSig :: Identifier -> - Type -> - T_TypeSig -sem_TypeSig_TypeSig name_ tp_ = - (T_TypeSig (\ _lhsItypeSigs -> - (let _lhsOtypeSigs :: (Map Identifier Type) - -- "Order.ag"(line 456, column 13) - _lhsOtypeSigs = - ({-# LINE 456 "Order.ag" #-} - Map.insert name_ tp_ _lhsItypeSigs - {-# LINE 4573 "Order.hs" #-}) - in ( _lhsOtypeSigs))) ) --- TypeSigs ---------------------------------------------------- -{- - visit 0: - chained attribute: - typeSigs : Map Identifier Type - alternatives: - alternative Cons: - child hd : TypeSig - child tl : TypeSigs - alternative Nil: --} --- cata -sem_TypeSigs :: TypeSigs -> - T_TypeSigs -sem_TypeSigs list = - (Prelude.foldr sem_TypeSigs_Cons sem_TypeSigs_Nil (Prelude.map sem_TypeSig list) ) --- semantic domain -newtype T_TypeSigs = T_TypeSigs ((Map Identifier Type) -> - ( (Map Identifier Type))) -data Inh_TypeSigs = Inh_TypeSigs {typeSigs_Inh_TypeSigs :: !((Map Identifier Type))} -data Syn_TypeSigs = Syn_TypeSigs {typeSigs_Syn_TypeSigs :: !((Map Identifier Type))} -wrap_TypeSigs :: T_TypeSigs -> - Inh_TypeSigs -> - Syn_TypeSigs -wrap_TypeSigs (T_TypeSigs sem ) (Inh_TypeSigs _lhsItypeSigs ) = - (let ( _lhsOtypeSigs) = - (sem _lhsItypeSigs ) - in (Syn_TypeSigs _lhsOtypeSigs )) -sem_TypeSigs_Cons :: T_TypeSig -> - T_TypeSigs -> - T_TypeSigs -sem_TypeSigs_Cons (T_TypeSig hd_ ) (T_TypeSigs tl_ ) = - (T_TypeSigs (\ _lhsItypeSigs -> - (let _lhsOtypeSigs :: (Map Identifier Type) - _hdOtypeSigs :: (Map Identifier Type) - _tlOtypeSigs :: (Map Identifier Type) - _hdItypeSigs :: (Map Identifier Type) - _tlItypeSigs :: (Map Identifier Type) - -- copy rule (up) - _lhsOtypeSigs = - ({-# LINE 452 "Order.ag" #-} - _tlItypeSigs - {-# LINE 4617 "Order.hs" #-}) - -- copy rule (down) - _hdOtypeSigs = - ({-# LINE 452 "Order.ag" #-} - _lhsItypeSigs - {-# LINE 4622 "Order.hs" #-}) - -- copy rule (chain) - _tlOtypeSigs = - ({-# LINE 452 "Order.ag" #-} - _hdItypeSigs - {-# LINE 4627 "Order.hs" #-}) - ( _hdItypeSigs) = - (hd_ _hdOtypeSigs ) - ( _tlItypeSigs) = - (tl_ _tlOtypeSigs ) - in ( _lhsOtypeSigs))) ) -sem_TypeSigs_Nil :: T_TypeSigs -sem_TypeSigs_Nil = - (T_TypeSigs (\ _lhsItypeSigs -> - (let _lhsOtypeSigs :: (Map Identifier Type) - -- copy rule (chain) - _lhsOtypeSigs = - ({-# LINE 452 "Order.ag" #-} - _lhsItypeSigs - {-# LINE 4641 "Order.hs" #-}) +-- UUAGC 0.9.21 (Order.ag) +module Order where +{-# LINE 9 "Order.ag" #-} + +-- From uuagc +import CommonTypes +import Patterns +import ErrorMessages +import AbstractSyntax +import Code hiding (Type) +import qualified Code +import Expression +import Options +import SequentialComputation +import SequentialTypes +import CodeSyntax +import GrammarInfo +import HsToken(HsTokensRoot(HsTokensRoot)) +import HsTokenScanner(lexTokens) +import SemHsTokens(sem_HsTokensRoot,wrap_HsTokensRoot, Syn_HsTokensRoot(..),Inh_HsTokensRoot(..)) +-- From uulib +import qualified Data.Map as Map +import qualified Data.Set as Set +import qualified Data.Sequence as Seq +import Data.Map(Map) +import Data.Set(Set) +import Data.Sequence(Seq, (><)) +import UU.Util.Utils +import UU.Scanner.Position(Pos(..),initPos) +import Data.Foldable(toList) + +-- From haskell libraries +import Control.Monad(liftM) +import qualified Data.Array as Array +import Data.Array((!),bounds,inRange) +import Data.List(elemIndex,partition,sort,mapAccumL,find,nubBy,intersperse,groupBy,transpose) +import qualified Data.Tree as Tree +import Maybe +{-# LINE 42 "../src-derived/Order.hs" #-} + +{-# LINE 2 "./Patterns.ag" #-} + +-- Patterns.ag imports +import UU.Scanner.Position(Pos) +import CommonTypes (ConstructorIdent,Identifier) +{-# LINE 49 "../src-derived/Order.hs" #-} + +{-# LINE 2 "./Expression.ag" #-} + +import UU.Scanner.Position(Pos) +import HsToken +{-# LINE 55 "../src-derived/Order.hs" #-} + +{-# LINE 2 "./AbstractSyntax.ag" #-} + +-- AbstractSyntax.ag imports +import Data.Set(Set) +import Data.Map(Map) +import Patterns (Pattern(..),Patterns) +import Expression (Expression(..)) +import CommonTypes +{-# LINE 65 "../src-derived/Order.hs" #-} +{-# LINE 46 "Order.ag" #-} + +-- Terminates with an error if the key is not in the map +findWithErr1 :: (Ord k, Show k) => String -> k -> Map k a -> a +findWithErr1 s k + = Map.findWithDefault (error ("findWithErr1 " ++ s ++ ": key " ++ show k ++ " not in map.")) k + +findWithErr2 :: (Ord k, Show k, Show a) => k -> Map k a -> a +findWithErr2 k m + = Map.findWithDefault (error ("findWithErr2: key " ++ show k ++ " not in map: " ++ show m)) k m +{-# LINE 76 "../src-derived/Order.hs" #-} + +{-# LINE 71 "Order.ag" #-} + +startsWith :: String -> String -> Bool +startsWith k h = k == take (length k) h +{-# LINE 82 "../src-derived/Order.hs" #-} + +{-# LINE 138 "Order.ag" #-} + +getNtName :: Type -> NontermIdent +getNtName (NT nt _) = maybe nt id (deforestedNt nt) +getNtName _ = nullIdent +{-# LINE 89 "../src-derived/Order.hs" #-} + +{-# LINE 166 "Order.ag" #-} + +data AltAttr = AltAttr Identifier Identifier Bool + deriving (Eq, Ord, Show) +{-# LINE 95 "../src-derived/Order.hs" #-} + +{-# LINE 238 "Order.ag" #-} + +substSelf nt tp + = case tp of + NT n tps | n == _SELF -> NT nt tps + _ -> tp + +haskellTupel :: [Type] -> Maybe Type +haskellTupel ts = Just ( Haskell ( '(' : (concat (intersperse "," (map show ts))) ++ ")" )) +{-# LINE 106 "../src-derived/Order.hs" #-} + +{-# LINE 630 "Order.ag" #-} + +swap (a,b) = (b,a) + +showPath :: Table CRule -> [Vertex] -> [String] +showPath ruleTable path + = let look a | inRange (bounds ruleTable) a = [showOrigin (ruleTable ! a)] + | otherwise = ["Vertex " ++ show a] + showOrigin cr | getHasCode cr && getName (getAttr cr) /= "self" = prettyCRule cr ++ " (" ++ show (getPos (getAttr cr)) ++ ")" + | otherwise = prettyCRule cr + in concatMap look path + + +showPathLocal :: Table CRule -> [Vertex] -> [String] +showPathLocal _ [] = [] +showPathLocal ruleTable xs = showP (xs++[-1]) + where showP [] = [] + showP (v1:v2:vs) = let line = step v1 v2 + lines = showP vs + in line:lines + step v1 v2 = " - " ++ a1 + where r1 = ruleTable ! v1 + a1 = show (getAttr r1) + + +limitTo :: Int -> [String] -> [String] +limitTo _ [] = [] +limitTo 0 _ = ["....etcetera, etcetera...."] +limitTo n (x:xs) = x : limitTo (n-1) xs + +showPathNice :: Table CRule -> [Vertex] -> [String] +showPathNice _ [] = [] +showPathNice ruleTable xs = limitTo 100 (showP ((-1):xs++[-1])) + where [maxf, maxa, maxn, maxc] = maxWidths ruleTable (take 100 xs) + showP [] = [] + showP (v1:v2:vs) = let line = step v1 v2 + lines = showP vs + in if null line then lines else line:lines + step v1 v2 | last && first = induced + | last && isSyn r1 = "pass up " ++ alignR maxf "" ++ " " ++ alignL maxa a1 ++ " in " ++ alignR maxn n1 ++ "|" ++ c1 ++ induced + | first&& not(isSyn r2) = "get from above " ++ alignR maxf "" ++ " " ++ alignL maxa a2 ++ " in " ++ alignR maxn n2 ++ "|" ++ c2 + | last = "pass down " ++ alignR maxf f1 ++ "." ++ a1 ++ induced + | isSyn r2 = "get from below " ++ alignR maxf f2 ++ "." ++ alignL maxa a2 ++ " in " ++ alignR maxn n2 ++ "|" ++ c2 + | isLocal r1 = if head a1 == '_' + then "" + else "calculate " ++ alignR maxf "loc" ++ "." ++ a1 + | otherwise = "pass down " ++ alignR maxf f1 ++ "." ++ alignL maxa a1 ++ " to " ++ alignR maxn n2 ++ "|" ++ c2 + where + first = v1<0 + last = v2<0 + r1 = ruleTable ! v1 + r2 = ruleTable ! v2 + a1 = show (getAttr r1) + a2 = show (getAttr r2) + f1 = show (getField r1) + f2 = show (getField r2) + n1 = show (getLhsNt r1) + n2 = show (getLhsNt r2) + c1 = show (getCon r1) + c2 = show (getCon r2) + induced | v2== -2 = " INDUCED dependency to " + | otherwise = "" + + +maxWidths ruleTable vs + = map maximum (transpose (map getWidth vs)) + where getWidth v | v<0 = [0,0,0,0] + | otherwise = map (length . show . ($ (ruleTable!v))) [getField, getAttr, getLhsNt, getCon] + +alignL n xs | k Bool -> Route -> Error +localCycleErr ruleTable o_visit (s:path) + = let cr = ruleTable ! s + attr = getAttr cr + nt = getLhsNt cr + con = getCon cr + in LocalCirc nt con attr o_visit (showPathLocal ruleTable path) + +instCycleErr :: Table CRule -> Bool -> Route -> Error +instCycleErr ruleTable o_visit (s:path) + = let cr = ruleTable ! s + attr = getAttr cr + nt = getLhsNt cr + con = getCon cr + in InstCirc nt con attr o_visit (showPathLocal ruleTable path) + +directCycleErrs :: Table NTAttr -> Table CRule -> Bool -> [EdgeRoutes] -> [Error] +directCycleErrs attrTable ruleTable o_visit xs + = let getNont v = case attrTable ! v of + NTASyn nt _ _ -> nt + NTAInh nt _ _ -> nt + getAttr v = case attrTable ! v of + NTASyn _ a _ -> a + NTAInh _ a _ -> a + sameNont ((v1,_),_,_) ((v2,_),_,_) = getNont v1 == getNont v2 + procCycle ((v1,v2),p1,p2) = ((getAttr v1, getAttr v2), showPathNice ruleTable p1, showPathNice ruleTable p2) + wrapGroup gr@(((v1,_),_,_):_) = DirectCirc (getNont v1) o_visit (map procCycle gr) + in map wrapGroup (groupBy sameNont xs) + +inducedCycleErrs :: Table NTAttr -> Table CRule -> CInterfaceMap -> [EdgeRoutes] -> [Error] +inducedCycleErrs attrTable ruleTable cim xs + = let getNont v = case attrTable ! v of + NTASyn nt _ _ -> nt + NTAInh nt _ _ -> nt + getAttr v = case attrTable ! v of + NTASyn _ a _ -> a + NTAInh _ a _ -> a + sameNont ((v1,_),_,_) ((v2,_),_,_) = getNont v1 == getNont v2 + procCycle ((v1,v2),p1,p2) = ((getAttr v1, getAttr v2), showPathNice ruleTable p1, showPathNice ruleTable p2) + wrapGroup gr@(((v1,_),_,_):_) = InducedCirc (getNont v1) (findWithErr1 "inducedCycleErr.cinter" (getNont v1) cim) (map procCycle gr) + in map wrapGroup (groupBy sameNont xs) +{-# LINE 226 "../src-derived/Order.hs" #-} +-- Child ------------------------------------------------------- +{- + visit 0: + inherited attributes: + allfields : [(Identifier,Type,Maybe (Maybe Type))] + allnts : [Identifier] + attrs : [(Identifier,Identifier)] + con : Identifier + inh : Attributes + nt : Identifier + o_unbox : Bool + syn : Attributes + synthesized attributes: + attributes : [(Identifier,Attributes,Attributes)] + collectChildrenInhs : Map Identifier Attributes + collectChildrenSyns : Map Identifier Attributes + errors : Seq Error + field : (Identifier,Type,Maybe (Maybe Type)) + gathAltAttrs : [AltAttr] + gathRules : Seq CRule + inhs : Seq (Identifier,Attributes) + nts : Seq (Identifier,NontermIdent) + singlevisits : [CRule] + terminals : [Identifier] + alternatives: + alternative Child: + child name : {Identifier} + child tp : {Type} + child inh : {Attributes} + child syn : {Attributes} + child virtual : {Maybe (Maybe Type)} + visit 0: + local maptolocal : _ + local gathRules : _ +-} +-- cata +sem_Child :: Child -> + T_Child +sem_Child (Child _name _tp _inh _syn _virtual ) = + (sem_Child_Child _name _tp _inh _syn _virtual ) +-- semantic domain +newtype T_Child = T_Child (([(Identifier,Type,Maybe (Maybe Type))]) -> + ([Identifier]) -> + ([(Identifier,Identifier)]) -> + Identifier -> + Attributes -> + Identifier -> + Bool -> + Attributes -> + ( ([(Identifier,Attributes,Attributes)]),(Map Identifier Attributes ),(Map Identifier Attributes ),(Seq Error),((Identifier,Type,Maybe (Maybe Type))),([AltAttr]),(Seq CRule),(Seq (Identifier,Attributes)),(Seq (Identifier,NontermIdent)),([CRule]),([Identifier]))) +data Inh_Child = Inh_Child {allfields_Inh_Child :: !([(Identifier,Type,Maybe (Maybe Type))]),allnts_Inh_Child :: !([Identifier]),attrs_Inh_Child :: !([(Identifier,Identifier)]),con_Inh_Child :: !(Identifier),inh_Inh_Child :: !(Attributes),nt_Inh_Child :: !(Identifier),o_unbox_Inh_Child :: !(Bool),syn_Inh_Child :: !(Attributes)} +data Syn_Child = Syn_Child {attributes_Syn_Child :: !([(Identifier,Attributes,Attributes)]),collectChildrenInhs_Syn_Child :: !(Map Identifier Attributes ),collectChildrenSyns_Syn_Child :: !(Map Identifier Attributes ),errors_Syn_Child :: !(Seq Error),field_Syn_Child :: !((Identifier,Type,Maybe (Maybe Type))),gathAltAttrs_Syn_Child :: !([AltAttr]),gathRules_Syn_Child :: !(Seq CRule),inhs_Syn_Child :: !(Seq (Identifier,Attributes)),nts_Syn_Child :: !(Seq (Identifier,NontermIdent)),singlevisits_Syn_Child :: !([CRule]),terminals_Syn_Child :: !([Identifier])} +wrap_Child :: T_Child -> + Inh_Child -> + Syn_Child +wrap_Child (T_Child sem ) (Inh_Child _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsIinh _lhsInt _lhsIo_unbox _lhsIsyn ) = + (let ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfield,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals) = + (sem _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsIinh _lhsInt _lhsIo_unbox _lhsIsyn ) + in (Syn_Child _lhsOattributes _lhsOcollectChildrenInhs _lhsOcollectChildrenSyns _lhsOerrors _lhsOfield _lhsOgathAltAttrs _lhsOgathRules _lhsOinhs _lhsOnts _lhsOsinglevisits _lhsOterminals )) +sem_Child_Child :: Identifier -> + Type -> + Attributes -> + Attributes -> + (Maybe (Maybe Type)) -> + T_Child +sem_Child_Child name_ tp_ inh_ syn_ virtual_ = + (T_Child (\ _lhsIallfields + _lhsIallnts + _lhsIattrs + _lhsIcon + _lhsIinh + _lhsInt + _lhsIo_unbox + _lhsIsyn -> + (let _lhsOgathAltAttrs :: ([AltAttr]) + _lhsOnts :: (Seq (Identifier,NontermIdent)) + _lhsOinhs :: (Seq (Identifier,Attributes)) + _lhsOcollectChildrenSyns :: (Map Identifier Attributes ) + _lhsOcollectChildrenInhs :: (Map Identifier Attributes ) + _lhsOsinglevisits :: ([CRule]) + _lhsOterminals :: ([Identifier]) + _lhsOattributes :: ([(Identifier,Attributes,Attributes)]) + _lhsOfield :: ((Identifier,Type,Maybe (Maybe Type))) + _lhsOerrors :: (Seq Error) + _lhsOgathRules :: (Seq CRule) + -- "Order.ag"(line 177, column 13) + _maptolocal = + ({-# LINE 177 "Order.ag" #-} + case tp_ of + NT nt _ -> Map.null syn_ + _ -> True + {-# LINE 318 "Order.hs" #-}) + -- "Order.ag"(line 180, column 13) + _lhsOgathAltAttrs = + ({-# LINE 180 "Order.ag" #-} + if _maptolocal + then [ AltAttr _LOC name_ True ] + else [ AltAttr name_ syn True | syn <- Map.keys syn_ ] + {-# LINE 325 "Order.hs" #-}) + -- "Order.ag"(line 195, column 13) + _lhsOnts = + ({-# LINE 195 "Order.ag" #-} + Seq.singleton (name_,getNtName tp_) + {-# LINE 330 "Order.hs" #-}) + -- "Order.ag"(line 196, column 13) + _lhsOinhs = + ({-# LINE 196 "Order.ag" #-} + Seq.singleton (name_,inh_) + {-# LINE 335 "Order.hs" #-}) + -- "Order.ag"(line 212, column 13) + _gathRules = + ({-# LINE 212 "Order.ag" #-} + if _maptolocal + then Seq.singleton (cRuleTerminal name_ _lhsInt _lhsIcon tp_) + else Seq.fromList [ cRuleRhsSyn syn _lhsInt _lhsIcon tp name_ (getNtName tp_) | (syn,tp) <- Map.assocs syn_] + {-# LINE 342 "Order.hs" #-}) + -- "Order.ag"(line 346, column 12) + _lhsOcollectChildrenSyns = + ({-# LINE 346 "Order.ag" #-} + Map.singleton name_ syn_ + {-# LINE 347 "Order.hs" #-}) + -- "Order.ag"(line 347, column 12) + _lhsOcollectChildrenInhs = + ({-# LINE 347 "Order.ag" #-} + Map.singleton name_ inh_ + {-# LINE 352 "Order.hs" #-}) + -- "Order.ag"(line 557, column 11) + _lhsOsinglevisits = + ({-# LINE 557 "Order.ag" #-} + if _maptolocal + then [] + else [CChildVisit name_ (getNtName tp_) 0 inh_ syn_ True] + {-# LINE 359 "Order.hs" #-}) + -- "Order.ag"(line 581, column 11) + _lhsOterminals = + ({-# LINE 581 "Order.ag" #-} + if _maptolocal + then [name_] + else [] + {-# LINE 366 "Order.hs" #-}) + -- "Order.ag"(line 610, column 11) + _lhsOattributes = + ({-# LINE 610 "Order.ag" #-} + [(name_, inh_, syn_)] + {-# LINE 371 "Order.hs" #-}) + -- "Order.ag"(line 614, column 11) + _lhsOfield = + ({-# LINE 614 "Order.ag" #-} + (name_, tp_, virtual_) + {-# LINE 376 "Order.hs" #-}) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + Seq.empty + {-# LINE 381 "Order.hs" #-}) + -- use rule "Order.ag"(line 206, column 23) + _lhsOgathRules = + ({-# LINE 206 "Order.ag" #-} + _gathRules + {-# LINE 386 "Order.hs" #-}) + in ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfield,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals))) ) +-- Children ---------------------------------------------------- +{- + visit 0: + inherited attributes: + allfields : [(Identifier,Type,Maybe (Maybe Type))] + allnts : [Identifier] + attrs : [(Identifier,Identifier)] + con : Identifier + inh : Attributes + nt : Identifier + o_unbox : Bool + syn : Attributes + synthesized attributes: + attributes : [(Identifier,Attributes,Attributes)] + collectChildrenInhs : Map Identifier Attributes + collectChildrenSyns : Map Identifier Attributes + errors : Seq Error + fields : [(Identifier,Type,Maybe (Maybe Type))] + gathAltAttrs : [AltAttr] + gathRules : Seq CRule + inhs : Seq (Identifier,Attributes) + nts : Seq (Identifier,NontermIdent) + singlevisits : [CRule] + terminals : [Identifier] + alternatives: + alternative Cons: + child hd : Child + child tl : Children + alternative Nil: +-} +-- cata +sem_Children :: Children -> + T_Children +sem_Children list = + (Prelude.foldr sem_Children_Cons sem_Children_Nil (Prelude.map sem_Child list) ) +-- semantic domain +newtype T_Children = T_Children (([(Identifier,Type,Maybe (Maybe Type))]) -> + ([Identifier]) -> + ([(Identifier,Identifier)]) -> + Identifier -> + Attributes -> + Identifier -> + Bool -> + Attributes -> + ( ([(Identifier,Attributes,Attributes)]),(Map Identifier Attributes ),(Map Identifier Attributes ),(Seq Error),([(Identifier,Type,Maybe (Maybe Type))]),([AltAttr]),(Seq CRule),(Seq (Identifier,Attributes)),(Seq (Identifier,NontermIdent)),([CRule]),([Identifier]))) +data Inh_Children = Inh_Children {allfields_Inh_Children :: !([(Identifier,Type,Maybe (Maybe Type))]),allnts_Inh_Children :: !([Identifier]),attrs_Inh_Children :: !([(Identifier,Identifier)]),con_Inh_Children :: !(Identifier),inh_Inh_Children :: !(Attributes),nt_Inh_Children :: !(Identifier),o_unbox_Inh_Children :: !(Bool),syn_Inh_Children :: !(Attributes)} +data Syn_Children = Syn_Children {attributes_Syn_Children :: !([(Identifier,Attributes,Attributes)]),collectChildrenInhs_Syn_Children :: !(Map Identifier Attributes ),collectChildrenSyns_Syn_Children :: !(Map Identifier Attributes ),errors_Syn_Children :: !(Seq Error),fields_Syn_Children :: !([(Identifier,Type,Maybe (Maybe Type))]),gathAltAttrs_Syn_Children :: !([AltAttr]),gathRules_Syn_Children :: !(Seq CRule),inhs_Syn_Children :: !(Seq (Identifier,Attributes)),nts_Syn_Children :: !(Seq (Identifier,NontermIdent)),singlevisits_Syn_Children :: !([CRule]),terminals_Syn_Children :: !([Identifier])} +wrap_Children :: T_Children -> + Inh_Children -> + Syn_Children +wrap_Children (T_Children sem ) (Inh_Children _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsIinh _lhsInt _lhsIo_unbox _lhsIsyn ) = + (let ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfields,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals) = + (sem _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsIinh _lhsInt _lhsIo_unbox _lhsIsyn ) + in (Syn_Children _lhsOattributes _lhsOcollectChildrenInhs _lhsOcollectChildrenSyns _lhsOerrors _lhsOfields _lhsOgathAltAttrs _lhsOgathRules _lhsOinhs _lhsOnts _lhsOsinglevisits _lhsOterminals )) +sem_Children_Cons :: T_Child -> + T_Children -> + T_Children +sem_Children_Cons (T_Child hd_ ) (T_Children tl_ ) = + (T_Children (\ _lhsIallfields + _lhsIallnts + _lhsIattrs + _lhsIcon + _lhsIinh + _lhsInt + _lhsIo_unbox + _lhsIsyn -> + (let _lhsOfields :: ([(Identifier,Type,Maybe (Maybe Type))]) + _lhsOattributes :: ([(Identifier,Attributes,Attributes)]) + _lhsOcollectChildrenInhs :: (Map Identifier Attributes ) + _lhsOcollectChildrenSyns :: (Map Identifier Attributes ) + _lhsOerrors :: (Seq Error) + _lhsOgathAltAttrs :: ([AltAttr]) + _lhsOgathRules :: (Seq CRule) + _lhsOinhs :: (Seq (Identifier,Attributes)) + _lhsOnts :: (Seq (Identifier,NontermIdent)) + _lhsOsinglevisits :: ([CRule]) + _lhsOterminals :: ([Identifier]) + _hdOallfields :: ([(Identifier,Type,Maybe (Maybe Type))]) + _hdOallnts :: ([Identifier]) + _hdOattrs :: ([(Identifier,Identifier)]) + _hdOcon :: Identifier + _hdOinh :: Attributes + _hdOnt :: Identifier + _hdOo_unbox :: Bool + _hdOsyn :: Attributes + _tlOallfields :: ([(Identifier,Type,Maybe (Maybe Type))]) + _tlOallnts :: ([Identifier]) + _tlOattrs :: ([(Identifier,Identifier)]) + _tlOcon :: Identifier + _tlOinh :: Attributes + _tlOnt :: Identifier + _tlOo_unbox :: Bool + _tlOsyn :: Attributes + _hdIattributes :: ([(Identifier,Attributes,Attributes)]) + _hdIcollectChildrenInhs :: (Map Identifier Attributes ) + _hdIcollectChildrenSyns :: (Map Identifier Attributes ) + _hdIerrors :: (Seq Error) + _hdIfield :: ((Identifier,Type,Maybe (Maybe Type))) + _hdIgathAltAttrs :: ([AltAttr]) + _hdIgathRules :: (Seq CRule) + _hdIinhs :: (Seq (Identifier,Attributes)) + _hdInts :: (Seq (Identifier,NontermIdent)) + _hdIsinglevisits :: ([CRule]) + _hdIterminals :: ([Identifier]) + _tlIattributes :: ([(Identifier,Attributes,Attributes)]) + _tlIcollectChildrenInhs :: (Map Identifier Attributes ) + _tlIcollectChildrenSyns :: (Map Identifier Attributes ) + _tlIerrors :: (Seq Error) + _tlIfields :: ([(Identifier,Type,Maybe (Maybe Type))]) + _tlIgathAltAttrs :: ([AltAttr]) + _tlIgathRules :: (Seq CRule) + _tlIinhs :: (Seq (Identifier,Attributes)) + _tlInts :: (Seq (Identifier,NontermIdent)) + _tlIsinglevisits :: ([CRule]) + _tlIterminals :: ([Identifier]) + -- "Order.ag"(line 617, column 11) + _lhsOfields = + ({-# LINE 617 "Order.ag" #-} + _hdIfield : _tlIfields + {-# LINE 507 "Order.hs" #-}) + -- use rule "Order.ag"(line 608, column 32) + _lhsOattributes = + ({-# LINE 608 "Order.ag" #-} + _hdIattributes ++ _tlIattributes + {-# LINE 512 "Order.hs" #-}) + -- use rule "Order.ag"(line 344, column 68) + _lhsOcollectChildrenInhs = + ({-# LINE 344 "Order.ag" #-} + _hdIcollectChildrenInhs `Map.union` _tlIcollectChildrenInhs + {-# LINE 517 "Order.hs" #-}) + -- use rule "Order.ag"(line 344, column 68) + _lhsOcollectChildrenSyns = + ({-# LINE 344 "Order.ag" #-} + _hdIcollectChildrenSyns `Map.union` _tlIcollectChildrenSyns + {-# LINE 522 "Order.hs" #-}) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + _hdIerrors Seq.>< _tlIerrors + {-# LINE 527 "Order.hs" #-}) + -- use rule "Order.ag"(line 170, column 68) + _lhsOgathAltAttrs = + ({-# LINE 170 "Order.ag" #-} + _hdIgathAltAttrs ++ _tlIgathAltAttrs + {-# LINE 532 "Order.hs" #-}) + -- use rule "Order.ag"(line 206, column 23) + _lhsOgathRules = + ({-# LINE 206 "Order.ag" #-} + _hdIgathRules Seq.>< _tlIgathRules + {-# LINE 537 "Order.hs" #-}) + -- use rule "Order.ag"(line 193, column 20) + _lhsOinhs = + ({-# LINE 193 "Order.ag" #-} + _hdIinhs Seq.>< _tlIinhs + {-# LINE 542 "Order.hs" #-}) + -- use rule "Order.ag"(line 192, column 19) + _lhsOnts = + ({-# LINE 192 "Order.ag" #-} + _hdInts Seq.>< _tlInts + {-# LINE 547 "Order.hs" #-}) + -- use rule "Order.ag"(line 555, column 40) + _lhsOsinglevisits = + ({-# LINE 555 "Order.ag" #-} + _hdIsinglevisits ++ _tlIsinglevisits + {-# LINE 552 "Order.hs" #-}) + -- use rule "Order.ag"(line 579, column 38) + _lhsOterminals = + ({-# LINE 579 "Order.ag" #-} + _hdIterminals ++ _tlIterminals + {-# LINE 557 "Order.hs" #-}) + -- copy rule (down) + _hdOallfields = + ({-# LINE 597 "Order.ag" #-} + _lhsIallfields + {-# LINE 562 "Order.hs" #-}) + -- copy rule (down) + _hdOallnts = + ({-# LINE 590 "Order.ag" #-} + _lhsIallnts + {-# LINE 567 "Order.hs" #-}) + -- copy rule (down) + _hdOattrs = + ({-# LINE 597 "Order.ag" #-} + _lhsIattrs + {-# LINE 572 "Order.hs" #-}) + -- copy rule (down) + _hdOcon = + ({-# LINE 90 "Order.ag" #-} + _lhsIcon + {-# LINE 577 "Order.hs" #-}) + -- copy rule (down) + _hdOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 582 "Order.hs" #-}) + -- copy rule (down) + _hdOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 587 "Order.hs" #-}) + -- copy rule (down) + _hdOo_unbox = + ({-# LINE 119 "Order.ag" #-} + _lhsIo_unbox + {-# LINE 592 "Order.hs" #-}) + -- copy rule (down) + _hdOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 597 "Order.hs" #-}) + -- copy rule (down) + _tlOallfields = + ({-# LINE 597 "Order.ag" #-} + _lhsIallfields + {-# LINE 602 "Order.hs" #-}) + -- copy rule (down) + _tlOallnts = + ({-# LINE 590 "Order.ag" #-} + _lhsIallnts + {-# LINE 607 "Order.hs" #-}) + -- copy rule (down) + _tlOattrs = + ({-# LINE 597 "Order.ag" #-} + _lhsIattrs + {-# LINE 612 "Order.hs" #-}) + -- copy rule (down) + _tlOcon = + ({-# LINE 90 "Order.ag" #-} + _lhsIcon + {-# LINE 617 "Order.hs" #-}) + -- copy rule (down) + _tlOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 622 "Order.hs" #-}) + -- copy rule (down) + _tlOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 627 "Order.hs" #-}) + -- copy rule (down) + _tlOo_unbox = + ({-# LINE 119 "Order.ag" #-} + _lhsIo_unbox + {-# LINE 632 "Order.hs" #-}) + -- copy rule (down) + _tlOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 637 "Order.hs" #-}) + ( _hdIattributes,_hdIcollectChildrenInhs,_hdIcollectChildrenSyns,_hdIerrors,_hdIfield,_hdIgathAltAttrs,_hdIgathRules,_hdIinhs,_hdInts,_hdIsinglevisits,_hdIterminals) = + (hd_ _hdOallfields _hdOallnts _hdOattrs _hdOcon _hdOinh _hdOnt _hdOo_unbox _hdOsyn ) + ( _tlIattributes,_tlIcollectChildrenInhs,_tlIcollectChildrenSyns,_tlIerrors,_tlIfields,_tlIgathAltAttrs,_tlIgathRules,_tlIinhs,_tlInts,_tlIsinglevisits,_tlIterminals) = + (tl_ _tlOallfields _tlOallnts _tlOattrs _tlOcon _tlOinh _tlOnt _tlOo_unbox _tlOsyn ) + in ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfields,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals))) ) +sem_Children_Nil :: T_Children +sem_Children_Nil = + (T_Children (\ _lhsIallfields + _lhsIallnts + _lhsIattrs + _lhsIcon + _lhsIinh + _lhsInt + _lhsIo_unbox + _lhsIsyn -> + (let _lhsOfields :: ([(Identifier,Type,Maybe (Maybe Type))]) + _lhsOattributes :: ([(Identifier,Attributes,Attributes)]) + _lhsOcollectChildrenInhs :: (Map Identifier Attributes ) + _lhsOcollectChildrenSyns :: (Map Identifier Attributes ) + _lhsOerrors :: (Seq Error) + _lhsOgathAltAttrs :: ([AltAttr]) + _lhsOgathRules :: (Seq CRule) + _lhsOinhs :: (Seq (Identifier,Attributes)) + _lhsOnts :: (Seq (Identifier,NontermIdent)) + _lhsOsinglevisits :: ([CRule]) + _lhsOterminals :: ([Identifier]) + -- "Order.ag"(line 618, column 11) + _lhsOfields = + ({-# LINE 618 "Order.ag" #-} + [] + {-# LINE 668 "Order.hs" #-}) + -- use rule "Order.ag"(line 608, column 32) + _lhsOattributes = + ({-# LINE 608 "Order.ag" #-} + [] + {-# LINE 673 "Order.hs" #-}) + -- use rule "Order.ag"(line 344, column 68) + _lhsOcollectChildrenInhs = + ({-# LINE 344 "Order.ag" #-} + Map.empty + {-# LINE 678 "Order.hs" #-}) + -- use rule "Order.ag"(line 344, column 68) + _lhsOcollectChildrenSyns = + ({-# LINE 344 "Order.ag" #-} + Map.empty + {-# LINE 683 "Order.hs" #-}) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + Seq.empty + {-# LINE 688 "Order.hs" #-}) + -- use rule "Order.ag"(line 170, column 68) + _lhsOgathAltAttrs = + ({-# LINE 170 "Order.ag" #-} + [] + {-# LINE 693 "Order.hs" #-}) + -- use rule "Order.ag"(line 206, column 23) + _lhsOgathRules = + ({-# LINE 206 "Order.ag" #-} + Seq.empty + {-# LINE 698 "Order.hs" #-}) + -- use rule "Order.ag"(line 193, column 20) + _lhsOinhs = + ({-# LINE 193 "Order.ag" #-} + Seq.empty + {-# LINE 703 "Order.hs" #-}) + -- use rule "Order.ag"(line 192, column 19) + _lhsOnts = + ({-# LINE 192 "Order.ag" #-} + Seq.empty + {-# LINE 708 "Order.hs" #-}) + -- use rule "Order.ag"(line 555, column 40) + _lhsOsinglevisits = + ({-# LINE 555 "Order.ag" #-} + [] + {-# LINE 713 "Order.hs" #-}) + -- use rule "Order.ag"(line 579, column 38) + _lhsOterminals = + ({-# LINE 579 "Order.ag" #-} + [] + {-# LINE 718 "Order.hs" #-}) + in ( _lhsOattributes,_lhsOcollectChildrenInhs,_lhsOcollectChildrenSyns,_lhsOerrors,_lhsOfields,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinhs,_lhsOnts,_lhsOsinglevisits,_lhsOterminals))) ) +-- Expression -------------------------------------------------- +{- + visit 0: + inherited attributes: + allfields : [(Identifier,Type,Maybe (Maybe Type))] + allnts : [Identifier] + attrs : [(Identifier,Identifier)] + con : Identifier + nt : Identifier + synthesized attributes: + allRhsVars : Set (Identifier,Identifier) + copy : SELF + errors : Seq Error + textLines : [String] + usedAttrs : [(Identifier,Identifier)] + usedFields : [Identifier] + usedLocals : [Identifier] + alternatives: + alternative Expression: + child pos : {Pos} + child tks : {[HsToken]} + visit 0: + local _tup1 : _ + local errors : _ + local textLines : _ + local usedAttrs : _ + local usedLocals : _ + local usedFields : _ + local copy : _ +-} +-- cata +sem_Expression :: Expression -> + T_Expression +sem_Expression (Expression _pos _tks ) = + (sem_Expression_Expression _pos _tks ) +-- semantic domain +newtype T_Expression = T_Expression (([(Identifier,Type,Maybe (Maybe Type))]) -> + ([Identifier]) -> + ([(Identifier,Identifier)]) -> + Identifier -> + Identifier -> + ( (Set (Identifier,Identifier)),Expression,(Seq Error),([String]),([(Identifier,Identifier)]),([Identifier]),([Identifier]))) +data Inh_Expression = Inh_Expression {allfields_Inh_Expression :: !([(Identifier,Type,Maybe (Maybe Type))]),allnts_Inh_Expression :: !([Identifier]),attrs_Inh_Expression :: !([(Identifier,Identifier)]),con_Inh_Expression :: !(Identifier),nt_Inh_Expression :: !(Identifier)} +data Syn_Expression = Syn_Expression {allRhsVars_Syn_Expression :: !(Set (Identifier,Identifier)),copy_Syn_Expression :: !(Expression),errors_Syn_Expression :: !(Seq Error),textLines_Syn_Expression :: !([String]),usedAttrs_Syn_Expression :: !([(Identifier,Identifier)]),usedFields_Syn_Expression :: !([Identifier]),usedLocals_Syn_Expression :: !([Identifier])} +wrap_Expression :: T_Expression -> + Inh_Expression -> + Syn_Expression +wrap_Expression (T_Expression sem ) (Inh_Expression _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsInt ) = + (let ( _lhsOallRhsVars,_lhsOcopy,_lhsOerrors,_lhsOtextLines,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals) = + (sem _lhsIallfields _lhsIallnts _lhsIattrs _lhsIcon _lhsInt ) + in (Syn_Expression _lhsOallRhsVars _lhsOcopy _lhsOerrors _lhsOtextLines _lhsOusedAttrs _lhsOusedFields _lhsOusedLocals )) +sem_Expression_Expression :: Pos -> + ([HsToken]) -> + T_Expression +sem_Expression_Expression pos_ tks_ = + (T_Expression (\ _lhsIallfields + _lhsIallnts + _lhsIattrs + _lhsIcon + _lhsInt -> + (let _lhsOallRhsVars :: (Set (Identifier,Identifier)) + _lhsOcopy :: Expression + _lhsOerrors :: (Seq Error) + _lhsOtextLines :: ([String]) + _lhsOusedAttrs :: ([(Identifier,Identifier)]) + _lhsOusedFields :: ([Identifier]) + _lhsOusedLocals :: ([Identifier]) + -- "Order.ag"(line 416, column 21) + __tup1 = + ({-# LINE 416 "Order.ag" #-} + let inherited = Inh_HsTokensRoot + { attrs_Inh_HsTokensRoot = _lhsIattrs + , con_Inh_HsTokensRoot = _lhsIcon + , allfields_Inh_HsTokensRoot = _lhsIallfields + , allnts_Inh_HsTokensRoot = _lhsIallnts + , nt_Inh_HsTokensRoot = _lhsInt + } + synthesized = wrap_HsTokensRoot (sem_HsTokensRoot (HsTokensRoot tks_)) inherited + in case synthesized of + Syn_HsTokensRoot + { errors_Syn_HsTokensRoot = errors + , textLines_Syn_HsTokensRoot = textLines + , usedAttrs_Syn_HsTokensRoot = usedAttrs + , usedLocals_Syn_HsTokensRoot = usedLocals + , usedFields_Syn_HsTokensRoot = usedFields + } -> (errors,textLines,usedAttrs,usedLocals,usedFields) + {-# LINE 806 "Order.hs" #-}) + -- "Order.ag"(line 416, column 21) + (_errors,_,_,_,_) = + ({-# LINE 416 "Order.ag" #-} + __tup1 + {-# LINE 811 "Order.hs" #-}) + -- "Order.ag"(line 416, column 21) + (_,_textLines,_,_,_) = + ({-# LINE 416 "Order.ag" #-} + __tup1 + {-# LINE 816 "Order.hs" #-}) + -- "Order.ag"(line 416, column 21) + (_,_,_usedAttrs,_,_) = + ({-# LINE 416 "Order.ag" #-} + __tup1 + {-# LINE 821 "Order.hs" #-}) + -- "Order.ag"(line 416, column 21) + (_,_,_,_usedLocals,_) = + ({-# LINE 416 "Order.ag" #-} + __tup1 + {-# LINE 826 "Order.hs" #-}) + -- "Order.ag"(line 416, column 21) + (_,_,_,_,_usedFields) = + ({-# LINE 416 "Order.ag" #-} + __tup1 + {-# LINE 831 "Order.hs" #-}) + -- "Order.ag"(line 434, column 17) + _lhsOallRhsVars = + ({-# LINE 434 "Order.ag" #-} + Set.fromList _usedAttrs + `Set.union` + Set.fromList [ (_LOC, l) | l <- _usedLocals ] + `Set.union` + Set.fromList [ (_FIELD, fld) | fld <- _usedFields ] + {-# LINE 840 "Order.hs" #-}) + -- self rule + _copy = + ({-# LINE 411 "Order.ag" #-} + Expression pos_ tks_ + {-# LINE 845 "Order.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 411 "Order.ag" #-} + _copy + {-# LINE 850 "Order.hs" #-}) + -- copy rule (from local) + _lhsOerrors = + ({-# LINE 406 "Order.ag" #-} + _errors + {-# LINE 855 "Order.hs" #-}) + -- copy rule (from local) + _lhsOtextLines = + ({-# LINE 410 "Order.ag" #-} + _textLines + {-# LINE 860 "Order.hs" #-}) + -- copy rule (from local) + _lhsOusedAttrs = + ({-# LINE 408 "Order.ag" #-} + _usedAttrs + {-# LINE 865 "Order.hs" #-}) + -- copy rule (from local) + _lhsOusedFields = + ({-# LINE 409 "Order.ag" #-} + _usedFields + {-# LINE 870 "Order.hs" #-}) + -- copy rule (from local) + _lhsOusedLocals = + ({-# LINE 407 "Order.ag" #-} + _usedLocals + {-# LINE 875 "Order.hs" #-}) + in ( _lhsOallRhsVars,_lhsOcopy,_lhsOerrors,_lhsOtextLines,_lhsOusedAttrs,_lhsOusedFields,_lhsOusedLocals))) ) +-- Grammar ----------------------------------------------------- +{- + visit 0: + inherited attribute: + options : Options + synthesized attributes: + errors : Seq Error + nAutoRules : Int + nExplicitRules : Int + output : CGrammar + alternatives: + alternative Grammar: + child typeSyns : {TypeSyns} + child useMap : {UseMap} + child derivings : {Derivings} + child wrappers : {Set NontermIdent} + child nonts : Nonterminals + child pragmas : {PragmaMap} + child manualAttrOrderMap : {AttrOrderMap} + child paramMap : {ParamMap} + child contextMap : {ContextMap} + child uniqueMap : {UniqueMap} + child augmentsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} + child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} + visit 0: + local ruleTable : _ + local attrTable : _ + local attrVertex : _ + local tdpToTds : _ + local tdsToTdp : _ + local directDep : _ + local instDep : _ + local aroundDep : _ + local info : _ + local _tup2 : _ + local cInterfaceMap : _ + local cVisitsMap : _ + local cyclesErrors : _ + local aroundMap : _ +-} +-- cata +sem_Grammar :: Grammar -> + T_Grammar +sem_Grammar (Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap ) = + (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap ) +-- semantic domain +newtype T_Grammar = T_Grammar (Options -> + ( (Seq Error),Int,Int,CGrammar)) +data Inh_Grammar = Inh_Grammar {options_Inh_Grammar :: !(Options)} +data Syn_Grammar = Syn_Grammar {errors_Syn_Grammar :: !(Seq Error),nAutoRules_Syn_Grammar :: !(Int),nExplicitRules_Syn_Grammar :: !(Int),output_Syn_Grammar :: !(CGrammar)} +wrap_Grammar :: T_Grammar -> + Inh_Grammar -> + Syn_Grammar +wrap_Grammar (T_Grammar sem ) (Inh_Grammar _lhsIoptions ) = + (let ( _lhsOerrors,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOoutput) = + (sem _lhsIoptions ) + in (Syn_Grammar _lhsOerrors _lhsOnAutoRules _lhsOnExplicitRules _lhsOoutput )) +sem_Grammar_Grammar :: TypeSyns -> + UseMap -> + Derivings -> + (Set NontermIdent) -> + T_Nonterminals -> + PragmaMap -> + AttrOrderMap -> + ParamMap -> + ContextMap -> + UniqueMap -> + (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> + (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> + T_Grammar +sem_Grammar_Grammar typeSyns_ useMap_ derivings_ wrappers_ (T_Nonterminals nonts_ ) pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ uniqueMap_ augmentsMap_ aroundsMap_ = + (T_Grammar (\ _lhsIoptions -> + (let _nontsOo_cata :: Bool + _nontsOo_data :: Bool + _nontsOo_sig :: Bool + _nontsOo_sem :: Bool + _nontsOo_rename :: Bool + _nontsOo_newtypes :: Bool + _nontsOo_wantvisit :: Bool + _nontsOo_dovisit :: Bool + _nontsOo_unbox :: Bool + _nontsOo_case :: Bool + _nontsOprefix :: String + _nontsOvcount :: Int + _nontsOmanualAttrDepMap :: AttrOrderMap + _nontsOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) + _nontsOacount :: Int + _lhsOerrors :: (Seq Error) + _lhsOoutput :: CGrammar + _nontsOallnts :: ([Identifier]) + _lhsOnAutoRules :: Int + _lhsOnExplicitRules :: Int + _nontsOcInterfaceMap :: CInterfaceMap + _nontsOcVisitsMap :: CVisitsMap + _nontsIacount :: Int + _nontsIadditionalDep :: (Seq Edge) + _nontsIaranges :: (Seq (Int,Int,Int)) + _nontsIaroundDep :: (Seq Edge) + _nontsIcNonterminals :: CNonterminals + _nontsIdirectDep :: (Seq Edge) + _nontsIerrors :: (Seq Error) + _nontsIinstDep :: (Seq Edge) + _nontsInAutoRules :: Int + _nontsInExplicitRules :: Int + _nontsInonts :: ([(NontermIdent,[ConstructorIdent])]) + _nontsIntattrs :: (Seq (Vertex,NTAttr)) + _nontsIrules :: (Seq (Vertex,CRule)) + _nontsIvcount :: Int + -- "Order.ag"(line 123, column 17) + _nontsOo_cata = + ({-# LINE 123 "Order.ag" #-} + folds _lhsIoptions + {-# LINE 989 "Order.hs" #-}) + -- "Order.ag"(line 123, column 17) + _nontsOo_data = + ({-# LINE 124 "Order.ag" #-} + dataTypes _lhsIoptions + {-# LINE 994 "Order.hs" #-}) + -- "Order.ag"(line 123, column 17) + _nontsOo_sig = + ({-# LINE 125 "Order.ag" #-} + typeSigs _lhsIoptions + {-# LINE 999 "Order.hs" #-}) + -- "Order.ag"(line 123, column 17) + _nontsOo_sem = + ({-# LINE 126 "Order.ag" #-} + semfuns _lhsIoptions + {-# LINE 1004 "Order.hs" #-}) + -- "Order.ag"(line 123, column 17) + _nontsOo_rename = + ({-# LINE 127 "Order.ag" #-} + rename _lhsIoptions + {-# LINE 1009 "Order.hs" #-}) + -- "Order.ag"(line 123, column 17) + _nontsOo_newtypes = + ({-# LINE 128 "Order.ag" #-} + newtypes _lhsIoptions + {-# LINE 1014 "Order.hs" #-}) + -- "Order.ag"(line 123, column 17) + _nontsOo_wantvisit = + ({-# LINE 129 "Order.ag" #-} + visit _lhsIoptions + {-# LINE 1019 "Order.hs" #-}) + -- "Order.ag"(line 123, column 17) + _nontsOo_dovisit = + ({-# LINE 130 "Order.ag" #-} + visit _lhsIoptions && null _cyclesErrors + {-# LINE 1024 "Order.hs" #-}) + -- "Order.ag"(line 123, column 17) + _nontsOo_unbox = + ({-# LINE 131 "Order.ag" #-} + unbox _lhsIoptions + {-# LINE 1029 "Order.hs" #-}) + -- "Order.ag"(line 123, column 17) + _nontsOo_case = + ({-# LINE 132 "Order.ag" #-} + cases _lhsIoptions + {-# LINE 1034 "Order.hs" #-}) + -- "Order.ag"(line 123, column 17) + _nontsOprefix = + ({-# LINE 133 "Order.ag" #-} + prefix _lhsIoptions + {-# LINE 1039 "Order.hs" #-}) + -- "Order.ag"(line 261, column 15) + _nontsOvcount = + ({-# LINE 261 "Order.ag" #-} + 0 + {-# LINE 1044 "Order.hs" #-}) + -- "Order.ag"(line 287, column 7) + _nontsOmanualAttrDepMap = + ({-# LINE 287 "Order.ag" #-} + manualAttrOrderMap_ + {-# LINE 1049 "Order.hs" #-}) + -- "Order.ag"(line 370, column 14) + _nontsOaroundMap = + ({-# LINE 370 "Order.ag" #-} + aroundsMap_ + {-# LINE 1054 "Order.hs" #-}) + -- "Order.ag"(line 448, column 13) + _nontsOacount = + ({-# LINE 448 "Order.ag" #-} + 0 + {-# LINE 1059 "Order.hs" #-}) + -- "Order.ag"(line 486, column 13) + _ruleTable = + ({-# LINE 486 "Order.ag" #-} + Array.array (0,_nontsIvcount-1) (toList _nontsIrules) + {-# LINE 1064 "Order.hs" #-}) + -- "Order.ag"(line 487, column 13) + _attrTable = + ({-# LINE 487 "Order.ag" #-} + Array.array (0,_nontsIacount-1) (toList _nontsIntattrs) + {-# LINE 1069 "Order.hs" #-}) + -- "Order.ag"(line 488, column 13) + _attrVertex = + ({-# LINE 488 "Order.ag" #-} + Map.fromList (map swap (toList _nontsIntattrs)) + {-# LINE 1074 "Order.hs" #-}) + -- "Order.ag"(line 489, column 13) + _tdpToTds = + ({-# LINE 489 "Order.ag" #-} + [ (s, maybe (-1) (\v -> findWithErr1 "Grammar.tdpToTds" v _attrVertex) (ntattr cr)) + | (s,cr) <- toList _nontsIrules] + {-# LINE 1080 "Order.hs" #-}) + -- "Order.ag"(line 491, column 13) + _tdsToTdp = + ({-# LINE 491 "Order.ag" #-} + let eq (_,v) (_,v') = v == v' + conv ((s,v):svs) | v == -1 = Nothing + | otherwise = Just (v,s:map fst svs) + in mapMaybe conv (eqClasses eq _tdpToTds) + {-# LINE 1088 "Order.hs" #-}) + -- "Order.ag"(line 495, column 13) + _directDep = + ({-# LINE 495 "Order.ag" #-} + toList (_nontsIdirectDep Seq.>< _nontsIadditionalDep) + {-# LINE 1093 "Order.hs" #-}) + -- "Order.ag"(line 496, column 13) + _instDep = + ({-# LINE 496 "Order.ag" #-} + toList _nontsIinstDep + {-# LINE 1098 "Order.hs" #-}) + -- "Order.ag"(line 497, column 13) + _aroundDep = + ({-# LINE 497 "Order.ag" #-} + toList _nontsIaroundDep + {-# LINE 1103 "Order.hs" #-}) + -- "Order.ag"(line 498, column 13) + _info = + ({-# LINE 498 "Order.ag" #-} + let def [] = -1 + def (v:vs) = v + in Info { tdsToTdp = Array.array (0,_nontsIacount-1) _tdsToTdp + , tdpToTds = Array.array (0,_nontsIvcount-1) _tdpToTds + , attrTable = _attrTable + , ruleTable = _ruleTable + , lmh = toList _nontsIaranges + , nonts = _nontsInonts + , wraps = wrappers_ + } + {-# LINE 1117 "Order.hs" #-}) + -- "Order.ag"(line 509, column 17) + __tup2 = + ({-# LINE 509 "Order.ag" #-} + case computeSequential _info _directDep (_instDep ++ _aroundDep) of + CycleFree cim cvm -> ( cim + , cvm + , [] + ) + LocalCycle errs -> ( error "No interfaces for AG with local cycles" + , error "No visit sub-sequences for AG with local cycles" + , map (localCycleErr _ruleTable (visit _lhsIoptions)) errs + ) + InstCycle errs -> ( error "No interfaces for AG with cycles through insts" + , error "No visit sub-sequences for AG with cycles through insts" + , map (instCycleErr _ruleTable (visit _lhsIoptions)) errs + ) + DirectCycle errs -> ( error "No interfaces for AG with direct cycles" + , error "No visit sub-sequences for AG with direct cycles" + , directCycleErrs _attrTable _ruleTable (visit _lhsIoptions) errs + ) + InducedCycle cim errs -> ( cim + , error "No visit sub-sequences for AG with induced cycles" + , inducedCycleErrs _attrTable _ruleTable cim errs + ) + {-# LINE 1142 "Order.hs" #-}) + -- "Order.ag"(line 509, column 17) + (_cInterfaceMap,_,_) = + ({-# LINE 509 "Order.ag" #-} + __tup2 + {-# LINE 1147 "Order.hs" #-}) + -- "Order.ag"(line 509, column 17) + (_,_cVisitsMap,_) = + ({-# LINE 509 "Order.ag" #-} + __tup2 + {-# LINE 1152 "Order.hs" #-}) + -- "Order.ag"(line 509, column 17) + (_,_,_cyclesErrors) = + ({-# LINE 509 "Order.ag" #-} + __tup2 + {-# LINE 1157 "Order.hs" #-}) + -- "Order.ag"(line 531, column 13) + _lhsOerrors = + ({-# LINE 531 "Order.ag" #-} + (if withCycle _lhsIoptions then Seq.fromList _cyclesErrors else Seq.empty) + Seq.>< _nontsIerrors + {-# LINE 1163 "Order.hs" #-}) + -- "Order.ag"(line 563, column 15) + _lhsOoutput = + ({-# LINE 563 "Order.ag" #-} + CGrammar typeSyns_ derivings_ wrappers_ _nontsIcNonterminals pragmas_ paramMap_ contextMap_ _aroundMap + {-# LINE 1168 "Order.hs" #-}) + -- "Order.ag"(line 576, column 14) + _aroundMap = + ({-# LINE 576 "Order.ag" #-} + Map.map (Map.map Map.keysSet) aroundsMap_ + {-# LINE 1173 "Order.hs" #-}) + -- "Order.ag"(line 593, column 13) + _nontsOallnts = + ({-# LINE 593 "Order.ag" #-} + map fst (_nontsInonts) + {-# LINE 1178 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnAutoRules = + ({-# LINE 61 "Order.ag" #-} + _nontsInAutoRules + {-# LINE 1183 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnExplicitRules = + ({-# LINE 61 "Order.ag" #-} + _nontsInExplicitRules + {-# LINE 1188 "Order.hs" #-}) + -- copy rule (from local) + _nontsOcInterfaceMap = + ({-# LINE 538 "Order.ag" #-} + _cInterfaceMap + {-# LINE 1193 "Order.hs" #-}) + -- copy rule (from local) + _nontsOcVisitsMap = + ({-# LINE 545 "Order.ag" #-} + _cVisitsMap + {-# LINE 1198 "Order.hs" #-}) + ( _nontsIacount,_nontsIadditionalDep,_nontsIaranges,_nontsIaroundDep,_nontsIcNonterminals,_nontsIdirectDep,_nontsIerrors,_nontsIinstDep,_nontsInAutoRules,_nontsInExplicitRules,_nontsInonts,_nontsIntattrs,_nontsIrules,_nontsIvcount) = + (nonts_ _nontsOacount _nontsOallnts _nontsOaroundMap _nontsOcInterfaceMap _nontsOcVisitsMap _nontsOmanualAttrDepMap _nontsOo_case _nontsOo_cata _nontsOo_data _nontsOo_dovisit _nontsOo_newtypes _nontsOo_rename _nontsOo_sem _nontsOo_sig _nontsOo_unbox _nontsOo_wantvisit _nontsOprefix _nontsOvcount ) + in ( _lhsOerrors,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOoutput))) ) +-- Nonterminal ------------------------------------------------- +{- + visit 0: + inherited attributes: + allnts : [Identifier] + aroundMap : Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])) + cInterfaceMap : CInterfaceMap + cVisitsMap : CVisitsMap + manualAttrDepMap : AttrOrderMap + o_case : Bool + o_cata : Bool + o_data : Bool + o_dovisit : Bool + o_newtypes : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_unbox : Bool + o_wantvisit : Bool + prefix : String + chained attributes: + acount : Int + vcount : Int + synthesized attributes: + additionalDep : Seq Edge + aranges : Seq (Int,Int,Int) + aroundDep : Seq Edge + cNonterminal : CNonterminal + directDep : Seq Edge + errors : Seq Error + instDep : Seq Edge + nAutoRules : Int + nExplicitRules : Int + nonts : [(NontermIdent,[ConstructorIdent])] + ntattrs : Seq (Vertex,NTAttr) + rules : Seq (Vertex,CRule) + alternatives: + alternative Nonterminal: + child nt : {NontermIdent} + child params : {[Identifier]} + child inh : {Attributes} + child syn : {Attributes} + child prods : Productions + visit 0: + local aroundMap : _ + local ntattrs : _ + local cInter : _ +-} +-- cata +sem_Nonterminal :: Nonterminal -> + T_Nonterminal +sem_Nonterminal (Nonterminal _nt _params _inh _syn _prods ) = + (sem_Nonterminal_Nonterminal _nt _params _inh _syn (sem_Productions _prods ) ) +-- semantic domain +newtype T_Nonterminal = T_Nonterminal (Int -> + ([Identifier]) -> + (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> + CInterfaceMap -> + CVisitsMap -> + AttrOrderMap -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + String -> + Int -> + ( Int,(Seq Edge),(Seq (Int,Int,Int)),(Seq Edge),CNonterminal,(Seq Edge),(Seq Error),(Seq Edge),Int,Int,([(NontermIdent,[ConstructorIdent])]),(Seq (Vertex,NTAttr)),(Seq (Vertex,CRule)),Int)) +data Inh_Nonterminal = Inh_Nonterminal {acount_Inh_Nonterminal :: !(Int),allnts_Inh_Nonterminal :: !([Identifier]),aroundMap_Inh_Nonterminal :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))),cInterfaceMap_Inh_Nonterminal :: !(CInterfaceMap),cVisitsMap_Inh_Nonterminal :: !(CVisitsMap),manualAttrDepMap_Inh_Nonterminal :: !(AttrOrderMap),o_case_Inh_Nonterminal :: !(Bool),o_cata_Inh_Nonterminal :: !(Bool),o_data_Inh_Nonterminal :: !(Bool),o_dovisit_Inh_Nonterminal :: !(Bool),o_newtypes_Inh_Nonterminal :: !(Bool),o_rename_Inh_Nonterminal :: !(Bool),o_sem_Inh_Nonterminal :: !(Bool),o_sig_Inh_Nonterminal :: !(Bool),o_unbox_Inh_Nonterminal :: !(Bool),o_wantvisit_Inh_Nonterminal :: !(Bool),prefix_Inh_Nonterminal :: !(String),vcount_Inh_Nonterminal :: !(Int)} +data Syn_Nonterminal = Syn_Nonterminal {acount_Syn_Nonterminal :: !(Int),additionalDep_Syn_Nonterminal :: !(Seq Edge),aranges_Syn_Nonterminal :: !(Seq (Int,Int,Int)),aroundDep_Syn_Nonterminal :: !(Seq Edge),cNonterminal_Syn_Nonterminal :: !(CNonterminal),directDep_Syn_Nonterminal :: !(Seq Edge),errors_Syn_Nonterminal :: !(Seq Error),instDep_Syn_Nonterminal :: !(Seq Edge),nAutoRules_Syn_Nonterminal :: !(Int),nExplicitRules_Syn_Nonterminal :: !(Int),nonts_Syn_Nonterminal :: !([(NontermIdent,[ConstructorIdent])]),ntattrs_Syn_Nonterminal :: !(Seq (Vertex,NTAttr)),rules_Syn_Nonterminal :: !(Seq (Vertex,CRule)),vcount_Syn_Nonterminal :: !(Int)} +wrap_Nonterminal :: T_Nonterminal -> + Inh_Nonterminal -> + Syn_Nonterminal +wrap_Nonterminal (T_Nonterminal sem ) (Inh_Nonterminal _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsImanualAttrDepMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIvcount ) = + (let ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminal,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOvcount) = + (sem _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsImanualAttrDepMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIvcount ) + in (Syn_Nonterminal _lhsOacount _lhsOadditionalDep _lhsOaranges _lhsOaroundDep _lhsOcNonterminal _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOnonts _lhsOntattrs _lhsOrules _lhsOvcount )) +sem_Nonterminal_Nonterminal :: NontermIdent -> + ([Identifier]) -> + Attributes -> + Attributes -> + T_Productions -> + T_Nonterminal +sem_Nonterminal_Nonterminal nt_ params_ inh_ syn_ (T_Productions prods_ ) = + (T_Nonterminal (\ _lhsIacount + _lhsIallnts + _lhsIaroundMap + _lhsIcInterfaceMap + _lhsIcVisitsMap + _lhsImanualAttrDepMap + _lhsIo_case + _lhsIo_cata + _lhsIo_data + _lhsIo_dovisit + _lhsIo_newtypes + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_unbox + _lhsIo_wantvisit + _lhsIprefix + _lhsIvcount -> + (let _prodsOnt :: Identifier + _prodsOinh :: Attributes + _prodsOsyn :: Attributes + _lhsOntattrs :: (Seq (Vertex,NTAttr)) + _lhsOacount :: Int + _lhsOaranges :: (Seq (Int,Int,Int)) + _lhsOnonts :: ([(NontermIdent,[ConstructorIdent])]) + _lhsOcNonterminal :: CNonterminal + _lhsOadditionalDep :: (Seq Edge) + _lhsOaroundDep :: (Seq Edge) + _lhsOdirectDep :: (Seq Edge) + _lhsOerrors :: (Seq Error) + _lhsOinstDep :: (Seq Edge) + _lhsOnAutoRules :: Int + _lhsOnExplicitRules :: Int + _lhsOrules :: (Seq (Vertex,CRule)) + _lhsOvcount :: Int + _prodsOallnts :: ([Identifier]) + _prodsOaroundMap :: (Map ConstructorIdent (Map Identifier [Expression])) + _prodsOcVisitsMap :: CVisitsMap + _prodsOmanualAttrDepMap :: AttrOrderMap + _prodsOo_case :: Bool + _prodsOo_cata :: Bool + _prodsOo_dovisit :: Bool + _prodsOo_newtypes :: Bool + _prodsOo_rename :: Bool + _prodsOo_sem :: Bool + _prodsOo_sig :: Bool + _prodsOo_unbox :: Bool + _prodsOo_wantvisit :: Bool + _prodsOprefix :: String + _prodsOvcount :: Int + _prodsIadditionalDep :: (Seq Edge) + _prodsIaroundDep :: (Seq Edge) + _prodsIcProductions :: CProductions + _prodsIcons :: ([ConstructorIdent]) + _prodsIdirectDep :: (Seq Edge) + _prodsIerrors :: (Seq Error) + _prodsIinstDep :: (Seq Edge) + _prodsInAutoRules :: Int + _prodsInExplicitRules :: Int + _prodsIrules :: (Seq (Vertex,CRule)) + _prodsIvcount :: Int + -- "Order.ag"(line 97, column 17) + _prodsOnt = + ({-# LINE 97 "Order.ag" #-} + nt_ + {-# LINE 1356 "Order.hs" #-}) + -- "Order.ag"(line 100, column 17) + _prodsOinh = + ({-# LINE 100 "Order.ag" #-} + inh_ + {-# LINE 1361 "Order.hs" #-}) + -- "Order.ag"(line 101, column 17) + _prodsOsyn = + ({-# LINE 101 "Order.ag" #-} + syn_ + {-# LINE 1366 "Order.hs" #-}) + -- "Order.ag"(line 366, column 32) + _aroundMap = + ({-# LINE 366 "Order.ag" #-} + Map.findWithDefault Map.empty nt_ _lhsIaroundMap + {-# LINE 1371 "Order.hs" #-}) + -- "Order.ag"(line 451, column 17) + _ntattrs = + ({-# LINE 451 "Order.ag" #-} + [ NTAInh nt_ inh tp | (inh,tp) <- Map.assocs inh_ ] + ++ [NTASyn nt_ syn tp | (syn,tp) <- Map.assocs syn_ ] + {-# LINE 1377 "Order.hs" #-}) + -- "Order.ag"(line 453, column 17) + _lhsOntattrs = + ({-# LINE 453 "Order.ag" #-} + Seq.fromList (zip [_lhsIacount ..] _ntattrs) + {-# LINE 1382 "Order.hs" #-}) + -- "Order.ag"(line 454, column 17) + _lhsOacount = + ({-# LINE 454 "Order.ag" #-} + _lhsIacount + Map.size inh_ + Map.size syn_ + {-# LINE 1387 "Order.hs" #-}) + -- "Order.ag"(line 455, column 17) + _lhsOaranges = + ({-# LINE 455 "Order.ag" #-} + Seq.singleton + (_lhsIacount + ,_lhsIacount + Map.size inh_ + ,_lhsIacount + Map.size syn_ + Map.size inh_ - 1) + {-# LINE 1395 "Order.hs" #-}) + -- "Order.ag"(line 464, column 19) + _lhsOnonts = + ({-# LINE 464 "Order.ag" #-} + [(nt_,_prodsIcons)] + {-# LINE 1400 "Order.hs" #-}) + -- "Order.ag"(line 540, column 19) + _cInter = + ({-# LINE 540 "Order.ag" #-} + if _lhsIo_dovisit + then findWithErr1 "Nonterminal.cInter" nt_ _lhsIcInterfaceMap + else CInterface [CSegment inh_ syn_] + {-# LINE 1407 "Order.hs" #-}) + -- "Order.ag"(line 568, column 19) + _lhsOcNonterminal = + ({-# LINE 568 "Order.ag" #-} + CNonterminal nt_ params_ inh_ syn_ _prodsIcProductions _cInter + {-# LINE 1412 "Order.hs" #-}) + -- use rule "Order.ag"(line 283, column 60) + _lhsOadditionalDep = + ({-# LINE 283 "Order.ag" #-} + _prodsIadditionalDep + {-# LINE 1417 "Order.hs" #-}) + -- use rule "Order.ag"(line 358, column 24) + _lhsOaroundDep = + ({-# LINE 358 "Order.ag" #-} + _prodsIaroundDep + {-# LINE 1422 "Order.hs" #-}) + -- use rule "Order.ag"(line 269, column 33) + _lhsOdirectDep = + ({-# LINE 269 "Order.ag" #-} + _prodsIdirectDep + {-# LINE 1427 "Order.hs" #-}) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + _prodsIerrors + {-# LINE 1432 "Order.hs" #-}) + -- use rule "Order.ag"(line 312, column 31) + _lhsOinstDep = + ({-# LINE 312 "Order.ag" #-} + _prodsIinstDep + {-# LINE 1437 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnAutoRules = + ({-# LINE 61 "Order.ag" #-} + _prodsInAutoRules + {-# LINE 1442 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnExplicitRules = + ({-# LINE 61 "Order.ag" #-} + _prodsInExplicitRules + {-# LINE 1447 "Order.hs" #-}) + -- use rule "Order.ag"(line 259, column 18) + _lhsOrules = + ({-# LINE 259 "Order.ag" #-} + _prodsIrules + {-# LINE 1452 "Order.hs" #-}) + -- copy rule (up) + _lhsOvcount = + ({-# LINE 258 "Order.ag" #-} + _prodsIvcount + {-# LINE 1457 "Order.hs" #-}) + -- copy rule (down) + _prodsOallnts = + ({-# LINE 590 "Order.ag" #-} + _lhsIallnts + {-# LINE 1462 "Order.hs" #-}) + -- copy rule (from local) + _prodsOaroundMap = + ({-# LINE 364 "Order.ag" #-} + _aroundMap + {-# LINE 1467 "Order.hs" #-}) + -- copy rule (down) + _prodsOcVisitsMap = + ({-# LINE 545 "Order.ag" #-} + _lhsIcVisitsMap + {-# LINE 1472 "Order.hs" #-}) + -- copy rule (down) + _prodsOmanualAttrDepMap = + ({-# LINE 283 "Order.ag" #-} + _lhsImanualAttrDepMap + {-# LINE 1477 "Order.hs" #-}) + -- copy rule (down) + _prodsOo_case = + ({-# LINE 117 "Order.ag" #-} + _lhsIo_case + {-# LINE 1482 "Order.hs" #-}) + -- copy rule (down) + _prodsOo_cata = + ({-# LINE 111 "Order.ag" #-} + _lhsIo_cata + {-# LINE 1487 "Order.hs" #-}) + -- copy rule (down) + _prodsOo_dovisit = + ({-# LINE 116 "Order.ag" #-} + _lhsIo_dovisit + {-# LINE 1492 "Order.hs" #-}) + -- copy rule (down) + _prodsOo_newtypes = + ({-# LINE 110 "Order.ag" #-} + _lhsIo_newtypes + {-# LINE 1497 "Order.hs" #-}) + -- copy rule (down) + _prodsOo_rename = + ({-# LINE 114 "Order.ag" #-} + _lhsIo_rename + {-# LINE 1502 "Order.hs" #-}) + -- copy rule (down) + _prodsOo_sem = + ({-# LINE 113 "Order.ag" #-} + _lhsIo_sem + {-# LINE 1507 "Order.hs" #-}) + -- copy rule (down) + _prodsOo_sig = + ({-# LINE 112 "Order.ag" #-} + _lhsIo_sig + {-# LINE 1512 "Order.hs" #-}) + -- copy rule (down) + _prodsOo_unbox = + ({-# LINE 119 "Order.ag" #-} + _lhsIo_unbox + {-# LINE 1517 "Order.hs" #-}) + -- copy rule (down) + _prodsOo_wantvisit = + ({-# LINE 115 "Order.ag" #-} + _lhsIo_wantvisit + {-# LINE 1522 "Order.hs" #-}) + -- copy rule (down) + _prodsOprefix = + ({-# LINE 118 "Order.ag" #-} + _lhsIprefix + {-# LINE 1527 "Order.hs" #-}) + -- copy rule (down) + _prodsOvcount = + ({-# LINE 258 "Order.ag" #-} + _lhsIvcount + {-# LINE 1532 "Order.hs" #-}) + ( _prodsIadditionalDep,_prodsIaroundDep,_prodsIcProductions,_prodsIcons,_prodsIdirectDep,_prodsIerrors,_prodsIinstDep,_prodsInAutoRules,_prodsInExplicitRules,_prodsIrules,_prodsIvcount) = + (prods_ _prodsOallnts _prodsOaroundMap _prodsOcVisitsMap _prodsOinh _prodsOmanualAttrDepMap _prodsOnt _prodsOo_case _prodsOo_cata _prodsOo_dovisit _prodsOo_newtypes _prodsOo_rename _prodsOo_sem _prodsOo_sig _prodsOo_unbox _prodsOo_wantvisit _prodsOprefix _prodsOsyn _prodsOvcount ) + in ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminal,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOvcount))) ) +-- Nonterminals ------------------------------------------------ +{- + visit 0: + inherited attributes: + allnts : [Identifier] + aroundMap : Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])) + cInterfaceMap : CInterfaceMap + cVisitsMap : CVisitsMap + manualAttrDepMap : AttrOrderMap + o_case : Bool + o_cata : Bool + o_data : Bool + o_dovisit : Bool + o_newtypes : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_unbox : Bool + o_wantvisit : Bool + prefix : String + chained attributes: + acount : Int + vcount : Int + synthesized attributes: + additionalDep : Seq Edge + aranges : Seq (Int,Int,Int) + aroundDep : Seq Edge + cNonterminals : CNonterminals + directDep : Seq Edge + errors : Seq Error + instDep : Seq Edge + nAutoRules : Int + nExplicitRules : Int + nonts : [(NontermIdent,[ConstructorIdent])] + ntattrs : Seq (Vertex,NTAttr) + rules : Seq (Vertex,CRule) + alternatives: + alternative Cons: + child hd : Nonterminal + child tl : Nonterminals + alternative Nil: +-} +-- cata +sem_Nonterminals :: Nonterminals -> + T_Nonterminals +sem_Nonterminals list = + (Prelude.foldr sem_Nonterminals_Cons sem_Nonterminals_Nil (Prelude.map sem_Nonterminal list) ) +-- semantic domain +newtype T_Nonterminals = T_Nonterminals (Int -> + ([Identifier]) -> + (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> + CInterfaceMap -> + CVisitsMap -> + AttrOrderMap -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + String -> + Int -> + ( Int,(Seq Edge),(Seq (Int,Int,Int)),(Seq Edge),CNonterminals,(Seq Edge),(Seq Error),(Seq Edge),Int,Int,([(NontermIdent,[ConstructorIdent])]),(Seq (Vertex,NTAttr)),(Seq (Vertex,CRule)),Int)) +data Inh_Nonterminals = Inh_Nonterminals {acount_Inh_Nonterminals :: !(Int),allnts_Inh_Nonterminals :: !([Identifier]),aroundMap_Inh_Nonterminals :: !(Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))),cInterfaceMap_Inh_Nonterminals :: !(CInterfaceMap),cVisitsMap_Inh_Nonterminals :: !(CVisitsMap),manualAttrDepMap_Inh_Nonterminals :: !(AttrOrderMap),o_case_Inh_Nonterminals :: !(Bool),o_cata_Inh_Nonterminals :: !(Bool),o_data_Inh_Nonterminals :: !(Bool),o_dovisit_Inh_Nonterminals :: !(Bool),o_newtypes_Inh_Nonterminals :: !(Bool),o_rename_Inh_Nonterminals :: !(Bool),o_sem_Inh_Nonterminals :: !(Bool),o_sig_Inh_Nonterminals :: !(Bool),o_unbox_Inh_Nonterminals :: !(Bool),o_wantvisit_Inh_Nonterminals :: !(Bool),prefix_Inh_Nonterminals :: !(String),vcount_Inh_Nonterminals :: !(Int)} +data Syn_Nonterminals = Syn_Nonterminals {acount_Syn_Nonterminals :: !(Int),additionalDep_Syn_Nonterminals :: !(Seq Edge),aranges_Syn_Nonterminals :: !(Seq (Int,Int,Int)),aroundDep_Syn_Nonterminals :: !(Seq Edge),cNonterminals_Syn_Nonterminals :: !(CNonterminals),directDep_Syn_Nonterminals :: !(Seq Edge),errors_Syn_Nonterminals :: !(Seq Error),instDep_Syn_Nonterminals :: !(Seq Edge),nAutoRules_Syn_Nonterminals :: !(Int),nExplicitRules_Syn_Nonterminals :: !(Int),nonts_Syn_Nonterminals :: !([(NontermIdent,[ConstructorIdent])]),ntattrs_Syn_Nonterminals :: !(Seq (Vertex,NTAttr)),rules_Syn_Nonterminals :: !(Seq (Vertex,CRule)),vcount_Syn_Nonterminals :: !(Int)} +wrap_Nonterminals :: T_Nonterminals -> + Inh_Nonterminals -> + Syn_Nonterminals +wrap_Nonterminals (T_Nonterminals sem ) (Inh_Nonterminals _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsImanualAttrDepMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIvcount ) = + (let ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminals,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOvcount) = + (sem _lhsIacount _lhsIallnts _lhsIaroundMap _lhsIcInterfaceMap _lhsIcVisitsMap _lhsImanualAttrDepMap _lhsIo_case _lhsIo_cata _lhsIo_data _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIvcount ) + in (Syn_Nonterminals _lhsOacount _lhsOadditionalDep _lhsOaranges _lhsOaroundDep _lhsOcNonterminals _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOnonts _lhsOntattrs _lhsOrules _lhsOvcount )) +sem_Nonterminals_Cons :: T_Nonterminal -> + T_Nonterminals -> + T_Nonterminals +sem_Nonterminals_Cons (T_Nonterminal hd_ ) (T_Nonterminals tl_ ) = + (T_Nonterminals (\ _lhsIacount + _lhsIallnts + _lhsIaroundMap + _lhsIcInterfaceMap + _lhsIcVisitsMap + _lhsImanualAttrDepMap + _lhsIo_case + _lhsIo_cata + _lhsIo_data + _lhsIo_dovisit + _lhsIo_newtypes + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_unbox + _lhsIo_wantvisit + _lhsIprefix + _lhsIvcount -> + (let _lhsOcNonterminals :: CNonterminals + _lhsOadditionalDep :: (Seq Edge) + _lhsOaranges :: (Seq (Int,Int,Int)) + _lhsOaroundDep :: (Seq Edge) + _lhsOdirectDep :: (Seq Edge) + _lhsOerrors :: (Seq Error) + _lhsOinstDep :: (Seq Edge) + _lhsOnAutoRules :: Int + _lhsOnExplicitRules :: Int + _lhsOnonts :: ([(NontermIdent,[ConstructorIdent])]) + _lhsOntattrs :: (Seq (Vertex,NTAttr)) + _lhsOrules :: (Seq (Vertex,CRule)) + _lhsOacount :: Int + _lhsOvcount :: Int + _hdOacount :: Int + _hdOallnts :: ([Identifier]) + _hdOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) + _hdOcInterfaceMap :: CInterfaceMap + _hdOcVisitsMap :: CVisitsMap + _hdOmanualAttrDepMap :: AttrOrderMap + _hdOo_case :: Bool + _hdOo_cata :: Bool + _hdOo_data :: Bool + _hdOo_dovisit :: Bool + _hdOo_newtypes :: Bool + _hdOo_rename :: Bool + _hdOo_sem :: Bool + _hdOo_sig :: Bool + _hdOo_unbox :: Bool + _hdOo_wantvisit :: Bool + _hdOprefix :: String + _hdOvcount :: Int + _tlOacount :: Int + _tlOallnts :: ([Identifier]) + _tlOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) + _tlOcInterfaceMap :: CInterfaceMap + _tlOcVisitsMap :: CVisitsMap + _tlOmanualAttrDepMap :: AttrOrderMap + _tlOo_case :: Bool + _tlOo_cata :: Bool + _tlOo_data :: Bool + _tlOo_dovisit :: Bool + _tlOo_newtypes :: Bool + _tlOo_rename :: Bool + _tlOo_sem :: Bool + _tlOo_sig :: Bool + _tlOo_unbox :: Bool + _tlOo_wantvisit :: Bool + _tlOprefix :: String + _tlOvcount :: Int + _hdIacount :: Int + _hdIadditionalDep :: (Seq Edge) + _hdIaranges :: (Seq (Int,Int,Int)) + _hdIaroundDep :: (Seq Edge) + _hdIcNonterminal :: CNonterminal + _hdIdirectDep :: (Seq Edge) + _hdIerrors :: (Seq Error) + _hdIinstDep :: (Seq Edge) + _hdInAutoRules :: Int + _hdInExplicitRules :: Int + _hdInonts :: ([(NontermIdent,[ConstructorIdent])]) + _hdIntattrs :: (Seq (Vertex,NTAttr)) + _hdIrules :: (Seq (Vertex,CRule)) + _hdIvcount :: Int + _tlIacount :: Int + _tlIadditionalDep :: (Seq Edge) + _tlIaranges :: (Seq (Int,Int,Int)) + _tlIaroundDep :: (Seq Edge) + _tlIcNonterminals :: CNonterminals + _tlIdirectDep :: (Seq Edge) + _tlIerrors :: (Seq Error) + _tlIinstDep :: (Seq Edge) + _tlInAutoRules :: Int + _tlInExplicitRules :: Int + _tlInonts :: ([(NontermIdent,[ConstructorIdent])]) + _tlIntattrs :: (Seq (Vertex,NTAttr)) + _tlIrules :: (Seq (Vertex,CRule)) + _tlIvcount :: Int + -- "Order.ag"(line 565, column 12) + _lhsOcNonterminals = + ({-# LINE 565 "Order.ag" #-} + _hdIcNonterminal : _tlIcNonterminals + {-# LINE 1716 "Order.hs" #-}) + -- use rule "Order.ag"(line 283, column 60) + _lhsOadditionalDep = + ({-# LINE 283 "Order.ag" #-} + _hdIadditionalDep Seq.>< _tlIadditionalDep + {-# LINE 1721 "Order.hs" #-}) + -- use rule "Order.ag"(line 445, column 36) + _lhsOaranges = + ({-# LINE 445 "Order.ag" #-} + _hdIaranges Seq.>< _tlIaranges + {-# LINE 1726 "Order.hs" #-}) + -- use rule "Order.ag"(line 358, column 24) + _lhsOaroundDep = + ({-# LINE 358 "Order.ag" #-} + _hdIaroundDep Seq.>< _tlIaroundDep + {-# LINE 1731 "Order.hs" #-}) + -- use rule "Order.ag"(line 269, column 33) + _lhsOdirectDep = + ({-# LINE 269 "Order.ag" #-} + _hdIdirectDep Seq.>< _tlIdirectDep + {-# LINE 1736 "Order.hs" #-}) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + _hdIerrors Seq.>< _tlIerrors + {-# LINE 1741 "Order.hs" #-}) + -- use rule "Order.ag"(line 312, column 31) + _lhsOinstDep = + ({-# LINE 312 "Order.ag" #-} + _hdIinstDep Seq.>< _tlIinstDep + {-# LINE 1746 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnAutoRules = + ({-# LINE 61 "Order.ag" #-} + _hdInAutoRules + _tlInAutoRules + {-# LINE 1751 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnExplicitRules = + ({-# LINE 61 "Order.ag" #-} + _hdInExplicitRules + _tlInExplicitRules + {-# LINE 1756 "Order.hs" #-}) + -- use rule "Order.ag"(line 462, column 43) + _lhsOnonts = + ({-# LINE 462 "Order.ag" #-} + _hdInonts ++ _tlInonts + {-# LINE 1761 "Order.hs" #-}) + -- use rule "Order.ag"(line 444, column 35) + _lhsOntattrs = + ({-# LINE 444 "Order.ag" #-} + _hdIntattrs Seq.>< _tlIntattrs + {-# LINE 1766 "Order.hs" #-}) + -- use rule "Order.ag"(line 259, column 18) + _lhsOrules = + ({-# LINE 259 "Order.ag" #-} + _hdIrules Seq.>< _tlIrules + {-# LINE 1771 "Order.hs" #-}) + -- copy rule (up) + _lhsOacount = + ({-# LINE 444 "Order.ag" #-} + _tlIacount + {-# LINE 1776 "Order.hs" #-}) + -- copy rule (up) + _lhsOvcount = + ({-# LINE 258 "Order.ag" #-} + _tlIvcount + {-# LINE 1781 "Order.hs" #-}) + -- copy rule (down) + _hdOacount = + ({-# LINE 444 "Order.ag" #-} + _lhsIacount + {-# LINE 1786 "Order.hs" #-}) + -- copy rule (down) + _hdOallnts = + ({-# LINE 590 "Order.ag" #-} + _lhsIallnts + {-# LINE 1791 "Order.hs" #-}) + -- copy rule (down) + _hdOaroundMap = + ({-# LINE 361 "Order.ag" #-} + _lhsIaroundMap + {-# LINE 1796 "Order.hs" #-}) + -- copy rule (down) + _hdOcInterfaceMap = + ({-# LINE 538 "Order.ag" #-} + _lhsIcInterfaceMap + {-# LINE 1801 "Order.hs" #-}) + -- copy rule (down) + _hdOcVisitsMap = + ({-# LINE 545 "Order.ag" #-} + _lhsIcVisitsMap + {-# LINE 1806 "Order.hs" #-}) + -- copy rule (down) + _hdOmanualAttrDepMap = + ({-# LINE 283 "Order.ag" #-} + _lhsImanualAttrDepMap + {-# LINE 1811 "Order.hs" #-}) + -- copy rule (down) + _hdOo_case = + ({-# LINE 117 "Order.ag" #-} + _lhsIo_case + {-# LINE 1816 "Order.hs" #-}) + -- copy rule (down) + _hdOo_cata = + ({-# LINE 111 "Order.ag" #-} + _lhsIo_cata + {-# LINE 1821 "Order.hs" #-}) + -- copy rule (down) + _hdOo_data = + ({-# LINE 120 "Order.ag" #-} + _lhsIo_data + {-# LINE 1826 "Order.hs" #-}) + -- copy rule (down) + _hdOo_dovisit = + ({-# LINE 116 "Order.ag" #-} + _lhsIo_dovisit + {-# LINE 1831 "Order.hs" #-}) + -- copy rule (down) + _hdOo_newtypes = + ({-# LINE 110 "Order.ag" #-} + _lhsIo_newtypes + {-# LINE 1836 "Order.hs" #-}) + -- copy rule (down) + _hdOo_rename = + ({-# LINE 114 "Order.ag" #-} + _lhsIo_rename + {-# LINE 1841 "Order.hs" #-}) + -- copy rule (down) + _hdOo_sem = + ({-# LINE 113 "Order.ag" #-} + _lhsIo_sem + {-# LINE 1846 "Order.hs" #-}) + -- copy rule (down) + _hdOo_sig = + ({-# LINE 112 "Order.ag" #-} + _lhsIo_sig + {-# LINE 1851 "Order.hs" #-}) + -- copy rule (down) + _hdOo_unbox = + ({-# LINE 119 "Order.ag" #-} + _lhsIo_unbox + {-# LINE 1856 "Order.hs" #-}) + -- copy rule (down) + _hdOo_wantvisit = + ({-# LINE 115 "Order.ag" #-} + _lhsIo_wantvisit + {-# LINE 1861 "Order.hs" #-}) + -- copy rule (down) + _hdOprefix = + ({-# LINE 118 "Order.ag" #-} + _lhsIprefix + {-# LINE 1866 "Order.hs" #-}) + -- copy rule (down) + _hdOvcount = + ({-# LINE 258 "Order.ag" #-} + _lhsIvcount + {-# LINE 1871 "Order.hs" #-}) + -- copy rule (chain) + _tlOacount = + ({-# LINE 444 "Order.ag" #-} + _hdIacount + {-# LINE 1876 "Order.hs" #-}) + -- copy rule (down) + _tlOallnts = + ({-# LINE 590 "Order.ag" #-} + _lhsIallnts + {-# LINE 1881 "Order.hs" #-}) + -- copy rule (down) + _tlOaroundMap = + ({-# LINE 361 "Order.ag" #-} + _lhsIaroundMap + {-# LINE 1886 "Order.hs" #-}) + -- copy rule (down) + _tlOcInterfaceMap = + ({-# LINE 538 "Order.ag" #-} + _lhsIcInterfaceMap + {-# LINE 1891 "Order.hs" #-}) + -- copy rule (down) + _tlOcVisitsMap = + ({-# LINE 545 "Order.ag" #-} + _lhsIcVisitsMap + {-# LINE 1896 "Order.hs" #-}) + -- copy rule (down) + _tlOmanualAttrDepMap = + ({-# LINE 283 "Order.ag" #-} + _lhsImanualAttrDepMap + {-# LINE 1901 "Order.hs" #-}) + -- copy rule (down) + _tlOo_case = + ({-# LINE 117 "Order.ag" #-} + _lhsIo_case + {-# LINE 1906 "Order.hs" #-}) + -- copy rule (down) + _tlOo_cata = + ({-# LINE 111 "Order.ag" #-} + _lhsIo_cata + {-# LINE 1911 "Order.hs" #-}) + -- copy rule (down) + _tlOo_data = + ({-# LINE 120 "Order.ag" #-} + _lhsIo_data + {-# LINE 1916 "Order.hs" #-}) + -- copy rule (down) + _tlOo_dovisit = + ({-# LINE 116 "Order.ag" #-} + _lhsIo_dovisit + {-# LINE 1921 "Order.hs" #-}) + -- copy rule (down) + _tlOo_newtypes = + ({-# LINE 110 "Order.ag" #-} + _lhsIo_newtypes + {-# LINE 1926 "Order.hs" #-}) + -- copy rule (down) + _tlOo_rename = + ({-# LINE 114 "Order.ag" #-} + _lhsIo_rename + {-# LINE 1931 "Order.hs" #-}) + -- copy rule (down) + _tlOo_sem = + ({-# LINE 113 "Order.ag" #-} + _lhsIo_sem + {-# LINE 1936 "Order.hs" #-}) + -- copy rule (down) + _tlOo_sig = + ({-# LINE 112 "Order.ag" #-} + _lhsIo_sig + {-# LINE 1941 "Order.hs" #-}) + -- copy rule (down) + _tlOo_unbox = + ({-# LINE 119 "Order.ag" #-} + _lhsIo_unbox + {-# LINE 1946 "Order.hs" #-}) + -- copy rule (down) + _tlOo_wantvisit = + ({-# LINE 115 "Order.ag" #-} + _lhsIo_wantvisit + {-# LINE 1951 "Order.hs" #-}) + -- copy rule (down) + _tlOprefix = + ({-# LINE 118 "Order.ag" #-} + _lhsIprefix + {-# LINE 1956 "Order.hs" #-}) + -- copy rule (chain) + _tlOvcount = + ({-# LINE 258 "Order.ag" #-} + _hdIvcount + {-# LINE 1961 "Order.hs" #-}) + ( _hdIacount,_hdIadditionalDep,_hdIaranges,_hdIaroundDep,_hdIcNonterminal,_hdIdirectDep,_hdIerrors,_hdIinstDep,_hdInAutoRules,_hdInExplicitRules,_hdInonts,_hdIntattrs,_hdIrules,_hdIvcount) = + (hd_ _hdOacount _hdOallnts _hdOaroundMap _hdOcInterfaceMap _hdOcVisitsMap _hdOmanualAttrDepMap _hdOo_case _hdOo_cata _hdOo_data _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_unbox _hdOo_wantvisit _hdOprefix _hdOvcount ) + ( _tlIacount,_tlIadditionalDep,_tlIaranges,_tlIaroundDep,_tlIcNonterminals,_tlIdirectDep,_tlIerrors,_tlIinstDep,_tlInAutoRules,_tlInExplicitRules,_tlInonts,_tlIntattrs,_tlIrules,_tlIvcount) = + (tl_ _tlOacount _tlOallnts _tlOaroundMap _tlOcInterfaceMap _tlOcVisitsMap _tlOmanualAttrDepMap _tlOo_case _tlOo_cata _tlOo_data _tlOo_dovisit _tlOo_newtypes _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_unbox _tlOo_wantvisit _tlOprefix _tlOvcount ) + in ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminals,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOvcount))) ) +sem_Nonterminals_Nil :: T_Nonterminals +sem_Nonterminals_Nil = + (T_Nonterminals (\ _lhsIacount + _lhsIallnts + _lhsIaroundMap + _lhsIcInterfaceMap + _lhsIcVisitsMap + _lhsImanualAttrDepMap + _lhsIo_case + _lhsIo_cata + _lhsIo_data + _lhsIo_dovisit + _lhsIo_newtypes + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_unbox + _lhsIo_wantvisit + _lhsIprefix + _lhsIvcount -> + (let _lhsOcNonterminals :: CNonterminals + _lhsOadditionalDep :: (Seq Edge) + _lhsOaranges :: (Seq (Int,Int,Int)) + _lhsOaroundDep :: (Seq Edge) + _lhsOdirectDep :: (Seq Edge) + _lhsOerrors :: (Seq Error) + _lhsOinstDep :: (Seq Edge) + _lhsOnAutoRules :: Int + _lhsOnExplicitRules :: Int + _lhsOnonts :: ([(NontermIdent,[ConstructorIdent])]) + _lhsOntattrs :: (Seq (Vertex,NTAttr)) + _lhsOrules :: (Seq (Vertex,CRule)) + _lhsOacount :: Int + _lhsOvcount :: Int + -- "Order.ag"(line 566, column 12) + _lhsOcNonterminals = + ({-# LINE 566 "Order.ag" #-} + [] + {-# LINE 2005 "Order.hs" #-}) + -- use rule "Order.ag"(line 283, column 60) + _lhsOadditionalDep = + ({-# LINE 283 "Order.ag" #-} + Seq.empty + {-# LINE 2010 "Order.hs" #-}) + -- use rule "Order.ag"(line 445, column 36) + _lhsOaranges = + ({-# LINE 445 "Order.ag" #-} + Seq.empty + {-# LINE 2015 "Order.hs" #-}) + -- use rule "Order.ag"(line 358, column 24) + _lhsOaroundDep = + ({-# LINE 358 "Order.ag" #-} + Seq.empty + {-# LINE 2020 "Order.hs" #-}) + -- use rule "Order.ag"(line 269, column 33) + _lhsOdirectDep = + ({-# LINE 269 "Order.ag" #-} + Seq.empty + {-# LINE 2025 "Order.hs" #-}) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + Seq.empty + {-# LINE 2030 "Order.hs" #-}) + -- use rule "Order.ag"(line 312, column 31) + _lhsOinstDep = + ({-# LINE 312 "Order.ag" #-} + Seq.empty + {-# LINE 2035 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnAutoRules = + ({-# LINE 61 "Order.ag" #-} + 0 + {-# LINE 2040 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnExplicitRules = + ({-# LINE 61 "Order.ag" #-} + 0 + {-# LINE 2045 "Order.hs" #-}) + -- use rule "Order.ag"(line 462, column 43) + _lhsOnonts = + ({-# LINE 462 "Order.ag" #-} + [] + {-# LINE 2050 "Order.hs" #-}) + -- use rule "Order.ag"(line 444, column 35) + _lhsOntattrs = + ({-# LINE 444 "Order.ag" #-} + Seq.empty + {-# LINE 2055 "Order.hs" #-}) + -- use rule "Order.ag"(line 259, column 18) + _lhsOrules = + ({-# LINE 259 "Order.ag" #-} + Seq.empty + {-# LINE 2060 "Order.hs" #-}) + -- copy rule (chain) + _lhsOacount = + ({-# LINE 444 "Order.ag" #-} + _lhsIacount + {-# LINE 2065 "Order.hs" #-}) + -- copy rule (chain) + _lhsOvcount = + ({-# LINE 258 "Order.ag" #-} + _lhsIvcount + {-# LINE 2070 "Order.hs" #-}) + in ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminals,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOvcount))) ) +-- Pattern ----------------------------------------------------- +{- + visit 0: + inherited attributes: + allTypeSigs : Map Identifier Type + altAttrs : Map AltAttr Vertex + con : Identifier + inh : Attributes + nt : Identifier + syn : Attributes + synthesized attributes: + copy : SELF + errors : Seq Error + gathAltAttrs : [AltAttr] + instVars : [Identifier] + locVars : [Identifier] + patternAttrs : [(Identifier,Identifier,Bool,Patterns)] + 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 ((Map Identifier Type) -> + (Map AltAttr Vertex) -> + Identifier -> + Attributes -> + Identifier -> + Attributes -> + ( Pattern,(Seq Error),([AltAttr]),([Identifier]),([Identifier]),([(Identifier,Identifier,Bool,Patterns)]))) +data Inh_Pattern = Inh_Pattern {allTypeSigs_Inh_Pattern :: !(Map Identifier Type),altAttrs_Inh_Pattern :: !(Map AltAttr Vertex),con_Inh_Pattern :: !(Identifier),inh_Inh_Pattern :: !(Attributes),nt_Inh_Pattern :: !(Identifier),syn_Inh_Pattern :: !(Attributes)} +data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern),errors_Syn_Pattern :: !(Seq Error),gathAltAttrs_Syn_Pattern :: !([AltAttr]),instVars_Syn_Pattern :: !([Identifier]),locVars_Syn_Pattern :: !([Identifier]),patternAttrs_Syn_Pattern :: !([(Identifier,Identifier,Bool,Patterns)])} +wrap_Pattern :: T_Pattern -> + Inh_Pattern -> + Syn_Pattern +wrap_Pattern (T_Pattern sem ) (Inh_Pattern _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn ) = + (let ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs) = + (sem _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn ) + in (Syn_Pattern _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs )) +sem_Pattern_Alias :: Identifier -> + Identifier -> + T_Pattern -> + T_Patterns -> + T_Pattern +sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) = + (T_Pattern (\ _lhsIallTypeSigs + _lhsIaltAttrs + _lhsIcon + _lhsIinh + _lhsInt + _lhsIsyn -> + (let _lhsOgathAltAttrs :: ([AltAttr]) + _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + _lhsOlocVars :: ([Identifier]) + _lhsOinstVars :: ([Identifier]) + _lhsOerrors :: (Seq Error) + _lhsOcopy :: Pattern + _patOallTypeSigs :: (Map Identifier Type) + _patOaltAttrs :: (Map AltAttr Vertex) + _patOcon :: Identifier + _patOinh :: Attributes + _patOnt :: Identifier + _patOsyn :: Attributes + _partsOallTypeSigs :: (Map Identifier Type) + _partsOaltAttrs :: (Map AltAttr Vertex) + _partsOcon :: Identifier + _partsOinh :: Attributes + _partsOnt :: Identifier + _partsOsyn :: Attributes + _patIcopy :: Pattern + _patIerrors :: (Seq Error) + _patIgathAltAttrs :: ([AltAttr]) + _patIinstVars :: ([Identifier]) + _patIlocVars :: ([Identifier]) + _patIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + _partsIcopy :: Patterns + _partsIerrors :: (Seq Error) + _partsIgathAltAttrs :: ([AltAttr]) + _partsIinstVars :: ([Identifier]) + _partsIlocVars :: ([Identifier]) + _partsIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + -- "Order.ag"(line 184, column 12) + _lhsOgathAltAttrs = + ({-# LINE 184 "Order.ag" #-} + [AltAttr field_ attr_ (field_ == _LOC || field_ == _INST)] + {-# LINE 2192 "Order.hs" #-}) + -- "Order.ag"(line 252, column 12) + _lhsOpatternAttrs = + ({-# LINE 252 "Order.ag" #-} + [(field_,attr_,(field_ == _LOC || field_ == _INST),_partsIcopy)] + {-# LINE 2197 "Order.hs" #-}) + -- "Order.ag"(line 623, column 14) + _lhsOlocVars = + ({-# LINE 623 "Order.ag" #-} + if field_ == _LOC + then [attr_] + else [] + {-# LINE 2204 "Order.hs" #-}) + -- "Order.ag"(line 626, column 14) + _lhsOinstVars = + ({-# LINE 626 "Order.ag" #-} + if field_ == _INST + then [attr_] + else [] + {-# LINE 2211 "Order.hs" #-}) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + _patIerrors Seq.>< _partsIerrors + {-# LINE 2216 "Order.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Alias field_ attr_ _patIcopy _partsIcopy + {-# LINE 2221 "Order.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 2226 "Order.hs" #-}) + -- copy rule (down) + _patOallTypeSigs = + ({-# LINE 478 "Order.ag" #-} + _lhsIallTypeSigs + {-# LINE 2231 "Order.hs" #-}) + -- copy rule (down) + _patOaltAttrs = + ({-# LINE 186 "Order.ag" #-} + _lhsIaltAttrs + {-# LINE 2236 "Order.hs" #-}) + -- copy rule (down) + _patOcon = + ({-# LINE 90 "Order.ag" #-} + _lhsIcon + {-# LINE 2241 "Order.hs" #-}) + -- copy rule (down) + _patOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 2246 "Order.hs" #-}) + -- copy rule (down) + _patOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 2251 "Order.hs" #-}) + -- copy rule (down) + _patOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 2256 "Order.hs" #-}) + -- copy rule (down) + _partsOallTypeSigs = + ({-# LINE 478 "Order.ag" #-} + _lhsIallTypeSigs + {-# LINE 2261 "Order.hs" #-}) + -- copy rule (down) + _partsOaltAttrs = + ({-# LINE 186 "Order.ag" #-} + _lhsIaltAttrs + {-# LINE 2266 "Order.hs" #-}) + -- copy rule (down) + _partsOcon = + ({-# LINE 90 "Order.ag" #-} + _lhsIcon + {-# LINE 2271 "Order.hs" #-}) + -- copy rule (down) + _partsOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 2276 "Order.hs" #-}) + -- copy rule (down) + _partsOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 2281 "Order.hs" #-}) + -- copy rule (down) + _partsOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 2286 "Order.hs" #-}) + ( _patIcopy,_patIerrors,_patIgathAltAttrs,_patIinstVars,_patIlocVars,_patIpatternAttrs) = + (pat_ _patOallTypeSigs _patOaltAttrs _patOcon _patOinh _patOnt _patOsyn ) + ( _partsIcopy,_partsIerrors,_partsIgathAltAttrs,_partsIinstVars,_partsIlocVars,_partsIpatternAttrs) = + (parts_ _partsOallTypeSigs _partsOaltAttrs _partsOcon _partsOinh _partsOnt _partsOsyn ) + in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) +sem_Pattern_Constr :: ConstructorIdent -> + T_Patterns -> + T_Pattern +sem_Pattern_Constr name_ (T_Patterns pats_ ) = + (T_Pattern (\ _lhsIallTypeSigs + _lhsIaltAttrs + _lhsIcon + _lhsIinh + _lhsInt + _lhsIsyn -> + (let _lhsOerrors :: (Seq Error) + _lhsOgathAltAttrs :: ([AltAttr]) + _lhsOinstVars :: ([Identifier]) + _lhsOlocVars :: ([Identifier]) + _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + _lhsOcopy :: Pattern + _patsOallTypeSigs :: (Map Identifier Type) + _patsOaltAttrs :: (Map AltAttr Vertex) + _patsOcon :: Identifier + _patsOinh :: Attributes + _patsOnt :: Identifier + _patsOsyn :: Attributes + _patsIcopy :: Patterns + _patsIerrors :: (Seq Error) + _patsIgathAltAttrs :: ([AltAttr]) + _patsIinstVars :: ([Identifier]) + _patsIlocVars :: ([Identifier]) + _patsIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + _patsIerrors + {-# LINE 2324 "Order.hs" #-}) + -- use rule "Order.ag"(line 170, column 68) + _lhsOgathAltAttrs = + ({-# LINE 170 "Order.ag" #-} + _patsIgathAltAttrs + {-# LINE 2329 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 86) + _lhsOinstVars = + ({-# LINE 620 "Order.ag" #-} + _patsIinstVars + {-# LINE 2334 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 48) + _lhsOlocVars = + ({-# LINE 620 "Order.ag" #-} + _patsIlocVars + {-# LINE 2339 "Order.hs" #-}) + -- use rule "Order.ag"(line 249, column 42) + _lhsOpatternAttrs = + ({-# LINE 249 "Order.ag" #-} + _patsIpatternAttrs + {-# LINE 2344 "Order.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Constr name_ _patsIcopy + {-# LINE 2349 "Order.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 2354 "Order.hs" #-}) + -- copy rule (down) + _patsOallTypeSigs = + ({-# LINE 478 "Order.ag" #-} + _lhsIallTypeSigs + {-# LINE 2359 "Order.hs" #-}) + -- copy rule (down) + _patsOaltAttrs = + ({-# LINE 186 "Order.ag" #-} + _lhsIaltAttrs + {-# LINE 2364 "Order.hs" #-}) + -- copy rule (down) + _patsOcon = + ({-# LINE 90 "Order.ag" #-} + _lhsIcon + {-# LINE 2369 "Order.hs" #-}) + -- copy rule (down) + _patsOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 2374 "Order.hs" #-}) + -- copy rule (down) + _patsOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 2379 "Order.hs" #-}) + -- copy rule (down) + _patsOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 2384 "Order.hs" #-}) + ( _patsIcopy,_patsIerrors,_patsIgathAltAttrs,_patsIinstVars,_patsIlocVars,_patsIpatternAttrs) = + (pats_ _patsOallTypeSigs _patsOaltAttrs _patsOcon _patsOinh _patsOnt _patsOsyn ) + in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) +sem_Pattern_Irrefutable :: T_Pattern -> + T_Pattern +sem_Pattern_Irrefutable (T_Pattern pat_ ) = + (T_Pattern (\ _lhsIallTypeSigs + _lhsIaltAttrs + _lhsIcon + _lhsIinh + _lhsInt + _lhsIsyn -> + (let _lhsOerrors :: (Seq Error) + _lhsOgathAltAttrs :: ([AltAttr]) + _lhsOinstVars :: ([Identifier]) + _lhsOlocVars :: ([Identifier]) + _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + _lhsOcopy :: Pattern + _patOallTypeSigs :: (Map Identifier Type) + _patOaltAttrs :: (Map AltAttr Vertex) + _patOcon :: Identifier + _patOinh :: Attributes + _patOnt :: Identifier + _patOsyn :: Attributes + _patIcopy :: Pattern + _patIerrors :: (Seq Error) + _patIgathAltAttrs :: ([AltAttr]) + _patIinstVars :: ([Identifier]) + _patIlocVars :: ([Identifier]) + _patIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + _patIerrors + {-# LINE 2419 "Order.hs" #-}) + -- use rule "Order.ag"(line 170, column 68) + _lhsOgathAltAttrs = + ({-# LINE 170 "Order.ag" #-} + _patIgathAltAttrs + {-# LINE 2424 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 86) + _lhsOinstVars = + ({-# LINE 620 "Order.ag" #-} + _patIinstVars + {-# LINE 2429 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 48) + _lhsOlocVars = + ({-# LINE 620 "Order.ag" #-} + _patIlocVars + {-# LINE 2434 "Order.hs" #-}) + -- use rule "Order.ag"(line 249, column 42) + _lhsOpatternAttrs = + ({-# LINE 249 "Order.ag" #-} + _patIpatternAttrs + {-# LINE 2439 "Order.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Irrefutable _patIcopy + {-# LINE 2444 "Order.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 2449 "Order.hs" #-}) + -- copy rule (down) + _patOallTypeSigs = + ({-# LINE 478 "Order.ag" #-} + _lhsIallTypeSigs + {-# LINE 2454 "Order.hs" #-}) + -- copy rule (down) + _patOaltAttrs = + ({-# LINE 186 "Order.ag" #-} + _lhsIaltAttrs + {-# LINE 2459 "Order.hs" #-}) + -- copy rule (down) + _patOcon = + ({-# LINE 90 "Order.ag" #-} + _lhsIcon + {-# LINE 2464 "Order.hs" #-}) + -- copy rule (down) + _patOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 2469 "Order.hs" #-}) + -- copy rule (down) + _patOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 2474 "Order.hs" #-}) + -- copy rule (down) + _patOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 2479 "Order.hs" #-}) + ( _patIcopy,_patIerrors,_patIgathAltAttrs,_patIinstVars,_patIlocVars,_patIpatternAttrs) = + (pat_ _patOallTypeSigs _patOaltAttrs _patOcon _patOinh _patOnt _patOsyn ) + in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) +sem_Pattern_Product :: Pos -> + T_Patterns -> + T_Pattern +sem_Pattern_Product pos_ (T_Patterns pats_ ) = + (T_Pattern (\ _lhsIallTypeSigs + _lhsIaltAttrs + _lhsIcon + _lhsIinh + _lhsInt + _lhsIsyn -> + (let _lhsOerrors :: (Seq Error) + _lhsOgathAltAttrs :: ([AltAttr]) + _lhsOinstVars :: ([Identifier]) + _lhsOlocVars :: ([Identifier]) + _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + _lhsOcopy :: Pattern + _patsOallTypeSigs :: (Map Identifier Type) + _patsOaltAttrs :: (Map AltAttr Vertex) + _patsOcon :: Identifier + _patsOinh :: Attributes + _patsOnt :: Identifier + _patsOsyn :: Attributes + _patsIcopy :: Patterns + _patsIerrors :: (Seq Error) + _patsIgathAltAttrs :: ([AltAttr]) + _patsIinstVars :: ([Identifier]) + _patsIlocVars :: ([Identifier]) + _patsIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + _patsIerrors + {-# LINE 2515 "Order.hs" #-}) + -- use rule "Order.ag"(line 170, column 68) + _lhsOgathAltAttrs = + ({-# LINE 170 "Order.ag" #-} + _patsIgathAltAttrs + {-# LINE 2520 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 86) + _lhsOinstVars = + ({-# LINE 620 "Order.ag" #-} + _patsIinstVars + {-# LINE 2525 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 48) + _lhsOlocVars = + ({-# LINE 620 "Order.ag" #-} + _patsIlocVars + {-# LINE 2530 "Order.hs" #-}) + -- use rule "Order.ag"(line 249, column 42) + _lhsOpatternAttrs = + ({-# LINE 249 "Order.ag" #-} + _patsIpatternAttrs + {-# LINE 2535 "Order.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Product pos_ _patsIcopy + {-# LINE 2540 "Order.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 2545 "Order.hs" #-}) + -- copy rule (down) + _patsOallTypeSigs = + ({-# LINE 478 "Order.ag" #-} + _lhsIallTypeSigs + {-# LINE 2550 "Order.hs" #-}) + -- copy rule (down) + _patsOaltAttrs = + ({-# LINE 186 "Order.ag" #-} + _lhsIaltAttrs + {-# LINE 2555 "Order.hs" #-}) + -- copy rule (down) + _patsOcon = + ({-# LINE 90 "Order.ag" #-} + _lhsIcon + {-# LINE 2560 "Order.hs" #-}) + -- copy rule (down) + _patsOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 2565 "Order.hs" #-}) + -- copy rule (down) + _patsOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 2570 "Order.hs" #-}) + -- copy rule (down) + _patsOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 2575 "Order.hs" #-}) + ( _patsIcopy,_patsIerrors,_patsIgathAltAttrs,_patsIinstVars,_patsIlocVars,_patsIpatternAttrs) = + (pats_ _patsOallTypeSigs _patsOaltAttrs _patsOcon _patsOinh _patsOnt _patsOsyn ) + in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) +sem_Pattern_Underscore :: Pos -> + T_Pattern +sem_Pattern_Underscore pos_ = + (T_Pattern (\ _lhsIallTypeSigs + _lhsIaltAttrs + _lhsIcon + _lhsIinh + _lhsInt + _lhsIsyn -> + (let _lhsOerrors :: (Seq Error) + _lhsOgathAltAttrs :: ([AltAttr]) + _lhsOinstVars :: ([Identifier]) + _lhsOlocVars :: ([Identifier]) + _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + _lhsOcopy :: Pattern + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + Seq.empty + {-# LINE 2598 "Order.hs" #-}) + -- use rule "Order.ag"(line 170, column 68) + _lhsOgathAltAttrs = + ({-# LINE 170 "Order.ag" #-} + [] + {-# LINE 2603 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 86) + _lhsOinstVars = + ({-# LINE 620 "Order.ag" #-} + [] + {-# LINE 2608 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 48) + _lhsOlocVars = + ({-# LINE 620 "Order.ag" #-} + [] + {-# LINE 2613 "Order.hs" #-}) + -- use rule "Order.ag"(line 249, column 42) + _lhsOpatternAttrs = + ({-# LINE 249 "Order.ag" #-} + [] + {-# LINE 2618 "Order.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Underscore pos_ + {-# LINE 2623 "Order.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 2628 "Order.hs" #-}) + in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) +-- Patterns ---------------------------------------------------- +{- + visit 0: + inherited attributes: + allTypeSigs : Map Identifier Type + altAttrs : Map AltAttr Vertex + con : Identifier + inh : Attributes + nt : Identifier + syn : Attributes + synthesized attributes: + copy : SELF + errors : Seq Error + gathAltAttrs : [AltAttr] + instVars : [Identifier] + locVars : [Identifier] + patternAttrs : [(Identifier,Identifier,Bool,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 ((Map Identifier Type) -> + (Map AltAttr Vertex) -> + Identifier -> + Attributes -> + Identifier -> + Attributes -> + ( Patterns,(Seq Error),([AltAttr]),([Identifier]),([Identifier]),([(Identifier,Identifier,Bool,Patterns)]))) +data Inh_Patterns = Inh_Patterns {allTypeSigs_Inh_Patterns :: !(Map Identifier Type),altAttrs_Inh_Patterns :: !(Map AltAttr Vertex),con_Inh_Patterns :: !(Identifier),inh_Inh_Patterns :: !(Attributes),nt_Inh_Patterns :: !(Identifier),syn_Inh_Patterns :: !(Attributes)} +data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns),errors_Syn_Patterns :: !(Seq Error),gathAltAttrs_Syn_Patterns :: !([AltAttr]),instVars_Syn_Patterns :: !([Identifier]),locVars_Syn_Patterns :: !([Identifier]),patternAttrs_Syn_Patterns :: !([(Identifier,Identifier,Bool,Patterns)])} +wrap_Patterns :: T_Patterns -> + Inh_Patterns -> + Syn_Patterns +wrap_Patterns (T_Patterns sem ) (Inh_Patterns _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn ) = + (let ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs) = + (sem _lhsIallTypeSigs _lhsIaltAttrs _lhsIcon _lhsIinh _lhsInt _lhsIsyn ) + in (Syn_Patterns _lhsOcopy _lhsOerrors _lhsOgathAltAttrs _lhsOinstVars _lhsOlocVars _lhsOpatternAttrs )) +sem_Patterns_Cons :: T_Pattern -> + T_Patterns -> + T_Patterns +sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) = + (T_Patterns (\ _lhsIallTypeSigs + _lhsIaltAttrs + _lhsIcon + _lhsIinh + _lhsInt + _lhsIsyn -> + (let _lhsOerrors :: (Seq Error) + _lhsOgathAltAttrs :: ([AltAttr]) + _lhsOinstVars :: ([Identifier]) + _lhsOlocVars :: ([Identifier]) + _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + _lhsOcopy :: Patterns + _hdOallTypeSigs :: (Map Identifier Type) + _hdOaltAttrs :: (Map AltAttr Vertex) + _hdOcon :: Identifier + _hdOinh :: Attributes + _hdOnt :: Identifier + _hdOsyn :: Attributes + _tlOallTypeSigs :: (Map Identifier Type) + _tlOaltAttrs :: (Map AltAttr Vertex) + _tlOcon :: Identifier + _tlOinh :: Attributes + _tlOnt :: Identifier + _tlOsyn :: Attributes + _hdIcopy :: Pattern + _hdIerrors :: (Seq Error) + _hdIgathAltAttrs :: ([AltAttr]) + _hdIinstVars :: ([Identifier]) + _hdIlocVars :: ([Identifier]) + _hdIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + _tlIcopy :: Patterns + _tlIerrors :: (Seq Error) + _tlIgathAltAttrs :: ([AltAttr]) + _tlIinstVars :: ([Identifier]) + _tlIlocVars :: ([Identifier]) + _tlIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + _hdIerrors Seq.>< _tlIerrors + {-# LINE 2723 "Order.hs" #-}) + -- use rule "Order.ag"(line 170, column 68) + _lhsOgathAltAttrs = + ({-# LINE 170 "Order.ag" #-} + _hdIgathAltAttrs ++ _tlIgathAltAttrs + {-# LINE 2728 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 86) + _lhsOinstVars = + ({-# LINE 620 "Order.ag" #-} + _hdIinstVars ++ _tlIinstVars + {-# LINE 2733 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 48) + _lhsOlocVars = + ({-# LINE 620 "Order.ag" #-} + _hdIlocVars ++ _tlIlocVars + {-# LINE 2738 "Order.hs" #-}) + -- use rule "Order.ag"(line 249, column 42) + _lhsOpatternAttrs = + ({-# LINE 249 "Order.ag" #-} + _hdIpatternAttrs ++ _tlIpatternAttrs + {-# LINE 2743 "Order.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 2748 "Order.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 2753 "Order.hs" #-}) + -- copy rule (down) + _hdOallTypeSigs = + ({-# LINE 478 "Order.ag" #-} + _lhsIallTypeSigs + {-# LINE 2758 "Order.hs" #-}) + -- copy rule (down) + _hdOaltAttrs = + ({-# LINE 186 "Order.ag" #-} + _lhsIaltAttrs + {-# LINE 2763 "Order.hs" #-}) + -- copy rule (down) + _hdOcon = + ({-# LINE 90 "Order.ag" #-} + _lhsIcon + {-# LINE 2768 "Order.hs" #-}) + -- copy rule (down) + _hdOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 2773 "Order.hs" #-}) + -- copy rule (down) + _hdOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 2778 "Order.hs" #-}) + -- copy rule (down) + _hdOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 2783 "Order.hs" #-}) + -- copy rule (down) + _tlOallTypeSigs = + ({-# LINE 478 "Order.ag" #-} + _lhsIallTypeSigs + {-# LINE 2788 "Order.hs" #-}) + -- copy rule (down) + _tlOaltAttrs = + ({-# LINE 186 "Order.ag" #-} + _lhsIaltAttrs + {-# LINE 2793 "Order.hs" #-}) + -- copy rule (down) + _tlOcon = + ({-# LINE 90 "Order.ag" #-} + _lhsIcon + {-# LINE 2798 "Order.hs" #-}) + -- copy rule (down) + _tlOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 2803 "Order.hs" #-}) + -- copy rule (down) + _tlOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 2808 "Order.hs" #-}) + -- copy rule (down) + _tlOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 2813 "Order.hs" #-}) + ( _hdIcopy,_hdIerrors,_hdIgathAltAttrs,_hdIinstVars,_hdIlocVars,_hdIpatternAttrs) = + (hd_ _hdOallTypeSigs _hdOaltAttrs _hdOcon _hdOinh _hdOnt _hdOsyn ) + ( _tlIcopy,_tlIerrors,_tlIgathAltAttrs,_tlIinstVars,_tlIlocVars,_tlIpatternAttrs) = + (tl_ _tlOallTypeSigs _tlOaltAttrs _tlOcon _tlOinh _tlOnt _tlOsyn ) + in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) +sem_Patterns_Nil :: T_Patterns +sem_Patterns_Nil = + (T_Patterns (\ _lhsIallTypeSigs + _lhsIaltAttrs + _lhsIcon + _lhsIinh + _lhsInt + _lhsIsyn -> + (let _lhsOerrors :: (Seq Error) + _lhsOgathAltAttrs :: ([AltAttr]) + _lhsOinstVars :: ([Identifier]) + _lhsOlocVars :: ([Identifier]) + _lhsOpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + _lhsOcopy :: Patterns + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + Seq.empty + {-# LINE 2837 "Order.hs" #-}) + -- use rule "Order.ag"(line 170, column 68) + _lhsOgathAltAttrs = + ({-# LINE 170 "Order.ag" #-} + [] + {-# LINE 2842 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 86) + _lhsOinstVars = + ({-# LINE 620 "Order.ag" #-} + [] + {-# LINE 2847 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 48) + _lhsOlocVars = + ({-# LINE 620 "Order.ag" #-} + [] + {-# LINE 2852 "Order.hs" #-}) + -- use rule "Order.ag"(line 249, column 42) + _lhsOpatternAttrs = + ({-# LINE 249 "Order.ag" #-} + [] + {-# LINE 2857 "Order.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + [] + {-# LINE 2862 "Order.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 2867 "Order.hs" #-}) + in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) +-- Production -------------------------------------------------- +{- + visit 0: + inherited attributes: + allnts : [Identifier] + aroundMap : Map ConstructorIdent (Map Identifier [Expression]) + cVisitsMap : CVisitsMap + inh : Attributes + manualAttrDepMap : AttrOrderMap + nt : Identifier + o_case : Bool + o_cata : Bool + o_dovisit : Bool + o_newtypes : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_unbox : Bool + o_wantvisit : Bool + prefix : String + syn : Attributes + chained attribute: + vcount : Int + synthesized attributes: + additionalDep : Seq Edge + aroundDep : Seq Edge + cProduction : CProduction + cons : [ConstructorIdent] + directDep : Seq Edge + errors : Seq Error + instDep : Seq Edge + nAutoRules : Int + nExplicitRules : Int + rules : Seq (Vertex,CRule) + alternatives: + alternative Production: + child con : {ConstructorIdent} + child children : Children + child rules : Rules + child typeSigs : TypeSigs + visit 0: + local gathAltAttrs : _ + local altAttrs : _ + local inhRules : _ + local gathRules : _ + local manualDeps : _ + local aroundMap : _ + local aroundDep1 : _ + local aroundDep2 : _ + local cVisits : _ + local allfields : _ + local attrs : _ + local inhnames : _ + local synnames : _ +-} +-- cata +sem_Production :: Production -> + T_Production +sem_Production (Production _con _children _rules _typeSigs ) = + (sem_Production_Production _con (sem_Children _children ) (sem_Rules _rules ) (sem_TypeSigs _typeSigs ) ) +-- semantic domain +newtype T_Production = T_Production (([Identifier]) -> + (Map ConstructorIdent (Map Identifier [Expression])) -> + CVisitsMap -> + Attributes -> + AttrOrderMap -> + Identifier -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + String -> + Attributes -> + Int -> + ( (Seq Edge),(Seq Edge),CProduction,([ConstructorIdent]),(Seq Edge),(Seq Error),(Seq Edge),Int,Int,(Seq (Vertex,CRule)),Int)) +data Inh_Production = Inh_Production {allnts_Inh_Production :: !([Identifier]),aroundMap_Inh_Production :: !(Map ConstructorIdent (Map Identifier [Expression])),cVisitsMap_Inh_Production :: !(CVisitsMap),inh_Inh_Production :: !(Attributes),manualAttrDepMap_Inh_Production :: !(AttrOrderMap),nt_Inh_Production :: !(Identifier),o_case_Inh_Production :: !(Bool),o_cata_Inh_Production :: !(Bool),o_dovisit_Inh_Production :: !(Bool),o_newtypes_Inh_Production :: !(Bool),o_rename_Inh_Production :: !(Bool),o_sem_Inh_Production :: !(Bool),o_sig_Inh_Production :: !(Bool),o_unbox_Inh_Production :: !(Bool),o_wantvisit_Inh_Production :: !(Bool),prefix_Inh_Production :: !(String),syn_Inh_Production :: !(Attributes),vcount_Inh_Production :: !(Int)} +data Syn_Production = Syn_Production {additionalDep_Syn_Production :: !(Seq Edge),aroundDep_Syn_Production :: !(Seq Edge),cProduction_Syn_Production :: !(CProduction),cons_Syn_Production :: !([ConstructorIdent]),directDep_Syn_Production :: !(Seq Edge),errors_Syn_Production :: !(Seq Error),instDep_Syn_Production :: !(Seq Edge),nAutoRules_Syn_Production :: !(Int),nExplicitRules_Syn_Production :: !(Int),rules_Syn_Production :: !(Seq (Vertex,CRule)),vcount_Syn_Production :: !(Int)} +wrap_Production :: T_Production -> + Inh_Production -> + Syn_Production +wrap_Production (T_Production sem ) (Inh_Production _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsImanualAttrDepMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIvcount ) = + (let ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProduction,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount) = + (sem _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsImanualAttrDepMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIvcount ) + in (Syn_Production _lhsOadditionalDep _lhsOaroundDep _lhsOcProduction _lhsOcons _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOrules _lhsOvcount )) +sem_Production_Production :: ConstructorIdent -> + T_Children -> + T_Rules -> + T_TypeSigs -> + T_Production +sem_Production_Production con_ (T_Children children_ ) (T_Rules rules_ ) (T_TypeSigs typeSigs_ ) = + (T_Production (\ _lhsIallnts + _lhsIaroundMap + _lhsIcVisitsMap + _lhsIinh + _lhsImanualAttrDepMap + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_dovisit + _lhsIo_newtypes + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_unbox + _lhsIo_wantvisit + _lhsIprefix + _lhsIsyn + _lhsIvcount -> + (let _childrenOcon :: Identifier + _rulesOcon :: Identifier + _rulesOchildNts :: (Map Identifier NontermIdent) + _rulesOchildInhs :: (Map Identifier Attributes) + _lhsOrules :: (Seq (Vertex,CRule)) + _lhsOvcount :: Int + _lhsOadditionalDep :: (Seq Edge) + _rulesOsynsOfChildren :: (Map Identifier Attributes) + _rulesOinhsOfChildren :: (Map Identifier Attributes) + _lhsOaroundDep :: (Seq Edge) + _lhsOcons :: ([ConstructorIdent]) + _typeSigsOtypeSigs :: (Map Identifier Type) + _rulesOallTypeSigs :: (Map Identifier Type) + _lhsOcProduction :: CProduction + _lhsOdirectDep :: (Seq Edge) + _lhsOerrors :: (Seq Error) + _lhsOinstDep :: (Seq Edge) + _lhsOnAutoRules :: Int + _lhsOnExplicitRules :: Int + _childrenOallfields :: ([(Identifier,Type,Maybe (Maybe Type))]) + _childrenOallnts :: ([Identifier]) + _childrenOattrs :: ([(Identifier,Identifier)]) + _childrenOinh :: Attributes + _childrenOnt :: Identifier + _childrenOo_unbox :: Bool + _childrenOsyn :: Attributes + _rulesOallfields :: ([(Identifier,Type,Maybe (Maybe Type))]) + _rulesOallnts :: ([Identifier]) + _rulesOaltAttrs :: (Map AltAttr Vertex) + _rulesOattrs :: ([(Identifier,Identifier)]) + _rulesOinh :: Attributes + _rulesOnt :: Identifier + _rulesOo_case :: Bool + _rulesOo_cata :: Bool + _rulesOo_dovisit :: Bool + _rulesOo_newtypes :: Bool + _rulesOo_rename :: Bool + _rulesOo_sem :: Bool + _rulesOo_sig :: Bool + _rulesOo_wantvisit :: Bool + _rulesOprefix :: String + _rulesOsyn :: Attributes + _childrenIattributes :: ([(Identifier,Attributes,Attributes)]) + _childrenIcollectChildrenInhs :: (Map Identifier Attributes ) + _childrenIcollectChildrenSyns :: (Map Identifier Attributes ) + _childrenIerrors :: (Seq Error) + _childrenIfields :: ([(Identifier,Type,Maybe (Maybe Type))]) + _childrenIgathAltAttrs :: ([AltAttr]) + _childrenIgathRules :: (Seq CRule) + _childrenIinhs :: (Seq (Identifier,Attributes)) + _childrenInts :: (Seq (Identifier,NontermIdent)) + _childrenIsinglevisits :: ([CRule]) + _childrenIterminals :: ([Identifier]) + _rulesIdirectDep :: (Seq Edge) + _rulesIerrors :: (Seq Error) + _rulesIgathAltAttrs :: ([AltAttr]) + _rulesIgathRules :: (Seq CRule) + _rulesIinstDep :: (Seq Edge) + _rulesIinstVars :: ([Identifier]) + _rulesIlocVars :: ([Identifier]) + _rulesInAutoRules :: Int + _rulesInExplicitRules :: Int + _typeSigsItypeSigs :: (Map Identifier Type) + -- "Order.ag"(line 93, column 16) + _childrenOcon = + ({-# LINE 93 "Order.ag" #-} + con_ + {-# LINE 3049 "Order.hs" #-}) + -- "Order.ag"(line 95, column 16) + _rulesOcon = + ({-# LINE 95 "Order.ag" #-} + con_ + {-# LINE 3054 "Order.hs" #-}) + -- "Order.ag"(line 172, column 18) + _gathAltAttrs = + ({-# LINE 172 "Order.ag" #-} + [ AltAttr _LHS inh True | inh <- Map.keys _lhsIinh ] + ++ _childrenIgathAltAttrs + ++ _rulesIgathAltAttrs + {-# LINE 3061 "Order.hs" #-}) + -- "Order.ag"(line 188, column 17) + _altAttrs = + ({-# LINE 188 "Order.ag" #-} + Map.fromList (zip _gathAltAttrs [_lhsIvcount..]) + {-# LINE 3066 "Order.hs" #-}) + -- "Order.ag"(line 201, column 18) + _rulesOchildNts = + ({-# LINE 201 "Order.ag" #-} + Map.fromList (toList _childrenInts) + {-# LINE 3071 "Order.hs" #-}) + -- "Order.ag"(line 202, column 19) + _rulesOchildInhs = + ({-# LINE 202 "Order.ag" #-} + Map.fromList (toList _childrenIinhs) + {-# LINE 3076 "Order.hs" #-}) + -- "Order.ag"(line 208, column 18) + _inhRules = + ({-# LINE 208 "Order.ag" #-} + [ cRuleLhsInh inh _lhsInt con_ tp | (inh,tp) <- Map.assocs _lhsIinh ] + {-# LINE 3081 "Order.hs" #-}) + -- "Order.ag"(line 209, column 19) + _gathRules = + ({-# LINE 209 "Order.ag" #-} + _inhRules ++ toList (_childrenIgathRules Seq.>< _rulesIgathRules) + {-# LINE 3086 "Order.hs" #-}) + -- "Order.ag"(line 263, column 18) + _lhsOrules = + ({-# LINE 263 "Order.ag" #-} + Seq.fromList (zip [_lhsIvcount..] _gathRules) + {-# LINE 3091 "Order.hs" #-}) + -- "Order.ag"(line 264, column 19) + _lhsOvcount = + ({-# LINE 264 "Order.ag" #-} + _lhsIvcount + length _gathRules + {-# LINE 3096 "Order.hs" #-}) + -- "Order.ag"(line 291, column 7) + _manualDeps = + ({-# LINE 291 "Order.ag" #-} + Set.toList $ Map.findWithDefault Set.empty con_ $ Map.findWithDefault Map.empty _lhsInt _lhsImanualAttrDepMap + {-# LINE 3101 "Order.hs" #-}) + -- "Order.ag"(line 294, column 7) + _lhsOadditionalDep = + ({-# LINE 294 "Order.ag" #-} + Seq.fromList [ (vertex True occA, vertex False occB) + | Dependency occA occB <- _manualDeps + , let vertex inout (OccAttr child nm) + | child == _LOC = findWithErr2 (AltAttr _LOC nm True) _altAttrs + | otherwise = findWithErr2 (AltAttr child nm inout) _altAttrs + vertex _ (OccRule nm) + = findWithErr2 (AltAttr _LOC (Ident ("_rule_" ++ show nm) (getPos nm)) True) _altAttrs + ] + {-# LINE 3113 "Order.hs" #-}) + -- "Order.ag"(line 341, column 17) + _rulesOsynsOfChildren = + ({-# LINE 341 "Order.ag" #-} + _childrenIcollectChildrenSyns + {-# LINE 3118 "Order.hs" #-}) + -- "Order.ag"(line 342, column 17) + _rulesOinhsOfChildren = + ({-# LINE 342 "Order.ag" #-} + _childrenIcollectChildrenInhs + {-# LINE 3123 "Order.hs" #-}) + -- "Order.ag"(line 367, column 32) + _aroundMap = + ({-# LINE 367 "Order.ag" #-} + Map.findWithDefault Map.empty con_ _lhsIaroundMap + {-# LINE 3128 "Order.hs" #-}) + -- "Order.ag"(line 374, column 6) + _aroundDep1 = + ({-# LINE 374 "Order.ag" #-} + Seq.fromList $ + [ (childVert, synVert) + | childNm <- Map.keys _aroundMap + , synNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenSyns) + , let childNm' = Ident (show childNm ++ "_around") (getPos childNm) + childAttr = AltAttr _LOC childNm' True + synAttr = AltAttr childNm synNm True + childVert = findWithErr2 childAttr _altAttrs + synVert = findWithErr2 synAttr _altAttrs + ] + {-# LINE 3142 "Order.hs" #-}) + -- "Order.ag"(line 385, column 6) + _aroundDep2 = + ({-# LINE 385 "Order.ag" #-} + Seq.fromList $ + [ (childVert, inhVert) + | childNm <- Map.keys _aroundMap + , inhNm <- Map.keys (findWithErr2 childNm _childrenIcollectChildrenInhs) + , let childNm' = Ident (show childNm ++ "_around") (getPos childNm) + childAttr = AltAttr _LOC childNm' True + inhAttr = AltAttr childNm inhNm False + childVert = findWithErr2 childAttr _altAttrs + inhVert = findWithErr2 inhAttr _altAttrs + ] + {-# LINE 3156 "Order.hs" #-}) + -- "Order.ag"(line 396, column 6) + _lhsOaroundDep = + ({-# LINE 396 "Order.ag" #-} + _aroundDep1 Seq.>< _aroundDep2 + {-# LINE 3161 "Order.hs" #-}) + -- "Order.ag"(line 467, column 18) + _lhsOcons = + ({-# LINE 467 "Order.ag" #-} + [con_] + {-# LINE 3166 "Order.hs" #-}) + -- "Order.ag"(line 474, column 16) + _typeSigsOtypeSigs = + ({-# LINE 474 "Order.ag" #-} + Map.empty + {-# LINE 3171 "Order.hs" #-}) + -- "Order.ag"(line 480, column 17) + _rulesOallTypeSigs = + ({-# LINE 480 "Order.ag" #-} + _typeSigsItypeSigs + {-# LINE 3176 "Order.hs" #-}) + -- "Order.ag"(line 547, column 17) + _cVisits = + ({-# LINE 547 "Order.ag" #-} + if _lhsIo_dovisit + then let prodsVisitsMap = findWithErr1 "Production.cVisits.nt" _lhsInt _lhsIcVisitsMap + visits = findWithErr1 "Production.cVisits.con" con_ prodsVisitsMap + in visits + else let vss = nubBy eqCRuleDefines _gathRules ++ _childrenIsinglevisits + in [CVisit _lhsIinh _lhsIsyn vss [] False] + {-# LINE 3186 "Order.hs" #-}) + -- "Order.ag"(line 573, column 18) + _lhsOcProduction = + ({-# LINE 573 "Order.ag" #-} + CProduction con_ _cVisits _childrenIfields _childrenIterminals + {-# LINE 3191 "Order.hs" #-}) + -- "Order.ag"(line 600, column 16) + _allfields = + ({-# LINE 600 "Order.ag" #-} + _childrenIfields + {-# LINE 3196 "Order.hs" #-}) + -- "Order.ag"(line 600, column 16) + _attrs = + ({-# LINE 601 "Order.ag" #-} + map ((,) _LOC) _rulesIlocVars ++ + map ((,) _INST) _rulesIinstVars ++ + map ((,) _LHS) _inhnames ++ + concat [map ((,) nm) (Map.keys as) | (nm,_,as) <- _childrenIattributes] + {-# LINE 3204 "Order.hs" #-}) + -- "Order.ag"(line 600, column 16) + _inhnames = + ({-# LINE 605 "Order.ag" #-} + Map.keys _lhsIinh + {-# LINE 3209 "Order.hs" #-}) + -- "Order.ag"(line 600, column 16) + _synnames = + ({-# LINE 606 "Order.ag" #-} + Map.keys _lhsIsyn + {-# LINE 3214 "Order.hs" #-}) + -- use rule "Order.ag"(line 269, column 33) + _lhsOdirectDep = + ({-# LINE 269 "Order.ag" #-} + _rulesIdirectDep + {-# LINE 3219 "Order.hs" #-}) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + _childrenIerrors Seq.>< _rulesIerrors + {-# LINE 3224 "Order.hs" #-}) + -- use rule "Order.ag"(line 312, column 31) + _lhsOinstDep = + ({-# LINE 312 "Order.ag" #-} + _rulesIinstDep + {-# LINE 3229 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnAutoRules = + ({-# LINE 61 "Order.ag" #-} + _rulesInAutoRules + {-# LINE 3234 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnExplicitRules = + ({-# LINE 61 "Order.ag" #-} + _rulesInExplicitRules + {-# LINE 3239 "Order.hs" #-}) + -- copy rule (from local) + _childrenOallfields = + ({-# LINE 597 "Order.ag" #-} + _allfields + {-# LINE 3244 "Order.hs" #-}) + -- copy rule (down) + _childrenOallnts = + ({-# LINE 590 "Order.ag" #-} + _lhsIallnts + {-# LINE 3249 "Order.hs" #-}) + -- copy rule (from local) + _childrenOattrs = + ({-# LINE 597 "Order.ag" #-} + _attrs + {-# LINE 3254 "Order.hs" #-}) + -- copy rule (down) + _childrenOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 3259 "Order.hs" #-}) + -- copy rule (down) + _childrenOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 3264 "Order.hs" #-}) + -- copy rule (down) + _childrenOo_unbox = + ({-# LINE 119 "Order.ag" #-} + _lhsIo_unbox + {-# LINE 3269 "Order.hs" #-}) + -- copy rule (down) + _childrenOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 3274 "Order.hs" #-}) + -- copy rule (from local) + _rulesOallfields = + ({-# LINE 597 "Order.ag" #-} + _allfields + {-# LINE 3279 "Order.hs" #-}) + -- copy rule (down) + _rulesOallnts = + ({-# LINE 590 "Order.ag" #-} + _lhsIallnts + {-# LINE 3284 "Order.hs" #-}) + -- copy rule (from local) + _rulesOaltAttrs = + ({-# LINE 186 "Order.ag" #-} + _altAttrs + {-# LINE 3289 "Order.hs" #-}) + -- copy rule (from local) + _rulesOattrs = + ({-# LINE 597 "Order.ag" #-} + _attrs + {-# LINE 3294 "Order.hs" #-}) + -- copy rule (down) + _rulesOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 3299 "Order.hs" #-}) + -- copy rule (down) + _rulesOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 3304 "Order.hs" #-}) + -- copy rule (down) + _rulesOo_case = + ({-# LINE 117 "Order.ag" #-} + _lhsIo_case + {-# LINE 3309 "Order.hs" #-}) + -- copy rule (down) + _rulesOo_cata = + ({-# LINE 111 "Order.ag" #-} + _lhsIo_cata + {-# LINE 3314 "Order.hs" #-}) + -- copy rule (down) + _rulesOo_dovisit = + ({-# LINE 116 "Order.ag" #-} + _lhsIo_dovisit + {-# LINE 3319 "Order.hs" #-}) + -- copy rule (down) + _rulesOo_newtypes = + ({-# LINE 110 "Order.ag" #-} + _lhsIo_newtypes + {-# LINE 3324 "Order.hs" #-}) + -- copy rule (down) + _rulesOo_rename = + ({-# LINE 114 "Order.ag" #-} + _lhsIo_rename + {-# LINE 3329 "Order.hs" #-}) + -- copy rule (down) + _rulesOo_sem = + ({-# LINE 113 "Order.ag" #-} + _lhsIo_sem + {-# LINE 3334 "Order.hs" #-}) + -- copy rule (down) + _rulesOo_sig = + ({-# LINE 112 "Order.ag" #-} + _lhsIo_sig + {-# LINE 3339 "Order.hs" #-}) + -- copy rule (down) + _rulesOo_wantvisit = + ({-# LINE 115 "Order.ag" #-} + _lhsIo_wantvisit + {-# LINE 3344 "Order.hs" #-}) + -- copy rule (down) + _rulesOprefix = + ({-# LINE 118 "Order.ag" #-} + _lhsIprefix + {-# LINE 3349 "Order.hs" #-}) + -- copy rule (down) + _rulesOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 3354 "Order.hs" #-}) + ( _childrenIattributes,_childrenIcollectChildrenInhs,_childrenIcollectChildrenSyns,_childrenIerrors,_childrenIfields,_childrenIgathAltAttrs,_childrenIgathRules,_childrenIinhs,_childrenInts,_childrenIsinglevisits,_childrenIterminals) = + (children_ _childrenOallfields _childrenOallnts _childrenOattrs _childrenOcon _childrenOinh _childrenOnt _childrenOo_unbox _childrenOsyn ) + ( _rulesIdirectDep,_rulesIerrors,_rulesIgathAltAttrs,_rulesIgathRules,_rulesIinstDep,_rulesIinstVars,_rulesIlocVars,_rulesInAutoRules,_rulesInExplicitRules) = + (rules_ _rulesOallTypeSigs _rulesOallfields _rulesOallnts _rulesOaltAttrs _rulesOattrs _rulesOchildInhs _rulesOchildNts _rulesOcon _rulesOinh _rulesOinhsOfChildren _rulesOnt _rulesOo_case _rulesOo_cata _rulesOo_dovisit _rulesOo_newtypes _rulesOo_rename _rulesOo_sem _rulesOo_sig _rulesOo_wantvisit _rulesOprefix _rulesOsyn _rulesOsynsOfChildren ) + ( _typeSigsItypeSigs) = + (typeSigs_ _typeSigsOtypeSigs ) + in ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProduction,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount))) ) +-- Productions ------------------------------------------------- +{- + visit 0: + inherited attributes: + allnts : [Identifier] + aroundMap : Map ConstructorIdent (Map Identifier [Expression]) + cVisitsMap : CVisitsMap + inh : Attributes + manualAttrDepMap : AttrOrderMap + nt : Identifier + o_case : Bool + o_cata : Bool + o_dovisit : Bool + o_newtypes : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_unbox : Bool + o_wantvisit : Bool + prefix : String + syn : Attributes + chained attribute: + vcount : Int + synthesized attributes: + additionalDep : Seq Edge + aroundDep : Seq Edge + cProductions : CProductions + cons : [ConstructorIdent] + directDep : Seq Edge + errors : Seq Error + instDep : Seq Edge + nAutoRules : Int + nExplicitRules : Int + rules : Seq (Vertex,CRule) + alternatives: + alternative Cons: + child hd : Production + child tl : Productions + alternative Nil: +-} +-- cata +sem_Productions :: Productions -> + T_Productions +sem_Productions list = + (Prelude.foldr sem_Productions_Cons sem_Productions_Nil (Prelude.map sem_Production list) ) +-- semantic domain +newtype T_Productions = T_Productions (([Identifier]) -> + (Map ConstructorIdent (Map Identifier [Expression])) -> + CVisitsMap -> + Attributes -> + AttrOrderMap -> + Identifier -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + String -> + Attributes -> + Int -> + ( (Seq Edge),(Seq Edge),CProductions,([ConstructorIdent]),(Seq Edge),(Seq Error),(Seq Edge),Int,Int,(Seq (Vertex,CRule)),Int)) +data Inh_Productions = Inh_Productions {allnts_Inh_Productions :: !([Identifier]),aroundMap_Inh_Productions :: !(Map ConstructorIdent (Map Identifier [Expression])),cVisitsMap_Inh_Productions :: !(CVisitsMap),inh_Inh_Productions :: !(Attributes),manualAttrDepMap_Inh_Productions :: !(AttrOrderMap),nt_Inh_Productions :: !(Identifier),o_case_Inh_Productions :: !(Bool),o_cata_Inh_Productions :: !(Bool),o_dovisit_Inh_Productions :: !(Bool),o_newtypes_Inh_Productions :: !(Bool),o_rename_Inh_Productions :: !(Bool),o_sem_Inh_Productions :: !(Bool),o_sig_Inh_Productions :: !(Bool),o_unbox_Inh_Productions :: !(Bool),o_wantvisit_Inh_Productions :: !(Bool),prefix_Inh_Productions :: !(String),syn_Inh_Productions :: !(Attributes),vcount_Inh_Productions :: !(Int)} +data Syn_Productions = Syn_Productions {additionalDep_Syn_Productions :: !(Seq Edge),aroundDep_Syn_Productions :: !(Seq Edge),cProductions_Syn_Productions :: !(CProductions),cons_Syn_Productions :: !([ConstructorIdent]),directDep_Syn_Productions :: !(Seq Edge),errors_Syn_Productions :: !(Seq Error),instDep_Syn_Productions :: !(Seq Edge),nAutoRules_Syn_Productions :: !(Int),nExplicitRules_Syn_Productions :: !(Int),rules_Syn_Productions :: !(Seq (Vertex,CRule)),vcount_Syn_Productions :: !(Int)} +wrap_Productions :: T_Productions -> + Inh_Productions -> + Syn_Productions +wrap_Productions (T_Productions sem ) (Inh_Productions _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsImanualAttrDepMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIvcount ) = + (let ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProductions,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount) = + (sem _lhsIallnts _lhsIaroundMap _lhsIcVisitsMap _lhsIinh _lhsImanualAttrDepMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_unbox _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIvcount ) + in (Syn_Productions _lhsOadditionalDep _lhsOaroundDep _lhsOcProductions _lhsOcons _lhsOdirectDep _lhsOerrors _lhsOinstDep _lhsOnAutoRules _lhsOnExplicitRules _lhsOrules _lhsOvcount )) +sem_Productions_Cons :: T_Production -> + T_Productions -> + T_Productions +sem_Productions_Cons (T_Production hd_ ) (T_Productions tl_ ) = + (T_Productions (\ _lhsIallnts + _lhsIaroundMap + _lhsIcVisitsMap + _lhsIinh + _lhsImanualAttrDepMap + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_dovisit + _lhsIo_newtypes + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_unbox + _lhsIo_wantvisit + _lhsIprefix + _lhsIsyn + _lhsIvcount -> + (let _lhsOcProductions :: CProductions + _lhsOadditionalDep :: (Seq Edge) + _lhsOaroundDep :: (Seq Edge) + _lhsOcons :: ([ConstructorIdent]) + _lhsOdirectDep :: (Seq Edge) + _lhsOerrors :: (Seq Error) + _lhsOinstDep :: (Seq Edge) + _lhsOnAutoRules :: Int + _lhsOnExplicitRules :: Int + _lhsOrules :: (Seq (Vertex,CRule)) + _lhsOvcount :: Int + _hdOallnts :: ([Identifier]) + _hdOaroundMap :: (Map ConstructorIdent (Map Identifier [Expression])) + _hdOcVisitsMap :: CVisitsMap + _hdOinh :: Attributes + _hdOmanualAttrDepMap :: AttrOrderMap + _hdOnt :: Identifier + _hdOo_case :: Bool + _hdOo_cata :: Bool + _hdOo_dovisit :: Bool + _hdOo_newtypes :: Bool + _hdOo_rename :: Bool + _hdOo_sem :: Bool + _hdOo_sig :: Bool + _hdOo_unbox :: Bool + _hdOo_wantvisit :: Bool + _hdOprefix :: String + _hdOsyn :: Attributes + _hdOvcount :: Int + _tlOallnts :: ([Identifier]) + _tlOaroundMap :: (Map ConstructorIdent (Map Identifier [Expression])) + _tlOcVisitsMap :: CVisitsMap + _tlOinh :: Attributes + _tlOmanualAttrDepMap :: AttrOrderMap + _tlOnt :: Identifier + _tlOo_case :: Bool + _tlOo_cata :: Bool + _tlOo_dovisit :: Bool + _tlOo_newtypes :: Bool + _tlOo_rename :: Bool + _tlOo_sem :: Bool + _tlOo_sig :: Bool + _tlOo_unbox :: Bool + _tlOo_wantvisit :: Bool + _tlOprefix :: String + _tlOsyn :: Attributes + _tlOvcount :: Int + _hdIadditionalDep :: (Seq Edge) + _hdIaroundDep :: (Seq Edge) + _hdIcProduction :: CProduction + _hdIcons :: ([ConstructorIdent]) + _hdIdirectDep :: (Seq Edge) + _hdIerrors :: (Seq Error) + _hdIinstDep :: (Seq Edge) + _hdInAutoRules :: Int + _hdInExplicitRules :: Int + _hdIrules :: (Seq (Vertex,CRule)) + _hdIvcount :: Int + _tlIadditionalDep :: (Seq Edge) + _tlIaroundDep :: (Seq Edge) + _tlIcProductions :: CProductions + _tlIcons :: ([ConstructorIdent]) + _tlIdirectDep :: (Seq Edge) + _tlIerrors :: (Seq Error) + _tlIinstDep :: (Seq Edge) + _tlInAutoRules :: Int + _tlInExplicitRules :: Int + _tlIrules :: (Seq (Vertex,CRule)) + _tlIvcount :: Int + -- "Order.ag"(line 570, column 12) + _lhsOcProductions = + ({-# LINE 570 "Order.ag" #-} + _hdIcProduction : _tlIcProductions + {-# LINE 3531 "Order.hs" #-}) + -- use rule "Order.ag"(line 283, column 60) + _lhsOadditionalDep = + ({-# LINE 283 "Order.ag" #-} + _hdIadditionalDep Seq.>< _tlIadditionalDep + {-# LINE 3536 "Order.hs" #-}) + -- use rule "Order.ag"(line 358, column 24) + _lhsOaroundDep = + ({-# LINE 358 "Order.ag" #-} + _hdIaroundDep Seq.>< _tlIaroundDep + {-# LINE 3541 "Order.hs" #-}) + -- use rule "Order.ag"(line 465, column 40) + _lhsOcons = + ({-# LINE 465 "Order.ag" #-} + _hdIcons ++ _tlIcons + {-# LINE 3546 "Order.hs" #-}) + -- use rule "Order.ag"(line 269, column 33) + _lhsOdirectDep = + ({-# LINE 269 "Order.ag" #-} + _hdIdirectDep Seq.>< _tlIdirectDep + {-# LINE 3551 "Order.hs" #-}) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + _hdIerrors Seq.>< _tlIerrors + {-# LINE 3556 "Order.hs" #-}) + -- use rule "Order.ag"(line 312, column 31) + _lhsOinstDep = + ({-# LINE 312 "Order.ag" #-} + _hdIinstDep Seq.>< _tlIinstDep + {-# LINE 3561 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnAutoRules = + ({-# LINE 61 "Order.ag" #-} + _hdInAutoRules + _tlInAutoRules + {-# LINE 3566 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnExplicitRules = + ({-# LINE 61 "Order.ag" #-} + _hdInExplicitRules + _tlInExplicitRules + {-# LINE 3571 "Order.hs" #-}) + -- use rule "Order.ag"(line 259, column 18) + _lhsOrules = + ({-# LINE 259 "Order.ag" #-} + _hdIrules Seq.>< _tlIrules + {-# LINE 3576 "Order.hs" #-}) + -- copy rule (up) + _lhsOvcount = + ({-# LINE 258 "Order.ag" #-} + _tlIvcount + {-# LINE 3581 "Order.hs" #-}) + -- copy rule (down) + _hdOallnts = + ({-# LINE 590 "Order.ag" #-} + _lhsIallnts + {-# LINE 3586 "Order.hs" #-}) + -- copy rule (down) + _hdOaroundMap = + ({-# LINE 364 "Order.ag" #-} + _lhsIaroundMap + {-# LINE 3591 "Order.hs" #-}) + -- copy rule (down) + _hdOcVisitsMap = + ({-# LINE 545 "Order.ag" #-} + _lhsIcVisitsMap + {-# LINE 3596 "Order.hs" #-}) + -- copy rule (down) + _hdOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 3601 "Order.hs" #-}) + -- copy rule (down) + _hdOmanualAttrDepMap = + ({-# LINE 283 "Order.ag" #-} + _lhsImanualAttrDepMap + {-# LINE 3606 "Order.hs" #-}) + -- copy rule (down) + _hdOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 3611 "Order.hs" #-}) + -- copy rule (down) + _hdOo_case = + ({-# LINE 117 "Order.ag" #-} + _lhsIo_case + {-# LINE 3616 "Order.hs" #-}) + -- copy rule (down) + _hdOo_cata = + ({-# LINE 111 "Order.ag" #-} + _lhsIo_cata + {-# LINE 3621 "Order.hs" #-}) + -- copy rule (down) + _hdOo_dovisit = + ({-# LINE 116 "Order.ag" #-} + _lhsIo_dovisit + {-# LINE 3626 "Order.hs" #-}) + -- copy rule (down) + _hdOo_newtypes = + ({-# LINE 110 "Order.ag" #-} + _lhsIo_newtypes + {-# LINE 3631 "Order.hs" #-}) + -- copy rule (down) + _hdOo_rename = + ({-# LINE 114 "Order.ag" #-} + _lhsIo_rename + {-# LINE 3636 "Order.hs" #-}) + -- copy rule (down) + _hdOo_sem = + ({-# LINE 113 "Order.ag" #-} + _lhsIo_sem + {-# LINE 3641 "Order.hs" #-}) + -- copy rule (down) + _hdOo_sig = + ({-# LINE 112 "Order.ag" #-} + _lhsIo_sig + {-# LINE 3646 "Order.hs" #-}) + -- copy rule (down) + _hdOo_unbox = + ({-# LINE 119 "Order.ag" #-} + _lhsIo_unbox + {-# LINE 3651 "Order.hs" #-}) + -- copy rule (down) + _hdOo_wantvisit = + ({-# LINE 115 "Order.ag" #-} + _lhsIo_wantvisit + {-# LINE 3656 "Order.hs" #-}) + -- copy rule (down) + _hdOprefix = + ({-# LINE 118 "Order.ag" #-} + _lhsIprefix + {-# LINE 3661 "Order.hs" #-}) + -- copy rule (down) + _hdOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 3666 "Order.hs" #-}) + -- copy rule (down) + _hdOvcount = + ({-# LINE 258 "Order.ag" #-} + _lhsIvcount + {-# LINE 3671 "Order.hs" #-}) + -- copy rule (down) + _tlOallnts = + ({-# LINE 590 "Order.ag" #-} + _lhsIallnts + {-# LINE 3676 "Order.hs" #-}) + -- copy rule (down) + _tlOaroundMap = + ({-# LINE 364 "Order.ag" #-} + _lhsIaroundMap + {-# LINE 3681 "Order.hs" #-}) + -- copy rule (down) + _tlOcVisitsMap = + ({-# LINE 545 "Order.ag" #-} + _lhsIcVisitsMap + {-# LINE 3686 "Order.hs" #-}) + -- copy rule (down) + _tlOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 3691 "Order.hs" #-}) + -- copy rule (down) + _tlOmanualAttrDepMap = + ({-# LINE 283 "Order.ag" #-} + _lhsImanualAttrDepMap + {-# LINE 3696 "Order.hs" #-}) + -- copy rule (down) + _tlOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 3701 "Order.hs" #-}) + -- copy rule (down) + _tlOo_case = + ({-# LINE 117 "Order.ag" #-} + _lhsIo_case + {-# LINE 3706 "Order.hs" #-}) + -- copy rule (down) + _tlOo_cata = + ({-# LINE 111 "Order.ag" #-} + _lhsIo_cata + {-# LINE 3711 "Order.hs" #-}) + -- copy rule (down) + _tlOo_dovisit = + ({-# LINE 116 "Order.ag" #-} + _lhsIo_dovisit + {-# LINE 3716 "Order.hs" #-}) + -- copy rule (down) + _tlOo_newtypes = + ({-# LINE 110 "Order.ag" #-} + _lhsIo_newtypes + {-# LINE 3721 "Order.hs" #-}) + -- copy rule (down) + _tlOo_rename = + ({-# LINE 114 "Order.ag" #-} + _lhsIo_rename + {-# LINE 3726 "Order.hs" #-}) + -- copy rule (down) + _tlOo_sem = + ({-# LINE 113 "Order.ag" #-} + _lhsIo_sem + {-# LINE 3731 "Order.hs" #-}) + -- copy rule (down) + _tlOo_sig = + ({-# LINE 112 "Order.ag" #-} + _lhsIo_sig + {-# LINE 3736 "Order.hs" #-}) + -- copy rule (down) + _tlOo_unbox = + ({-# LINE 119 "Order.ag" #-} + _lhsIo_unbox + {-# LINE 3741 "Order.hs" #-}) + -- copy rule (down) + _tlOo_wantvisit = + ({-# LINE 115 "Order.ag" #-} + _lhsIo_wantvisit + {-# LINE 3746 "Order.hs" #-}) + -- copy rule (down) + _tlOprefix = + ({-# LINE 118 "Order.ag" #-} + _lhsIprefix + {-# LINE 3751 "Order.hs" #-}) + -- copy rule (down) + _tlOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 3756 "Order.hs" #-}) + -- copy rule (chain) + _tlOvcount = + ({-# LINE 258 "Order.ag" #-} + _hdIvcount + {-# LINE 3761 "Order.hs" #-}) + ( _hdIadditionalDep,_hdIaroundDep,_hdIcProduction,_hdIcons,_hdIdirectDep,_hdIerrors,_hdIinstDep,_hdInAutoRules,_hdInExplicitRules,_hdIrules,_hdIvcount) = + (hd_ _hdOallnts _hdOaroundMap _hdOcVisitsMap _hdOinh _hdOmanualAttrDepMap _hdOnt _hdOo_case _hdOo_cata _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_unbox _hdOo_wantvisit _hdOprefix _hdOsyn _hdOvcount ) + ( _tlIadditionalDep,_tlIaroundDep,_tlIcProductions,_tlIcons,_tlIdirectDep,_tlIerrors,_tlIinstDep,_tlInAutoRules,_tlInExplicitRules,_tlIrules,_tlIvcount) = + (tl_ _tlOallnts _tlOaroundMap _tlOcVisitsMap _tlOinh _tlOmanualAttrDepMap _tlOnt _tlOo_case _tlOo_cata _tlOo_dovisit _tlOo_newtypes _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_unbox _tlOo_wantvisit _tlOprefix _tlOsyn _tlOvcount ) + in ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProductions,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount))) ) +sem_Productions_Nil :: T_Productions +sem_Productions_Nil = + (T_Productions (\ _lhsIallnts + _lhsIaroundMap + _lhsIcVisitsMap + _lhsIinh + _lhsImanualAttrDepMap + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_dovisit + _lhsIo_newtypes + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_unbox + _lhsIo_wantvisit + _lhsIprefix + _lhsIsyn + _lhsIvcount -> + (let _lhsOcProductions :: CProductions + _lhsOadditionalDep :: (Seq Edge) + _lhsOaroundDep :: (Seq Edge) + _lhsOcons :: ([ConstructorIdent]) + _lhsOdirectDep :: (Seq Edge) + _lhsOerrors :: (Seq Error) + _lhsOinstDep :: (Seq Edge) + _lhsOnAutoRules :: Int + _lhsOnExplicitRules :: Int + _lhsOrules :: (Seq (Vertex,CRule)) + _lhsOvcount :: Int + -- "Order.ag"(line 571, column 12) + _lhsOcProductions = + ({-# LINE 571 "Order.ag" #-} + [] + {-# LINE 3802 "Order.hs" #-}) + -- use rule "Order.ag"(line 283, column 60) + _lhsOadditionalDep = + ({-# LINE 283 "Order.ag" #-} + Seq.empty + {-# LINE 3807 "Order.hs" #-}) + -- use rule "Order.ag"(line 358, column 24) + _lhsOaroundDep = + ({-# LINE 358 "Order.ag" #-} + Seq.empty + {-# LINE 3812 "Order.hs" #-}) + -- use rule "Order.ag"(line 465, column 40) + _lhsOcons = + ({-# LINE 465 "Order.ag" #-} + [] + {-# LINE 3817 "Order.hs" #-}) + -- use rule "Order.ag"(line 269, column 33) + _lhsOdirectDep = + ({-# LINE 269 "Order.ag" #-} + Seq.empty + {-# LINE 3822 "Order.hs" #-}) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + Seq.empty + {-# LINE 3827 "Order.hs" #-}) + -- use rule "Order.ag"(line 312, column 31) + _lhsOinstDep = + ({-# LINE 312 "Order.ag" #-} + Seq.empty + {-# LINE 3832 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnAutoRules = + ({-# LINE 61 "Order.ag" #-} + 0 + {-# LINE 3837 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnExplicitRules = + ({-# LINE 61 "Order.ag" #-} + 0 + {-# LINE 3842 "Order.hs" #-}) + -- use rule "Order.ag"(line 259, column 18) + _lhsOrules = + ({-# LINE 259 "Order.ag" #-} + Seq.empty + {-# LINE 3847 "Order.hs" #-}) + -- copy rule (chain) + _lhsOvcount = + ({-# LINE 258 "Order.ag" #-} + _lhsIvcount + {-# LINE 3852 "Order.hs" #-}) + in ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProductions,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount))) ) +-- Rule -------------------------------------------------------- +{- + visit 0: + inherited attributes: + allTypeSigs : Map Identifier Type + allfields : [(Identifier,Type,Maybe (Maybe Type))] + allnts : [Identifier] + altAttrs : Map AltAttr Vertex + attrs : [(Identifier,Identifier)] + childInhs : Map Identifier Attributes + childNts : Map Identifier NontermIdent + con : Identifier + inh : Attributes + inhsOfChildren : Map Identifier Attributes + nt : Identifier + o_case : Bool + o_cata : Bool + o_dovisit : Bool + o_newtypes : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_wantvisit : Bool + prefix : String + syn : Attributes + synsOfChildren : Map Identifier Attributes + synthesized attributes: + directDep : Seq Edge + errors : Seq Error + gathAltAttrs : [AltAttr] + gathRules : Seq CRule + instDep : Seq Edge + instVars : [Identifier] + locVars : [Identifier] + nAutoRules : Int + nExplicitRules : Int + alternatives: + alternative Rule: + child mbName : {Maybe Identifier} + child pattern : Pattern + child rhs : Expression + child owrt : {Bool} + child origin : {String} + child explicit : {Bool} + visit 0: + local defines : _ + local gathRules : _ + local instDep1 : _ + local instDep2 : _ +-} +-- cata +sem_Rule :: Rule -> + T_Rule +sem_Rule (Rule _mbName _pattern _rhs _owrt _origin _explicit ) = + (sem_Rule_Rule _mbName (sem_Pattern _pattern ) (sem_Expression _rhs ) _owrt _origin _explicit ) +-- semantic domain +newtype T_Rule = T_Rule ((Map Identifier Type) -> + ([(Identifier,Type,Maybe (Maybe Type))]) -> + ([Identifier]) -> + (Map AltAttr Vertex) -> + ([(Identifier,Identifier)]) -> + (Map Identifier Attributes) -> + (Map Identifier NontermIdent) -> + Identifier -> + Attributes -> + (Map Identifier Attributes) -> + Identifier -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + String -> + Attributes -> + (Map Identifier Attributes) -> + ( (Seq Edge),(Seq Error),([AltAttr]),(Seq CRule),(Seq Edge),([Identifier]),([Identifier]),Int,Int)) +data Inh_Rule = Inh_Rule {allTypeSigs_Inh_Rule :: !(Map Identifier Type),allfields_Inh_Rule :: !([(Identifier,Type,Maybe (Maybe Type))]),allnts_Inh_Rule :: !([Identifier]),altAttrs_Inh_Rule :: !(Map AltAttr Vertex),attrs_Inh_Rule :: !([(Identifier,Identifier)]),childInhs_Inh_Rule :: !(Map Identifier Attributes),childNts_Inh_Rule :: !(Map Identifier NontermIdent),con_Inh_Rule :: !(Identifier),inh_Inh_Rule :: !(Attributes),inhsOfChildren_Inh_Rule :: !(Map Identifier Attributes),nt_Inh_Rule :: !(Identifier),o_case_Inh_Rule :: !(Bool),o_cata_Inh_Rule :: !(Bool),o_dovisit_Inh_Rule :: !(Bool),o_newtypes_Inh_Rule :: !(Bool),o_rename_Inh_Rule :: !(Bool),o_sem_Inh_Rule :: !(Bool),o_sig_Inh_Rule :: !(Bool),o_wantvisit_Inh_Rule :: !(Bool),prefix_Inh_Rule :: !(String),syn_Inh_Rule :: !(Attributes),synsOfChildren_Inh_Rule :: !(Map Identifier Attributes)} +data Syn_Rule = Syn_Rule {directDep_Syn_Rule :: !(Seq Edge),errors_Syn_Rule :: !(Seq Error),gathAltAttrs_Syn_Rule :: !([AltAttr]),gathRules_Syn_Rule :: !(Seq CRule),instDep_Syn_Rule :: !(Seq Edge),instVars_Syn_Rule :: !([Identifier]),locVars_Syn_Rule :: !([Identifier]),nAutoRules_Syn_Rule :: !(Int),nExplicitRules_Syn_Rule :: !(Int)} +wrap_Rule :: T_Rule -> + Inh_Rule -> + Syn_Rule +wrap_Rule (T_Rule sem ) (Inh_Rule _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren ) = + (let ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules) = + (sem _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren ) + in (Syn_Rule _lhsOdirectDep _lhsOerrors _lhsOgathAltAttrs _lhsOgathRules _lhsOinstDep _lhsOinstVars _lhsOlocVars _lhsOnAutoRules _lhsOnExplicitRules )) +sem_Rule_Rule :: (Maybe Identifier) -> + T_Pattern -> + T_Expression -> + Bool -> + String -> + Bool -> + T_Rule +sem_Rule_Rule mbName_ (T_Pattern pattern_ ) (T_Expression rhs_ ) owrt_ origin_ explicit_ = + (T_Rule (\ _lhsIallTypeSigs + _lhsIallfields + _lhsIallnts + _lhsIaltAttrs + _lhsIattrs + _lhsIchildInhs + _lhsIchildNts + _lhsIcon + _lhsIinh + _lhsIinhsOfChildren + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_dovisit + _lhsIo_newtypes + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_wantvisit + _lhsIprefix + _lhsIsyn + _lhsIsynsOfChildren -> + (let _lhsOnExplicitRules :: Int + _lhsOnAutoRules :: Int + _lhsOdirectDep :: (Seq Edge) + _lhsOinstDep :: (Seq Edge) + _lhsOerrors :: (Seq Error) + _lhsOgathAltAttrs :: ([AltAttr]) + _lhsOgathRules :: (Seq CRule) + _lhsOinstVars :: ([Identifier]) + _lhsOlocVars :: ([Identifier]) + _patternOallTypeSigs :: (Map Identifier Type) + _patternOaltAttrs :: (Map AltAttr Vertex) + _patternOcon :: Identifier + _patternOinh :: Attributes + _patternOnt :: Identifier + _patternOsyn :: Attributes + _rhsOallfields :: ([(Identifier,Type,Maybe (Maybe Type))]) + _rhsOallnts :: ([Identifier]) + _rhsOattrs :: ([(Identifier,Identifier)]) + _rhsOcon :: Identifier + _rhsOnt :: Identifier + _patternIcopy :: Pattern + _patternIerrors :: (Seq Error) + _patternIgathAltAttrs :: ([AltAttr]) + _patternIinstVars :: ([Identifier]) + _patternIlocVars :: ([Identifier]) + _patternIpatternAttrs :: ([(Identifier,Identifier,Bool,Patterns)]) + _rhsIallRhsVars :: (Set (Identifier,Identifier)) + _rhsIcopy :: Expression + _rhsIerrors :: (Seq Error) + _rhsItextLines :: ([String]) + _rhsIusedAttrs :: ([(Identifier,Identifier)]) + _rhsIusedFields :: ([Identifier]) + _rhsIusedLocals :: ([Identifier]) + -- "Order.ag"(line 64, column 11) + _lhsOnExplicitRules = + ({-# LINE 64 "Order.ag" #-} + if explicit_ + then 1 + else 0 + {-# LINE 4011 "Order.hs" #-}) + -- "Order.ag"(line 67, column 11) + _lhsOnAutoRules = + ({-# LINE 67 "Order.ag" #-} + if startsWith "use rule" origin_ || startsWith "copy rule" origin_ + then 1 + else 0 + {-# LINE 4018 "Order.hs" #-}) + -- "Order.ag"(line 217, column 12) + _defines = + ({-# LINE 217 "Order.ag" #-} + let tp field attr parts | field == _LOC || field == _INST + = case parts of + [] -> Map.lookup attr _lhsIallTypeSigs + _ -> (sequence (map typ parts)) >>= (haskellTupel . map (substSelf _lhsInt)) + | field == _LHS = Map.lookup attr _lhsIsyn + | otherwise = Map.lookup attr (findWithErr1 "Rule.defines.tp" field _lhsIchildInhs) + typ :: Pattern -> Maybe Type + typ (Alias field attr _ parts) = tp field attr parts + typ (Underscore _) = Nothing + typ (Product _ pats) = tp _LOC undefined pats + typ _ = Nothing + in Map.fromList [ (findWithErr1 "Rule.defines" aa _lhsIaltAttrs, (field,attr,(tp field attr parts))) + | (field,attr,isLocalOrInst,parts) <- _patternIpatternAttrs + , let aa = AltAttr field attr isLocalOrInst + ] + {-# LINE 4037 "Order.hs" #-}) + -- "Order.ag"(line 233, column 12) + _gathRules = + ({-# LINE 233 "Order.ag" #-} + let childnt field = Map.lookup field _lhsIchildNts + in Seq.fromList [ CRule attr False True _lhsInt _lhsIcon field (childnt field) tp _patternIcopy _rhsItextLines _defines owrt_ origin_ _rhsIallRhsVars explicit_ mbName_ + | (field,attr,tp) <- Map.elems _defines + ] + {-# LINE 4045 "Order.hs" #-}) + -- "Order.ag"(line 271, column 12) + _lhsOdirectDep = + ({-# LINE 271 "Order.ag" #-} + let defined = Map.keys _defines + used = [ Map.lookup (AltAttr field attr True) _lhsIaltAttrs | (field,attr) <- _rhsIusedAttrs] + ++ [ Map.lookup (AltAttr _LOC attr True) _lhsIaltAttrs | attr <- _rhsIusedLocals ++ _rhsIusedFields ] + in Seq.fromList [ (x,y) | Just x <- used, y <- defined ] + {-# LINE 4053 "Order.hs" #-}) + -- "Order.ag"(line 315, column 6) + _instDep1 = + ({-# LINE 315 "Order.ag" #-} + Seq.fromList $ + [ (instVert, synVert) + | (field,instNm,_) <- Map.elems _defines + , field == _INST + , synNm <- Map.keys (findWithErr2 instNm _lhsIsynsOfChildren) + , let instAttr = AltAttr _INST instNm True + synAttr = AltAttr instNm synNm True + instVert = findWithErr2 instAttr _lhsIaltAttrs + synVert = findWithErr2 synAttr _lhsIaltAttrs + ] + {-# LINE 4067 "Order.hs" #-}) + -- "Order.ag"(line 326, column 6) + _instDep2 = + ({-# LINE 326 "Order.ag" #-} + Seq.fromList $ + [ (instVert, inhVert) + | (field,instNm,_) <- Map.elems _defines + , field == _INST + , inhNm <- Map.keys (findWithErr2 instNm _lhsIinhsOfChildren) + , let instAttr = AltAttr _INST instNm True + inhAttr = AltAttr instNm inhNm False + instVert = findWithErr2 instAttr _lhsIaltAttrs + inhVert = findWithErr2 inhAttr _lhsIaltAttrs + ] + {-# LINE 4081 "Order.hs" #-}) + -- "Order.ag"(line 337, column 6) + _lhsOinstDep = + ({-# LINE 337 "Order.ag" #-} + _instDep1 Seq.>< _instDep2 + {-# LINE 4086 "Order.hs" #-}) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + _patternIerrors Seq.>< _rhsIerrors + {-# LINE 4091 "Order.hs" #-}) + -- use rule "Order.ag"(line 170, column 68) + _lhsOgathAltAttrs = + ({-# LINE 170 "Order.ag" #-} + _patternIgathAltAttrs + {-# LINE 4096 "Order.hs" #-}) + -- use rule "Order.ag"(line 206, column 23) + _lhsOgathRules = + ({-# LINE 206 "Order.ag" #-} + _gathRules + {-# LINE 4101 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 86) + _lhsOinstVars = + ({-# LINE 620 "Order.ag" #-} + _patternIinstVars + {-# LINE 4106 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 48) + _lhsOlocVars = + ({-# LINE 620 "Order.ag" #-} + _patternIlocVars + {-# LINE 4111 "Order.hs" #-}) + -- copy rule (down) + _patternOallTypeSigs = + ({-# LINE 478 "Order.ag" #-} + _lhsIallTypeSigs + {-# LINE 4116 "Order.hs" #-}) + -- copy rule (down) + _patternOaltAttrs = + ({-# LINE 186 "Order.ag" #-} + _lhsIaltAttrs + {-# LINE 4121 "Order.hs" #-}) + -- copy rule (down) + _patternOcon = + ({-# LINE 90 "Order.ag" #-} + _lhsIcon + {-# LINE 4126 "Order.hs" #-}) + -- copy rule (down) + _patternOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 4131 "Order.hs" #-}) + -- copy rule (down) + _patternOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 4136 "Order.hs" #-}) + -- copy rule (down) + _patternOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 4141 "Order.hs" #-}) + -- copy rule (down) + _rhsOallfields = + ({-# LINE 402 "Order.ag" #-} + _lhsIallfields + {-# LINE 4146 "Order.hs" #-}) + -- copy rule (down) + _rhsOallnts = + ({-# LINE 403 "Order.ag" #-} + _lhsIallnts + {-# LINE 4151 "Order.hs" #-}) + -- copy rule (down) + _rhsOattrs = + ({-# LINE 404 "Order.ag" #-} + _lhsIattrs + {-# LINE 4156 "Order.hs" #-}) + -- copy rule (down) + _rhsOcon = + ({-# LINE 401 "Order.ag" #-} + _lhsIcon + {-# LINE 4161 "Order.hs" #-}) + -- copy rule (down) + _rhsOnt = + ({-# LINE 401 "Order.ag" #-} + _lhsInt + {-# LINE 4166 "Order.hs" #-}) + ( _patternIcopy,_patternIerrors,_patternIgathAltAttrs,_patternIinstVars,_patternIlocVars,_patternIpatternAttrs) = + (pattern_ _patternOallTypeSigs _patternOaltAttrs _patternOcon _patternOinh _patternOnt _patternOsyn ) + ( _rhsIallRhsVars,_rhsIcopy,_rhsIerrors,_rhsItextLines,_rhsIusedAttrs,_rhsIusedFields,_rhsIusedLocals) = + (rhs_ _rhsOallfields _rhsOallnts _rhsOattrs _rhsOcon _rhsOnt ) + in ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules))) ) +-- Rules ------------------------------------------------------- +{- + visit 0: + inherited attributes: + allTypeSigs : Map Identifier Type + allfields : [(Identifier,Type,Maybe (Maybe Type))] + allnts : [Identifier] + altAttrs : Map AltAttr Vertex + attrs : [(Identifier,Identifier)] + childInhs : Map Identifier Attributes + childNts : Map Identifier NontermIdent + con : Identifier + inh : Attributes + inhsOfChildren : Map Identifier Attributes + nt : Identifier + o_case : Bool + o_cata : Bool + o_dovisit : Bool + o_newtypes : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_wantvisit : Bool + prefix : String + syn : Attributes + synsOfChildren : Map Identifier Attributes + synthesized attributes: + directDep : Seq Edge + errors : Seq Error + gathAltAttrs : [AltAttr] + gathRules : Seq CRule + instDep : Seq Edge + instVars : [Identifier] + locVars : [Identifier] + nAutoRules : Int + nExplicitRules : Int + alternatives: + alternative Cons: + child hd : Rule + child tl : Rules + alternative Nil: +-} +-- cata +sem_Rules :: Rules -> + T_Rules +sem_Rules list = + (Prelude.foldr sem_Rules_Cons sem_Rules_Nil (Prelude.map sem_Rule list) ) +-- semantic domain +newtype T_Rules = T_Rules ((Map Identifier Type) -> + ([(Identifier,Type,Maybe (Maybe Type))]) -> + ([Identifier]) -> + (Map AltAttr Vertex) -> + ([(Identifier,Identifier)]) -> + (Map Identifier Attributes) -> + (Map Identifier NontermIdent) -> + Identifier -> + Attributes -> + (Map Identifier Attributes) -> + Identifier -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + String -> + Attributes -> + (Map Identifier Attributes) -> + ( (Seq Edge),(Seq Error),([AltAttr]),(Seq CRule),(Seq Edge),([Identifier]),([Identifier]),Int,Int)) +data Inh_Rules = Inh_Rules {allTypeSigs_Inh_Rules :: !(Map Identifier Type),allfields_Inh_Rules :: !([(Identifier,Type,Maybe (Maybe Type))]),allnts_Inh_Rules :: !([Identifier]),altAttrs_Inh_Rules :: !(Map AltAttr Vertex),attrs_Inh_Rules :: !([(Identifier,Identifier)]),childInhs_Inh_Rules :: !(Map Identifier Attributes),childNts_Inh_Rules :: !(Map Identifier NontermIdent),con_Inh_Rules :: !(Identifier),inh_Inh_Rules :: !(Attributes),inhsOfChildren_Inh_Rules :: !(Map Identifier Attributes),nt_Inh_Rules :: !(Identifier),o_case_Inh_Rules :: !(Bool),o_cata_Inh_Rules :: !(Bool),o_dovisit_Inh_Rules :: !(Bool),o_newtypes_Inh_Rules :: !(Bool),o_rename_Inh_Rules :: !(Bool),o_sem_Inh_Rules :: !(Bool),o_sig_Inh_Rules :: !(Bool),o_wantvisit_Inh_Rules :: !(Bool),prefix_Inh_Rules :: !(String),syn_Inh_Rules :: !(Attributes),synsOfChildren_Inh_Rules :: !(Map Identifier Attributes)} +data Syn_Rules = Syn_Rules {directDep_Syn_Rules :: !(Seq Edge),errors_Syn_Rules :: !(Seq Error),gathAltAttrs_Syn_Rules :: !([AltAttr]),gathRules_Syn_Rules :: !(Seq CRule),instDep_Syn_Rules :: !(Seq Edge),instVars_Syn_Rules :: !([Identifier]),locVars_Syn_Rules :: !([Identifier]),nAutoRules_Syn_Rules :: !(Int),nExplicitRules_Syn_Rules :: !(Int)} +wrap_Rules :: T_Rules -> + Inh_Rules -> + Syn_Rules +wrap_Rules (T_Rules sem ) (Inh_Rules _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren ) = + (let ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules) = + (sem _lhsIallTypeSigs _lhsIallfields _lhsIallnts _lhsIaltAttrs _lhsIattrs _lhsIchildInhs _lhsIchildNts _lhsIcon _lhsIinh _lhsIinhsOfChildren _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_dovisit _lhsIo_newtypes _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_wantvisit _lhsIprefix _lhsIsyn _lhsIsynsOfChildren ) + in (Syn_Rules _lhsOdirectDep _lhsOerrors _lhsOgathAltAttrs _lhsOgathRules _lhsOinstDep _lhsOinstVars _lhsOlocVars _lhsOnAutoRules _lhsOnExplicitRules )) +sem_Rules_Cons :: T_Rule -> + T_Rules -> + T_Rules +sem_Rules_Cons (T_Rule hd_ ) (T_Rules tl_ ) = + (T_Rules (\ _lhsIallTypeSigs + _lhsIallfields + _lhsIallnts + _lhsIaltAttrs + _lhsIattrs + _lhsIchildInhs + _lhsIchildNts + _lhsIcon + _lhsIinh + _lhsIinhsOfChildren + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_dovisit + _lhsIo_newtypes + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_wantvisit + _lhsIprefix + _lhsIsyn + _lhsIsynsOfChildren -> + (let _lhsOdirectDep :: (Seq Edge) + _lhsOerrors :: (Seq Error) + _lhsOgathAltAttrs :: ([AltAttr]) + _lhsOgathRules :: (Seq CRule) + _lhsOinstDep :: (Seq Edge) + _lhsOinstVars :: ([Identifier]) + _lhsOlocVars :: ([Identifier]) + _lhsOnAutoRules :: Int + _lhsOnExplicitRules :: Int + _hdOallTypeSigs :: (Map Identifier Type) + _hdOallfields :: ([(Identifier,Type,Maybe (Maybe Type))]) + _hdOallnts :: ([Identifier]) + _hdOaltAttrs :: (Map AltAttr Vertex) + _hdOattrs :: ([(Identifier,Identifier)]) + _hdOchildInhs :: (Map Identifier Attributes) + _hdOchildNts :: (Map Identifier NontermIdent) + _hdOcon :: Identifier + _hdOinh :: Attributes + _hdOinhsOfChildren :: (Map Identifier Attributes) + _hdOnt :: Identifier + _hdOo_case :: Bool + _hdOo_cata :: Bool + _hdOo_dovisit :: Bool + _hdOo_newtypes :: Bool + _hdOo_rename :: Bool + _hdOo_sem :: Bool + _hdOo_sig :: Bool + _hdOo_wantvisit :: Bool + _hdOprefix :: String + _hdOsyn :: Attributes + _hdOsynsOfChildren :: (Map Identifier Attributes) + _tlOallTypeSigs :: (Map Identifier Type) + _tlOallfields :: ([(Identifier,Type,Maybe (Maybe Type))]) + _tlOallnts :: ([Identifier]) + _tlOaltAttrs :: (Map AltAttr Vertex) + _tlOattrs :: ([(Identifier,Identifier)]) + _tlOchildInhs :: (Map Identifier Attributes) + _tlOchildNts :: (Map Identifier NontermIdent) + _tlOcon :: Identifier + _tlOinh :: Attributes + _tlOinhsOfChildren :: (Map Identifier Attributes) + _tlOnt :: Identifier + _tlOo_case :: Bool + _tlOo_cata :: Bool + _tlOo_dovisit :: Bool + _tlOo_newtypes :: Bool + _tlOo_rename :: Bool + _tlOo_sem :: Bool + _tlOo_sig :: Bool + _tlOo_wantvisit :: Bool + _tlOprefix :: String + _tlOsyn :: Attributes + _tlOsynsOfChildren :: (Map Identifier Attributes) + _hdIdirectDep :: (Seq Edge) + _hdIerrors :: (Seq Error) + _hdIgathAltAttrs :: ([AltAttr]) + _hdIgathRules :: (Seq CRule) + _hdIinstDep :: (Seq Edge) + _hdIinstVars :: ([Identifier]) + _hdIlocVars :: ([Identifier]) + _hdInAutoRules :: Int + _hdInExplicitRules :: Int + _tlIdirectDep :: (Seq Edge) + _tlIerrors :: (Seq Error) + _tlIgathAltAttrs :: ([AltAttr]) + _tlIgathRules :: (Seq CRule) + _tlIinstDep :: (Seq Edge) + _tlIinstVars :: ([Identifier]) + _tlIlocVars :: ([Identifier]) + _tlInAutoRules :: Int + _tlInExplicitRules :: Int + -- use rule "Order.ag"(line 269, column 33) + _lhsOdirectDep = + ({-# LINE 269 "Order.ag" #-} + _hdIdirectDep Seq.>< _tlIdirectDep + {-# LINE 4353 "Order.hs" #-}) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + _hdIerrors Seq.>< _tlIerrors + {-# LINE 4358 "Order.hs" #-}) + -- use rule "Order.ag"(line 170, column 68) + _lhsOgathAltAttrs = + ({-# LINE 170 "Order.ag" #-} + _hdIgathAltAttrs ++ _tlIgathAltAttrs + {-# LINE 4363 "Order.hs" #-}) + -- use rule "Order.ag"(line 206, column 23) + _lhsOgathRules = + ({-# LINE 206 "Order.ag" #-} + _hdIgathRules Seq.>< _tlIgathRules + {-# LINE 4368 "Order.hs" #-}) + -- use rule "Order.ag"(line 312, column 31) + _lhsOinstDep = + ({-# LINE 312 "Order.ag" #-} + _hdIinstDep Seq.>< _tlIinstDep + {-# LINE 4373 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 86) + _lhsOinstVars = + ({-# LINE 620 "Order.ag" #-} + _hdIinstVars ++ _tlIinstVars + {-# LINE 4378 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 48) + _lhsOlocVars = + ({-# LINE 620 "Order.ag" #-} + _hdIlocVars ++ _tlIlocVars + {-# LINE 4383 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnAutoRules = + ({-# LINE 61 "Order.ag" #-} + _hdInAutoRules + _tlInAutoRules + {-# LINE 4388 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnExplicitRules = + ({-# LINE 61 "Order.ag" #-} + _hdInExplicitRules + _tlInExplicitRules + {-# LINE 4393 "Order.hs" #-}) + -- copy rule (down) + _hdOallTypeSigs = + ({-# LINE 478 "Order.ag" #-} + _lhsIallTypeSigs + {-# LINE 4398 "Order.hs" #-}) + -- copy rule (down) + _hdOallfields = + ({-# LINE 597 "Order.ag" #-} + _lhsIallfields + {-# LINE 4403 "Order.hs" #-}) + -- copy rule (down) + _hdOallnts = + ({-# LINE 590 "Order.ag" #-} + _lhsIallnts + {-# LINE 4408 "Order.hs" #-}) + -- copy rule (down) + _hdOaltAttrs = + ({-# LINE 186 "Order.ag" #-} + _lhsIaltAttrs + {-# LINE 4413 "Order.hs" #-}) + -- copy rule (down) + _hdOattrs = + ({-# LINE 597 "Order.ag" #-} + _lhsIattrs + {-# LINE 4418 "Order.hs" #-}) + -- copy rule (down) + _hdOchildInhs = + ({-# LINE 199 "Order.ag" #-} + _lhsIchildInhs + {-# LINE 4423 "Order.hs" #-}) + -- copy rule (down) + _hdOchildNts = + ({-# LINE 198 "Order.ag" #-} + _lhsIchildNts + {-# LINE 4428 "Order.hs" #-}) + -- copy rule (down) + _hdOcon = + ({-# LINE 90 "Order.ag" #-} + _lhsIcon + {-# LINE 4433 "Order.hs" #-}) + -- copy rule (down) + _hdOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 4438 "Order.hs" #-}) + -- copy rule (down) + _hdOinhsOfChildren = + ({-# LINE 339 "Order.ag" #-} + _lhsIinhsOfChildren + {-# LINE 4443 "Order.hs" #-}) + -- copy rule (down) + _hdOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 4448 "Order.hs" #-}) + -- copy rule (down) + _hdOo_case = + ({-# LINE 117 "Order.ag" #-} + _lhsIo_case + {-# LINE 4453 "Order.hs" #-}) + -- copy rule (down) + _hdOo_cata = + ({-# LINE 111 "Order.ag" #-} + _lhsIo_cata + {-# LINE 4458 "Order.hs" #-}) + -- copy rule (down) + _hdOo_dovisit = + ({-# LINE 116 "Order.ag" #-} + _lhsIo_dovisit + {-# LINE 4463 "Order.hs" #-}) + -- copy rule (down) + _hdOo_newtypes = + ({-# LINE 110 "Order.ag" #-} + _lhsIo_newtypes + {-# LINE 4468 "Order.hs" #-}) + -- copy rule (down) + _hdOo_rename = + ({-# LINE 114 "Order.ag" #-} + _lhsIo_rename + {-# LINE 4473 "Order.hs" #-}) + -- copy rule (down) + _hdOo_sem = + ({-# LINE 113 "Order.ag" #-} + _lhsIo_sem + {-# LINE 4478 "Order.hs" #-}) + -- copy rule (down) + _hdOo_sig = + ({-# LINE 112 "Order.ag" #-} + _lhsIo_sig + {-# LINE 4483 "Order.hs" #-}) + -- copy rule (down) + _hdOo_wantvisit = + ({-# LINE 115 "Order.ag" #-} + _lhsIo_wantvisit + {-# LINE 4488 "Order.hs" #-}) + -- copy rule (down) + _hdOprefix = + ({-# LINE 118 "Order.ag" #-} + _lhsIprefix + {-# LINE 4493 "Order.hs" #-}) + -- copy rule (down) + _hdOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 4498 "Order.hs" #-}) + -- copy rule (down) + _hdOsynsOfChildren = + ({-# LINE 339 "Order.ag" #-} + _lhsIsynsOfChildren + {-# LINE 4503 "Order.hs" #-}) + -- copy rule (down) + _tlOallTypeSigs = + ({-# LINE 478 "Order.ag" #-} + _lhsIallTypeSigs + {-# LINE 4508 "Order.hs" #-}) + -- copy rule (down) + _tlOallfields = + ({-# LINE 597 "Order.ag" #-} + _lhsIallfields + {-# LINE 4513 "Order.hs" #-}) + -- copy rule (down) + _tlOallnts = + ({-# LINE 590 "Order.ag" #-} + _lhsIallnts + {-# LINE 4518 "Order.hs" #-}) + -- copy rule (down) + _tlOaltAttrs = + ({-# LINE 186 "Order.ag" #-} + _lhsIaltAttrs + {-# LINE 4523 "Order.hs" #-}) + -- copy rule (down) + _tlOattrs = + ({-# LINE 597 "Order.ag" #-} + _lhsIattrs + {-# LINE 4528 "Order.hs" #-}) + -- copy rule (down) + _tlOchildInhs = + ({-# LINE 199 "Order.ag" #-} + _lhsIchildInhs + {-# LINE 4533 "Order.hs" #-}) + -- copy rule (down) + _tlOchildNts = + ({-# LINE 198 "Order.ag" #-} + _lhsIchildNts + {-# LINE 4538 "Order.hs" #-}) + -- copy rule (down) + _tlOcon = + ({-# LINE 90 "Order.ag" #-} + _lhsIcon + {-# LINE 4543 "Order.hs" #-}) + -- copy rule (down) + _tlOinh = + ({-# LINE 89 "Order.ag" #-} + _lhsIinh + {-# LINE 4548 "Order.hs" #-}) + -- copy rule (down) + _tlOinhsOfChildren = + ({-# LINE 339 "Order.ag" #-} + _lhsIinhsOfChildren + {-# LINE 4553 "Order.hs" #-}) + -- copy rule (down) + _tlOnt = + ({-# LINE 89 "Order.ag" #-} + _lhsInt + {-# LINE 4558 "Order.hs" #-}) + -- copy rule (down) + _tlOo_case = + ({-# LINE 117 "Order.ag" #-} + _lhsIo_case + {-# LINE 4563 "Order.hs" #-}) + -- copy rule (down) + _tlOo_cata = + ({-# LINE 111 "Order.ag" #-} + _lhsIo_cata + {-# LINE 4568 "Order.hs" #-}) + -- copy rule (down) + _tlOo_dovisit = + ({-# LINE 116 "Order.ag" #-} + _lhsIo_dovisit + {-# LINE 4573 "Order.hs" #-}) + -- copy rule (down) + _tlOo_newtypes = + ({-# LINE 110 "Order.ag" #-} + _lhsIo_newtypes + {-# LINE 4578 "Order.hs" #-}) + -- copy rule (down) + _tlOo_rename = + ({-# LINE 114 "Order.ag" #-} + _lhsIo_rename + {-# LINE 4583 "Order.hs" #-}) + -- copy rule (down) + _tlOo_sem = + ({-# LINE 113 "Order.ag" #-} + _lhsIo_sem + {-# LINE 4588 "Order.hs" #-}) + -- copy rule (down) + _tlOo_sig = + ({-# LINE 112 "Order.ag" #-} + _lhsIo_sig + {-# LINE 4593 "Order.hs" #-}) + -- copy rule (down) + _tlOo_wantvisit = + ({-# LINE 115 "Order.ag" #-} + _lhsIo_wantvisit + {-# LINE 4598 "Order.hs" #-}) + -- copy rule (down) + _tlOprefix = + ({-# LINE 118 "Order.ag" #-} + _lhsIprefix + {-# LINE 4603 "Order.hs" #-}) + -- copy rule (down) + _tlOsyn = + ({-# LINE 89 "Order.ag" #-} + _lhsIsyn + {-# LINE 4608 "Order.hs" #-}) + -- copy rule (down) + _tlOsynsOfChildren = + ({-# LINE 339 "Order.ag" #-} + _lhsIsynsOfChildren + {-# LINE 4613 "Order.hs" #-}) + ( _hdIdirectDep,_hdIerrors,_hdIgathAltAttrs,_hdIgathRules,_hdIinstDep,_hdIinstVars,_hdIlocVars,_hdInAutoRules,_hdInExplicitRules) = + (hd_ _hdOallTypeSigs _hdOallfields _hdOallnts _hdOaltAttrs _hdOattrs _hdOchildInhs _hdOchildNts _hdOcon _hdOinh _hdOinhsOfChildren _hdOnt _hdOo_case _hdOo_cata _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_wantvisit _hdOprefix _hdOsyn _hdOsynsOfChildren ) + ( _tlIdirectDep,_tlIerrors,_tlIgathAltAttrs,_tlIgathRules,_tlIinstDep,_tlIinstVars,_tlIlocVars,_tlInAutoRules,_tlInExplicitRules) = + (tl_ _tlOallTypeSigs _tlOallfields _tlOallnts _tlOaltAttrs _tlOattrs _tlOchildInhs _tlOchildNts _tlOcon _tlOinh _tlOinhsOfChildren _tlOnt _tlOo_case _tlOo_cata _tlOo_dovisit _tlOo_newtypes _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_wantvisit _tlOprefix _tlOsyn _tlOsynsOfChildren ) + in ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules))) ) +sem_Rules_Nil :: T_Rules +sem_Rules_Nil = + (T_Rules (\ _lhsIallTypeSigs + _lhsIallfields + _lhsIallnts + _lhsIaltAttrs + _lhsIattrs + _lhsIchildInhs + _lhsIchildNts + _lhsIcon + _lhsIinh + _lhsIinhsOfChildren + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_dovisit + _lhsIo_newtypes + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_wantvisit + _lhsIprefix + _lhsIsyn + _lhsIsynsOfChildren -> + (let _lhsOdirectDep :: (Seq Edge) + _lhsOerrors :: (Seq Error) + _lhsOgathAltAttrs :: ([AltAttr]) + _lhsOgathRules :: (Seq CRule) + _lhsOinstDep :: (Seq Edge) + _lhsOinstVars :: ([Identifier]) + _lhsOlocVars :: ([Identifier]) + _lhsOnAutoRules :: Int + _lhsOnExplicitRules :: Int + -- use rule "Order.ag"(line 269, column 33) + _lhsOdirectDep = + ({-# LINE 269 "Order.ag" #-} + Seq.empty + {-# LINE 4656 "Order.hs" #-}) + -- use rule "Order.ag"(line 84, column 70) + _lhsOerrors = + ({-# LINE 84 "Order.ag" #-} + Seq.empty + {-# LINE 4661 "Order.hs" #-}) + -- use rule "Order.ag"(line 170, column 68) + _lhsOgathAltAttrs = + ({-# LINE 170 "Order.ag" #-} + [] + {-# LINE 4666 "Order.hs" #-}) + -- use rule "Order.ag"(line 206, column 23) + _lhsOgathRules = + ({-# LINE 206 "Order.ag" #-} + Seq.empty + {-# LINE 4671 "Order.hs" #-}) + -- use rule "Order.ag"(line 312, column 31) + _lhsOinstDep = + ({-# LINE 312 "Order.ag" #-} + Seq.empty + {-# LINE 4676 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 86) + _lhsOinstVars = + ({-# LINE 620 "Order.ag" #-} + [] + {-# LINE 4681 "Order.hs" #-}) + -- use rule "Order.ag"(line 620, column 48) + _lhsOlocVars = + ({-# LINE 620 "Order.ag" #-} + [] + {-# LINE 4686 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnAutoRules = + ({-# LINE 61 "Order.ag" #-} + 0 + {-# LINE 4691 "Order.hs" #-}) + -- use rule "Order.ag"(line 61, column 105) + _lhsOnExplicitRules = + ({-# LINE 61 "Order.ag" #-} + 0 + {-# LINE 4696 "Order.hs" #-}) + in ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules))) ) +-- TypeSig ----------------------------------------------------- +{- + visit 0: + chained attribute: + typeSigs : Map Identifier Type + alternatives: + alternative TypeSig: + child name : {Identifier} + child tp : {Type} +-} +-- cata +sem_TypeSig :: TypeSig -> + T_TypeSig +sem_TypeSig (TypeSig _name _tp ) = + (sem_TypeSig_TypeSig _name _tp ) +-- semantic domain +newtype T_TypeSig = T_TypeSig ((Map Identifier Type) -> + ( (Map Identifier Type))) +data Inh_TypeSig = Inh_TypeSig {typeSigs_Inh_TypeSig :: !(Map Identifier Type)} +data Syn_TypeSig = Syn_TypeSig {typeSigs_Syn_TypeSig :: !(Map Identifier Type)} +wrap_TypeSig :: T_TypeSig -> + Inh_TypeSig -> + Syn_TypeSig +wrap_TypeSig (T_TypeSig sem ) (Inh_TypeSig _lhsItypeSigs ) = + (let ( _lhsOtypeSigs) = + (sem _lhsItypeSigs ) + in (Syn_TypeSig _lhsOtypeSigs )) +sem_TypeSig_TypeSig :: Identifier -> + Type -> + T_TypeSig +sem_TypeSig_TypeSig name_ tp_ = + (T_TypeSig (\ _lhsItypeSigs -> + (let _lhsOtypeSigs :: (Map Identifier Type) + -- "Order.ag"(line 476, column 13) + _lhsOtypeSigs = + ({-# LINE 476 "Order.ag" #-} + Map.insert name_ tp_ _lhsItypeSigs + {-# LINE 4735 "Order.hs" #-}) + in ( _lhsOtypeSigs))) ) +-- TypeSigs ---------------------------------------------------- +{- + visit 0: + chained attribute: + typeSigs : Map Identifier Type + alternatives: + alternative Cons: + child hd : TypeSig + child tl : TypeSigs + alternative Nil: +-} +-- cata +sem_TypeSigs :: TypeSigs -> + T_TypeSigs +sem_TypeSigs list = + (Prelude.foldr sem_TypeSigs_Cons sem_TypeSigs_Nil (Prelude.map sem_TypeSig list) ) +-- semantic domain +newtype T_TypeSigs = T_TypeSigs ((Map Identifier Type) -> + ( (Map Identifier Type))) +data Inh_TypeSigs = Inh_TypeSigs {typeSigs_Inh_TypeSigs :: !(Map Identifier Type)} +data Syn_TypeSigs = Syn_TypeSigs {typeSigs_Syn_TypeSigs :: !(Map Identifier Type)} +wrap_TypeSigs :: T_TypeSigs -> + Inh_TypeSigs -> + Syn_TypeSigs +wrap_TypeSigs (T_TypeSigs sem ) (Inh_TypeSigs _lhsItypeSigs ) = + (let ( _lhsOtypeSigs) = + (sem _lhsItypeSigs ) + in (Syn_TypeSigs _lhsOtypeSigs )) +sem_TypeSigs_Cons :: T_TypeSig -> + T_TypeSigs -> + T_TypeSigs +sem_TypeSigs_Cons (T_TypeSig hd_ ) (T_TypeSigs tl_ ) = + (T_TypeSigs (\ _lhsItypeSigs -> + (let _lhsOtypeSigs :: (Map Identifier Type) + _hdOtypeSigs :: (Map Identifier Type) + _tlOtypeSigs :: (Map Identifier Type) + _hdItypeSigs :: (Map Identifier Type) + _tlItypeSigs :: (Map Identifier Type) + -- copy rule (up) + _lhsOtypeSigs = + ({-# LINE 472 "Order.ag" #-} + _tlItypeSigs + {-# LINE 4779 "Order.hs" #-}) + -- copy rule (down) + _hdOtypeSigs = + ({-# LINE 472 "Order.ag" #-} + _lhsItypeSigs + {-# LINE 4784 "Order.hs" #-}) + -- copy rule (chain) + _tlOtypeSigs = + ({-# LINE 472 "Order.ag" #-} + _hdItypeSigs + {-# LINE 4789 "Order.hs" #-}) + ( _hdItypeSigs) = + (hd_ _hdOtypeSigs ) + ( _tlItypeSigs) = + (tl_ _tlOtypeSigs ) + in ( _lhsOtypeSigs))) ) +sem_TypeSigs_Nil :: T_TypeSigs +sem_TypeSigs_Nil = + (T_TypeSigs (\ _lhsItypeSigs -> + (let _lhsOtypeSigs :: (Map Identifier Type) + -- copy rule (chain) + _lhsOtypeSigs = + ({-# LINE 472 "Order.ag" #-} + _lhsItypeSigs + {-# LINE 4803 "Order.hs" #-}) in ( _lhsOtypeSigs))) ) 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.22 (Patterns.ag) +-- UUAGC 0.9.21 (Patterns.ag) module Patterns where {-# LINE 2 "Patterns.ag" #-} @@ -40,10 +40,10 @@ visit 0: local copy : _ -} -data Pattern = Alias (Identifier) (Identifier) (Pattern ) (Patterns ) - | Constr (ConstructorIdent) (Patterns ) - | Irrefutable (Pattern ) - | Product (Pos) (Patterns ) +data Pattern = Alias (Identifier) (Identifier) (Pattern) (Patterns) + | Constr (ConstructorIdent) (Patterns) + | Irrefutable (Pattern) + | Product (Pos) (Patterns) | Underscore (Pos) deriving ( Show) -- Patterns ---------------------------------------------------- @@ -61,4 +61,4 @@ visit 0: local copy : _ -} -type Patterns = [Pattern ] +type Patterns = [(Pattern)] 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.22 (PrintCode.ag) +-- UUAGC 0.9.21 (PrintCode.ag) module PrintCode where {-# LINE 10 "PrintCode.ag" #-} @@ -325,8 +325,8 @@ (Map BlockInfo PP_Doc) -> PP_Doc -> ( ([[PP_Doc]]),([[PP_Doc]]),(IO ()),([String]),PP_Docs)) -data Inh_Chunk = Inh_Chunk {importBlocks_Inh_Chunk :: !(PP_Doc),isDeclOfLet_Inh_Chunk :: !(Bool),mainFile_Inh_Chunk :: !(String),mainName_Inh_Chunk :: !(String),moduleHeader_Inh_Chunk :: !((String -> String -> String -> Bool -> String)),nested_Inh_Chunk :: !(Bool),options_Inh_Chunk :: !(Options),optionsLine_Inh_Chunk :: !(String),pragmaBlocks_Inh_Chunk :: !(String),textBlockMap_Inh_Chunk :: !((Map BlockInfo PP_Doc)),textBlocks_Inh_Chunk :: !(PP_Doc)} -data Syn_Chunk = Syn_Chunk {appendCommon_Syn_Chunk :: !(([[PP_Doc]])),appendMain_Syn_Chunk :: !(([[PP_Doc]])),genSems_Syn_Chunk :: !((IO ())),imports_Syn_Chunk :: !(([String])),pps_Syn_Chunk :: !(PP_Docs)} +data Inh_Chunk = Inh_Chunk {importBlocks_Inh_Chunk :: !(PP_Doc),isDeclOfLet_Inh_Chunk :: !(Bool),mainFile_Inh_Chunk :: !(String),mainName_Inh_Chunk :: !(String),moduleHeader_Inh_Chunk :: !(String -> String -> String -> Bool -> String),nested_Inh_Chunk :: !(Bool),options_Inh_Chunk :: !(Options),optionsLine_Inh_Chunk :: !(String),pragmaBlocks_Inh_Chunk :: !(String),textBlockMap_Inh_Chunk :: !(Map BlockInfo PP_Doc),textBlocks_Inh_Chunk :: !(PP_Doc)} +data Syn_Chunk = Syn_Chunk {appendCommon_Syn_Chunk :: !([[PP_Doc]]),appendMain_Syn_Chunk :: !([[PP_Doc]]),genSems_Syn_Chunk :: !(IO ()),imports_Syn_Chunk :: !([String]),pps_Syn_Chunk :: !(PP_Docs)} wrap_Chunk :: T_Chunk -> Inh_Chunk -> Syn_Chunk @@ -582,8 +582,8 @@ (Map BlockInfo PP_Doc) -> PP_Doc -> ( ([[PP_Doc]]),([[PP_Doc]]),(IO ()),([String]),PP_Docs)) -data Inh_Chunks = Inh_Chunks {importBlocks_Inh_Chunks :: !(PP_Doc),isDeclOfLet_Inh_Chunks :: !(Bool),mainFile_Inh_Chunks :: !(String),mainName_Inh_Chunks :: !(String),moduleHeader_Inh_Chunks :: !((String -> String -> String -> Bool -> String)),nested_Inh_Chunks :: !(Bool),options_Inh_Chunks :: !(Options),optionsLine_Inh_Chunks :: !(String),pragmaBlocks_Inh_Chunks :: !(String),textBlockMap_Inh_Chunks :: !((Map BlockInfo PP_Doc)),textBlocks_Inh_Chunks :: !(PP_Doc)} -data Syn_Chunks = Syn_Chunks {appendCommon_Syn_Chunks :: !(([[PP_Doc]])),appendMain_Syn_Chunks :: !(([[PP_Doc]])),genSems_Syn_Chunks :: !((IO ())),imports_Syn_Chunks :: !(([String])),pps_Syn_Chunks :: !(PP_Docs)} +data Inh_Chunks = Inh_Chunks {importBlocks_Inh_Chunks :: !(PP_Doc),isDeclOfLet_Inh_Chunks :: !(Bool),mainFile_Inh_Chunks :: !(String),mainName_Inh_Chunks :: !(String),moduleHeader_Inh_Chunks :: !(String -> String -> String -> Bool -> String),nested_Inh_Chunks :: !(Bool),options_Inh_Chunks :: !(Options),optionsLine_Inh_Chunks :: !(String),pragmaBlocks_Inh_Chunks :: !(String),textBlockMap_Inh_Chunks :: !(Map BlockInfo PP_Doc),textBlocks_Inh_Chunks :: !(PP_Doc)} +data Syn_Chunks = Syn_Chunks {appendCommon_Syn_Chunks :: !([[PP_Doc]]),appendMain_Syn_Chunks :: !([[PP_Doc]]),genSems_Syn_Chunks :: !(IO ()),imports_Syn_Chunks :: !([String]),pps_Syn_Chunks :: !(PP_Docs)} wrap_Chunks :: T_Chunks -> Inh_Chunks -> Syn_Chunks @@ -2368,9 +2368,9 @@ newtype T_Pattern = T_Pattern (Bool -> Bool -> Options -> - ( Pattern ,Bool,PP_Doc,PP_Doc,([PP_Doc]))) + ( Pattern,Bool,PP_Doc,PP_Doc,([PP_Doc]))) data Inh_Pattern = Inh_Pattern {belowIrrefutable_Inh_Pattern :: !(Bool),isDeclOfLet_Inh_Pattern :: !(Bool),options_Inh_Pattern :: !(Options)} -data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),isUnderscore_Syn_Pattern :: !(Bool),pp_Syn_Pattern :: !(PP_Doc),pp'_Syn_Pattern :: !(PP_Doc),strictVars_Syn_Pattern :: !(([PP_Doc]))} +data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern),isUnderscore_Syn_Pattern :: !(Bool),pp_Syn_Pattern :: !(PP_Doc),pp'_Syn_Pattern :: !(PP_Doc),strictVars_Syn_Pattern :: !([PP_Doc])} wrap_Pattern :: T_Pattern -> Inh_Pattern -> Syn_Pattern @@ -2681,9 +2681,9 @@ newtype T_Patterns = T_Patterns (Bool -> Bool -> Options -> - ( Patterns ,([PP_Doc]),([PP_Doc]),([PP_Doc]))) + ( Patterns,([PP_Doc]),([PP_Doc]),([PP_Doc]))) data Inh_Patterns = Inh_Patterns {belowIrrefutable_Inh_Patterns :: !(Bool),isDeclOfLet_Inh_Patterns :: !(Bool),options_Inh_Patterns :: !(Options)} -data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),pps_Syn_Patterns :: !(([PP_Doc])),pps'_Syn_Patterns :: !(([PP_Doc])),strictVars_Syn_Patterns :: !(([PP_Doc]))} +data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns),pps_Syn_Patterns :: !([PP_Doc]),pps'_Syn_Patterns :: !([PP_Doc]),strictVars_Syn_Patterns :: !([PP_Doc])} wrap_Patterns :: T_Patterns -> Inh_Patterns -> Syn_Patterns @@ -2814,8 +2814,8 @@ (Map BlockInfo PP_Doc) -> PP_Doc -> ( (IO ()),PP_Docs)) -data Inh_Program = Inh_Program {importBlocks_Inh_Program :: !(PP_Doc),mainFile_Inh_Program :: !(String),mainName_Inh_Program :: !(String),moduleHeader_Inh_Program :: !((String -> String -> String -> Bool -> String)),options_Inh_Program :: !(Options),optionsLine_Inh_Program :: !(String),pragmaBlocks_Inh_Program :: !(String),textBlockMap_Inh_Program :: !((Map BlockInfo PP_Doc)),textBlocks_Inh_Program :: !(PP_Doc)} -data Syn_Program = Syn_Program {genIO_Syn_Program :: !((IO ())),output_Syn_Program :: !(PP_Docs)} +data Inh_Program = Inh_Program {importBlocks_Inh_Program :: !(PP_Doc),mainFile_Inh_Program :: !(String),mainName_Inh_Program :: !(String),moduleHeader_Inh_Program :: !(String -> String -> String -> Bool -> String),options_Inh_Program :: !(Options),optionsLine_Inh_Program :: !(String),pragmaBlocks_Inh_Program :: !(String),textBlockMap_Inh_Program :: !(Map BlockInfo PP_Doc),textBlocks_Inh_Program :: !(PP_Doc)} +data Syn_Program = Syn_Program {genIO_Syn_Program :: !(IO ()),output_Syn_Program :: !(PP_Docs)} wrap_Program :: T_Program -> Inh_Program -> Syn_Program 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.22 (PrintErrorMessages.ag) +-- UUAGC 0.9.21 (PrintErrorMessages.ag) module PrintErrorMessages where {-# LINE 4 "PrintErrorMessages.ag" #-} @@ -431,9 +431,9 @@ -- semantic domain newtype T_Error = T_Error (Options -> Bool -> - ( Error ,PP_Doc)) + ( Error,PP_Doc)) data Inh_Error = Inh_Error {options_Inh_Error :: Options,verbose_Inh_Error :: Bool} -data Syn_Error = Syn_Error {me_Syn_Error :: Error ,pp_Syn_Error :: PP_Doc} +data Syn_Error = Syn_Error {me_Syn_Error :: Error,pp_Syn_Error :: PP_Doc} wrap_Error :: T_Error -> Inh_Error -> Syn_Error @@ -449,7 +449,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 332, column 21) _lhsOpp = ({-# LINE 332 "PrintErrorMessages.ag" #-} @@ -485,7 +485,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 374, column 21) _lhsOpp = ({-# LINE 374 "PrintErrorMessages.ag" #-} @@ -511,7 +511,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 365, column 21) _lhsOpp = ({-# LINE 365 "PrintErrorMessages.ag" #-} @@ -543,7 +543,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 403, column 21) _lhsOpp = ({-# LINE 403 "PrintErrorMessages.ag" #-} @@ -574,7 +574,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 78, column 21) _lhsOpp = ({-# LINE 78 "PrintErrorMessages.ag" #-} @@ -617,7 +617,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 171, column 21) _lhsOpp = ({-# LINE 171 "PrintErrorMessages.ag" #-} @@ -658,7 +658,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 133, column 21) _lhsOpp = ({-# LINE 133 "PrintErrorMessages.ag" #-} @@ -700,7 +700,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 191, column 21) _lhsOpp = ({-# LINE 191 "PrintErrorMessages.ag" #-} @@ -739,7 +739,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 209, column 21) _lhsOpp = ({-# LINE 209 "PrintErrorMessages.ag" #-} @@ -774,7 +774,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 117, column 21) _lhsOpp = ({-# LINE 117 "PrintErrorMessages.ag" #-} @@ -813,7 +813,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 224, column 21) _lhsOpp = ({-# LINE 224 "PrintErrorMessages.ag" #-} @@ -851,7 +851,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 152, column 21) _lhsOpp = ({-# LINE 152 "PrintErrorMessages.ag" #-} @@ -890,7 +890,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 100, column 21) _lhsOpp = ({-# LINE 100 "PrintErrorMessages.ag" #-} @@ -930,7 +930,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 464, column 21) _lhsOpp = ({-# LINE 464 "PrintErrorMessages.ag" #-} @@ -968,7 +968,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 411, column 21) _lhsOpp = ({-# LINE 411 "PrintErrorMessages.ag" #-} @@ -1002,7 +1002,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 391, column 21) _lhsOpp = ({-# LINE 391 "PrintErrorMessages.ag" #-} @@ -1039,7 +1039,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 379, column 21) _lhsOpp = ({-# LINE 379 "PrintErrorMessages.ag" #-} @@ -1074,7 +1074,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 434, column 21) _lhsOpp = ({-# LINE 434 "PrintErrorMessages.ag" #-} @@ -1111,7 +1111,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 291, column 23) _lhsOpp = ({-# LINE 291 "PrintErrorMessages.ag" #-} @@ -1146,7 +1146,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 278, column 21) _lhsOpp = ({-# LINE 278 "PrintErrorMessages.ag" #-} @@ -1180,7 +1180,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 481, column 20) _lhsOpp = ({-# LINE 481 "PrintErrorMessages.ag" #-} @@ -1218,7 +1218,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 420, column 21) _lhsOpp = ({-# LINE 420 "PrintErrorMessages.ag" #-} @@ -1254,7 +1254,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 448, column 21) _lhsOpp = ({-# LINE 448 "PrintErrorMessages.ag" #-} @@ -1292,7 +1292,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 72, column 21) _lhsOpp = ({-# LINE 72 "PrintErrorMessages.ag" #-} @@ -1322,7 +1322,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 303, column 21) _lhsOpp = ({-# LINE 303 "PrintErrorMessages.ag" #-} @@ -1356,7 +1356,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 251, column 21) _lhsOpp = ({-# LINE 251 "PrintErrorMessages.ag" #-} @@ -1392,7 +1392,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 346, column 21) _lhsOpp = ({-# LINE 346 "PrintErrorMessages.ag" #-} @@ -1433,7 +1433,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 263, column 21) _lhsOpp = ({-# LINE 263 "PrintErrorMessages.ag" #-} @@ -1470,7 +1470,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 317, column 21) _lhsOpp = ({-# LINE 317 "PrintErrorMessages.ag" #-} @@ -1505,7 +1505,7 @@ (T_Error (\ _lhsIoptions _lhsIverbose -> (let _lhsOpp :: PP_Doc - _lhsOme :: Error + _lhsOme :: Error -- "PrintErrorMessages.ag"(line 241, column 21) _lhsOpp = ({-# LINE 241 "PrintErrorMessages.ag" #-} @@ -1572,7 +1572,7 @@ _hdOoptions :: Options _hdOverbose :: Bool _tlOoptions :: Options - _hdIme :: Error + _hdIme :: Error _hdIpp :: PP_Doc _tlIpp :: PP_Doc -- "PrintErrorMessages.ag"(line 67, column 8) 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.22 (PrintOcamlCode.ag) +-- UUAGC 0.9.21 (PrintOcamlCode.ag) module PrintOcamlCode where {-# LINE 10 "PrintOcamlCode.ag" #-} @@ -214,7 +214,7 @@ Options -> (Map BlockInfo PP_Doc) -> ( PP_Docs)) -data Inh_Chunk = Inh_Chunk {isToplevel_Inh_Chunk :: !(Bool),options_Inh_Chunk :: !(Options),textBlockMap_Inh_Chunk :: !((Map BlockInfo PP_Doc))} +data Inh_Chunk = Inh_Chunk {isToplevel_Inh_Chunk :: !(Bool),options_Inh_Chunk :: !(Options),textBlockMap_Inh_Chunk :: !(Map BlockInfo PP_Doc)} data Syn_Chunk = Syn_Chunk {pps_Syn_Chunk :: !(PP_Docs)} wrap_Chunk :: T_Chunk -> Inh_Chunk -> @@ -344,7 +344,7 @@ Options -> (Map BlockInfo PP_Doc) -> ( PP_Docs)) -data Inh_Chunks = Inh_Chunks {isToplevel_Inh_Chunks :: !(Bool),options_Inh_Chunks :: !(Options),textBlockMap_Inh_Chunks :: !((Map BlockInfo PP_Doc))} +data Inh_Chunks = Inh_Chunks {isToplevel_Inh_Chunks :: !(Bool),options_Inh_Chunks :: !(Options),textBlockMap_Inh_Chunks :: !(Map BlockInfo PP_Doc)} data Syn_Chunks = Syn_Chunks {pps_Syn_Chunks :: !(PP_Docs)} wrap_Chunks :: T_Chunks -> Inh_Chunks -> @@ -1404,9 +1404,9 @@ (sem_Pattern_Underscore _pos ) -- semantic domain newtype T_Pattern = T_Pattern (Options -> - ( Pattern ,Bool,PP_Doc)) + ( Pattern,Bool,PP_Doc)) data Inh_Pattern = Inh_Pattern {options_Inh_Pattern :: !(Options)} -data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),isUnderscore_Syn_Pattern :: !(Bool),pp_Syn_Pattern :: !(PP_Doc)} +data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern),isUnderscore_Syn_Pattern :: !(Bool),pp_Syn_Pattern :: !(PP_Doc)} wrap_Pattern :: T_Pattern -> Inh_Pattern -> Syn_Pattern @@ -1581,9 +1581,9 @@ (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) ) -- semantic domain newtype T_Patterns = T_Patterns (Options -> - ( Patterns ,PP_Docs)) + ( Patterns,PP_Docs)) data Inh_Patterns = Inh_Patterns {options_Inh_Patterns :: !(Options)} -data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),pps_Syn_Patterns :: !(PP_Docs)} +data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns),pps_Syn_Patterns :: !(PP_Docs)} wrap_Patterns :: T_Patterns -> Inh_Patterns -> Syn_Patterns @@ -1658,7 +1658,7 @@ newtype T_Program = T_Program (Options -> (Map BlockInfo PP_Doc) -> ( PP_Docs)) -data Inh_Program = Inh_Program {options_Inh_Program :: !(Options),textBlockMap_Inh_Program :: !((Map BlockInfo PP_Doc))} +data Inh_Program = Inh_Program {options_Inh_Program :: !(Options),textBlockMap_Inh_Program :: !(Map BlockInfo PP_Doc)} data Syn_Program = Syn_Program {output_Syn_Program :: !(PP_Docs)} wrap_Program :: T_Program -> Inh_Program -> diff --git a/src-derived/PrintVisitCode.hs b/src-derived/PrintVisitCode.hs new file mode 100644 --- /dev/null +++ b/src-derived/PrintVisitCode.hs @@ -0,0 +1,757 @@ + + +-- UUAGC 0.9.21 (PrintVisitCode.ag) +module PrintVisitCode where +{-# LINE 10 "PrintVisitCode.ag" #-} + +import CommonTypes +import SequentialTypes +import Options +import CodeSyntax +import ErrorMessages +import GrammarInfo +import DeclBlocks +import Pretty + +import qualified Data.Map as Map +import Data.Map(Map) +import qualified Data.Set as Set +import Data.Set(Set) +import qualified Data.Sequence as Seq +import Data.Sequence(Seq) +import UU.Scanner.Position + +import Data.List(partition,intersperse,intersect,(\\)) +import Maybe(fromJust,isJust) +{-# LINE 27 "../src-derived/PrintVisitCode.hs" #-} + +{-# LINE 2 "./CodeSyntax.ag" #-} + +import Patterns +import CommonTypes +import Data.Map(Map) +import Data.Set(Set) +{-# LINE 35 "../src-derived/PrintVisitCode.hs" #-} + +{-# LINE 2 "./Patterns.ag" #-} + +-- Patterns.ag imports +import UU.Scanner.Position(Pos) +import CommonTypes (ConstructorIdent,Identifier) +{-# LINE 42 "../src-derived/PrintVisitCode.hs" #-} + +{-# LINE 2 "./DeclBlocks.ag" #-} + +import Code (Decl,Expr) +{-# LINE 47 "../src-derived/PrintVisitCode.hs" #-} +{-# LINE 32 "PrintVisitCode.ag" #-} + +type PP_Docs = [PP_Doc] + +ppMultiSeqH :: [PP_Doc] -> PP_Doc -> PP_Doc +ppMultiSeqH = ppMultiSeq' (>#<) + +ppMultiSeqV :: [PP_Doc] -> PP_Doc -> PP_Doc +ppMultiSeqV = ppMultiSeq' (>-<) + +ppMultiSeq' :: (PP_Doc -> PP_Doc -> PP_Doc) -> [PP_Doc] -> PP_Doc -> PP_Doc +ppMultiSeq' next strictArgs expr + = foldr (\v r -> (v >#< "`seq`") `next` pp_parens r) expr strictArgs +{-# LINE 61 "../src-derived/PrintVisitCode.hs" #-} +-- CGrammar ---------------------------------------------------- +{- + visit 0: + inherited attribute: + options : Options + synthesized attribute: + output : PP_Docs + alternatives: + alternative CGrammar: + child typeSyns : {TypeSyns} + child derivings : {Derivings} + child wrappers : {Set NontermIdent} + child nonts : CNonterminals + child pragmas : {PragmaMap} + child paramMap : {ParamMap} + child contextMap : {ContextMap} + child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Set Identifier))} +-} +-- cata +sem_CGrammar :: CGrammar -> + T_CGrammar +sem_CGrammar (CGrammar _typeSyns _derivings _wrappers _nonts _pragmas _paramMap _contextMap _aroundsMap ) = + (sem_CGrammar_CGrammar _typeSyns _derivings _wrappers (sem_CNonterminals _nonts ) _pragmas _paramMap _contextMap _aroundsMap ) +-- semantic domain +newtype T_CGrammar = T_CGrammar (Options -> + ( PP_Docs)) +data Inh_CGrammar = Inh_CGrammar {options_Inh_CGrammar :: !(Options)} +data Syn_CGrammar = Syn_CGrammar {output_Syn_CGrammar :: !(PP_Docs)} +wrap_CGrammar :: T_CGrammar -> + Inh_CGrammar -> + Syn_CGrammar +wrap_CGrammar (T_CGrammar sem ) (Inh_CGrammar _lhsIoptions ) = + (let ( _lhsOoutput) = + (sem _lhsIoptions ) + in (Syn_CGrammar _lhsOoutput )) +sem_CGrammar_CGrammar :: TypeSyns -> + Derivings -> + (Set NontermIdent) -> + T_CNonterminals -> + PragmaMap -> + ParamMap -> + ContextMap -> + (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> + T_CGrammar +sem_CGrammar_CGrammar typeSyns_ derivings_ wrappers_ (T_CNonterminals nonts_ ) pragmas_ paramMap_ contextMap_ aroundsMap_ = + (T_CGrammar (\ _lhsIoptions -> + (case (({-# LINE 53 "PrintVisitCode.ag" #-} + [] + {-# LINE 110 "PrintVisitCode.hs" #-})) of + { _lhsOoutput -> + ( _lhsOoutput) })) ) +-- CInterface -------------------------------------------------- +{- + alternatives: + alternative CInterface: + child seg : CSegments +-} +-- cata +sem_CInterface :: CInterface -> + T_CInterface +sem_CInterface (CInterface _seg ) = + (sem_CInterface_CInterface (sem_CSegments _seg ) ) +-- semantic domain +newtype T_CInterface = T_CInterface (( )) +data Inh_CInterface = Inh_CInterface {} +data Syn_CInterface = Syn_CInterface {} +wrap_CInterface :: T_CInterface -> + Inh_CInterface -> + Syn_CInterface +wrap_CInterface (T_CInterface sem ) (Inh_CInterface ) = + (let ( ) = + (sem ) + in (Syn_CInterface )) +sem_CInterface_CInterface :: T_CSegments -> + T_CInterface +sem_CInterface_CInterface (T_CSegments seg_ ) = + (T_CInterface ( ) ) +-- CNonterminal ------------------------------------------------ +{- + alternatives: + alternative CNonterminal: + child nt : {NontermIdent} + child params : {[Identifier]} + child inh : {Attributes} + child syn : {Attributes} + child prods : CProductions + child inter : CInterface +-} +-- cata +sem_CNonterminal :: CNonterminal -> + T_CNonterminal +sem_CNonterminal (CNonterminal _nt _params _inh _syn _prods _inter ) = + (sem_CNonterminal_CNonterminal _nt _params _inh _syn (sem_CProductions _prods ) (sem_CInterface _inter ) ) +-- semantic domain +newtype T_CNonterminal = T_CNonterminal (( )) +data Inh_CNonterminal = Inh_CNonterminal {} +data Syn_CNonterminal = Syn_CNonterminal {} +wrap_CNonterminal :: T_CNonterminal -> + Inh_CNonterminal -> + Syn_CNonterminal +wrap_CNonterminal (T_CNonterminal sem ) (Inh_CNonterminal ) = + (let ( ) = + (sem ) + in (Syn_CNonterminal )) +sem_CNonterminal_CNonterminal :: NontermIdent -> + ([Identifier]) -> + Attributes -> + Attributes -> + T_CProductions -> + T_CInterface -> + T_CNonterminal +sem_CNonterminal_CNonterminal nt_ params_ inh_ syn_ (T_CProductions prods_ ) (T_CInterface inter_ ) = + (T_CNonterminal ( ) ) +-- CNonterminals ----------------------------------------------- +{- + alternatives: + alternative Cons: + child hd : CNonterminal + child tl : CNonterminals + alternative Nil: +-} +-- cata +sem_CNonterminals :: CNonterminals -> + T_CNonterminals +sem_CNonterminals list = + (Prelude.foldr sem_CNonterminals_Cons sem_CNonterminals_Nil (Prelude.map sem_CNonterminal list) ) +-- semantic domain +newtype T_CNonterminals = T_CNonterminals (( )) +data Inh_CNonterminals = Inh_CNonterminals {} +data Syn_CNonterminals = Syn_CNonterminals {} +wrap_CNonterminals :: T_CNonterminals -> + Inh_CNonterminals -> + Syn_CNonterminals +wrap_CNonterminals (T_CNonterminals sem ) (Inh_CNonterminals ) = + (let ( ) = + (sem ) + in (Syn_CNonterminals )) +sem_CNonterminals_Cons :: T_CNonterminal -> + T_CNonterminals -> + T_CNonterminals +sem_CNonterminals_Cons (T_CNonterminal hd_ ) (T_CNonterminals tl_ ) = + (T_CNonterminals ( ) ) +sem_CNonterminals_Nil :: T_CNonterminals +sem_CNonterminals_Nil = + (T_CNonterminals ( ) ) +-- CProduction ------------------------------------------------- +{- + alternatives: + alternative CProduction: + child con : {ConstructorIdent} + child visits : CVisits + child children : {[(Identifier,Type,Maybe (Maybe Type))]} + child terminals : {[Identifier]} +-} +-- cata +sem_CProduction :: CProduction -> + T_CProduction +sem_CProduction (CProduction _con _visits _children _terminals ) = + (sem_CProduction_CProduction _con (sem_CVisits _visits ) _children _terminals ) +-- semantic domain +newtype T_CProduction = T_CProduction (( )) +data Inh_CProduction = Inh_CProduction {} +data Syn_CProduction = Syn_CProduction {} +wrap_CProduction :: T_CProduction -> + Inh_CProduction -> + Syn_CProduction +wrap_CProduction (T_CProduction sem ) (Inh_CProduction ) = + (let ( ) = + (sem ) + in (Syn_CProduction )) +sem_CProduction_CProduction :: ConstructorIdent -> + T_CVisits -> + ([(Identifier,Type,Maybe (Maybe Type))]) -> + ([Identifier]) -> + T_CProduction +sem_CProduction_CProduction con_ (T_CVisits visits_ ) children_ terminals_ = + (T_CProduction ( ) ) +-- CProductions ------------------------------------------------ +{- + alternatives: + alternative Cons: + child hd : CProduction + child tl : CProductions + alternative Nil: +-} +-- cata +sem_CProductions :: CProductions -> + T_CProductions +sem_CProductions list = + (Prelude.foldr sem_CProductions_Cons sem_CProductions_Nil (Prelude.map sem_CProduction list) ) +-- semantic domain +newtype T_CProductions = T_CProductions (( )) +data Inh_CProductions = Inh_CProductions {} +data Syn_CProductions = Syn_CProductions {} +wrap_CProductions :: T_CProductions -> + Inh_CProductions -> + Syn_CProductions +wrap_CProductions (T_CProductions sem ) (Inh_CProductions ) = + (let ( ) = + (sem ) + in (Syn_CProductions )) +sem_CProductions_Cons :: T_CProduction -> + T_CProductions -> + T_CProductions +sem_CProductions_Cons (T_CProduction hd_ ) (T_CProductions tl_ ) = + (T_CProductions ( ) ) +sem_CProductions_Nil :: T_CProductions +sem_CProductions_Nil = + (T_CProductions ( ) ) +-- CRule ------------------------------------------------------- +{- + alternatives: + alternative CChildVisit: + child name : {Identifier} + child nt : {NontermIdent} + child nr : {Int} + child inh : {Attributes} + child syn : {Attributes} + child isLast : {Bool} + alternative CRule: + child name : {Identifier} + child isIn : {Bool} + child hasCode : {Bool} + child nt : {NontermIdent} + child con : {ConstructorIdent} + child field : {Identifier} + child childnt : {Maybe NontermIdent} + child tp : {Maybe Type} + child pattern : Pattern + child rhs : {[String]} + child defines : {Map Int (Identifier,Identifier,Maybe Type)} + child owrt : {Bool} + child origin : {String} + child uses : {Set (Identifier, Identifier)} + child explicit : {Bool} + child mbNamed : {Maybe Identifier} +-} +-- cata +sem_CRule :: CRule -> + T_CRule +sem_CRule (CChildVisit _name _nt _nr _inh _syn _isLast ) = + (sem_CRule_CChildVisit _name _nt _nr _inh _syn _isLast ) +sem_CRule (CRule _name _isIn _hasCode _nt _con _field _childnt _tp _pattern _rhs _defines _owrt _origin _uses _explicit _mbNamed ) = + (sem_CRule_CRule _name _isIn _hasCode _nt _con _field _childnt _tp (sem_Pattern _pattern ) _rhs _defines _owrt _origin _uses _explicit _mbNamed ) +-- semantic domain +newtype T_CRule = T_CRule (( )) +data Inh_CRule = Inh_CRule {} +data Syn_CRule = Syn_CRule {} +wrap_CRule :: T_CRule -> + Inh_CRule -> + Syn_CRule +wrap_CRule (T_CRule sem ) (Inh_CRule ) = + (let ( ) = + (sem ) + in (Syn_CRule )) +sem_CRule_CChildVisit :: Identifier -> + NontermIdent -> + Int -> + Attributes -> + Attributes -> + Bool -> + T_CRule +sem_CRule_CChildVisit name_ nt_ nr_ inh_ syn_ isLast_ = + (T_CRule ( ) ) +sem_CRule_CRule :: Identifier -> + Bool -> + Bool -> + NontermIdent -> + ConstructorIdent -> + Identifier -> + (Maybe NontermIdent) -> + (Maybe Type) -> + T_Pattern -> + ([String]) -> + (Map Int (Identifier,Identifier,Maybe Type)) -> + Bool -> + String -> + (Set (Identifier, Identifier)) -> + Bool -> + (Maybe Identifier) -> + T_CRule +sem_CRule_CRule name_ isIn_ hasCode_ nt_ con_ field_ childnt_ tp_ (T_Pattern pattern_ ) rhs_ defines_ owrt_ origin_ uses_ explicit_ mbNamed_ = + (T_CRule ( ) ) +-- CSegment ---------------------------------------------------- +{- + alternatives: + alternative CSegment: + child inh : {Attributes} + child syn : {Attributes} +-} +-- cata +sem_CSegment :: CSegment -> + T_CSegment +sem_CSegment (CSegment _inh _syn ) = + (sem_CSegment_CSegment _inh _syn ) +-- semantic domain +newtype T_CSegment = T_CSegment (( )) +data Inh_CSegment = Inh_CSegment {} +data Syn_CSegment = Syn_CSegment {} +wrap_CSegment :: T_CSegment -> + Inh_CSegment -> + Syn_CSegment +wrap_CSegment (T_CSegment sem ) (Inh_CSegment ) = + (let ( ) = + (sem ) + in (Syn_CSegment )) +sem_CSegment_CSegment :: Attributes -> + Attributes -> + T_CSegment +sem_CSegment_CSegment inh_ syn_ = + (T_CSegment ( ) ) +-- CSegments --------------------------------------------------- +{- + alternatives: + alternative Cons: + child hd : CSegment + child tl : CSegments + alternative Nil: +-} +-- cata +sem_CSegments :: CSegments -> + T_CSegments +sem_CSegments list = + (Prelude.foldr sem_CSegments_Cons sem_CSegments_Nil (Prelude.map sem_CSegment list) ) +-- semantic domain +newtype T_CSegments = T_CSegments (( )) +data Inh_CSegments = Inh_CSegments {} +data Syn_CSegments = Syn_CSegments {} +wrap_CSegments :: T_CSegments -> + Inh_CSegments -> + Syn_CSegments +wrap_CSegments (T_CSegments sem ) (Inh_CSegments ) = + (let ( ) = + (sem ) + in (Syn_CSegments )) +sem_CSegments_Cons :: T_CSegment -> + T_CSegments -> + T_CSegments +sem_CSegments_Cons (T_CSegment hd_ ) (T_CSegments tl_ ) = + (T_CSegments ( ) ) +sem_CSegments_Nil :: T_CSegments +sem_CSegments_Nil = + (T_CSegments ( ) ) +-- CVisit ------------------------------------------------------ +{- + alternatives: + alternative CVisit: + child inh : {Attributes} + child syn : {Attributes} + child vss : Sequence + child intra : Sequence + child ordered : {Bool} +-} +-- cata +sem_CVisit :: CVisit -> + T_CVisit +sem_CVisit (CVisit _inh _syn _vss _intra _ordered ) = + (sem_CVisit_CVisit _inh _syn (sem_Sequence _vss ) (sem_Sequence _intra ) _ordered ) +-- semantic domain +newtype T_CVisit = T_CVisit (( )) +data Inh_CVisit = Inh_CVisit {} +data Syn_CVisit = Syn_CVisit {} +wrap_CVisit :: T_CVisit -> + Inh_CVisit -> + Syn_CVisit +wrap_CVisit (T_CVisit sem ) (Inh_CVisit ) = + (let ( ) = + (sem ) + in (Syn_CVisit )) +sem_CVisit_CVisit :: Attributes -> + Attributes -> + T_Sequence -> + T_Sequence -> + Bool -> + T_CVisit +sem_CVisit_CVisit inh_ syn_ (T_Sequence vss_ ) (T_Sequence intra_ ) ordered_ = + (T_CVisit ( ) ) +-- CVisits ----------------------------------------------------- +{- + alternatives: + alternative Cons: + child hd : CVisit + child tl : CVisits + alternative Nil: +-} +-- cata +sem_CVisits :: CVisits -> + T_CVisits +sem_CVisits list = + (Prelude.foldr sem_CVisits_Cons sem_CVisits_Nil (Prelude.map sem_CVisit list) ) +-- semantic domain +newtype T_CVisits = T_CVisits (( )) +data Inh_CVisits = Inh_CVisits {} +data Syn_CVisits = Syn_CVisits {} +wrap_CVisits :: T_CVisits -> + Inh_CVisits -> + Syn_CVisits +wrap_CVisits (T_CVisits sem ) (Inh_CVisits ) = + (let ( ) = + (sem ) + in (Syn_CVisits )) +sem_CVisits_Cons :: T_CVisit -> + T_CVisits -> + T_CVisits +sem_CVisits_Cons (T_CVisit hd_ ) (T_CVisits tl_ ) = + (T_CVisits ( ) ) +sem_CVisits_Nil :: T_CVisits +sem_CVisits_Nil = + (T_CVisits ( ) ) +-- DeclBlocks -------------------------------------------------- +{- + alternatives: + alternative DeclBlock: + child defs : {[Decl]} + child visit : {Decl} + child next : DeclBlocks + alternative DeclTerminator: + child defs : {[Decl]} + child result : {Expr} +-} +-- cata +sem_DeclBlocks :: DeclBlocks -> + T_DeclBlocks +sem_DeclBlocks (DeclBlock _defs _visit _next ) = + (sem_DeclBlocks_DeclBlock _defs _visit (sem_DeclBlocks _next ) ) +sem_DeclBlocks (DeclTerminator _defs _result ) = + (sem_DeclBlocks_DeclTerminator _defs _result ) +-- semantic domain +newtype T_DeclBlocks = T_DeclBlocks (( )) +data Inh_DeclBlocks = Inh_DeclBlocks {} +data Syn_DeclBlocks = Syn_DeclBlocks {} +wrap_DeclBlocks :: T_DeclBlocks -> + Inh_DeclBlocks -> + Syn_DeclBlocks +wrap_DeclBlocks (T_DeclBlocks sem ) (Inh_DeclBlocks ) = + (let ( ) = + (sem ) + in (Syn_DeclBlocks )) +sem_DeclBlocks_DeclBlock :: ([Decl]) -> + Decl -> + T_DeclBlocks -> + T_DeclBlocks +sem_DeclBlocks_DeclBlock defs_ visit_ (T_DeclBlocks next_ ) = + (T_DeclBlocks ( ) ) +sem_DeclBlocks_DeclTerminator :: ([Decl]) -> + Expr -> + T_DeclBlocks +sem_DeclBlocks_DeclTerminator defs_ result_ = + (T_DeclBlocks ( ) ) +-- DeclBlocksRoot ---------------------------------------------- +{- + alternatives: + alternative DeclBlocksRoot: + child blocks : DeclBlocks +-} +-- cata +sem_DeclBlocksRoot :: DeclBlocksRoot -> + T_DeclBlocksRoot +sem_DeclBlocksRoot (DeclBlocksRoot _blocks ) = + (sem_DeclBlocksRoot_DeclBlocksRoot (sem_DeclBlocks _blocks ) ) +-- semantic domain +newtype T_DeclBlocksRoot = T_DeclBlocksRoot (( )) +data Inh_DeclBlocksRoot = Inh_DeclBlocksRoot {} +data Syn_DeclBlocksRoot = Syn_DeclBlocksRoot {} +wrap_DeclBlocksRoot :: T_DeclBlocksRoot -> + Inh_DeclBlocksRoot -> + Syn_DeclBlocksRoot +wrap_DeclBlocksRoot (T_DeclBlocksRoot sem ) (Inh_DeclBlocksRoot ) = + (let ( ) = + (sem ) + in (Syn_DeclBlocksRoot )) +sem_DeclBlocksRoot_DeclBlocksRoot :: T_DeclBlocks -> + T_DeclBlocksRoot +sem_DeclBlocksRoot_DeclBlocksRoot (T_DeclBlocks blocks_ ) = + (T_DeclBlocksRoot ( ) ) +-- Pattern ----------------------------------------------------- +{- + visit 0: + synthesized attribute: + copy : SELF + 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)) +data Inh_Pattern = Inh_Pattern {} +data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern)} +wrap_Pattern :: T_Pattern -> + Inh_Pattern -> + Syn_Pattern +wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) = + (let ( _lhsOcopy) = + (sem ) + in (Syn_Pattern _lhsOcopy )) +sem_Pattern_Alias :: Identifier -> + Identifier -> + T_Pattern -> + T_Patterns -> + T_Pattern +sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) = + (T_Pattern (case ((parts_ )) of + { ( _partsIcopy) -> + (case ((pat_ )) of + { ( _patIcopy) -> + (case (({-# LINE 23 "./Patterns.ag" #-} + Alias field_ attr_ _patIcopy _partsIcopy + {-# LINE 605 "PrintVisitCode.hs" #-})) of + { _copy -> + (case (({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 609 "PrintVisitCode.hs" #-})) of + { _lhsOcopy -> + ( _lhsOcopy) }) }) }) }) ) +sem_Pattern_Constr :: ConstructorIdent -> + T_Patterns -> + T_Pattern +sem_Pattern_Constr name_ (T_Patterns pats_ ) = + (T_Pattern (case ((pats_ )) of + { ( _patsIcopy) -> + (case (({-# LINE 23 "./Patterns.ag" #-} + Constr name_ _patsIcopy + {-# LINE 620 "PrintVisitCode.hs" #-})) of + { _copy -> + (case (({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 624 "PrintVisitCode.hs" #-})) of + { _lhsOcopy -> + ( _lhsOcopy) }) }) }) ) +sem_Pattern_Irrefutable :: T_Pattern -> + T_Pattern +sem_Pattern_Irrefutable (T_Pattern pat_ ) = + (T_Pattern (case ((pat_ )) of + { ( _patIcopy) -> + (case (({-# LINE 23 "./Patterns.ag" #-} + Irrefutable _patIcopy + {-# LINE 634 "PrintVisitCode.hs" #-})) of + { _copy -> + (case (({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 638 "PrintVisitCode.hs" #-})) of + { _lhsOcopy -> + ( _lhsOcopy) }) }) }) ) +sem_Pattern_Product :: Pos -> + T_Patterns -> + T_Pattern +sem_Pattern_Product pos_ (T_Patterns pats_ ) = + (T_Pattern (case ((pats_ )) of + { ( _patsIcopy) -> + (case (({-# LINE 23 "./Patterns.ag" #-} + Product pos_ _patsIcopy + {-# LINE 649 "PrintVisitCode.hs" #-})) of + { _copy -> + (case (({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 653 "PrintVisitCode.hs" #-})) of + { _lhsOcopy -> + ( _lhsOcopy) }) }) }) ) +sem_Pattern_Underscore :: Pos -> + T_Pattern +sem_Pattern_Underscore pos_ = + (T_Pattern (case (({-# LINE 23 "./Patterns.ag" #-} + Underscore pos_ + {-# LINE 661 "PrintVisitCode.hs" #-})) of + { _copy -> + (case (({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 665 "PrintVisitCode.hs" #-})) of + { _lhsOcopy -> + ( _lhsOcopy) }) }) ) +-- Patterns ---------------------------------------------------- +{- + visit 0: + synthesized attribute: + copy : SELF + 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)) +data Inh_Patterns = Inh_Patterns {} +data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns)} +wrap_Patterns :: T_Patterns -> + Inh_Patterns -> + Syn_Patterns +wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) = + (let ( _lhsOcopy) = + (sem ) + in (Syn_Patterns _lhsOcopy )) +sem_Patterns_Cons :: T_Pattern -> + T_Patterns -> + T_Patterns +sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) = + (T_Patterns (case ((tl_ )) of + { ( _tlIcopy) -> + (case ((hd_ )) of + { ( _hdIcopy) -> + (case (({-# LINE 23 "./Patterns.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 709 "PrintVisitCode.hs" #-})) of + { _copy -> + (case (({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 713 "PrintVisitCode.hs" #-})) of + { _lhsOcopy -> + ( _lhsOcopy) }) }) }) }) ) +sem_Patterns_Nil :: T_Patterns +sem_Patterns_Nil = + (T_Patterns (case (({-# LINE 23 "./Patterns.ag" #-} + [] + {-# LINE 720 "PrintVisitCode.hs" #-})) of + { _copy -> + (case (({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 724 "PrintVisitCode.hs" #-})) of + { _lhsOcopy -> + ( _lhsOcopy) }) }) ) +-- Sequence ---------------------------------------------------- +{- + alternatives: + alternative Cons: + child hd : CRule + child tl : Sequence + alternative Nil: +-} +-- cata +sem_Sequence :: Sequence -> + T_Sequence +sem_Sequence list = + (Prelude.foldr sem_Sequence_Cons sem_Sequence_Nil (Prelude.map sem_CRule list) ) +-- semantic domain +newtype T_Sequence = T_Sequence (( )) +data Inh_Sequence = Inh_Sequence {} +data Syn_Sequence = Syn_Sequence {} +wrap_Sequence :: T_Sequence -> + Inh_Sequence -> + Syn_Sequence +wrap_Sequence (T_Sequence sem ) (Inh_Sequence ) = + (let ( ) = + (sem ) + in (Syn_Sequence )) +sem_Sequence_Cons :: T_CRule -> + T_Sequence -> + T_Sequence +sem_Sequence_Cons (T_CRule hd_ ) (T_Sequence tl_ ) = + (T_Sequence ( ) ) +sem_Sequence_Nil :: T_Sequence +sem_Sequence_Nil = + (T_Sequence ( ) ) 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.22 (SemHsTokens.ag) +-- UUAGC 0.9.21 (SemHsTokens.ag) module SemHsTokens where {-# LINE 4 "SemHsTokens.ag" #-} @@ -28,7 +28,7 @@ {- visit 0: inherited attributes: - allfields : [(Identifier,Type,Bool)] + allfields : [(Identifier,Type,Maybe (Maybe Type))] allnts : [Identifier] attrs : [(Identifier,Identifier)] con : Identifier @@ -86,15 +86,15 @@ sem_HsToken (StrToken _value _pos ) = (sem_HsToken_StrToken _value _pos ) -- semantic domain -newtype T_HsToken = T_HsToken (([(Identifier,Type,Bool)]) -> +newtype T_HsToken = T_HsToken (([(Identifier,Type,Maybe (Maybe Type))]) -> ([Identifier]) -> ([(Identifier,Identifier)]) -> Identifier -> ([Identifier]) -> Identifier -> ( (Seq Error),((Pos,String)),([(Identifier,Identifier)]),(Seq Identifier),([Identifier]))) -data Inh_HsToken = Inh_HsToken {allfields_Inh_HsToken :: ([(Identifier,Type,Bool)]),allnts_Inh_HsToken :: ([Identifier]),attrs_Inh_HsToken :: ([(Identifier,Identifier)]),con_Inh_HsToken :: Identifier,fieldnames_Inh_HsToken :: ([Identifier]),nt_Inh_HsToken :: Identifier} -data Syn_HsToken = Syn_HsToken {errors_Syn_HsToken :: (Seq Error),tok_Syn_HsToken :: ((Pos,String)),usedAttrs_Syn_HsToken :: ([(Identifier,Identifier)]),usedFields_Syn_HsToken :: (Seq Identifier),usedLocals_Syn_HsToken :: ([Identifier])} +data Inh_HsToken = Inh_HsToken {allfields_Inh_HsToken :: [(Identifier,Type,Maybe (Maybe Type))],allnts_Inh_HsToken :: [Identifier],attrs_Inh_HsToken :: [(Identifier,Identifier)],con_Inh_HsToken :: Identifier,fieldnames_Inh_HsToken :: [Identifier],nt_Inh_HsToken :: Identifier} +data Syn_HsToken = Syn_HsToken {errors_Syn_HsToken :: Seq Error,tok_Syn_HsToken :: (Pos,String),usedAttrs_Syn_HsToken :: [(Identifier,Identifier)],usedFields_Syn_HsToken :: Seq Identifier,usedLocals_Syn_HsToken :: [Identifier]} wrap_HsToken :: T_HsToken -> Inh_HsToken -> Syn_HsToken @@ -398,7 +398,7 @@ {- visit 0: inherited attributes: - allfields : [(Identifier,Type,Bool)] + allfields : [(Identifier,Type,Maybe (Maybe Type))] allnts : [Identifier] attrs : [(Identifier,Identifier)] con : Identifier @@ -422,15 +422,15 @@ sem_HsTokens list = (Prelude.foldr sem_HsTokens_Cons sem_HsTokens_Nil (Prelude.map sem_HsToken list) ) -- semantic domain -newtype T_HsTokens = T_HsTokens (([(Identifier,Type,Bool)]) -> +newtype T_HsTokens = T_HsTokens (([(Identifier,Type,Maybe (Maybe Type))]) -> ([Identifier]) -> ([(Identifier,Identifier)]) -> Identifier -> ([Identifier]) -> Identifier -> ( (Seq Error),([(Pos,String)]),([(Identifier,Identifier)]),(Seq Identifier),([Identifier]))) -data Inh_HsTokens = Inh_HsTokens {allfields_Inh_HsTokens :: ([(Identifier,Type,Bool)]),allnts_Inh_HsTokens :: ([Identifier]),attrs_Inh_HsTokens :: ([(Identifier,Identifier)]),con_Inh_HsTokens :: Identifier,fieldnames_Inh_HsTokens :: ([Identifier]),nt_Inh_HsTokens :: Identifier} -data Syn_HsTokens = Syn_HsTokens {errors_Syn_HsTokens :: (Seq Error),tks_Syn_HsTokens :: ([(Pos,String)]),usedAttrs_Syn_HsTokens :: ([(Identifier,Identifier)]),usedFields_Syn_HsTokens :: (Seq Identifier),usedLocals_Syn_HsTokens :: ([Identifier])} +data Inh_HsTokens = Inh_HsTokens {allfields_Inh_HsTokens :: [(Identifier,Type,Maybe (Maybe Type))],allnts_Inh_HsTokens :: [Identifier],attrs_Inh_HsTokens :: [(Identifier,Identifier)],con_Inh_HsTokens :: Identifier,fieldnames_Inh_HsTokens :: [Identifier],nt_Inh_HsTokens :: Identifier} +data Syn_HsTokens = Syn_HsTokens {errors_Syn_HsTokens :: Seq Error,tks_Syn_HsTokens :: [(Pos,String)],usedAttrs_Syn_HsTokens :: [(Identifier,Identifier)],usedFields_Syn_HsTokens :: Seq Identifier,usedLocals_Syn_HsTokens :: [Identifier]} wrap_HsTokens :: T_HsTokens -> Inh_HsTokens -> Syn_HsTokens @@ -453,13 +453,13 @@ _lhsOusedAttrs :: ([(Identifier,Identifier)]) _lhsOusedFields :: (Seq Identifier) _lhsOusedLocals :: ([Identifier]) - _hdOallfields :: ([(Identifier,Type,Bool)]) + _hdOallfields :: ([(Identifier,Type,Maybe (Maybe Type))]) _hdOallnts :: ([Identifier]) _hdOattrs :: ([(Identifier,Identifier)]) _hdOcon :: Identifier _hdOfieldnames :: ([Identifier]) _hdOnt :: Identifier - _tlOallfields :: ([(Identifier,Type,Bool)]) + _tlOallfields :: ([(Identifier,Type,Maybe (Maybe Type))]) _tlOallnts :: ([Identifier]) _tlOattrs :: ([(Identifier,Identifier)]) _tlOcon :: Identifier @@ -608,7 +608,7 @@ {- visit 0: inherited attributes: - allfields : [(Identifier,Type,Bool)] + allfields : [(Identifier,Type,Maybe (Maybe Type))] allnts : [Identifier] attrs : [(Identifier,Identifier)] con : Identifier @@ -629,14 +629,14 @@ sem_HsTokensRoot (HsTokensRoot _tokens ) = (sem_HsTokensRoot_HsTokensRoot (sem_HsTokens _tokens ) ) -- semantic domain -newtype T_HsTokensRoot = T_HsTokensRoot (([(Identifier,Type,Bool)]) -> +newtype T_HsTokensRoot = T_HsTokensRoot (([(Identifier,Type,Maybe (Maybe Type))]) -> ([Identifier]) -> ([(Identifier,Identifier)]) -> Identifier -> Identifier -> ( (Seq Error),([String]),([(Identifier,Identifier)]),([Identifier]),([Identifier]))) -data Inh_HsTokensRoot = Inh_HsTokensRoot {allfields_Inh_HsTokensRoot :: ([(Identifier,Type,Bool)]),allnts_Inh_HsTokensRoot :: ([Identifier]),attrs_Inh_HsTokensRoot :: ([(Identifier,Identifier)]),con_Inh_HsTokensRoot :: Identifier,nt_Inh_HsTokensRoot :: Identifier} -data Syn_HsTokensRoot = Syn_HsTokensRoot {errors_Syn_HsTokensRoot :: (Seq Error),textLines_Syn_HsTokensRoot :: ([String]),usedAttrs_Syn_HsTokensRoot :: ([(Identifier,Identifier)]),usedFields_Syn_HsTokensRoot :: ([Identifier]),usedLocals_Syn_HsTokensRoot :: ([Identifier])} +data Inh_HsTokensRoot = Inh_HsTokensRoot {allfields_Inh_HsTokensRoot :: [(Identifier,Type,Maybe (Maybe Type))],allnts_Inh_HsTokensRoot :: [Identifier],attrs_Inh_HsTokensRoot :: [(Identifier,Identifier)],con_Inh_HsTokensRoot :: Identifier,nt_Inh_HsTokensRoot :: Identifier} +data Syn_HsTokensRoot = Syn_HsTokensRoot {errors_Syn_HsTokensRoot :: Seq Error,textLines_Syn_HsTokensRoot :: [String],usedAttrs_Syn_HsTokensRoot :: [(Identifier,Identifier)],usedFields_Syn_HsTokensRoot :: [Identifier],usedLocals_Syn_HsTokensRoot :: [Identifier]} wrap_HsTokensRoot :: T_HsTokensRoot -> Inh_HsTokensRoot -> Syn_HsTokensRoot @@ -658,7 +658,7 @@ _lhsOerrors :: (Seq Error) _lhsOusedAttrs :: ([(Identifier,Identifier)]) _lhsOusedLocals :: ([Identifier]) - _tokensOallfields :: ([(Identifier,Type,Bool)]) + _tokensOallfields :: ([(Identifier,Type,Maybe (Maybe Type))]) _tokensOallnts :: ([Identifier]) _tokensOattrs :: ([(Identifier,Identifier)]) _tokensOcon :: Identifier 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.22 (TfmToVisage.ag) +-- UUAGC 0.9.21 (TfmToVisage.ag) module TfmToVisage where {-# LINE 8 "TfmToVisage.ag" #-} @@ -100,13 +100,13 @@ child tp : {Type} child inh : {Attributes} child syn : {Attributes} - child higherOrder : {Bool} + child virtual : {Maybe (Maybe Type)} -} -- cata sem_Child :: Child -> T_Child -sem_Child (Child _name _tp _inh _syn _higherOrder ) = - (sem_Child_Child _name _tp _inh _syn _higherOrder ) +sem_Child (Child _name _tp _inh _syn _virtual ) = + (sem_Child_Child _name _tp _inh _syn _virtual ) -- semantic domain newtype T_Child = T_Child (VisageRuleMap -> ( VisageChild)) @@ -123,14 +123,14 @@ Type -> Attributes -> Attributes -> - Bool -> + (Maybe (Maybe Type)) -> T_Child -sem_Child_Child name_ tp_ inh_ syn_ higherOrder_ = +sem_Child_Child name_ tp_ inh_ syn_ virtual_ = (T_Child (\ _lhsIrulemap -> (let _lhsOvchild :: VisageChild - -- "TfmToVisage.ag"(line 111, column 11) + -- "TfmToVisage.ag"(line 118, column 11) _lhsOvchild = - ({-# LINE 111 "TfmToVisage.ag" #-} + ({-# LINE 118 "TfmToVisage.ag" #-} VChild name_ tp_ inh_ syn_ (getForField (getName name_) _lhsIrulemap) {-# LINE 136 "TfmToVisage.hs" #-}) in ( _lhsOvchild))) ) @@ -156,7 +156,7 @@ newtype T_Children = T_Children (VisageRuleMap -> ( ([VisageChild]))) data Inh_Children = Inh_Children {rulemap_Inh_Children :: VisageRuleMap} -data Syn_Children = Syn_Children {vchildren_Syn_Children :: ([VisageChild])} +data Syn_Children = Syn_Children {vchildren_Syn_Children :: [VisageChild]} wrap_Children :: T_Children -> Inh_Children -> Syn_Children @@ -174,9 +174,9 @@ _tlOrulemap :: VisageRuleMap _hdIvchild :: VisageChild _tlIvchildren :: ([VisageChild]) - -- "TfmToVisage.ag"(line 107, column 17) + -- "TfmToVisage.ag"(line 114, column 17) _lhsOvchildren = - ({-# LINE 107 "TfmToVisage.ag" #-} + ({-# LINE 114 "TfmToVisage.ag" #-} _hdIvchild : _tlIvchildren {-# LINE 182 "TfmToVisage.hs" #-}) -- copy rule (down) @@ -198,9 +198,9 @@ sem_Children_Nil = (T_Children (\ _lhsIrulemap -> (let _lhsOvchildren :: ([VisageChild]) - -- "TfmToVisage.ag"(line 108, column 17) + -- "TfmToVisage.ag"(line 115, column 17) _lhsOvchildren = - ({-# LINE 108 "TfmToVisage.ag" #-} + ({-# LINE 115 "TfmToVisage.ag" #-} [] {-# LINE 206 "TfmToVisage.hs" #-}) in ( _lhsOvchildren))) ) @@ -222,9 +222,9 @@ sem_Expression (Expression _pos _tks ) = (sem_Expression_Expression _pos _tks ) -- semantic domain -newtype T_Expression = T_Expression (( Expression )) +newtype T_Expression = T_Expression (( Expression)) data Inh_Expression = Inh_Expression {} -data Syn_Expression = Syn_Expression {self_Syn_Expression :: Expression } +data Syn_Expression = Syn_Expression {self_Syn_Expression :: Expression} wrap_Expression :: T_Expression -> Inh_Expression -> Syn_Expression @@ -236,7 +236,7 @@ ([HsToken]) -> T_Expression sem_Expression_Expression pos_ tks_ = - (T_Expression (let _lhsOself :: Expression + (T_Expression (let _lhsOself :: Expression -- self rule _self = ({-# LINE 71 "TfmToVisage.ag" #-} @@ -300,9 +300,9 @@ sem_Grammar_Grammar typeSyns_ useMap_ derivings_ wrappers_ (T_Nonterminals nonts_ ) pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ uniqueMap_ augmentsMap_ aroundsMap_ = (T_Grammar (let _lhsOvisage :: VisageGrammar _nontsIvnonts :: ([VisageNonterminal]) - -- "TfmToVisage.ag"(line 86, column 17) + -- "TfmToVisage.ag"(line 87, column 7) _lhsOvisage = - ({-# LINE 86 "TfmToVisage.ag" #-} + ({-# LINE 87 "TfmToVisage.ag" #-} VGrammar _nontsIvnonts {-# LINE 308 "TfmToVisage.hs" #-}) ( _nontsIvnonts) = @@ -346,9 +346,9 @@ sem_Nonterminal_Nonterminal nt_ params_ inh_ syn_ (T_Productions prods_ ) = (T_Nonterminal (let _lhsOvnont :: VisageNonterminal _prodsIvprods :: ([VisageProduction]) - -- "TfmToVisage.ag"(line 93, column 18) + -- "TfmToVisage.ag"(line 97, column 7) _lhsOvnont = - ({-# LINE 93 "TfmToVisage.ag" #-} + ({-# LINE 97 "TfmToVisage.ag" #-} VNonterminal nt_ inh_ syn_ _prodsIvprods {-# LINE 354 "TfmToVisage.hs" #-}) ( _prodsIvprods) = @@ -373,7 +373,7 @@ -- semantic domain newtype T_Nonterminals = T_Nonterminals (( ([VisageNonterminal]))) data Inh_Nonterminals = Inh_Nonterminals {} -data Syn_Nonterminals = Syn_Nonterminals {vnonts_Syn_Nonterminals :: ([VisageNonterminal])} +data Syn_Nonterminals = Syn_Nonterminals {vnonts_Syn_Nonterminals :: [VisageNonterminal]} wrap_Nonterminals :: T_Nonterminals -> Inh_Nonterminals -> Syn_Nonterminals @@ -388,9 +388,9 @@ (T_Nonterminals (let _lhsOvnonts :: ([VisageNonterminal]) _hdIvnont :: VisageNonterminal _tlIvnonts :: ([VisageNonterminal]) - -- "TfmToVisage.ag"(line 89, column 17) + -- "TfmToVisage.ag"(line 91, column 7) _lhsOvnonts = - ({-# LINE 89 "TfmToVisage.ag" #-} + ({-# LINE 91 "TfmToVisage.ag" #-} _hdIvnont : _tlIvnonts {-# LINE 396 "TfmToVisage.hs" #-}) ( _hdIvnont) = @@ -401,9 +401,9 @@ sem_Nonterminals_Nil :: T_Nonterminals sem_Nonterminals_Nil = (T_Nonterminals (let _lhsOvnonts :: ([VisageNonterminal]) - -- "TfmToVisage.ag"(line 90, column 17) + -- "TfmToVisage.ag"(line 93, column 7) _lhsOvnonts = - ({-# LINE 90 "TfmToVisage.ag" #-} + ({-# LINE 93 "TfmToVisage.ag" #-} [] {-# LINE 409 "TfmToVisage.hs" #-}) in ( _lhsOvnonts)) ) @@ -461,9 +461,9 @@ sem_Pattern (Underscore _pos ) = (sem_Pattern_Underscore _pos ) -- semantic domain -newtype T_Pattern = T_Pattern (( Pattern ,( [(Identifier,Identifier)] ),Pattern ,VisagePattern)) +newtype T_Pattern = T_Pattern (( Pattern,( [(Identifier,Identifier)] ),Pattern,VisagePattern)) data Inh_Pattern = Inh_Pattern {} -data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: Pattern ,fieldattrs_Syn_Pattern :: ( [(Identifier,Identifier)] ),self_Syn_Pattern :: Pattern ,vpat_Syn_Pattern :: VisagePattern} +data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: Pattern,fieldattrs_Syn_Pattern :: [(Identifier,Identifier)] ,self_Syn_Pattern :: Pattern,vpat_Syn_Pattern :: VisagePattern} wrap_Pattern :: T_Pattern -> Inh_Pattern -> Syn_Pattern @@ -479,26 +479,26 @@ sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) = (T_Pattern (let _lhsOvpat :: VisagePattern _lhsOfieldattrs :: ( [(Identifier,Identifier)] ) - _lhsOcopy :: Pattern - _lhsOself :: Pattern - _patIcopy :: Pattern + _lhsOcopy :: Pattern + _lhsOself :: Pattern + _patIcopy :: Pattern _patIfieldattrs :: ( [(Identifier,Identifier)] ) - _patIself :: Pattern + _patIself :: Pattern _patIvpat :: VisagePattern - _partsIcopy :: Patterns + _partsIcopy :: Patterns _partsIfieldattrs :: ( [(Identifier,Identifier)] ) - _partsIself :: Patterns + _partsIself :: Patterns _partsIvpats :: ([VisagePattern]) - -- "TfmToVisage.ag"(line 128, column 17) + -- "TfmToVisage.ag"(line 135, column 17) _lhsOvpat = - ({-# LINE 128 "TfmToVisage.ag" #-} + ({-# LINE 135 "TfmToVisage.ag" #-} if (isVar _self) then VVar field_ attr_ else VAlias field_ attr_ _patIvpat {-# LINE 499 "TfmToVisage.hs" #-}) - -- "TfmToVisage.ag"(line 137, column 17) + -- "TfmToVisage.ag"(line 144, column 17) _lhsOfieldattrs = - ({-# LINE 137 "TfmToVisage.ag" #-} + ({-# LINE 144 "TfmToVisage.ag" #-} [(field_, attr_)] {-# LINE 504 "TfmToVisage.hs" #-}) -- self rule @@ -532,20 +532,20 @@ sem_Pattern_Constr name_ (T_Patterns pats_ ) = (T_Pattern (let _lhsOvpat :: VisagePattern _lhsOfieldattrs :: ( [(Identifier,Identifier)] ) - _lhsOcopy :: Pattern - _lhsOself :: Pattern - _patsIcopy :: Patterns + _lhsOcopy :: Pattern + _lhsOself :: Pattern + _patsIcopy :: Patterns _patsIfieldattrs :: ( [(Identifier,Identifier)] ) - _patsIself :: Patterns + _patsIself :: Patterns _patsIvpats :: ([VisagePattern]) - -- "TfmToVisage.ag"(line 126, column 17) + -- "TfmToVisage.ag"(line 133, column 17) _lhsOvpat = - ({-# LINE 126 "TfmToVisage.ag" #-} + ({-# LINE 133 "TfmToVisage.ag" #-} VConstr name_ _patsIvpats {-# LINE 546 "TfmToVisage.hs" #-}) - -- use rule "TfmToVisage.ag"(line 134, column 43) + -- use rule "TfmToVisage.ag"(line 141, column 43) _lhsOfieldattrs = - ({-# LINE 134 "TfmToVisage.ag" #-} + ({-# LINE 141 "TfmToVisage.ag" #-} _patsIfieldattrs {-# LINE 551 "TfmToVisage.hs" #-}) -- self rule @@ -575,16 +575,16 @@ T_Pattern sem_Pattern_Irrefutable (T_Pattern pat_ ) = (T_Pattern (let _lhsOfieldattrs :: ( [(Identifier,Identifier)] ) - _lhsOcopy :: Pattern - _lhsOself :: Pattern + _lhsOcopy :: Pattern + _lhsOself :: Pattern _lhsOvpat :: VisagePattern - _patIcopy :: Pattern + _patIcopy :: Pattern _patIfieldattrs :: ( [(Identifier,Identifier)] ) - _patIself :: Pattern + _patIself :: Pattern _patIvpat :: VisagePattern - -- use rule "TfmToVisage.ag"(line 134, column 43) + -- use rule "TfmToVisage.ag"(line 141, column 43) _lhsOfieldattrs = - ({-# LINE 134 "TfmToVisage.ag" #-} + ({-# LINE 141 "TfmToVisage.ag" #-} _patIfieldattrs {-# LINE 590 "TfmToVisage.hs" #-}) -- self rule @@ -621,20 +621,20 @@ sem_Pattern_Product pos_ (T_Patterns pats_ ) = (T_Pattern (let _lhsOvpat :: VisagePattern _lhsOfieldattrs :: ( [(Identifier,Identifier)] ) - _lhsOcopy :: Pattern - _lhsOself :: Pattern - _patsIcopy :: Patterns + _lhsOcopy :: Pattern + _lhsOself :: Pattern + _patsIcopy :: Patterns _patsIfieldattrs :: ( [(Identifier,Identifier)] ) - _patsIself :: Patterns + _patsIself :: Patterns _patsIvpats :: ([VisagePattern]) - -- "TfmToVisage.ag"(line 127, column 17) + -- "TfmToVisage.ag"(line 134, column 17) _lhsOvpat = - ({-# LINE 127 "TfmToVisage.ag" #-} + ({-# LINE 134 "TfmToVisage.ag" #-} VProduct pos_ _patsIvpats {-# LINE 635 "TfmToVisage.hs" #-}) - -- use rule "TfmToVisage.ag"(line 134, column 43) + -- use rule "TfmToVisage.ag"(line 141, column 43) _lhsOfieldattrs = - ({-# LINE 134 "TfmToVisage.ag" #-} + ({-# LINE 141 "TfmToVisage.ag" #-} _patsIfieldattrs {-# LINE 640 "TfmToVisage.hs" #-}) -- self rule @@ -665,16 +665,16 @@ sem_Pattern_Underscore pos_ = (T_Pattern (let _lhsOvpat :: VisagePattern _lhsOfieldattrs :: ( [(Identifier,Identifier)] ) - _lhsOcopy :: Pattern - _lhsOself :: Pattern - -- "TfmToVisage.ag"(line 131, column 17) + _lhsOcopy :: Pattern + _lhsOself :: Pattern + -- "TfmToVisage.ag"(line 138, column 17) _lhsOvpat = - ({-# LINE 131 "TfmToVisage.ag" #-} + ({-# LINE 138 "TfmToVisage.ag" #-} VUnderscore pos_ {-# LINE 675 "TfmToVisage.hs" #-}) - -- use rule "TfmToVisage.ag"(line 134, column 43) + -- use rule "TfmToVisage.ag"(line 141, column 43) _lhsOfieldattrs = - ({-# LINE 134 "TfmToVisage.ag" #-} + ({-# LINE 141 "TfmToVisage.ag" #-} [] {-# LINE 680 "TfmToVisage.hs" #-}) -- self rule @@ -724,9 +724,9 @@ sem_Patterns list = (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) ) -- semantic domain -newtype T_Patterns = T_Patterns (( Patterns ,( [(Identifier,Identifier)] ),Patterns ,([VisagePattern]))) +newtype T_Patterns = T_Patterns (( Patterns,( [(Identifier,Identifier)] ),Patterns,([VisagePattern]))) data Inh_Patterns = Inh_Patterns {} -data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: Patterns ,fieldattrs_Syn_Patterns :: ( [(Identifier,Identifier)] ),self_Syn_Patterns :: Patterns ,vpats_Syn_Patterns :: ([VisagePattern])} +data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: Patterns,fieldattrs_Syn_Patterns :: [(Identifier,Identifier)] ,self_Syn_Patterns :: Patterns,vpats_Syn_Patterns :: [VisagePattern]} wrap_Patterns :: T_Patterns -> Inh_Patterns -> Syn_Patterns @@ -740,24 +740,24 @@ sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) = (T_Patterns (let _lhsOvpats :: ([VisagePattern]) _lhsOfieldattrs :: ( [(Identifier,Identifier)] ) - _lhsOcopy :: Patterns - _lhsOself :: Patterns - _hdIcopy :: Pattern + _lhsOcopy :: Patterns + _lhsOself :: Patterns + _hdIcopy :: Pattern _hdIfieldattrs :: ( [(Identifier,Identifier)] ) - _hdIself :: Pattern + _hdIself :: Pattern _hdIvpat :: VisagePattern - _tlIcopy :: Patterns + _tlIcopy :: Patterns _tlIfieldattrs :: ( [(Identifier,Identifier)] ) - _tlIself :: Patterns + _tlIself :: Patterns _tlIvpats :: ([VisagePattern]) - -- "TfmToVisage.ag"(line 122, column 17) + -- "TfmToVisage.ag"(line 129, column 17) _lhsOvpats = - ({-# LINE 122 "TfmToVisage.ag" #-} + ({-# LINE 129 "TfmToVisage.ag" #-} _hdIvpat : _tlIvpats {-# LINE 758 "TfmToVisage.hs" #-}) - -- use rule "TfmToVisage.ag"(line 134, column 43) + -- use rule "TfmToVisage.ag"(line 141, column 43) _lhsOfieldattrs = - ({-# LINE 134 "TfmToVisage.ag" #-} + ({-# LINE 141 "TfmToVisage.ag" #-} _hdIfieldattrs ++ _tlIfieldattrs {-# LINE 763 "TfmToVisage.hs" #-}) -- self rule @@ -789,16 +789,16 @@ sem_Patterns_Nil = (T_Patterns (let _lhsOvpats :: ([VisagePattern]) _lhsOfieldattrs :: ( [(Identifier,Identifier)] ) - _lhsOcopy :: Patterns - _lhsOself :: Patterns - -- "TfmToVisage.ag"(line 123, column 17) + _lhsOcopy :: Patterns + _lhsOself :: Patterns + -- "TfmToVisage.ag"(line 130, column 17) _lhsOvpats = - ({-# LINE 123 "TfmToVisage.ag" #-} + ({-# LINE 130 "TfmToVisage.ag" #-} [] {-# LINE 799 "TfmToVisage.hs" #-}) - -- use rule "TfmToVisage.ag"(line 134, column 43) + -- use rule "TfmToVisage.ag"(line 141, column 43) _lhsOfieldattrs = - ({-# LINE 134 "TfmToVisage.ag" #-} + ({-# LINE 141 "TfmToVisage.ag" #-} [] {-# LINE 804 "TfmToVisage.hs" #-}) -- self rule @@ -864,29 +864,29 @@ _childrenOrulemap :: VisageRuleMap _childrenIvchildren :: ([VisageChild]) _rulesIvrules :: ([VisageRule]) - -- "TfmToVisage.ag"(line 100, column 17) + -- "TfmToVisage.ag"(line 107, column 7) _lhsOvprod = - ({-# LINE 100 "TfmToVisage.ag" #-} + ({-# LINE 107 "TfmToVisage.ag" #-} VProduction con_ _childrenIvchildren _lhsrules _locrules {-# LINE 872 "TfmToVisage.hs" #-}) - -- "TfmToVisage.ag"(line 101, column 17) + -- "TfmToVisage.ag"(line 108, column 7) _splitVRules = - ({-# LINE 101 "TfmToVisage.ag" #-} + ({-# LINE 108 "TfmToVisage.ag" #-} splitVRules _rulesIvrules {-# LINE 877 "TfmToVisage.hs" #-}) - -- "TfmToVisage.ag"(line 102, column 17) + -- "TfmToVisage.ag"(line 109, column 7) _locrules = - ({-# LINE 102 "TfmToVisage.ag" #-} + ({-# LINE 109 "TfmToVisage.ag" #-} getForField "loc" _splitVRules {-# LINE 882 "TfmToVisage.hs" #-}) - -- "TfmToVisage.ag"(line 103, column 17) + -- "TfmToVisage.ag"(line 110, column 7) _lhsrules = - ({-# LINE 103 "TfmToVisage.ag" #-} + ({-# LINE 110 "TfmToVisage.ag" #-} getForField "lhs" _splitVRules {-# LINE 887 "TfmToVisage.hs" #-}) - -- "TfmToVisage.ag"(line 104, column 17) + -- "TfmToVisage.ag"(line 111, column 7) _childrenOrulemap = - ({-# LINE 104 "TfmToVisage.ag" #-} + ({-# LINE 111 "TfmToVisage.ag" #-} _splitVRules {-# LINE 892 "TfmToVisage.hs" #-}) ( _childrenIvchildren) = @@ -913,7 +913,7 @@ -- semantic domain newtype T_Productions = T_Productions (( ([VisageProduction]))) data Inh_Productions = Inh_Productions {} -data Syn_Productions = Syn_Productions {vprods_Syn_Productions :: ([VisageProduction])} +data Syn_Productions = Syn_Productions {vprods_Syn_Productions :: [VisageProduction]} wrap_Productions :: T_Productions -> Inh_Productions -> Syn_Productions @@ -928,9 +928,9 @@ (T_Productions (let _lhsOvprods :: ([VisageProduction]) _hdIvprod :: VisageProduction _tlIvprods :: ([VisageProduction]) - -- "TfmToVisage.ag"(line 96, column 17) + -- "TfmToVisage.ag"(line 101, column 7) _lhsOvprods = - ({-# LINE 96 "TfmToVisage.ag" #-} + ({-# LINE 101 "TfmToVisage.ag" #-} _hdIvprod : _tlIvprods {-# LINE 936 "TfmToVisage.hs" #-}) ( _hdIvprod) = @@ -941,9 +941,9 @@ sem_Productions_Nil :: T_Productions sem_Productions_Nil = (T_Productions (let _lhsOvprods :: ([VisageProduction]) - -- "TfmToVisage.ag"(line 97, column 17) + -- "TfmToVisage.ag"(line 103, column 7) _lhsOvprods = - ({-# LINE 97 "TfmToVisage.ag" #-} + ({-# LINE 103 "TfmToVisage.ag" #-} [] {-# LINE 949 "TfmToVisage.hs" #-}) in ( _lhsOvprods)) ) @@ -986,14 +986,14 @@ T_Rule sem_Rule_Rule mbName_ (T_Pattern pattern_ ) (T_Expression rhs_ ) owrt_ origin_ explicit_ = (T_Rule (let _lhsOvrule :: VisageRule - _patternIcopy :: Pattern + _patternIcopy :: Pattern _patternIfieldattrs :: ( [(Identifier,Identifier)] ) - _patternIself :: Pattern + _patternIself :: Pattern _patternIvpat :: VisagePattern - _rhsIself :: Expression - -- "TfmToVisage.ag"(line 119, column 11) + _rhsIself :: Expression + -- "TfmToVisage.ag"(line 126, column 11) _lhsOvrule = - ({-# LINE 119 "TfmToVisage.ag" #-} + ({-# LINE 126 "TfmToVisage.ag" #-} VRule _patternIfieldattrs undefined _patternIvpat _rhsIself owrt_ {-# LINE 999 "TfmToVisage.hs" #-}) ( _patternIcopy,_patternIfieldattrs,_patternIself,_patternIvpat) = @@ -1020,7 +1020,7 @@ -- semantic domain newtype T_Rules = T_Rules (( ([VisageRule]))) data Inh_Rules = Inh_Rules {} -data Syn_Rules = Syn_Rules {vrules_Syn_Rules :: ([VisageRule])} +data Syn_Rules = Syn_Rules {vrules_Syn_Rules :: [VisageRule]} wrap_Rules :: T_Rules -> Inh_Rules -> Syn_Rules @@ -1035,9 +1035,9 @@ (T_Rules (let _lhsOvrules :: ([VisageRule]) _hdIvrule :: VisageRule _tlIvrules :: ([VisageRule]) - -- "TfmToVisage.ag"(line 114, column 17) + -- "TfmToVisage.ag"(line 121, column 17) _lhsOvrules = - ({-# LINE 114 "TfmToVisage.ag" #-} + ({-# LINE 121 "TfmToVisage.ag" #-} _hdIvrule : _tlIvrules {-# LINE 1043 "TfmToVisage.hs" #-}) ( _hdIvrule) = @@ -1048,9 +1048,9 @@ sem_Rules_Nil :: T_Rules sem_Rules_Nil = (T_Rules (let _lhsOvrules :: ([VisageRule]) - -- "TfmToVisage.ag"(line 115, column 17) + -- "TfmToVisage.ag"(line 122, column 17) _lhsOvrules = - ({-# LINE 115 "TfmToVisage.ag" #-} + ({-# LINE 122 "TfmToVisage.ag" #-} [] {-# LINE 1056 "TfmToVisage.hs" #-}) in ( _lhsOvrules)) ) diff --git a/src-derived/Transform.hs b/src-derived/Transform.hs --- a/src-derived/Transform.hs +++ b/src-derived/Transform.hs @@ -1,5679 +1,5683 @@ --- UUAGC 0.9.22 (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) -> - checkDup inst insts errs $ - maybe (insts, Seq.singleton (MissingInstSig nt con inst) >< errs) - (\info@(_, NT nm _) -> 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) - - checkDup name insts errs e - = let fields = Map.findWithDefault [] con $ Map.findWithDefault Map.empty nt fieldMap - walk [] = Nothing - walk ((i,_): fs) | i == name = Just name - | otherwise = walk fs - in case walk fields of - Just occ -> (insts, Seq.singleton (DupChild nt con name occ) >< errs) - Nothing -> e - -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 245 "../src-derived/Transform.hs" #-} - -{-# LINE 457 "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 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) - cldrn = map (child False) flds ++ map (child True) insts - child isVirtual (nm, tp) = - let (inh,syn) = case tp of - NT nt _ -> let nt' = maybe nt id (deforestedNt nt) - in Map.findWithDefault (Map.empty,Map.empty) nt' attrs - _ -> (Map.empty,Map.empty) - in Child nm tp inh syn isVirtual - 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 410 "../src-derived/Transform.hs" #-} - -{-# LINE 1059 "Transform.ag" #-} - -mapUnionWithSetUnion = Map.unionWith Set.union -mapUnionWithPlusPlus = Map.unionWith (++) -{-# LINE 416 "../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 545 "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 551 "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 557 "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 563 "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 572 "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 578 "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 584 "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 590 "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 596 "Transform.hs" #-}) - -- "Transform.ag"(line 268, column 10) - _augmentSigs = - ({-# LINE 268 "Transform.ag" #-} - let gen mp = [] - in Map.map (Map.map gen) _allAugments - {-# LINE 602 "Transform.hs" #-}) - -- "Transform.ag"(line 271, column 10) - _allRulesErrs = - ({-# LINE 271 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkRules _allAttrDecls _allFields _allInsts _allSigs )) _allRules - {-# LINE 607 "Transform.hs" #-}) - -- "Transform.ag"(line 272, column 10) - _allNamesErrs = - ({-# LINE 272 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . checkRuleNames) _allRules - {-# LINE 612 "Transform.hs" #-}) - -- "Transform.ag"(line 273, column 10) - _allSigsErrs = - ({-# LINE 273 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkSigs )) _allSigs - {-# LINE 617 "Transform.hs" #-}) - -- "Transform.ag"(line 274, column 10) - _allInstsErrs = - ({-# LINE 274 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkInsts _allNonterminals _allSigs _allFields )) _allInsts - {-# LINE 622 "Transform.hs" #-}) - -- "Transform.ag"(line 275, column 10) - _allUniquesErrs = - ({-# LINE 275 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkUniques _allAttrDecls )) _allUniques - {-# LINE 627 "Transform.hs" #-}) - -- "Transform.ag"(line 276, column 10) - _allAugmentErrs = - ({-# LINE 276 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkAugments _allAttrDecls )) _allAugments - {-# LINE 632 "Transform.hs" #-}) - -- "Transform.ag"(line 277, column 10) - _allAroundsErrs = - ({-# LINE 277 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkArounds _allFields )) _allArounds - {-# LINE 637 "Transform.hs" #-}) - -- "Transform.ag"(line 279, column 10) - _checkedRulesPre = - ({-# LINE 279 "Transform.ag" #-} - Map.map (Map.map fst) _allRulesErrs - {-# LINE 642 "Transform.hs" #-}) - -- "Transform.ag"(line 280, column 10) - _checkedSigs = - ({-# LINE 280 "Transform.ag" #-} - Map.map (Map.map fst) _allSigsErrs `unionunionplusplus` _augmentSigs - {-# LINE 647 "Transform.hs" #-}) - -- "Transform.ag"(line 281, column 10) - _checkedInsts = - ({-# LINE 281 "Transform.ag" #-} - Map.map (Map.map fst) _allInstsErrs - {-# LINE 652 "Transform.hs" #-}) - -- "Transform.ag"(line 282, column 10) - _checkedUniques = - ({-# LINE 282 "Transform.ag" #-} - Map.map (Map.map fst) _allUniquesErrs - {-# LINE 657 "Transform.hs" #-}) - -- "Transform.ag"(line 283, column 10) - _checkedAugments = - ({-# LINE 283 "Transform.ag" #-} - Map.map (Map.map fst) _allAugmentErrs - {-# LINE 662 "Transform.hs" #-}) - -- "Transform.ag"(line 284, column 10) - _checkedArounds = - ({-# LINE 284 "Transform.ag" #-} - Map.map (Map.map fst) _allAroundsErrs - {-# LINE 667 "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 672 "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 678 "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 685 "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 691 "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 697 "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 703 "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 709 "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 715 "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 721 "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 727 "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 733 "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 738 "Transform.hs" #-}) - -- "Transform.ag"(line 500, column 10) - _allNonterminals = - ({-# LINE 500 "Transform.ag" #-} - _elemsIcollectedNames `Set.difference` _elemsIcollectedSetNames - {-# LINE 743 "Transform.hs" #-}) - -- "Transform.ag"(line 520, column 8) - _elemsOallConstructors = - ({-# LINE 520 "Transform.ag" #-} - _elemsIcollectedConstructorsMap - {-# LINE 748 "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 753 "Transform.hs" #-}) - -- "Transform.ag"(line 594, column 8) - _elemsOdefinedSets = - ({-# LINE 594 "Transform.ag" #-} - Map.map fst _elemsIdefSets - {-# LINE 758 "Transform.hs" #-}) - -- "Transform.ag"(line 846, column 8) - _elemsOattrDecls = - ({-# LINE 846 "Transform.ag" #-} - Map.empty - {-# LINE 763 "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 770 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - _elemsIblocks - {-# LINE 775 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 998, column 37) - _lhsOmoduleDecl = - ({-# LINE 998 "Transform.ag" #-} - _elemsImoduleDecl - {-# LINE 780 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 675, column 34) - _lhsOpragmas = - ({-# LINE 675 "Transform.ag" #-} - _elemsIpragmas - {-# LINE 785 "Transform.hs" #-}) - -- copy rule (from local) - _elemsOallAttrDecls = - ({-# LINE 748 "Transform.ag" #-} - _allAttrDecls - {-# LINE 790 "Transform.hs" #-}) - -- copy rule (from local) - _elemsOallFields = - ({-# LINE 126 "Transform.ag" #-} - _allFields - {-# LINE 795 "Transform.hs" #-}) - -- copy rule (from local) - _elemsOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _allNonterminals - {-# LINE 800 "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 863 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 91, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 91 "Transform.ag" #-} - _namesIcollectedConstructorNames - {-# LINE 868 "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 930 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - _hdIcollectedFields ++ _tlIcollectedFields - {-# LINE 935 "Transform.hs" #-}) - -- copy rule (down) - _hdOallConstructors = - ({-# LINE 94 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 940 "Transform.hs" #-}) - -- copy rule (down) - _hdOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 945 "Transform.hs" #-}) - -- copy rule (down) - _hdOnts = - ({-# LINE 163 "Transform.ag" #-} - _lhsInts - {-# LINE 950 "Transform.hs" #-}) - -- copy rule (down) - _tlOallConstructors = - ({-# LINE 94 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 955 "Transform.hs" #-}) - -- copy rule (down) - _tlOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 960 "Transform.hs" #-}) - -- copy rule (down) - _tlOnts = - ({-# LINE 163 "Transform.ag" #-} - _lhsInts - {-# LINE 965 "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 982 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 987 "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 1053 "Transform.hs" #-}) - -- "Transform.ag"(line 854, column 15) - (_attrDecls,_) = - ({-# LINE 854 "Transform.ag" #-} - __tup1 - {-# LINE 1058 "Transform.hs" #-}) - -- "Transform.ag"(line 854, column 15) - (_,_errors) = - ({-# LINE 854 "Transform.ag" #-} - __tup1 - {-# LINE 1063 "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 1075 "Transform.hs" #-}) - -- "Transform.ag"(line 856, column 15) - (_inherited,_,_) = - ({-# LINE 856 "Transform.ag" #-} - __tup2 - {-# LINE 1080 "Transform.hs" #-}) - -- "Transform.ag"(line 856, column 15) - (_,_synthesized,_) = - ({-# LINE 856 "Transform.ag" #-} - __tup2 - {-# LINE 1085 "Transform.hs" #-}) - -- "Transform.ag"(line 856, column 15) - (_,_,_useMap) = - ({-# LINE 856 "Transform.ag" #-} - __tup2 - {-# LINE 1090 "Transform.hs" #-}) - -- "Transform.ag"(line 864, column 11) - _lhsOuseMap = - ({-# LINE 864 "Transform.ag" #-} - Map.fromList (zip (Set.toList _lhsInts) (repeat _useMap)) - {-# LINE 1095 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _errors - {-# LINE 1100 "Transform.hs" #-}) - -- copy rule (from local) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _attrDecls - {-# LINE 1105 "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 1156 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 91, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 91 "Transform.ag" #-} - Set.empty - {-# LINE 1161 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 1166 "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 1185 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 91, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 91 "Transform.ag" #-} - _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames - {-# LINE 1190 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 1195 "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 1211 "Transform.hs" #-}) - -- "Transform.ag"(line 657, column 17) - _lhsOconstructors = - ({-# LINE 657 "Transform.ag" #-} - \ds -> Set.singleton name_ - {-# LINE 1216 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 1221 "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 1240 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 91, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 91 "Transform.ag" #-} - _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames - {-# LINE 1245 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 1250 "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 1449 "Transform.hs" #-}) - -- "Transform.ag"(line 850, column 10) - _attrsOnts = - ({-# LINE 850 "Transform.ag" #-} - _namesInontSet - {-# LINE 1454 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 747, column 55) - _lhsOattrOrderCollect = - ({-# LINE 747 "Transform.ag" #-} - Map.empty - {-# LINE 1459 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 1464 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 1469 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 1474 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 1479 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 1484 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 1489 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _namesIcollectedNames - {-# LINE 1494 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 1499 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 1504 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 1509 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 1514 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 827, column 33) - _lhsOderivings = - ({-# LINE 827 "Transform.ag" #-} - Map.empty - {-# LINE 1519 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _namesIerrors Seq.>< _attrsIerrors - {-# LINE 1524 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 998, column 37) - _lhsOmoduleDecl = - ({-# LINE 998 "Transform.ag" #-} - mzero - {-# LINE 1529 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 779, column 37) - _lhsOparamsCollect = - ({-# LINE 779 "Transform.ag" #-} - Map.empty - {-# LINE 1534 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 675, column 34) - _lhsOpragmas = - ({-# LINE 675 "Transform.ag" #-} - id - {-# LINE 1539 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 719, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 719 "Transform.ag" #-} - Map.empty - {-# LINE 1544 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 535, column 32) - _lhsOtypeSyns = - ({-# LINE 535 "Transform.ag" #-} - [] - {-# LINE 1549 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - _attrsIuseMap - {-# LINE 1554 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 666, column 32) - _lhsOwrappers = - ({-# LINE 666 "Transform.ag" #-} - Set.empty - {-# LINE 1559 "Transform.hs" #-}) - -- copy rule (up) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _attrsIattrDecls - {-# LINE 1564 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 1569 "Transform.hs" #-}) - -- copy rule (down) - _namesOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 1574 "Transform.hs" #-}) - -- copy rule (down) - _namesOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 1579 "Transform.hs" #-}) - -- copy rule (down) - _namesOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 1584 "Transform.hs" #-}) - -- copy rule (down) - _attrsOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 1589 "Transform.hs" #-}) - -- copy rule (down) - _attrsOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 1594 "Transform.hs" #-}) - -- copy rule (down) - _attrsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 1599 "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 1667 "Transform.hs" #-}) - -- "Transform.ag"(line 514, column 11) - _lhsOcollectedConstructorsMap = - ({-# LINE 514 "Transform.ag" #-} - Map.fromList - [ (n, _altsIcollectedConstructorNames) - | n <- Set.toList _namesInontSet - ] - {-# LINE 1675 "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 1682 "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 1689 "Transform.hs" #-}) - -- "Transform.ag"(line 849, column 10) - _attrsOnts = - ({-# LINE 849 "Transform.ag" #-} - _namesInontSet - {-# LINE 1694 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 747, column 55) - _lhsOattrOrderCollect = - ({-# LINE 747 "Transform.ag" #-} - Map.empty - {-# LINE 1699 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 1704 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 1709 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 1714 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - _altsIcollectedFields - {-# LINE 1719 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 1724 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _namesIcollectedNames - {-# LINE 1729 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 1734 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 1739 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 1744 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 1749 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 827, column 33) - _lhsOderivings = - ({-# LINE 827 "Transform.ag" #-} - Map.empty - {-# LINE 1754 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _namesIerrors Seq.>< _attrsIerrors - {-# LINE 1759 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 998, column 37) - _lhsOmoduleDecl = - ({-# LINE 998 "Transform.ag" #-} - mzero - {-# LINE 1764 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 675, column 34) - _lhsOpragmas = - ({-# LINE 675 "Transform.ag" #-} - id - {-# LINE 1769 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 719, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 719 "Transform.ag" #-} - Map.empty - {-# LINE 1774 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 535, column 32) - _lhsOtypeSyns = - ({-# LINE 535 "Transform.ag" #-} - [] - {-# LINE 1779 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - _attrsIuseMap - {-# LINE 1784 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 666, column 32) - _lhsOwrappers = - ({-# LINE 666 "Transform.ag" #-} - Set.empty - {-# LINE 1789 "Transform.hs" #-}) - -- copy rule (up) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _attrsIattrDecls - {-# LINE 1794 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 1799 "Transform.hs" #-}) - -- copy rule (down) - _namesOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 1804 "Transform.hs" #-}) - -- copy rule (down) - _namesOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 1809 "Transform.hs" #-}) - -- copy rule (down) - _namesOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 1814 "Transform.hs" #-}) - -- copy rule (down) - _attrsOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 1819 "Transform.hs" #-}) - -- copy rule (down) - _attrsOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 1824 "Transform.hs" #-}) - -- copy rule (down) - _attrsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 1829 "Transform.hs" #-}) - -- copy rule (down) - _altsOallConstructors = - ({-# LINE 94 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 1834 "Transform.hs" #-}) - -- copy rule (down) - _altsOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 1839 "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 1893 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 747, column 55) - _lhsOattrOrderCollect = - ({-# LINE 747 "Transform.ag" #-} - Map.empty - {-# LINE 1898 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 1903 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 1908 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 1913 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 1918 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 1923 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 1928 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _setIcollectedNames - {-# LINE 1933 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 1938 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 1943 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 1948 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 1953 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 802, column 34) - _lhsOctxCollect = - ({-# LINE 802 "Transform.ag" #-} - Map.empty - {-# LINE 1958 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _setIerrors - {-# LINE 1963 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 998, column 37) - _lhsOmoduleDecl = - ({-# LINE 998 "Transform.ag" #-} - mzero - {-# LINE 1968 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 779, column 37) - _lhsOparamsCollect = - ({-# LINE 779 "Transform.ag" #-} - Map.empty - {-# LINE 1973 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 675, column 34) - _lhsOpragmas = - ({-# LINE 675 "Transform.ag" #-} - id - {-# LINE 1978 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 719, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 719 "Transform.ag" #-} - Map.empty - {-# LINE 1983 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 535, column 32) - _lhsOtypeSyns = - ({-# LINE 535 "Transform.ag" #-} - [] - {-# LINE 1988 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 1993 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 666, column 32) - _lhsOwrappers = - ({-# LINE 666 "Transform.ag" #-} - Set.empty - {-# LINE 1998 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2003 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 2008 "Transform.hs" #-}) - -- copy rule (down) - _setOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 2013 "Transform.hs" #-}) - -- copy rule (down) - _setOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 2018 "Transform.hs" #-}) - -- copy rule (down) - _setOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 2023 "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 2068 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 747, column 55) - _lhsOattrOrderCollect = - ({-# LINE 747 "Transform.ag" #-} - Map.empty - {-# LINE 2073 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 2078 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 2083 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 2088 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 2093 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 2098 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 2103 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - Set.empty - {-# LINE 2108 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 2113 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 2118 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 2123 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 2128 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 802, column 34) - _lhsOctxCollect = - ({-# LINE 802 "Transform.ag" #-} - Map.empty - {-# LINE 2133 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 827, column 33) - _lhsOderivings = - ({-# LINE 827 "Transform.ag" #-} - Map.empty - {-# LINE 2138 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 2143 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 779, column 37) - _lhsOparamsCollect = - ({-# LINE 779 "Transform.ag" #-} - Map.empty - {-# LINE 2148 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 675, column 34) - _lhsOpragmas = - ({-# LINE 675 "Transform.ag" #-} - id - {-# LINE 2153 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 719, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 719 "Transform.ag" #-} - Map.empty - {-# LINE 2158 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 535, column 32) - _lhsOtypeSyns = - ({-# LINE 535 "Transform.ag" #-} - [] - {-# LINE 2163 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 2168 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 666, column 32) - _lhsOwrappers = - ({-# LINE 666 "Transform.ag" #-} - Set.empty - {-# LINE 2173 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2178 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 2183 "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 2263 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 747, column 55) - _lhsOattrOrderCollect = - ({-# LINE 747 "Transform.ag" #-} - Map.empty - {-# LINE 2268 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 2273 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 2278 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 2283 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 2288 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 2293 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 2298 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - Set.empty - {-# LINE 2303 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 2308 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 2313 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 2318 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 2323 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 802, column 34) - _lhsOctxCollect = - ({-# LINE 802 "Transform.ag" #-} - Map.empty - {-# LINE 2328 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 827, column 33) - _lhsOderivings = - ({-# LINE 827 "Transform.ag" #-} - Map.empty - {-# LINE 2333 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 2338 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 998, column 37) - _lhsOmoduleDecl = - ({-# LINE 998 "Transform.ag" #-} - mzero - {-# LINE 2343 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 779, column 37) - _lhsOparamsCollect = - ({-# LINE 779 "Transform.ag" #-} - Map.empty - {-# LINE 2348 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 719, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 719 "Transform.ag" #-} - Map.empty - {-# LINE 2353 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 535, column 32) - _lhsOtypeSyns = - ({-# LINE 535 "Transform.ag" #-} - [] - {-# LINE 2358 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 2363 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 666, column 32) - _lhsOwrappers = - ({-# LINE 666 "Transform.ag" #-} - Set.empty - {-# LINE 2368 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2373 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 2378 "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 2447 "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 2454 "Transform.hs" #-}) - -- "Transform.ag"(line 851, column 10) - _attrsOnts = - ({-# LINE 851 "Transform.ag" #-} - _namesInontSet - {-# LINE 2459 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 747, column 55) - _lhsOattrOrderCollect = - ({-# LINE 747 "Transform.ag" #-} - _altsIattrOrderCollect - {-# LINE 2464 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 2469 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - _altsIcollectedArounds - {-# LINE 2474 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - _altsIcollectedAugments - {-# LINE 2479 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 2484 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 2489 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - _altsIcollectedInsts - {-# LINE 2494 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _namesIcollectedNames - {-# LINE 2499 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - _altsIcollectedRules - {-# LINE 2504 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 2509 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - _altsIcollectedSigs - {-# LINE 2514 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - _altsIcollectedUniques - {-# LINE 2519 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 827, column 33) - _lhsOderivings = - ({-# LINE 827 "Transform.ag" #-} - Map.empty - {-# LINE 2524 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _namesIerrors Seq.>< _attrsIerrors Seq.>< _altsIerrors - {-# LINE 2529 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 998, column 37) - _lhsOmoduleDecl = - ({-# LINE 998 "Transform.ag" #-} - mzero - {-# LINE 2534 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 779, column 37) - _lhsOparamsCollect = - ({-# LINE 779 "Transform.ag" #-} - Map.empty - {-# LINE 2539 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 675, column 34) - _lhsOpragmas = - ({-# LINE 675 "Transform.ag" #-} - id - {-# LINE 2544 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 719, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 719 "Transform.ag" #-} - _altsIsemPragmasCollect - {-# LINE 2549 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 535, column 32) - _lhsOtypeSyns = - ({-# LINE 535 "Transform.ag" #-} - [] - {-# LINE 2554 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - _attrsIuseMap - {-# LINE 2559 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 666, column 32) - _lhsOwrappers = - ({-# LINE 666 "Transform.ag" #-} - Set.empty - {-# LINE 2564 "Transform.hs" #-}) - -- copy rule (up) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _attrsIattrDecls - {-# LINE 2569 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 2574 "Transform.hs" #-}) - -- copy rule (down) - _namesOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 2579 "Transform.hs" #-}) - -- copy rule (down) - _namesOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 2584 "Transform.hs" #-}) - -- copy rule (down) - _namesOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 2589 "Transform.hs" #-}) - -- copy rule (down) - _attrsOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 2594 "Transform.hs" #-}) - -- copy rule (down) - _attrsOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 2599 "Transform.hs" #-}) - -- copy rule (down) - _attrsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2604 "Transform.hs" #-}) - -- copy rule (down) - _altsOallAttrDecls = - ({-# LINE 748 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 2609 "Transform.hs" #-}) - -- copy rule (down) - _altsOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 2614 "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 2668 "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 2682 "Transform.hs" #-}) - -- "Transform.ag"(line 598, column 13) - (_defSets2,_) = - ({-# LINE 598 "Transform.ag" #-} - __tup3 - {-# LINE 2687 "Transform.hs" #-}) - -- "Transform.ag"(line 598, column 13) - (_,_errs) = - ({-# LINE 598 "Transform.ag" #-} - __tup3 - {-# LINE 2692 "Transform.hs" #-}) - -- "Transform.ag"(line 608, column 9) - _lhsOdefSets = - ({-# LINE 608 "Transform.ag" #-} - _defSets2 - {-# LINE 2697 "Transform.hs" #-}) - -- "Transform.ag"(line 608, column 9) - _lhsOerrors = - ({-# LINE 609 "Transform.ag" #-} - _errs >< _setIerrors - {-# LINE 2702 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 747, column 55) - _lhsOattrOrderCollect = - ({-# LINE 747 "Transform.ag" #-} - Map.empty - {-# LINE 2707 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 2712 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 2717 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 2722 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 2727 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 2732 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 2737 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _setIcollectedNames - {-# LINE 2742 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 2747 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 2752 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 2757 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 802, column 34) - _lhsOctxCollect = - ({-# LINE 802 "Transform.ag" #-} - Map.empty - {-# LINE 2762 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 827, column 33) - _lhsOderivings = - ({-# LINE 827 "Transform.ag" #-} - Map.empty - {-# LINE 2767 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 998, column 37) - _lhsOmoduleDecl = - ({-# LINE 998 "Transform.ag" #-} - mzero - {-# LINE 2772 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 779, column 37) - _lhsOparamsCollect = - ({-# LINE 779 "Transform.ag" #-} - Map.empty - {-# LINE 2777 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 675, column 34) - _lhsOpragmas = - ({-# LINE 675 "Transform.ag" #-} - id - {-# LINE 2782 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 719, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 719 "Transform.ag" #-} - Map.empty - {-# LINE 2787 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 535, column 32) - _lhsOtypeSyns = - ({-# LINE 535 "Transform.ag" #-} - [] - {-# LINE 2792 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 2797 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 666, column 32) - _lhsOwrappers = - ({-# LINE 666 "Transform.ag" #-} - Set.empty - {-# LINE 2802 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2807 "Transform.hs" #-}) - -- copy rule (down) - _setOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 2812 "Transform.hs" #-}) - -- copy rule (down) - _setOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 2817 "Transform.hs" #-}) - -- copy rule (down) - _setOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 2822 "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 2874 "Transform.hs" #-}) - -- "Transform.ag"(line 184, column 10) - _blockValue = - ({-# LINE 184 "Transform.ag" #-} - [(lines_, pos_)] - {-# LINE 2879 "Transform.hs" #-}) - -- "Transform.ag"(line 185, column 10) - _lhsOblocks = - ({-# LINE 185 "Transform.ag" #-} - Map.singleton _blockInfo _blockValue - {-# LINE 2884 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 747, column 55) - _lhsOattrOrderCollect = - ({-# LINE 747 "Transform.ag" #-} - Map.empty - {-# LINE 2889 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 2894 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 2899 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 2904 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 2909 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 2914 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - Set.empty - {-# LINE 2919 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 2924 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 2929 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 2934 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 2939 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 802, column 34) - _lhsOctxCollect = - ({-# LINE 802 "Transform.ag" #-} - Map.empty - {-# LINE 2944 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 827, column 33) - _lhsOderivings = - ({-# LINE 827 "Transform.ag" #-} - Map.empty - {-# LINE 2949 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 2954 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 998, column 37) - _lhsOmoduleDecl = - ({-# LINE 998 "Transform.ag" #-} - mzero - {-# LINE 2959 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 779, column 37) - _lhsOparamsCollect = - ({-# LINE 779 "Transform.ag" #-} - Map.empty - {-# LINE 2964 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 675, column 34) - _lhsOpragmas = - ({-# LINE 675 "Transform.ag" #-} - id - {-# LINE 2969 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 719, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 719 "Transform.ag" #-} - Map.empty - {-# LINE 2974 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 535, column 32) - _lhsOtypeSyns = - ({-# LINE 535 "Transform.ag" #-} - [] - {-# LINE 2979 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 2984 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 666, column 32) - _lhsOwrappers = - ({-# LINE 666 "Transform.ag" #-} - Set.empty - {-# LINE 2989 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2994 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 2999 "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 3043 "Transform.hs" #-}) - -- "Transform.ag"(line 494, column 11) - _lhsOcollectedNames = - ({-# LINE 494 "Transform.ag" #-} - Set.singleton name_ - {-# LINE 3048 "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 3081 "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 3092 "Transform.hs" #-}) - -- "Transform.ag"(line 584, column 11) - _lhsOtypeSyns = - ({-# LINE 584 "Transform.ag" #-} - [(name_,_argType)] - {-# LINE 3097 "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 3104 "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 3111 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 747, column 55) - _lhsOattrOrderCollect = - ({-# LINE 747 "Transform.ag" #-} - Map.empty - {-# LINE 3116 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 3121 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 3126 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 3131 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 3136 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 3141 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 3146 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 3151 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 3156 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 3161 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 827, column 33) - _lhsOderivings = - ({-# LINE 827 "Transform.ag" #-} - Map.empty - {-# LINE 3166 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 3171 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 998, column 37) - _lhsOmoduleDecl = - ({-# LINE 998 "Transform.ag" #-} - mzero - {-# LINE 3176 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 675, column 34) - _lhsOpragmas = - ({-# LINE 675 "Transform.ag" #-} - id - {-# LINE 3181 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 719, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 719 "Transform.ag" #-} - Map.empty - {-# LINE 3186 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 3191 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 666, column 32) - _lhsOwrappers = - ({-# LINE 666 "Transform.ag" #-} - Set.empty - {-# LINE 3196 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 3201 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 3206 "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 3253 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 747, column 55) - _lhsOattrOrderCollect = - ({-# LINE 747 "Transform.ag" #-} - Map.empty - {-# LINE 3258 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 3263 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 3268 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 3273 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 3278 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 3283 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 3288 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _setIcollectedNames - {-# LINE 3293 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 3298 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 3303 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 3308 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 3313 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 802, column 34) - _lhsOctxCollect = - ({-# LINE 802 "Transform.ag" #-} - Map.empty - {-# LINE 3318 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 827, column 33) - _lhsOderivings = - ({-# LINE 827 "Transform.ag" #-} - Map.empty - {-# LINE 3323 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _setIerrors - {-# LINE 3328 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 998, column 37) - _lhsOmoduleDecl = - ({-# LINE 998 "Transform.ag" #-} - mzero - {-# LINE 3333 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 779, column 37) - _lhsOparamsCollect = - ({-# LINE 779 "Transform.ag" #-} - Map.empty - {-# LINE 3338 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 675, column 34) - _lhsOpragmas = - ({-# LINE 675 "Transform.ag" #-} - id - {-# LINE 3343 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 719, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 719 "Transform.ag" #-} - Map.empty - {-# LINE 3348 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 535, column 32) - _lhsOtypeSyns = - ({-# LINE 535 "Transform.ag" #-} - [] - {-# LINE 3353 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 3358 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 3363 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 3368 "Transform.hs" #-}) - -- copy rule (down) - _setOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 3373 "Transform.hs" #-}) - -- copy rule (down) - _setOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 3378 "Transform.hs" #-}) - -- copy rule (down) - _setOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 3383 "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 3552 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - _hdIblocks `mapUnionWithPlusPlus` _tlIblocks - {-# LINE 3557 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - _hdIcollectedArounds ++ _tlIcollectedArounds - {-# LINE 3562 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - _hdIcollectedAugments ++ _tlIcollectedAugments - {-# LINE 3567 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - _hdIcollectedConstructorsMap `mapUnionWithSetUnion` _tlIcollectedConstructorsMap - {-# LINE 3572 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - _hdIcollectedFields ++ _tlIcollectedFields - {-# LINE 3577 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - _hdIcollectedInsts ++ _tlIcollectedInsts - {-# LINE 3582 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _hdIcollectedNames `Set.union` _tlIcollectedNames - {-# LINE 3587 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - _hdIcollectedRules ++ _tlIcollectedRules - {-# LINE 3592 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - _hdIcollectedSetNames `Set.union` _tlIcollectedSetNames - {-# LINE 3597 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - _hdIcollectedSigs ++ _tlIcollectedSigs - {-# LINE 3602 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - _hdIcollectedUniques ++ _tlIcollectedUniques - {-# LINE 3607 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 802, column 34) - _lhsOctxCollect = - ({-# LINE 802 "Transform.ag" #-} - _hdIctxCollect `mergeCtx` _tlIctxCollect - {-# LINE 3612 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 827, column 33) - _lhsOderivings = - ({-# LINE 827 "Transform.ag" #-} - _hdIderivings `mergeDerivings` _tlIderivings - {-# LINE 3617 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 3622 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 998, column 37) - _lhsOmoduleDecl = - ({-# LINE 998 "Transform.ag" #-} - _hdImoduleDecl `mplus` _tlImoduleDecl - {-# LINE 3627 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 779, column 37) - _lhsOparamsCollect = - ({-# LINE 779 "Transform.ag" #-} - _hdIparamsCollect `mergeParams` _tlIparamsCollect - {-# LINE 3632 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 675, column 34) - _lhsOpragmas = - ({-# LINE 675 "Transform.ag" #-} - _hdIpragmas . _tlIpragmas - {-# LINE 3637 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 719, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 719 "Transform.ag" #-} - _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect - {-# LINE 3642 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 535, column 32) - _lhsOtypeSyns = - ({-# LINE 535 "Transform.ag" #-} - _hdItypeSyns ++ _tlItypeSyns - {-# LINE 3647 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - _hdIuseMap `merge` _tlIuseMap - {-# LINE 3652 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 666, column 32) - _lhsOwrappers = - ({-# LINE 666 "Transform.ag" #-} - _hdIwrappers `Set.union` _tlIwrappers - {-# LINE 3657 "Transform.hs" #-}) - -- copy rule (up) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _tlIattrDecls - {-# LINE 3662 "Transform.hs" #-}) - -- copy rule (up) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _tlIdefSets - {-# LINE 3667 "Transform.hs" #-}) - -- copy rule (down) - _hdOallAttrDecls = - ({-# LINE 748 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 3672 "Transform.hs" #-}) - -- copy rule (down) - _hdOallConstructors = - ({-# LINE 94 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 3677 "Transform.hs" #-}) - -- copy rule (down) - _hdOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 3682 "Transform.hs" #-}) - -- copy rule (down) - _hdOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 3687 "Transform.hs" #-}) - -- copy rule (down) - _hdOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 3692 "Transform.hs" #-}) - -- copy rule (down) - _hdOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 3697 "Transform.hs" #-}) - -- copy rule (down) - _hdOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 3702 "Transform.hs" #-}) - -- copy rule (down) - _tlOallAttrDecls = - ({-# LINE 748 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 3707 "Transform.hs" #-}) - -- copy rule (down) - _tlOallConstructors = - ({-# LINE 94 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 3712 "Transform.hs" #-}) - -- copy rule (down) - _tlOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 3717 "Transform.hs" #-}) - -- copy rule (down) - _tlOallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 3722 "Transform.hs" #-}) - -- copy rule (chain) - _tlOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _hdIattrDecls - {-# LINE 3727 "Transform.hs" #-}) - -- copy rule (chain) - _tlOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _hdIdefSets - {-# LINE 3732 "Transform.hs" #-}) - -- copy rule (down) - _tlOdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 3737 "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 3780 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 44, column 19) - _lhsOblocks = - ({-# LINE 44 "Transform.ag" #-} - Map.empty - {-# LINE 3785 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 3790 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 3795 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 92, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 92 "Transform.ag" #-} - Map.empty - {-# LINE 3800 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 123, column 28) - _lhsOcollectedFields = - ({-# LINE 123 "Transform.ag" #-} - [] - {-# LINE 3805 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 3810 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - Set.empty - {-# LINE 3815 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 3820 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 83, column 50) - _lhsOcollectedSetNames = - ({-# LINE 83 "Transform.ag" #-} - Set.empty - {-# LINE 3825 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 3830 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 3835 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 802, column 34) - _lhsOctxCollect = - ({-# LINE 802 "Transform.ag" #-} - Map.empty - {-# LINE 3840 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 827, column 33) - _lhsOderivings = - ({-# LINE 827 "Transform.ag" #-} - Map.empty - {-# LINE 3845 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 3850 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 998, column 37) - _lhsOmoduleDecl = - ({-# LINE 998 "Transform.ag" #-} - mzero - {-# LINE 3855 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 779, column 37) - _lhsOparamsCollect = - ({-# LINE 779 "Transform.ag" #-} - Map.empty - {-# LINE 3860 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 675, column 34) - _lhsOpragmas = - ({-# LINE 675 "Transform.ag" #-} - id - {-# LINE 3865 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 719, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 719 "Transform.ag" #-} - Map.empty - {-# LINE 3870 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 535, column 32) - _lhsOtypeSyns = - ({-# LINE 535 "Transform.ag" #-} - [] - {-# LINE 3875 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 135, column 15) - _lhsOuseMap = - ({-# LINE 135 "Transform.ag" #-} - Map.empty - {-# LINE 3880 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 666, column 32) - _lhsOwrappers = - ({-# LINE 666 "Transform.ag" #-} - Set.empty - {-# LINE 3885 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 134 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 3890 "Transform.hs" #-}) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 102 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 3895 "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 3970 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - Set.empty - {-# LINE 3975 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 3980 "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 4008 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _set1IcollectedNames `Set.union` _set2IcollectedNames - {-# LINE 4013 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 4018 "Transform.hs" #-}) - -- copy rule (down) - _set1OallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4023 "Transform.hs" #-}) - -- copy rule (down) - _set1OallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4028 "Transform.hs" #-}) - -- copy rule (down) - _set1OdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4033 "Transform.hs" #-}) - -- copy rule (down) - _set2OallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4038 "Transform.hs" #-}) - -- copy rule (down) - _set2OallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4043 "Transform.hs" #-}) - -- copy rule (down) - _set2OdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4048 "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 4080 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _set1IcollectedNames `Set.union` _set2IcollectedNames - {-# LINE 4085 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 4090 "Transform.hs" #-}) - -- copy rule (down) - _set1OallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4095 "Transform.hs" #-}) - -- copy rule (down) - _set1OallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4100 "Transform.hs" #-}) - -- copy rule (down) - _set1OdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4105 "Transform.hs" #-}) - -- copy rule (down) - _set2OallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4110 "Transform.hs" #-}) - -- copy rule (down) - _set2OallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4115 "Transform.hs" #-}) - -- copy rule (down) - _set2OdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4120 "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 4139 "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 4146 "Transform.hs" #-}) - -- "Transform.ag"(line 613, column 20) - (_nontSet,_) = - ({-# LINE 613 "Transform.ag" #-} - __tup4 - {-# LINE 4151 "Transform.hs" #-}) - -- "Transform.ag"(line 613, column 20) - (_,_errors) = - ({-# LINE 613 "Transform.ag" #-} - __tup4 - {-# LINE 4156 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _errors - {-# LINE 4161 "Transform.hs" #-}) - -- copy rule (from local) - _lhsOnontSet = - ({-# LINE 110 "Transform.ag" #-} - _nontSet - {-# LINE 4166 "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 4183 "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 4191 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - Set.empty - {-# LINE 4196 "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 4224 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 84, column 50) - _lhsOcollectedNames = - ({-# LINE 84 "Transform.ag" #-} - _set1IcollectedNames `Set.union` _set2IcollectedNames - {-# LINE 4229 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 4234 "Transform.hs" #-}) - -- copy rule (down) - _set1OallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4239 "Transform.hs" #-}) - -- copy rule (down) - _set1OallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4244 "Transform.hs" #-}) - -- copy rule (down) - _set1OdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4249 "Transform.hs" #-}) - -- copy rule (down) - _set2OallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4254 "Transform.hs" #-}) - -- copy rule (down) - _set2OallNonterminals = - ({-# LINE 86 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4259 "Transform.hs" #-}) - -- copy rule (down) - _set2OdefinedSets = - ({-# LINE 105 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4264 "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 4354 "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 4359 "Transform.hs" #-}) - -- "Transform.ag"(line 976, column 11) - _lhsOdefinedInsts = - ({-# LINE 976 "Transform.ag" #-} - (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts - {-# LINE 4364 "Transform.hs" #-}) - -- "Transform.ag"(line 991, column 16) - _lhsOstpos = - ({-# LINE 991 "Transform.ag" #-} - getPos field_ - {-# LINE 4369 "Transform.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Alias field_ attr_ _patIcopy _partsIcopy - {-# LINE 4374 "Transform.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 4379 "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 4402 "Transform.hs" #-}) - -- "Transform.ag"(line 989, column 16) - _lhsOstpos = - ({-# LINE 989 "Transform.ag" #-} - getPos name_ - {-# LINE 4407 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 969, column 42) - _lhsOdefinedAttrs = - ({-# LINE 969 "Transform.ag" #-} - _patsIdefinedAttrs - {-# LINE 4412 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - _patsIdefinedInsts - {-# LINE 4417 "Transform.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Constr name_ _patsIcopy - {-# LINE 4422 "Transform.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 4427 "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 4448 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 969, column 42) - _lhsOdefinedAttrs = - ({-# LINE 969 "Transform.ag" #-} - _patIdefinedAttrs - {-# LINE 4453 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - _patIdefinedInsts - {-# LINE 4458 "Transform.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Irrefutable _patIcopy - {-# LINE 4463 "Transform.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 4468 "Transform.hs" #-}) - -- copy rule (up) - _lhsOstpos = - ({-# LINE 986 "Transform.ag" #-} - _patIstpos - {-# LINE 4473 "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 4494 "Transform.hs" #-}) - -- "Transform.ag"(line 990, column 16) - _lhsOstpos = - ({-# LINE 990 "Transform.ag" #-} - pos_ - {-# LINE 4499 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 969, column 42) - _lhsOdefinedAttrs = - ({-# LINE 969 "Transform.ag" #-} - _patsIdefinedAttrs - {-# LINE 4504 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - _patsIdefinedInsts - {-# LINE 4509 "Transform.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Product pos_ _patsIcopy - {-# LINE 4514 "Transform.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 4519 "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 4535 "Transform.hs" #-}) - -- "Transform.ag"(line 992, column 16) - _lhsOstpos = - ({-# LINE 992 "Transform.ag" #-} - pos_ - {-# LINE 4540 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 969, column 42) - _lhsOdefinedAttrs = - ({-# LINE 969 "Transform.ag" #-} - [] - {-# LINE 4545 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - [] - {-# LINE 4550 "Transform.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Underscore pos_ - {-# LINE 4555 "Transform.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 4560 "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 4617 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 969, column 42) - _lhsOdefinedAttrs = - ({-# LINE 969 "Transform.ag" #-} - _hdIdefinedAttrs ++ _tlIdefinedAttrs - {-# LINE 4622 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - _hdIdefinedInsts ++ _tlIdefinedInsts - {-# LINE 4627 "Transform.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 4632 "Transform.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 4637 "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 4653 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 969, column 42) - _lhsOdefinedAttrs = - ({-# LINE 969 "Transform.ag" #-} - [] - {-# LINE 4658 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - [] - {-# LINE 4663 "Transform.hs" #-}) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - [] - {-# LINE 4668 "Transform.hs" #-}) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 4673 "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 4753 "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 4761 "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 4769 "Transform.hs" #-}) - -- "Transform.ag"(line 758, column 7) - _lhsOattrOrderCollect = - ({-# LINE 758 "Transform.ag" #-} - foldr orderMapUnion Map.empty _attrOrders - {-# LINE 4774 "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 4784 "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 4793 "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 4802 "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 4811 "Transform.hs" #-}) - -- "Transform.ag"(line 928, column 12) - _lhsOcollectedInsts = - ({-# LINE 928 "Transform.ag" #-} - [ (nt,con,_rulesIdefinedInsts) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 4819 "Transform.hs" #-}) - -- "Transform.ag"(line 934, column 12) - _lhsOcollectedUniques = - ({-# LINE 934 "Transform.ag" #-} - [ (nt,con,_rulesIuniqueInfos) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 4827 "Transform.hs" #-}) - -- "Transform.ag"(line 940, column 12) - _lhsOcollectedAugments = - ({-# LINE 940 "Transform.ag" #-} - [ (nt, con, _rulesIaugmentInfos) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 4835 "Transform.hs" #-}) - -- "Transform.ag"(line 946, column 12) - _lhsOcollectedArounds = - ({-# LINE 946 "Transform.ag" #-} - [ (nt, con, _rulesIaroundInfos) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 4843 "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 4935 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - _hdIcollectedArounds ++ _tlIcollectedArounds - {-# LINE 4940 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - _hdIcollectedAugments ++ _tlIcollectedAugments - {-# LINE 4945 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - _hdIcollectedInsts ++ _tlIcollectedInsts - {-# LINE 4950 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - _hdIcollectedRules ++ _tlIcollectedRules - {-# LINE 4955 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - _hdIcollectedSigs ++ _tlIcollectedSigs - {-# LINE 4960 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - _hdIcollectedUniques ++ _tlIcollectedUniques - {-# LINE 4965 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 4970 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 719, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 719 "Transform.ag" #-} - _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect - {-# LINE 4975 "Transform.hs" #-}) - -- copy rule (down) - _hdOallAttrDecls = - ({-# LINE 748 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 4980 "Transform.hs" #-}) - -- copy rule (down) - _hdOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4985 "Transform.hs" #-}) - -- copy rule (down) - _hdOnts = - ({-# LINE 163 "Transform.ag" #-} - _lhsInts - {-# LINE 4990 "Transform.hs" #-}) - -- copy rule (down) - _tlOallAttrDecls = - ({-# LINE 748 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 4995 "Transform.hs" #-}) - -- copy rule (down) - _tlOallFields = - ({-# LINE 126 "Transform.ag" #-} - _lhsIallFields - {-# LINE 5000 "Transform.hs" #-}) - -- copy rule (down) - _tlOnts = - ({-# LINE 163 "Transform.ag" #-} - _lhsInts - {-# LINE 5005 "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 5029 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedArounds = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 5034 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedAugments = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 5039 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 150, column 32) - _lhsOcollectedInsts = - ({-# LINE 150 "Transform.ag" #-} - [] - {-# LINE 5044 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 148, column 32) - _lhsOcollectedRules = - ({-# LINE 148 "Transform.ag" #-} - [] - {-# LINE 5049 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 149, column 32) - _lhsOcollectedSigs = - ({-# LINE 149 "Transform.ag" #-} - [] - {-# LINE 5054 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedUniques = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 5059 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 42, column 19) - _lhsOerrors = - ({-# LINE 42 "Transform.ag" #-} - Seq.empty - {-# LINE 5064 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 719, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 719 "Transform.ag" #-} - Map.empty - {-# LINE 5069 "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 5154 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 897, column 40) - _lhsOaugmentInfos = - ({-# LINE 897 "Transform.ag" #-} - [] - {-# LINE 5159 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - [] - {-# LINE 5164 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 760, column 44) - _lhsOorderDepsCollect = - ({-# LINE 760 "Transform.ag" #-} - Set.empty - {-# LINE 5169 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 729, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 729 "Transform.ag" #-} - [] - {-# LINE 5174 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOruleInfos = - ({-# LINE 894 "Transform.ag" #-} - [] - {-# LINE 5179 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOsigInfos = - ({-# LINE 895 "Transform.ag" #-} - [] - {-# LINE 5184 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOuniqueInfos = - ({-# LINE 896 "Transform.ag" #-} - [] - {-# LINE 5189 "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 5207 "Transform.hs" #-}) - -- "Transform.ag"(line 765, column 7) - _lhsOorderDepsCollect = - ({-# LINE 765 "Transform.ag" #-} - Set.fromList _dependency - {-# LINE 5212 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 898, column 40) - _lhsOaroundInfos = - ({-# LINE 898 "Transform.ag" #-} - [] - {-# LINE 5217 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 897, column 40) - _lhsOaugmentInfos = - ({-# LINE 897 "Transform.ag" #-} - [] - {-# LINE 5222 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - [] - {-# LINE 5227 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 729, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 729 "Transform.ag" #-} - [] - {-# LINE 5232 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOruleInfos = - ({-# LINE 894 "Transform.ag" #-} - [] - {-# LINE 5237 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOsigInfos = - ({-# LINE 895 "Transform.ag" #-} - [] - {-# LINE 5242 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOuniqueInfos = - ({-# LINE 896 "Transform.ag" #-} - [] - {-# LINE 5247 "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 5265 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 898, column 40) - _lhsOaroundInfos = - ({-# LINE 898 "Transform.ag" #-} - [] - {-# LINE 5270 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - [] - {-# LINE 5275 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 760, column 44) - _lhsOorderDepsCollect = - ({-# LINE 760 "Transform.ag" #-} - Set.empty - {-# LINE 5280 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 729, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 729 "Transform.ag" #-} - [] - {-# LINE 5285 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOruleInfos = - ({-# LINE 894 "Transform.ag" #-} - [] - {-# LINE 5290 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOsigInfos = - ({-# LINE 895 "Transform.ag" #-} - [] - {-# LINE 5295 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOuniqueInfos = - ({-# LINE 896 "Transform.ag" #-} - [] - {-# LINE 5300 "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 5326 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 898, column 40) - _lhsOaroundInfos = - ({-# LINE 898 "Transform.ag" #-} - [] - {-# LINE 5331 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 897, column 40) - _lhsOaugmentInfos = - ({-# LINE 897 "Transform.ag" #-} - [] - {-# LINE 5336 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - _patternIdefinedInsts - {-# LINE 5341 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 760, column 44) - _lhsOorderDepsCollect = - ({-# LINE 760 "Transform.ag" #-} - Set.empty - {-# LINE 5346 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 729, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 729 "Transform.ag" #-} - [] - {-# LINE 5351 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOsigInfos = - ({-# LINE 895 "Transform.ag" #-} - [] - {-# LINE 5356 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOuniqueInfos = - ({-# LINE 896 "Transform.ag" #-} - [] - {-# LINE 5361 "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 5380 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 898, column 40) - _lhsOaroundInfos = - ({-# LINE 898 "Transform.ag" #-} - [] - {-# LINE 5385 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 897, column 40) - _lhsOaugmentInfos = - ({-# LINE 897 "Transform.ag" #-} - [] - {-# LINE 5390 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - [] - {-# LINE 5395 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 760, column 44) - _lhsOorderDepsCollect = - ({-# LINE 760 "Transform.ag" #-} - Set.empty - {-# LINE 5400 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOruleInfos = - ({-# LINE 894 "Transform.ag" #-} - [] - {-# LINE 5405 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOsigInfos = - ({-# LINE 895 "Transform.ag" #-} - [] - {-# LINE 5410 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOuniqueInfos = - ({-# LINE 896 "Transform.ag" #-} - [] - {-# LINE 5415 "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 5433 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 898, column 40) - _lhsOaroundInfos = - ({-# LINE 898 "Transform.ag" #-} - [] - {-# LINE 5438 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 897, column 40) - _lhsOaugmentInfos = - ({-# LINE 897 "Transform.ag" #-} - [] - {-# LINE 5443 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - [] - {-# LINE 5448 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 760, column 44) - _lhsOorderDepsCollect = - ({-# LINE 760 "Transform.ag" #-} - Set.empty - {-# LINE 5453 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 729, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 729 "Transform.ag" #-} - [] - {-# LINE 5458 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOruleInfos = - ({-# LINE 894 "Transform.ag" #-} - [] - {-# LINE 5463 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOuniqueInfos = - ({-# LINE 896 "Transform.ag" #-} - [] - {-# LINE 5468 "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 5486 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 898, column 40) - _lhsOaroundInfos = - ({-# LINE 898 "Transform.ag" #-} - [] - {-# LINE 5491 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 897, column 40) - _lhsOaugmentInfos = - ({-# LINE 897 "Transform.ag" #-} - [] - {-# LINE 5496 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - [] - {-# LINE 5501 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 760, column 44) - _lhsOorderDepsCollect = - ({-# LINE 760 "Transform.ag" #-} - Set.empty - {-# LINE 5506 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 729, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 729 "Transform.ag" #-} - [] - {-# LINE 5511 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOruleInfos = - ({-# LINE 894 "Transform.ag" #-} - [] - {-# LINE 5516 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOsigInfos = - ({-# LINE 895 "Transform.ag" #-} - [] - {-# LINE 5521 "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 5589 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 897, column 40) - _lhsOaugmentInfos = - ({-# LINE 897 "Transform.ag" #-} - _hdIaugmentInfos ++ _tlIaugmentInfos - {-# LINE 5594 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - _hdIdefinedInsts ++ _tlIdefinedInsts - {-# LINE 5599 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 760, column 44) - _lhsOorderDepsCollect = - ({-# LINE 760 "Transform.ag" #-} - _hdIorderDepsCollect `Set.union` _tlIorderDepsCollect - {-# LINE 5604 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 729, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 729 "Transform.ag" #-} - _hdIpragmaNamesCollect ++ _tlIpragmaNamesCollect - {-# LINE 5609 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOruleInfos = - ({-# LINE 894 "Transform.ag" #-} - _hdIruleInfos ++ _tlIruleInfos - {-# LINE 5614 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOsigInfos = - ({-# LINE 895 "Transform.ag" #-} - _hdIsigInfos ++ _tlIsigInfos - {-# LINE 5619 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOuniqueInfos = - ({-# LINE 896 "Transform.ag" #-} - _hdIuniqueInfos ++ _tlIuniqueInfos - {-# LINE 5624 "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 5644 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 897, column 40) - _lhsOaugmentInfos = - ({-# LINE 897 "Transform.ag" #-} - [] - {-# LINE 5649 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 968, column 55) - _lhsOdefinedInsts = - ({-# LINE 968 "Transform.ag" #-} - [] - {-# LINE 5654 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 760, column 44) - _lhsOorderDepsCollect = - ({-# LINE 760 "Transform.ag" #-} - Set.empty - {-# LINE 5659 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 729, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 729 "Transform.ag" #-} - [] - {-# LINE 5664 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 894, column 40) - _lhsOruleInfos = - ({-# LINE 894 "Transform.ag" #-} - [] - {-# LINE 5669 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 895, column 40) - _lhsOsigInfos = - ({-# LINE 895 "Transform.ag" #-} - [] - {-# LINE 5674 "Transform.hs" #-}) - -- use rule "Transform.ag"(line 896, column 40) - _lhsOuniqueInfos = - ({-# LINE 896 "Transform.ag" #-} - [] - {-# LINE 5679 "Transform.hs" #-}) +-- UUAGC 0.9.21 (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) + cldrn = map (child False) (filter (not . existsAsInst) flds) ++ map (child True) insts + child isVirtual (nm, tp) = + let (inh,syn) = case tp 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 isVirtual + then case lookup nm flds of + Just tp' -> Just (Just tp') + Nothing -> Just Nothing + else Nothing + in Child nm tp inh syn virt + existsAsInst (nm,_) = maybe False (const True) (lookup nm insts) + 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 414 "../src-derived/Transform.hs" #-} + +{-# LINE 1063 "Transform.ag" #-} + +mapUnionWithSetUnion = Map.unionWith Set.union +mapUnionWithPlusPlus = Map.unionWith (++) +{-# LINE 420 "../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 549 "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 555 "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 561 "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 567 "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 576 "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 582 "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 588 "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 594 "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 600 "Transform.hs" #-}) + -- "Transform.ag"(line 268, column 10) + _augmentSigs = + ({-# LINE 268 "Transform.ag" #-} + let gen mp = [] + in Map.map (Map.map gen) _allAugments + {-# LINE 606 "Transform.hs" #-}) + -- "Transform.ag"(line 271, column 10) + _allRulesErrs = + ({-# LINE 271 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkRules _allAttrDecls _allFields _allInsts _allSigs )) _allRules + {-# LINE 611 "Transform.hs" #-}) + -- "Transform.ag"(line 272, column 10) + _allNamesErrs = + ({-# LINE 272 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . checkRuleNames) _allRules + {-# LINE 616 "Transform.hs" #-}) + -- "Transform.ag"(line 273, column 10) + _allSigsErrs = + ({-# LINE 273 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkSigs )) _allSigs + {-# LINE 621 "Transform.hs" #-}) + -- "Transform.ag"(line 274, column 10) + _allInstsErrs = + ({-# LINE 274 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkInsts _allNonterminals _allSigs _allFields )) _allInsts + {-# LINE 626 "Transform.hs" #-}) + -- "Transform.ag"(line 275, column 10) + _allUniquesErrs = + ({-# LINE 275 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkUniques _allAttrDecls )) _allUniques + {-# LINE 631 "Transform.hs" #-}) + -- "Transform.ag"(line 276, column 10) + _allAugmentErrs = + ({-# LINE 276 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkAugments _allAttrDecls )) _allAugments + {-# LINE 636 "Transform.hs" #-}) + -- "Transform.ag"(line 277, column 10) + _allAroundsErrs = + ({-# LINE 277 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkArounds _allFields )) _allArounds + {-# LINE 641 "Transform.hs" #-}) + -- "Transform.ag"(line 279, column 10) + _checkedRulesPre = + ({-# LINE 279 "Transform.ag" #-} + Map.map (Map.map fst) _allRulesErrs + {-# LINE 646 "Transform.hs" #-}) + -- "Transform.ag"(line 280, column 10) + _checkedSigs = + ({-# LINE 280 "Transform.ag" #-} + Map.map (Map.map fst) _allSigsErrs `unionunionplusplus` _augmentSigs + {-# LINE 651 "Transform.hs" #-}) + -- "Transform.ag"(line 281, column 10) + _checkedInsts = + ({-# LINE 281 "Transform.ag" #-} + Map.map (Map.map fst) _allInstsErrs + {-# LINE 656 "Transform.hs" #-}) + -- "Transform.ag"(line 282, column 10) + _checkedUniques = + ({-# LINE 282 "Transform.ag" #-} + Map.map (Map.map fst) _allUniquesErrs + {-# LINE 661 "Transform.hs" #-}) + -- "Transform.ag"(line 283, column 10) + _checkedAugments = + ({-# LINE 283 "Transform.ag" #-} + Map.map (Map.map fst) _allAugmentErrs + {-# LINE 666 "Transform.hs" #-}) + -- "Transform.ag"(line 284, column 10) + _checkedArounds = + ({-# LINE 284 "Transform.ag" #-} + Map.map (Map.map fst) _allAroundsErrs + {-# LINE 671 "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 676 "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 682 "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 689 "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 695 "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 701 "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 707 "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 713 "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 719 "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 725 "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 731 "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 737 "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 742 "Transform.hs" #-}) + -- "Transform.ag"(line 498, column 10) + _allNonterminals = + ({-# LINE 498 "Transform.ag" #-} + _elemsIcollectedNames `Set.difference` _elemsIcollectedSetNames + {-# LINE 747 "Transform.hs" #-}) + -- "Transform.ag"(line 518, column 8) + _elemsOallConstructors = + ({-# LINE 518 "Transform.ag" #-} + _elemsIcollectedConstructorsMap + {-# LINE 752 "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 757 "Transform.hs" #-}) + -- "Transform.ag"(line 592, column 8) + _elemsOdefinedSets = + ({-# LINE 592 "Transform.ag" #-} + Map.map fst _elemsIdefSets + {-# LINE 762 "Transform.hs" #-}) + -- "Transform.ag"(line 844, column 8) + _elemsOattrDecls = + ({-# LINE 844 "Transform.ag" #-} + Map.empty + {-# LINE 767 "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 774 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + _elemsIblocks + {-# LINE 779 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 996, column 37) + _lhsOmoduleDecl = + ({-# LINE 996 "Transform.ag" #-} + _elemsImoduleDecl + {-# LINE 784 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 673, column 34) + _lhsOpragmas = + ({-# LINE 673 "Transform.ag" #-} + _elemsIpragmas + {-# LINE 789 "Transform.hs" #-}) + -- copy rule (from local) + _elemsOallAttrDecls = + ({-# LINE 746 "Transform.ag" #-} + _allAttrDecls + {-# LINE 794 "Transform.hs" #-}) + -- copy rule (from local) + _elemsOallFields = + ({-# LINE 126 "Transform.ag" #-} + _allFields + {-# LINE 799 "Transform.hs" #-}) + -- copy rule (from local) + _elemsOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _allNonterminals + {-# LINE 804 "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 867 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 91, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 91 "Transform.ag" #-} + _namesIcollectedConstructorNames + {-# LINE 872 "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 934 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + _hdIcollectedFields ++ _tlIcollectedFields + {-# LINE 939 "Transform.hs" #-}) + -- copy rule (down) + _hdOallConstructors = + ({-# LINE 94 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 944 "Transform.hs" #-}) + -- copy rule (down) + _hdOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 949 "Transform.hs" #-}) + -- copy rule (down) + _hdOnts = + ({-# LINE 163 "Transform.ag" #-} + _lhsInts + {-# LINE 954 "Transform.hs" #-}) + -- copy rule (down) + _tlOallConstructors = + ({-# LINE 94 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 959 "Transform.hs" #-}) + -- copy rule (down) + _tlOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 964 "Transform.hs" #-}) + -- copy rule (down) + _tlOnts = + ({-# LINE 163 "Transform.ag" #-} + _lhsInts + {-# LINE 969 "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 986 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 991 "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 1057 "Transform.hs" #-}) + -- "Transform.ag"(line 852, column 15) + (_attrDecls,_) = + ({-# LINE 852 "Transform.ag" #-} + __tup1 + {-# LINE 1062 "Transform.hs" #-}) + -- "Transform.ag"(line 852, column 15) + (_,_errors) = + ({-# LINE 852 "Transform.ag" #-} + __tup1 + {-# LINE 1067 "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 1079 "Transform.hs" #-}) + -- "Transform.ag"(line 854, column 15) + (_inherited,_,_) = + ({-# LINE 854 "Transform.ag" #-} + __tup2 + {-# LINE 1084 "Transform.hs" #-}) + -- "Transform.ag"(line 854, column 15) + (_,_synthesized,_) = + ({-# LINE 854 "Transform.ag" #-} + __tup2 + {-# LINE 1089 "Transform.hs" #-}) + -- "Transform.ag"(line 854, column 15) + (_,_,_useMap) = + ({-# LINE 854 "Transform.ag" #-} + __tup2 + {-# LINE 1094 "Transform.hs" #-}) + -- "Transform.ag"(line 862, column 11) + _lhsOuseMap = + ({-# LINE 862 "Transform.ag" #-} + Map.fromList (zip (Set.toList _lhsInts) (repeat _useMap)) + {-# LINE 1099 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _errors + {-# LINE 1104 "Transform.hs" #-}) + -- copy rule (from local) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _attrDecls + {-# LINE 1109 "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 1160 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 91, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 91 "Transform.ag" #-} + Set.empty + {-# LINE 1165 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 1170 "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 1189 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 91, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 91 "Transform.ag" #-} + _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames + {-# LINE 1194 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 1199 "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 1215 "Transform.hs" #-}) + -- "Transform.ag"(line 655, column 17) + _lhsOconstructors = + ({-# LINE 655 "Transform.ag" #-} + \ds -> Set.singleton name_ + {-# LINE 1220 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 1225 "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 1244 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 91, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 91 "Transform.ag" #-} + _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames + {-# LINE 1249 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 1254 "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 1453 "Transform.hs" #-}) + -- "Transform.ag"(line 848, column 10) + _attrsOnts = + ({-# LINE 848 "Transform.ag" #-} + _namesInontSet + {-# LINE 1458 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 745, column 55) + _lhsOattrOrderCollect = + ({-# LINE 745 "Transform.ag" #-} + Map.empty + {-# LINE 1463 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 1468 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 1473 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 1478 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 1483 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 1488 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 1493 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _namesIcollectedNames + {-# LINE 1498 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 1503 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 1508 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 1513 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 1518 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 825, column 33) + _lhsOderivings = + ({-# LINE 825 "Transform.ag" #-} + Map.empty + {-# LINE 1523 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _namesIerrors Seq.>< _attrsIerrors + {-# LINE 1528 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 996, column 37) + _lhsOmoduleDecl = + ({-# LINE 996 "Transform.ag" #-} + mzero + {-# LINE 1533 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 777, column 37) + _lhsOparamsCollect = + ({-# LINE 777 "Transform.ag" #-} + Map.empty + {-# LINE 1538 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 673, column 34) + _lhsOpragmas = + ({-# LINE 673 "Transform.ag" #-} + id + {-# LINE 1543 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 717, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 717 "Transform.ag" #-} + Map.empty + {-# LINE 1548 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 533, column 32) + _lhsOtypeSyns = + ({-# LINE 533 "Transform.ag" #-} + [] + {-# LINE 1553 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + _attrsIuseMap + {-# LINE 1558 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 664, column 32) + _lhsOwrappers = + ({-# LINE 664 "Transform.ag" #-} + Set.empty + {-# LINE 1563 "Transform.hs" #-}) + -- copy rule (up) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _attrsIattrDecls + {-# LINE 1568 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 1573 "Transform.hs" #-}) + -- copy rule (down) + _namesOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 1578 "Transform.hs" #-}) + -- copy rule (down) + _namesOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 1583 "Transform.hs" #-}) + -- copy rule (down) + _namesOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 1588 "Transform.hs" #-}) + -- copy rule (down) + _attrsOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 1593 "Transform.hs" #-}) + -- copy rule (down) + _attrsOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 1598 "Transform.hs" #-}) + -- copy rule (down) + _attrsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 1603 "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 1671 "Transform.hs" #-}) + -- "Transform.ag"(line 512, column 11) + _lhsOcollectedConstructorsMap = + ({-# LINE 512 "Transform.ag" #-} + Map.fromList + [ (n, _altsIcollectedConstructorNames) + | n <- Set.toList _namesInontSet + ] + {-# LINE 1679 "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 1686 "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 1693 "Transform.hs" #-}) + -- "Transform.ag"(line 847, column 10) + _attrsOnts = + ({-# LINE 847 "Transform.ag" #-} + _namesInontSet + {-# LINE 1698 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 745, column 55) + _lhsOattrOrderCollect = + ({-# LINE 745 "Transform.ag" #-} + Map.empty + {-# LINE 1703 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 1708 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 1713 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 1718 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + _altsIcollectedFields + {-# LINE 1723 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 1728 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _namesIcollectedNames + {-# LINE 1733 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 1738 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 1743 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 1748 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 1753 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 825, column 33) + _lhsOderivings = + ({-# LINE 825 "Transform.ag" #-} + Map.empty + {-# LINE 1758 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _namesIerrors Seq.>< _attrsIerrors + {-# LINE 1763 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 996, column 37) + _lhsOmoduleDecl = + ({-# LINE 996 "Transform.ag" #-} + mzero + {-# LINE 1768 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 673, column 34) + _lhsOpragmas = + ({-# LINE 673 "Transform.ag" #-} + id + {-# LINE 1773 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 717, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 717 "Transform.ag" #-} + Map.empty + {-# LINE 1778 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 533, column 32) + _lhsOtypeSyns = + ({-# LINE 533 "Transform.ag" #-} + [] + {-# LINE 1783 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + _attrsIuseMap + {-# LINE 1788 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 664, column 32) + _lhsOwrappers = + ({-# LINE 664 "Transform.ag" #-} + Set.empty + {-# LINE 1793 "Transform.hs" #-}) + -- copy rule (up) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _attrsIattrDecls + {-# LINE 1798 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 1803 "Transform.hs" #-}) + -- copy rule (down) + _namesOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 1808 "Transform.hs" #-}) + -- copy rule (down) + _namesOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 1813 "Transform.hs" #-}) + -- copy rule (down) + _namesOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 1818 "Transform.hs" #-}) + -- copy rule (down) + _attrsOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 1823 "Transform.hs" #-}) + -- copy rule (down) + _attrsOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 1828 "Transform.hs" #-}) + -- copy rule (down) + _attrsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 1833 "Transform.hs" #-}) + -- copy rule (down) + _altsOallConstructors = + ({-# LINE 94 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 1838 "Transform.hs" #-}) + -- copy rule (down) + _altsOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 1843 "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 1897 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 745, column 55) + _lhsOattrOrderCollect = + ({-# LINE 745 "Transform.ag" #-} + Map.empty + {-# LINE 1902 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 1907 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 1912 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 1917 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 1922 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 1927 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 1932 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _setIcollectedNames + {-# LINE 1937 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 1942 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 1947 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 1952 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 1957 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 800, column 34) + _lhsOctxCollect = + ({-# LINE 800 "Transform.ag" #-} + Map.empty + {-# LINE 1962 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _setIerrors + {-# LINE 1967 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 996, column 37) + _lhsOmoduleDecl = + ({-# LINE 996 "Transform.ag" #-} + mzero + {-# LINE 1972 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 777, column 37) + _lhsOparamsCollect = + ({-# LINE 777 "Transform.ag" #-} + Map.empty + {-# LINE 1977 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 673, column 34) + _lhsOpragmas = + ({-# LINE 673 "Transform.ag" #-} + id + {-# LINE 1982 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 717, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 717 "Transform.ag" #-} + Map.empty + {-# LINE 1987 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 533, column 32) + _lhsOtypeSyns = + ({-# LINE 533 "Transform.ag" #-} + [] + {-# LINE 1992 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 1997 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 664, column 32) + _lhsOwrappers = + ({-# LINE 664 "Transform.ag" #-} + Set.empty + {-# LINE 2002 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2007 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 2012 "Transform.hs" #-}) + -- copy rule (down) + _setOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 2017 "Transform.hs" #-}) + -- copy rule (down) + _setOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 2022 "Transform.hs" #-}) + -- copy rule (down) + _setOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 2027 "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 2072 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 745, column 55) + _lhsOattrOrderCollect = + ({-# LINE 745 "Transform.ag" #-} + Map.empty + {-# LINE 2077 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 2082 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 2087 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 2092 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 2097 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 2102 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 2107 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + Set.empty + {-# LINE 2112 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 2117 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 2122 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 2127 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 2132 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 800, column 34) + _lhsOctxCollect = + ({-# LINE 800 "Transform.ag" #-} + Map.empty + {-# LINE 2137 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 825, column 33) + _lhsOderivings = + ({-# LINE 825 "Transform.ag" #-} + Map.empty + {-# LINE 2142 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 2147 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 777, column 37) + _lhsOparamsCollect = + ({-# LINE 777 "Transform.ag" #-} + Map.empty + {-# LINE 2152 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 673, column 34) + _lhsOpragmas = + ({-# LINE 673 "Transform.ag" #-} + id + {-# LINE 2157 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 717, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 717 "Transform.ag" #-} + Map.empty + {-# LINE 2162 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 533, column 32) + _lhsOtypeSyns = + ({-# LINE 533 "Transform.ag" #-} + [] + {-# LINE 2167 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 2172 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 664, column 32) + _lhsOwrappers = + ({-# LINE 664 "Transform.ag" #-} + Set.empty + {-# LINE 2177 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2182 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 2187 "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 2267 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 745, column 55) + _lhsOattrOrderCollect = + ({-# LINE 745 "Transform.ag" #-} + Map.empty + {-# LINE 2272 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 2277 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 2282 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 2287 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 2292 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 2297 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 2302 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + Set.empty + {-# LINE 2307 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 2312 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 2317 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 2322 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 2327 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 800, column 34) + _lhsOctxCollect = + ({-# LINE 800 "Transform.ag" #-} + Map.empty + {-# LINE 2332 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 825, column 33) + _lhsOderivings = + ({-# LINE 825 "Transform.ag" #-} + Map.empty + {-# LINE 2337 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 2342 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 996, column 37) + _lhsOmoduleDecl = + ({-# LINE 996 "Transform.ag" #-} + mzero + {-# LINE 2347 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 777, column 37) + _lhsOparamsCollect = + ({-# LINE 777 "Transform.ag" #-} + Map.empty + {-# LINE 2352 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 717, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 717 "Transform.ag" #-} + Map.empty + {-# LINE 2357 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 533, column 32) + _lhsOtypeSyns = + ({-# LINE 533 "Transform.ag" #-} + [] + {-# LINE 2362 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 2367 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 664, column 32) + _lhsOwrappers = + ({-# LINE 664 "Transform.ag" #-} + Set.empty + {-# LINE 2372 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2377 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 2382 "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 2451 "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 2458 "Transform.hs" #-}) + -- "Transform.ag"(line 849, column 10) + _attrsOnts = + ({-# LINE 849 "Transform.ag" #-} + _namesInontSet + {-# LINE 2463 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 745, column 55) + _lhsOattrOrderCollect = + ({-# LINE 745 "Transform.ag" #-} + _altsIattrOrderCollect + {-# LINE 2468 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 2473 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + _altsIcollectedArounds + {-# LINE 2478 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + _altsIcollectedAugments + {-# LINE 2483 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 2488 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 2493 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + _altsIcollectedInsts + {-# LINE 2498 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _namesIcollectedNames + {-# LINE 2503 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + _altsIcollectedRules + {-# LINE 2508 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 2513 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + _altsIcollectedSigs + {-# LINE 2518 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + _altsIcollectedUniques + {-# LINE 2523 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 825, column 33) + _lhsOderivings = + ({-# LINE 825 "Transform.ag" #-} + Map.empty + {-# LINE 2528 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _namesIerrors Seq.>< _attrsIerrors Seq.>< _altsIerrors + {-# LINE 2533 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 996, column 37) + _lhsOmoduleDecl = + ({-# LINE 996 "Transform.ag" #-} + mzero + {-# LINE 2538 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 777, column 37) + _lhsOparamsCollect = + ({-# LINE 777 "Transform.ag" #-} + Map.empty + {-# LINE 2543 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 673, column 34) + _lhsOpragmas = + ({-# LINE 673 "Transform.ag" #-} + id + {-# LINE 2548 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 717, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 717 "Transform.ag" #-} + _altsIsemPragmasCollect + {-# LINE 2553 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 533, column 32) + _lhsOtypeSyns = + ({-# LINE 533 "Transform.ag" #-} + [] + {-# LINE 2558 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + _attrsIuseMap + {-# LINE 2563 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 664, column 32) + _lhsOwrappers = + ({-# LINE 664 "Transform.ag" #-} + Set.empty + {-# LINE 2568 "Transform.hs" #-}) + -- copy rule (up) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _attrsIattrDecls + {-# LINE 2573 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 2578 "Transform.hs" #-}) + -- copy rule (down) + _namesOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 2583 "Transform.hs" #-}) + -- copy rule (down) + _namesOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 2588 "Transform.hs" #-}) + -- copy rule (down) + _namesOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 2593 "Transform.hs" #-}) + -- copy rule (down) + _attrsOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 2598 "Transform.hs" #-}) + -- copy rule (down) + _attrsOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 2603 "Transform.hs" #-}) + -- copy rule (down) + _attrsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2608 "Transform.hs" #-}) + -- copy rule (down) + _altsOallAttrDecls = + ({-# LINE 746 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 2613 "Transform.hs" #-}) + -- copy rule (down) + _altsOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 2618 "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 2672 "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 2686 "Transform.hs" #-}) + -- "Transform.ag"(line 596, column 13) + (_defSets2,_) = + ({-# LINE 596 "Transform.ag" #-} + __tup3 + {-# LINE 2691 "Transform.hs" #-}) + -- "Transform.ag"(line 596, column 13) + (_,_errs) = + ({-# LINE 596 "Transform.ag" #-} + __tup3 + {-# LINE 2696 "Transform.hs" #-}) + -- "Transform.ag"(line 606, column 9) + _lhsOdefSets = + ({-# LINE 606 "Transform.ag" #-} + _defSets2 + {-# LINE 2701 "Transform.hs" #-}) + -- "Transform.ag"(line 606, column 9) + _lhsOerrors = + ({-# LINE 607 "Transform.ag" #-} + _errs >< _setIerrors + {-# LINE 2706 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 745, column 55) + _lhsOattrOrderCollect = + ({-# LINE 745 "Transform.ag" #-} + Map.empty + {-# LINE 2711 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 2716 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 2721 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 2726 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 2731 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 2736 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 2741 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _setIcollectedNames + {-# LINE 2746 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 2751 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 2756 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 2761 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 800, column 34) + _lhsOctxCollect = + ({-# LINE 800 "Transform.ag" #-} + Map.empty + {-# LINE 2766 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 825, column 33) + _lhsOderivings = + ({-# LINE 825 "Transform.ag" #-} + Map.empty + {-# LINE 2771 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 996, column 37) + _lhsOmoduleDecl = + ({-# LINE 996 "Transform.ag" #-} + mzero + {-# LINE 2776 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 777, column 37) + _lhsOparamsCollect = + ({-# LINE 777 "Transform.ag" #-} + Map.empty + {-# LINE 2781 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 673, column 34) + _lhsOpragmas = + ({-# LINE 673 "Transform.ag" #-} + id + {-# LINE 2786 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 717, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 717 "Transform.ag" #-} + Map.empty + {-# LINE 2791 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 533, column 32) + _lhsOtypeSyns = + ({-# LINE 533 "Transform.ag" #-} + [] + {-# LINE 2796 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 2801 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 664, column 32) + _lhsOwrappers = + ({-# LINE 664 "Transform.ag" #-} + Set.empty + {-# LINE 2806 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2811 "Transform.hs" #-}) + -- copy rule (down) + _setOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 2816 "Transform.hs" #-}) + -- copy rule (down) + _setOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 2821 "Transform.hs" #-}) + -- copy rule (down) + _setOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 2826 "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 2878 "Transform.hs" #-}) + -- "Transform.ag"(line 184, column 10) + _blockValue = + ({-# LINE 184 "Transform.ag" #-} + [(lines_, pos_)] + {-# LINE 2883 "Transform.hs" #-}) + -- "Transform.ag"(line 185, column 10) + _lhsOblocks = + ({-# LINE 185 "Transform.ag" #-} + Map.singleton _blockInfo _blockValue + {-# LINE 2888 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 745, column 55) + _lhsOattrOrderCollect = + ({-# LINE 745 "Transform.ag" #-} + Map.empty + {-# LINE 2893 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 2898 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 2903 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 2908 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 2913 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 2918 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + Set.empty + {-# LINE 2923 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 2928 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 2933 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 2938 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 2943 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 800, column 34) + _lhsOctxCollect = + ({-# LINE 800 "Transform.ag" #-} + Map.empty + {-# LINE 2948 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 825, column 33) + _lhsOderivings = + ({-# LINE 825 "Transform.ag" #-} + Map.empty + {-# LINE 2953 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 2958 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 996, column 37) + _lhsOmoduleDecl = + ({-# LINE 996 "Transform.ag" #-} + mzero + {-# LINE 2963 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 777, column 37) + _lhsOparamsCollect = + ({-# LINE 777 "Transform.ag" #-} + Map.empty + {-# LINE 2968 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 673, column 34) + _lhsOpragmas = + ({-# LINE 673 "Transform.ag" #-} + id + {-# LINE 2973 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 717, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 717 "Transform.ag" #-} + Map.empty + {-# LINE 2978 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 533, column 32) + _lhsOtypeSyns = + ({-# LINE 533 "Transform.ag" #-} + [] + {-# LINE 2983 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 2988 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 664, column 32) + _lhsOwrappers = + ({-# LINE 664 "Transform.ag" #-} + Set.empty + {-# LINE 2993 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2998 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 3003 "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 3047 "Transform.hs" #-}) + -- "Transform.ag"(line 492, column 11) + _lhsOcollectedNames = + ({-# LINE 492 "Transform.ag" #-} + Set.singleton name_ + {-# LINE 3052 "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 3085 "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 3096 "Transform.hs" #-}) + -- "Transform.ag"(line 582, column 11) + _lhsOtypeSyns = + ({-# LINE 582 "Transform.ag" #-} + [(name_,_argType)] + {-# LINE 3101 "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 3108 "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 3115 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 745, column 55) + _lhsOattrOrderCollect = + ({-# LINE 745 "Transform.ag" #-} + Map.empty + {-# LINE 3120 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 3125 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 3130 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 3135 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 3140 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 3145 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 3150 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 3155 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 3160 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 3165 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 825, column 33) + _lhsOderivings = + ({-# LINE 825 "Transform.ag" #-} + Map.empty + {-# LINE 3170 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 3175 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 996, column 37) + _lhsOmoduleDecl = + ({-# LINE 996 "Transform.ag" #-} + mzero + {-# LINE 3180 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 673, column 34) + _lhsOpragmas = + ({-# LINE 673 "Transform.ag" #-} + id + {-# LINE 3185 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 717, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 717 "Transform.ag" #-} + Map.empty + {-# LINE 3190 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 3195 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 664, column 32) + _lhsOwrappers = + ({-# LINE 664 "Transform.ag" #-} + Set.empty + {-# LINE 3200 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 3205 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 3210 "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 3257 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 745, column 55) + _lhsOattrOrderCollect = + ({-# LINE 745 "Transform.ag" #-} + Map.empty + {-# LINE 3262 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 3267 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 3272 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 3277 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 3282 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 3287 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 3292 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _setIcollectedNames + {-# LINE 3297 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 3302 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 3307 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 3312 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 3317 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 800, column 34) + _lhsOctxCollect = + ({-# LINE 800 "Transform.ag" #-} + Map.empty + {-# LINE 3322 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 825, column 33) + _lhsOderivings = + ({-# LINE 825 "Transform.ag" #-} + Map.empty + {-# LINE 3327 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _setIerrors + {-# LINE 3332 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 996, column 37) + _lhsOmoduleDecl = + ({-# LINE 996 "Transform.ag" #-} + mzero + {-# LINE 3337 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 777, column 37) + _lhsOparamsCollect = + ({-# LINE 777 "Transform.ag" #-} + Map.empty + {-# LINE 3342 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 673, column 34) + _lhsOpragmas = + ({-# LINE 673 "Transform.ag" #-} + id + {-# LINE 3347 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 717, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 717 "Transform.ag" #-} + Map.empty + {-# LINE 3352 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 533, column 32) + _lhsOtypeSyns = + ({-# LINE 533 "Transform.ag" #-} + [] + {-# LINE 3357 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 3362 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 3367 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 3372 "Transform.hs" #-}) + -- copy rule (down) + _setOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 3377 "Transform.hs" #-}) + -- copy rule (down) + _setOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 3382 "Transform.hs" #-}) + -- copy rule (down) + _setOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 3387 "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 3556 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + _hdIblocks `mapUnionWithPlusPlus` _tlIblocks + {-# LINE 3561 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + _hdIcollectedArounds ++ _tlIcollectedArounds + {-# LINE 3566 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + _hdIcollectedAugments ++ _tlIcollectedAugments + {-# LINE 3571 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + _hdIcollectedConstructorsMap `mapUnionWithSetUnion` _tlIcollectedConstructorsMap + {-# LINE 3576 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + _hdIcollectedFields ++ _tlIcollectedFields + {-# LINE 3581 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + _hdIcollectedInsts ++ _tlIcollectedInsts + {-# LINE 3586 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _hdIcollectedNames `Set.union` _tlIcollectedNames + {-# LINE 3591 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + _hdIcollectedRules ++ _tlIcollectedRules + {-# LINE 3596 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + _hdIcollectedSetNames `Set.union` _tlIcollectedSetNames + {-# LINE 3601 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + _hdIcollectedSigs ++ _tlIcollectedSigs + {-# LINE 3606 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + _hdIcollectedUniques ++ _tlIcollectedUniques + {-# LINE 3611 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 800, column 34) + _lhsOctxCollect = + ({-# LINE 800 "Transform.ag" #-} + _hdIctxCollect `mergeCtx` _tlIctxCollect + {-# LINE 3616 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 825, column 33) + _lhsOderivings = + ({-# LINE 825 "Transform.ag" #-} + _hdIderivings `mergeDerivings` _tlIderivings + {-# LINE 3621 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _hdIerrors Seq.>< _tlIerrors + {-# LINE 3626 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 996, column 37) + _lhsOmoduleDecl = + ({-# LINE 996 "Transform.ag" #-} + _hdImoduleDecl `mplus` _tlImoduleDecl + {-# LINE 3631 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 777, column 37) + _lhsOparamsCollect = + ({-# LINE 777 "Transform.ag" #-} + _hdIparamsCollect `mergeParams` _tlIparamsCollect + {-# LINE 3636 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 673, column 34) + _lhsOpragmas = + ({-# LINE 673 "Transform.ag" #-} + _hdIpragmas . _tlIpragmas + {-# LINE 3641 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 717, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 717 "Transform.ag" #-} + _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect + {-# LINE 3646 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 533, column 32) + _lhsOtypeSyns = + ({-# LINE 533 "Transform.ag" #-} + _hdItypeSyns ++ _tlItypeSyns + {-# LINE 3651 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + _hdIuseMap `merge` _tlIuseMap + {-# LINE 3656 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 664, column 32) + _lhsOwrappers = + ({-# LINE 664 "Transform.ag" #-} + _hdIwrappers `Set.union` _tlIwrappers + {-# LINE 3661 "Transform.hs" #-}) + -- copy rule (up) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _tlIattrDecls + {-# LINE 3666 "Transform.hs" #-}) + -- copy rule (up) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _tlIdefSets + {-# LINE 3671 "Transform.hs" #-}) + -- copy rule (down) + _hdOallAttrDecls = + ({-# LINE 746 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 3676 "Transform.hs" #-}) + -- copy rule (down) + _hdOallConstructors = + ({-# LINE 94 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 3681 "Transform.hs" #-}) + -- copy rule (down) + _hdOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 3686 "Transform.hs" #-}) + -- copy rule (down) + _hdOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 3691 "Transform.hs" #-}) + -- copy rule (down) + _hdOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 3696 "Transform.hs" #-}) + -- copy rule (down) + _hdOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 3701 "Transform.hs" #-}) + -- copy rule (down) + _hdOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 3706 "Transform.hs" #-}) + -- copy rule (down) + _tlOallAttrDecls = + ({-# LINE 746 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 3711 "Transform.hs" #-}) + -- copy rule (down) + _tlOallConstructors = + ({-# LINE 94 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 3716 "Transform.hs" #-}) + -- copy rule (down) + _tlOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 3721 "Transform.hs" #-}) + -- copy rule (down) + _tlOallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 3726 "Transform.hs" #-}) + -- copy rule (chain) + _tlOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _hdIattrDecls + {-# LINE 3731 "Transform.hs" #-}) + -- copy rule (chain) + _tlOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _hdIdefSets + {-# LINE 3736 "Transform.hs" #-}) + -- copy rule (down) + _tlOdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 3741 "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 3784 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 44, column 19) + _lhsOblocks = + ({-# LINE 44 "Transform.ag" #-} + Map.empty + {-# LINE 3789 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 3794 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 3799 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 92, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 92 "Transform.ag" #-} + Map.empty + {-# LINE 3804 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 123, column 28) + _lhsOcollectedFields = + ({-# LINE 123 "Transform.ag" #-} + [] + {-# LINE 3809 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 3814 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + Set.empty + {-# LINE 3819 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 3824 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 83, column 50) + _lhsOcollectedSetNames = + ({-# LINE 83 "Transform.ag" #-} + Set.empty + {-# LINE 3829 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 3834 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 3839 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 800, column 34) + _lhsOctxCollect = + ({-# LINE 800 "Transform.ag" #-} + Map.empty + {-# LINE 3844 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 825, column 33) + _lhsOderivings = + ({-# LINE 825 "Transform.ag" #-} + Map.empty + {-# LINE 3849 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 3854 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 996, column 37) + _lhsOmoduleDecl = + ({-# LINE 996 "Transform.ag" #-} + mzero + {-# LINE 3859 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 777, column 37) + _lhsOparamsCollect = + ({-# LINE 777 "Transform.ag" #-} + Map.empty + {-# LINE 3864 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 673, column 34) + _lhsOpragmas = + ({-# LINE 673 "Transform.ag" #-} + id + {-# LINE 3869 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 717, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 717 "Transform.ag" #-} + Map.empty + {-# LINE 3874 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 533, column 32) + _lhsOtypeSyns = + ({-# LINE 533 "Transform.ag" #-} + [] + {-# LINE 3879 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 135, column 15) + _lhsOuseMap = + ({-# LINE 135 "Transform.ag" #-} + Map.empty + {-# LINE 3884 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 664, column 32) + _lhsOwrappers = + ({-# LINE 664 "Transform.ag" #-} + Set.empty + {-# LINE 3889 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 134 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 3894 "Transform.hs" #-}) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 102 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 3899 "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 3974 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + Set.empty + {-# LINE 3979 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 3984 "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 4012 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _set1IcollectedNames `Set.union` _set2IcollectedNames + {-# LINE 4017 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 4022 "Transform.hs" #-}) + -- copy rule (down) + _set1OallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4027 "Transform.hs" #-}) + -- copy rule (down) + _set1OallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4032 "Transform.hs" #-}) + -- copy rule (down) + _set1OdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4037 "Transform.hs" #-}) + -- copy rule (down) + _set2OallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4042 "Transform.hs" #-}) + -- copy rule (down) + _set2OallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4047 "Transform.hs" #-}) + -- copy rule (down) + _set2OdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4052 "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 4084 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _set1IcollectedNames `Set.union` _set2IcollectedNames + {-# LINE 4089 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 4094 "Transform.hs" #-}) + -- copy rule (down) + _set1OallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4099 "Transform.hs" #-}) + -- copy rule (down) + _set1OallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4104 "Transform.hs" #-}) + -- copy rule (down) + _set1OdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4109 "Transform.hs" #-}) + -- copy rule (down) + _set2OallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4114 "Transform.hs" #-}) + -- copy rule (down) + _set2OallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4119 "Transform.hs" #-}) + -- copy rule (down) + _set2OdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4124 "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 4143 "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 4150 "Transform.hs" #-}) + -- "Transform.ag"(line 611, column 20) + (_nontSet,_) = + ({-# LINE 611 "Transform.ag" #-} + __tup4 + {-# LINE 4155 "Transform.hs" #-}) + -- "Transform.ag"(line 611, column 20) + (_,_errors) = + ({-# LINE 611 "Transform.ag" #-} + __tup4 + {-# LINE 4160 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _errors + {-# LINE 4165 "Transform.hs" #-}) + -- copy rule (from local) + _lhsOnontSet = + ({-# LINE 110 "Transform.ag" #-} + _nontSet + {-# LINE 4170 "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 4187 "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 4195 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + Set.empty + {-# LINE 4200 "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 4228 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 84, column 50) + _lhsOcollectedNames = + ({-# LINE 84 "Transform.ag" #-} + _set1IcollectedNames `Set.union` _set2IcollectedNames + {-# LINE 4233 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 4238 "Transform.hs" #-}) + -- copy rule (down) + _set1OallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4243 "Transform.hs" #-}) + -- copy rule (down) + _set1OallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4248 "Transform.hs" #-}) + -- copy rule (down) + _set1OdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4253 "Transform.hs" #-}) + -- copy rule (down) + _set2OallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4258 "Transform.hs" #-}) + -- copy rule (down) + _set2OallNonterminals = + ({-# LINE 86 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4263 "Transform.hs" #-}) + -- copy rule (down) + _set2OdefinedSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4268 "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 4358 "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 4363 "Transform.hs" #-}) + -- "Transform.ag"(line 974, column 11) + _lhsOdefinedInsts = + ({-# LINE 974 "Transform.ag" #-} + (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts + {-# LINE 4368 "Transform.hs" #-}) + -- "Transform.ag"(line 989, column 16) + _lhsOstpos = + ({-# LINE 989 "Transform.ag" #-} + getPos field_ + {-# LINE 4373 "Transform.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Alias field_ attr_ _patIcopy _partsIcopy + {-# LINE 4378 "Transform.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 4383 "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 4406 "Transform.hs" #-}) + -- "Transform.ag"(line 987, column 16) + _lhsOstpos = + ({-# LINE 987 "Transform.ag" #-} + getPos name_ + {-# LINE 4411 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 967, column 42) + _lhsOdefinedAttrs = + ({-# LINE 967 "Transform.ag" #-} + _patsIdefinedAttrs + {-# LINE 4416 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + _patsIdefinedInsts + {-# LINE 4421 "Transform.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Constr name_ _patsIcopy + {-# LINE 4426 "Transform.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 4431 "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 4452 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 967, column 42) + _lhsOdefinedAttrs = + ({-# LINE 967 "Transform.ag" #-} + _patIdefinedAttrs + {-# LINE 4457 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + _patIdefinedInsts + {-# LINE 4462 "Transform.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Irrefutable _patIcopy + {-# LINE 4467 "Transform.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 4472 "Transform.hs" #-}) + -- copy rule (up) + _lhsOstpos = + ({-# LINE 984 "Transform.ag" #-} + _patIstpos + {-# LINE 4477 "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 4498 "Transform.hs" #-}) + -- "Transform.ag"(line 988, column 16) + _lhsOstpos = + ({-# LINE 988 "Transform.ag" #-} + pos_ + {-# LINE 4503 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 967, column 42) + _lhsOdefinedAttrs = + ({-# LINE 967 "Transform.ag" #-} + _patsIdefinedAttrs + {-# LINE 4508 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + _patsIdefinedInsts + {-# LINE 4513 "Transform.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Product pos_ _patsIcopy + {-# LINE 4518 "Transform.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 4523 "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 4539 "Transform.hs" #-}) + -- "Transform.ag"(line 990, column 16) + _lhsOstpos = + ({-# LINE 990 "Transform.ag" #-} + pos_ + {-# LINE 4544 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 967, column 42) + _lhsOdefinedAttrs = + ({-# LINE 967 "Transform.ag" #-} + [] + {-# LINE 4549 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + [] + {-# LINE 4554 "Transform.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Underscore pos_ + {-# LINE 4559 "Transform.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 4564 "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 4621 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 967, column 42) + _lhsOdefinedAttrs = + ({-# LINE 967 "Transform.ag" #-} + _hdIdefinedAttrs ++ _tlIdefinedAttrs + {-# LINE 4626 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + _hdIdefinedInsts ++ _tlIdefinedInsts + {-# LINE 4631 "Transform.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 4636 "Transform.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 4641 "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 4657 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 967, column 42) + _lhsOdefinedAttrs = + ({-# LINE 967 "Transform.ag" #-} + [] + {-# LINE 4662 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + [] + {-# LINE 4667 "Transform.hs" #-}) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + [] + {-# LINE 4672 "Transform.hs" #-}) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 4677 "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 4757 "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 4765 "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 4773 "Transform.hs" #-}) + -- "Transform.ag"(line 756, column 7) + _lhsOattrOrderCollect = + ({-# LINE 756 "Transform.ag" #-} + foldr orderMapUnion Map.empty _attrOrders + {-# LINE 4778 "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 4788 "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 4797 "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 4806 "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 4815 "Transform.hs" #-}) + -- "Transform.ag"(line 926, column 12) + _lhsOcollectedInsts = + ({-# LINE 926 "Transform.ag" #-} + [ (nt,con,_rulesIdefinedInsts) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 4823 "Transform.hs" #-}) + -- "Transform.ag"(line 932, column 12) + _lhsOcollectedUniques = + ({-# LINE 932 "Transform.ag" #-} + [ (nt,con,_rulesIuniqueInfos) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 4831 "Transform.hs" #-}) + -- "Transform.ag"(line 938, column 12) + _lhsOcollectedAugments = + ({-# LINE 938 "Transform.ag" #-} + [ (nt, con, _rulesIaugmentInfos) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 4839 "Transform.hs" #-}) + -- "Transform.ag"(line 944, column 12) + _lhsOcollectedArounds = + ({-# LINE 944 "Transform.ag" #-} + [ (nt, con, _rulesIaroundInfos) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 4847 "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 4939 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + _hdIcollectedArounds ++ _tlIcollectedArounds + {-# LINE 4944 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + _hdIcollectedAugments ++ _tlIcollectedAugments + {-# LINE 4949 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + _hdIcollectedInsts ++ _tlIcollectedInsts + {-# LINE 4954 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + _hdIcollectedRules ++ _tlIcollectedRules + {-# LINE 4959 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + _hdIcollectedSigs ++ _tlIcollectedSigs + {-# LINE 4964 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + _hdIcollectedUniques ++ _tlIcollectedUniques + {-# LINE 4969 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + _hdIerrors Seq.>< _tlIerrors + {-# LINE 4974 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 717, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 717 "Transform.ag" #-} + _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect + {-# LINE 4979 "Transform.hs" #-}) + -- copy rule (down) + _hdOallAttrDecls = + ({-# LINE 746 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 4984 "Transform.hs" #-}) + -- copy rule (down) + _hdOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4989 "Transform.hs" #-}) + -- copy rule (down) + _hdOnts = + ({-# LINE 163 "Transform.ag" #-} + _lhsInts + {-# LINE 4994 "Transform.hs" #-}) + -- copy rule (down) + _tlOallAttrDecls = + ({-# LINE 746 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 4999 "Transform.hs" #-}) + -- copy rule (down) + _tlOallFields = + ({-# LINE 126 "Transform.ag" #-} + _lhsIallFields + {-# LINE 5004 "Transform.hs" #-}) + -- copy rule (down) + _tlOnts = + ({-# LINE 163 "Transform.ag" #-} + _lhsInts + {-# LINE 5009 "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 5033 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedArounds = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 5038 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedAugments = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 5043 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 150, column 32) + _lhsOcollectedInsts = + ({-# LINE 150 "Transform.ag" #-} + [] + {-# LINE 5048 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 148, column 32) + _lhsOcollectedRules = + ({-# LINE 148 "Transform.ag" #-} + [] + {-# LINE 5053 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 149, column 32) + _lhsOcollectedSigs = + ({-# LINE 149 "Transform.ag" #-} + [] + {-# LINE 5058 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 151, column 32) + _lhsOcollectedUniques = + ({-# LINE 151 "Transform.ag" #-} + [] + {-# LINE 5063 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 42, column 19) + _lhsOerrors = + ({-# LINE 42 "Transform.ag" #-} + Seq.empty + {-# LINE 5068 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 717, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 717 "Transform.ag" #-} + Map.empty + {-# LINE 5073 "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 5158 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOaugmentInfos = + ({-# LINE 895 "Transform.ag" #-} + [] + {-# LINE 5163 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + [] + {-# LINE 5168 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 758, column 44) + _lhsOorderDepsCollect = + ({-# LINE 758 "Transform.ag" #-} + Set.empty + {-# LINE 5173 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 727, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 727 "Transform.ag" #-} + [] + {-# LINE 5178 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 892, column 40) + _lhsOruleInfos = + ({-# LINE 892 "Transform.ag" #-} + [] + {-# LINE 5183 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 893, column 40) + _lhsOsigInfos = + ({-# LINE 893 "Transform.ag" #-} + [] + {-# LINE 5188 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOuniqueInfos = + ({-# LINE 894 "Transform.ag" #-} + [] + {-# LINE 5193 "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 5211 "Transform.hs" #-}) + -- "Transform.ag"(line 763, column 7) + _lhsOorderDepsCollect = + ({-# LINE 763 "Transform.ag" #-} + Set.fromList _dependency + {-# LINE 5216 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 896, column 40) + _lhsOaroundInfos = + ({-# LINE 896 "Transform.ag" #-} + [] + {-# LINE 5221 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOaugmentInfos = + ({-# LINE 895 "Transform.ag" #-} + [] + {-# LINE 5226 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + [] + {-# LINE 5231 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 727, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 727 "Transform.ag" #-} + [] + {-# LINE 5236 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 892, column 40) + _lhsOruleInfos = + ({-# LINE 892 "Transform.ag" #-} + [] + {-# LINE 5241 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 893, column 40) + _lhsOsigInfos = + ({-# LINE 893 "Transform.ag" #-} + [] + {-# LINE 5246 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOuniqueInfos = + ({-# LINE 894 "Transform.ag" #-} + [] + {-# LINE 5251 "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 5269 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 896, column 40) + _lhsOaroundInfos = + ({-# LINE 896 "Transform.ag" #-} + [] + {-# LINE 5274 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + [] + {-# LINE 5279 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 758, column 44) + _lhsOorderDepsCollect = + ({-# LINE 758 "Transform.ag" #-} + Set.empty + {-# LINE 5284 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 727, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 727 "Transform.ag" #-} + [] + {-# LINE 5289 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 892, column 40) + _lhsOruleInfos = + ({-# LINE 892 "Transform.ag" #-} + [] + {-# LINE 5294 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 893, column 40) + _lhsOsigInfos = + ({-# LINE 893 "Transform.ag" #-} + [] + {-# LINE 5299 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOuniqueInfos = + ({-# LINE 894 "Transform.ag" #-} + [] + {-# LINE 5304 "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 5330 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 896, column 40) + _lhsOaroundInfos = + ({-# LINE 896 "Transform.ag" #-} + [] + {-# LINE 5335 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOaugmentInfos = + ({-# LINE 895 "Transform.ag" #-} + [] + {-# LINE 5340 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + _patternIdefinedInsts + {-# LINE 5345 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 758, column 44) + _lhsOorderDepsCollect = + ({-# LINE 758 "Transform.ag" #-} + Set.empty + {-# LINE 5350 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 727, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 727 "Transform.ag" #-} + [] + {-# LINE 5355 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 893, column 40) + _lhsOsigInfos = + ({-# LINE 893 "Transform.ag" #-} + [] + {-# LINE 5360 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOuniqueInfos = + ({-# LINE 894 "Transform.ag" #-} + [] + {-# LINE 5365 "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 5384 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 896, column 40) + _lhsOaroundInfos = + ({-# LINE 896 "Transform.ag" #-} + [] + {-# LINE 5389 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOaugmentInfos = + ({-# LINE 895 "Transform.ag" #-} + [] + {-# LINE 5394 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + [] + {-# LINE 5399 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 758, column 44) + _lhsOorderDepsCollect = + ({-# LINE 758 "Transform.ag" #-} + Set.empty + {-# LINE 5404 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 892, column 40) + _lhsOruleInfos = + ({-# LINE 892 "Transform.ag" #-} + [] + {-# LINE 5409 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 893, column 40) + _lhsOsigInfos = + ({-# LINE 893 "Transform.ag" #-} + [] + {-# LINE 5414 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOuniqueInfos = + ({-# LINE 894 "Transform.ag" #-} + [] + {-# LINE 5419 "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 5437 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 896, column 40) + _lhsOaroundInfos = + ({-# LINE 896 "Transform.ag" #-} + [] + {-# LINE 5442 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOaugmentInfos = + ({-# LINE 895 "Transform.ag" #-} + [] + {-# LINE 5447 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + [] + {-# LINE 5452 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 758, column 44) + _lhsOorderDepsCollect = + ({-# LINE 758 "Transform.ag" #-} + Set.empty + {-# LINE 5457 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 727, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 727 "Transform.ag" #-} + [] + {-# LINE 5462 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 892, column 40) + _lhsOruleInfos = + ({-# LINE 892 "Transform.ag" #-} + [] + {-# LINE 5467 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOuniqueInfos = + ({-# LINE 894 "Transform.ag" #-} + [] + {-# LINE 5472 "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 5490 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 896, column 40) + _lhsOaroundInfos = + ({-# LINE 896 "Transform.ag" #-} + [] + {-# LINE 5495 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOaugmentInfos = + ({-# LINE 895 "Transform.ag" #-} + [] + {-# LINE 5500 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + [] + {-# LINE 5505 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 758, column 44) + _lhsOorderDepsCollect = + ({-# LINE 758 "Transform.ag" #-} + Set.empty + {-# LINE 5510 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 727, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 727 "Transform.ag" #-} + [] + {-# LINE 5515 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 892, column 40) + _lhsOruleInfos = + ({-# LINE 892 "Transform.ag" #-} + [] + {-# LINE 5520 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 893, column 40) + _lhsOsigInfos = + ({-# LINE 893 "Transform.ag" #-} + [] + {-# LINE 5525 "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 5593 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOaugmentInfos = + ({-# LINE 895 "Transform.ag" #-} + _hdIaugmentInfos ++ _tlIaugmentInfos + {-# LINE 5598 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + _hdIdefinedInsts ++ _tlIdefinedInsts + {-# LINE 5603 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 758, column 44) + _lhsOorderDepsCollect = + ({-# LINE 758 "Transform.ag" #-} + _hdIorderDepsCollect `Set.union` _tlIorderDepsCollect + {-# LINE 5608 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 727, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 727 "Transform.ag" #-} + _hdIpragmaNamesCollect ++ _tlIpragmaNamesCollect + {-# LINE 5613 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 892, column 40) + _lhsOruleInfos = + ({-# LINE 892 "Transform.ag" #-} + _hdIruleInfos ++ _tlIruleInfos + {-# LINE 5618 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 893, column 40) + _lhsOsigInfos = + ({-# LINE 893 "Transform.ag" #-} + _hdIsigInfos ++ _tlIsigInfos + {-# LINE 5623 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOuniqueInfos = + ({-# LINE 894 "Transform.ag" #-} + _hdIuniqueInfos ++ _tlIuniqueInfos + {-# LINE 5628 "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 5648 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 895, column 40) + _lhsOaugmentInfos = + ({-# LINE 895 "Transform.ag" #-} + [] + {-# LINE 5653 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 966, column 55) + _lhsOdefinedInsts = + ({-# LINE 966 "Transform.ag" #-} + [] + {-# LINE 5658 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 758, column 44) + _lhsOorderDepsCollect = + ({-# LINE 758 "Transform.ag" #-} + Set.empty + {-# LINE 5663 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 727, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 727 "Transform.ag" #-} + [] + {-# LINE 5668 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 892, column 40) + _lhsOruleInfos = + ({-# LINE 892 "Transform.ag" #-} + [] + {-# LINE 5673 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 893, column 40) + _lhsOsigInfos = + ({-# LINE 893 "Transform.ag" #-} + [] + {-# LINE 5678 "Transform.hs" #-}) + -- use rule "Transform.ag"(line 894, column 40) + _lhsOuniqueInfos = + ({-# LINE 894 "Transform.ag" #-} + [] + {-# LINE 5683 "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.22 (Visage.ag) +-- UUAGC 0.9.21 (Visage.ag) module Visage where {-# LINE 6 "Visage.ag" #-} @@ -173,7 +173,7 @@ -- semantic domain newtype T_VisageChildren = T_VisageChildren (( ([ATerm]))) data Inh_VisageChildren = Inh_VisageChildren {} -data Syn_VisageChildren = Syn_VisageChildren {aterms_Syn_VisageChildren :: ([ATerm])} +data Syn_VisageChildren = Syn_VisageChildren {aterms_Syn_VisageChildren :: [ATerm]} wrap_VisageChildren :: T_VisageChildren -> Inh_VisageChildren -> Syn_VisageChildren @@ -309,7 +309,7 @@ -- semantic domain newtype T_VisageNonterminals = T_VisageNonterminals (( ([ATerm]))) data Inh_VisageNonterminals = Inh_VisageNonterminals {} -data Syn_VisageNonterminals = Syn_VisageNonterminals {aterms_Syn_VisageNonterminals :: ([ATerm])} +data Syn_VisageNonterminals = Syn_VisageNonterminals {aterms_Syn_VisageNonterminals :: [ATerm]} wrap_VisageNonterminals :: T_VisageNonterminals -> Inh_VisageNonterminals -> Syn_VisageNonterminals @@ -477,7 +477,7 @@ -- semantic domain newtype T_VisagePatterns = T_VisagePatterns (( ([ATerm]))) data Inh_VisagePatterns = Inh_VisagePatterns {} -data Syn_VisagePatterns = Syn_VisagePatterns {aterms_Syn_VisagePatterns :: ([ATerm])} +data Syn_VisagePatterns = Syn_VisagePatterns {aterms_Syn_VisagePatterns :: [ATerm]} wrap_VisagePatterns :: T_VisagePatterns -> Inh_VisagePatterns -> Syn_VisagePatterns @@ -594,7 +594,7 @@ -- semantic domain newtype T_VisageProductions = T_VisageProductions (( ([ATerm]))) data Inh_VisageProductions = Inh_VisageProductions {} -data Syn_VisageProductions = Syn_VisageProductions {aterms_Syn_VisageProductions :: ([ATerm])} +data Syn_VisageProductions = Syn_VisageProductions {aterms_Syn_VisageProductions :: [ATerm]} wrap_VisageProductions :: T_VisageProductions -> Inh_VisageProductions -> Syn_VisageProductions @@ -704,7 +704,7 @@ newtype T_VisageRules = T_VisageRules (Bool -> ( ([ATerm]))) data Inh_VisageRules = Inh_VisageRules {isLoc_Inh_VisageRules :: Bool} -data Syn_VisageRules = Syn_VisageRules {aterms_Syn_VisageRules :: ([ATerm])} +data Syn_VisageRules = Syn_VisageRules {aterms_Syn_VisageRules :: [ATerm]} wrap_VisageRules :: T_VisageRules -> Inh_VisageRules -> Syn_VisageRules 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.22 (VisagePatterns.ag) +-- UUAGC 0.9.21 (VisagePatterns.ag) module VisagePatterns where {-# LINE 2 "VisagePatterns.ag" #-} @@ -26,9 +26,9 @@ child field : {Identifier} child attr : {Identifier} -} -data VisagePattern = VAlias (Identifier) (Identifier) (VisagePattern ) - | VConstr (ConstructorIdent) (VisagePatterns ) - | VProduct (Pos) (VisagePatterns ) +data VisagePattern = VAlias (Identifier) (Identifier) (VisagePattern) + | VConstr (ConstructorIdent) (VisagePatterns) + | VProduct (Pos) (VisagePatterns) | VUnderscore (Pos) | VVar (Identifier) (Identifier) -- VisagePatterns ---------------------------------------------- @@ -39,4 +39,4 @@ child tl : VisagePatterns alternative Nil: -} -type VisagePatterns = [VisagePattern ] +type VisagePatterns = [(VisagePattern)] 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.22 (VisageSyntax.ag) +-- UUAGC 0.9.21 (VisageSyntax.ag) module VisageSyntax where {-# LINE 2 "VisageSyntax.ag" #-} @@ -20,7 +20,7 @@ child syn : {Attributes} child rules : VisageRules -} -data VisageChild = VChild (Identifier) (Type) (Attributes) (Attributes) (VisageRules ) +data VisageChild = VChild (Identifier) (Type) (Attributes) (Attributes) (VisageRules) -- VisageChildren ---------------------------------------------- {- alternatives: @@ -29,14 +29,14 @@ child tl : VisageChildren alternative Nil: -} -type VisageChildren = [VisageChild ] +type VisageChildren = [(VisageChild)] -- VisageGrammar ----------------------------------------------- {- alternatives: alternative VGrammar: child nonts : VisageNonterminals -} -data VisageGrammar = VGrammar (VisageNonterminals ) +data VisageGrammar = VGrammar (VisageNonterminals) -- VisageNonterminal ------------------------------------------- {- alternatives: @@ -46,7 +46,7 @@ child syn : {Attributes} child alts : VisageProductions -} -data VisageNonterminal = VNonterminal (NontermIdent) (Attributes) (Attributes) (VisageProductions ) +data VisageNonterminal = VNonterminal (NontermIdent) (Attributes) (Attributes) (VisageProductions) -- VisageNonterminals ------------------------------------------ {- alternatives: @@ -55,7 +55,7 @@ child tl : VisageNonterminals alternative Nil: -} -type VisageNonterminals = [VisageNonterminal ] +type VisageNonterminals = [(VisageNonterminal)] -- VisageProduction -------------------------------------------- {- alternatives: @@ -65,7 +65,7 @@ child rules : VisageRules child locrules : VisageRules -} -data VisageProduction = VProduction (ConstructorIdent) (VisageChildren ) (VisageRules ) (VisageRules ) +data VisageProduction = VProduction (ConstructorIdent) (VisageChildren) (VisageRules) (VisageRules) -- VisageProductions ------------------------------------------- {- alternatives: @@ -74,7 +74,7 @@ child tl : VisageProductions alternative Nil: -} -type VisageProductions = [VisageProduction ] +type VisageProductions = [(VisageProduction)] -- VisageRule -------------------------------------------------- {- alternatives: @@ -85,7 +85,7 @@ child rhs : {Expression} child owrt : {Bool} -} -data VisageRule = VRule (([(Identifier,Identifier)])) (Identifier) (VisagePattern) (Expression) (Bool) +data VisageRule = VRule ([(Identifier,Identifier)]) (Identifier) (VisagePattern) (Expression) (Bool) -- VisageRules ------------------------------------------------- {- alternatives: @@ -94,4 +94,4 @@ child tl : VisageRules alternative Nil: -} -type VisageRules = [VisageRule ] +type VisageRules = [(VisageRule)] diff --git a/src/Ag.hs b/src/Ag.hs --- a/src/Ag.hs +++ b/src/Ag.hs @@ -16,15 +16,16 @@ import UU.Scanner.Position (Pos, line, file) import UU.Scanner.Token (Token) -import qualified Transform as Pass1 (sem_AG , wrap_AG , Syn_AG (..), Inh_AG (..)) -import qualified Desugar as Pass1a (sem_Grammar, wrap_Grammar, Syn_Grammar (..), Inh_Grammar (..)) -import qualified DefaultRules as Pass2 (sem_Grammar, wrap_Grammar, Syn_Grammar (..), Inh_Grammar (..)) -import qualified Order as Pass3 (sem_Grammar, wrap_Grammar, Syn_Grammar (..), Inh_Grammar (..)) -import qualified GenerateCode as Pass4 (sem_CGrammar, wrap_CGrammar, Syn_CGrammar(..), Inh_CGrammar(..)) -import qualified PrintCode as Pass5 (sem_Program, wrap_Program, Syn_Program (..), Inh_Program (..)) -import qualified PrintOcamlCode as Pass5a (sem_Program, wrap_Program, Syn_Program (..), Inh_Program (..)) -import qualified PrintErrorMessages as PrErr (sem_Errors , wrap_Errors , Syn_Errors (..), Inh_Errors (..), isError) -import qualified TfmToVisage as PassV (sem_Grammar, wrap_Grammar, Syn_Grammar (..), Inh_Grammar (..)) +import qualified Transform as Pass1 (sem_AG , wrap_AG , Syn_AG (..), Inh_AG (..)) +import qualified Desugar as Pass1a (sem_Grammar, wrap_Grammar, Syn_Grammar (..), Inh_Grammar (..)) +import qualified DefaultRules as Pass2 (sem_Grammar, wrap_Grammar, Syn_Grammar (..), Inh_Grammar (..)) +import qualified Order as Pass3 (sem_Grammar, wrap_Grammar, Syn_Grammar (..), Inh_Grammar (..)) +import qualified GenerateCode as Pass4 (sem_CGrammar, wrap_CGrammar, Syn_CGrammar(..), Inh_CGrammar(..)) +import qualified PrintVisitCode as Pass4a (sem_CGrammar, wrap_CGrammar, Syn_CGrammar(..), Inh_CGrammar(..)) +import qualified PrintCode as Pass5 (sem_Program, wrap_Program, Syn_Program (..), Inh_Program (..)) +import qualified PrintOcamlCode as Pass5a (sem_Program, wrap_Program, Syn_Program (..), Inh_Program (..)) +import qualified PrintErrorMessages as PrErr (sem_Errors , wrap_Errors , Syn_Errors (..), Inh_Errors (..), isError) +import qualified TfmToVisage as PassV (sem_Grammar, wrap_Grammar, Syn_Grammar (..), Inh_Grammar (..)) import qualified AbstractSyntaxDump as GrammarDump (sem_Grammar, wrap_Grammar, Syn_Grammar (..), Inh_Grammar (..)) import qualified CodeSyntaxDump as CGrammarDump (sem_CGrammar, wrap_CGrammar, Syn_CGrammar (..), Inh_CGrammar (..)) @@ -72,6 +73,7 @@ output3 = Pass3.wrap_Grammar (Pass3.sem_Grammar grammar2 ) Pass3.Inh_Grammar {Pass3.options_Inh_Grammar = flags'} grammar3 = Pass3.output_Syn_Grammar output3 output4 = Pass4.wrap_CGrammar (Pass4.sem_CGrammar(Pass3.output_Syn_Grammar output3)) Pass4.Inh_CGrammar {Pass4.options_Inh_CGrammar = flags'} + output4a = Pass4a.wrap_CGrammar (Pass4a.sem_CGrammar(Pass3.output_Syn_Grammar output3)) Pass4a.Inh_CGrammar {Pass4a.options_Inh_CGrammar = flags'} output5 = Pass5.wrap_Program (Pass5.sem_Program (Pass4.output_Syn_CGrammar output4)) Pass5.Inh_Program {Pass5.options_Inh_Program = flags', Pass5.pragmaBlocks_Inh_Program = pragmaBlocksTxt, Pass5.importBlocks_Inh_Program = importBlocksTxt, Pass5.textBlocks_Inh_Program = textBlocksDoc, Pass5.textBlockMap_Inh_Program = textBlockMap, Pass5.optionsLine_Inh_Program = optionsLine, Pass5.mainFile_Inh_Program = mainFile, Pass5.moduleHeader_Inh_Program = mkModuleHeader $ Pass1.moduleDecl_Syn_AG output1, Pass5.mainName_Inh_Program = mkMainName mainName $ Pass1.moduleDecl_Syn_AG output1} output5a = Pass5a.wrap_Program (Pass5a.sem_Program (Pass4.output_Syn_CGrammar output4)) Pass5a.Inh_Program { Pass5a.options_Inh_Program = flags', Pass5a.textBlockMap_Inh_Program = textBlockMap } output6 = PrErr.wrap_Errors (PrErr.sem_Errors errorsToReport) PrErr.Inh_Errors {PrErr.options_Inh_Errors = flags'} @@ -173,7 +175,14 @@ Pass5.genIO_Syn_Program output5 if not (null errorsToStopOn) then exitFailure else return () else do -- conventional module gen - let doc = vlist [ vlist ( if not (ocaml flags') + let doc + | visitorsOutput flags' + = vlist [ pp_braces importBlocksTxt + , pp_braces textBlocksDoc + , vlist $ Pass4a.output_Syn_CGrammar output4a + ] + | otherwise + = vlist [ vlist ( if not (ocaml flags') then [ pp optionsLine , pp pragmaBlocksTxt , pp $ take 70 ("-- UUAGC " ++ drop 50 banner ++ " (" ++ input) ++ ")" @@ -207,6 +216,13 @@ let docTxt = disp doc 50000 "" writeFile outputfile docTxt + -- HACK: write statistics + let nAuto = Pass3.nAutoRules_Syn_Grammar output3 + nExpl = Pass3.nExplicitRules_Syn_Grammar output3 + line = input ++ "," ++ show nAuto ++ "," ++ show nExpl ++ "\r\n" + case statsFile flags' of + Nothing -> return () + Just file -> appendFile file line if not (null errorsToStopOn) then exitFailure else return () diff --git a/src/CommonTypes.hs b/src/CommonTypes.hs --- a/src/CommonTypes.hs +++ b/src/CommonTypes.hs @@ -115,7 +115,7 @@ locname v = '_' : getName v instname v = getName v ++ "_val_" -inst'name v = getName v ++ "_" +inst'name v = getName v ++ "_inst_" fieldname v = getName v++"_" typeToAGString :: Type -> String diff --git a/src/Options.hs b/src/Options.hs --- a/src/Options.hs +++ b/src/Options.hs @@ -58,6 +58,8 @@ , Option ['H'] ["haskellsyntax"] (NoArg haskellSyntaxOpt) "Use Haskell like syntax (equivalent to --lckeywords and --doublecolons --genlinepragmas)" , Option [] ["monadic"] (NoArg monadicOpt) "Experimental: generate monadic code" , Option [] ["ocaml"] (NoArg ocamlOpt) "Experimental: generate Ocaml code" + , Option [] ["visitcode"] (NoArg visitorsOutputOpt) "Experimental: generate visitors code" + , Option [] ["statistics"] (ReqArg statisticsOpt "FILE to append to") "Append statistics to FILE" ] allc = "dcfsprm" @@ -113,6 +115,8 @@ , doubleColons :: Bool , monadic :: Bool , ocaml :: Bool + , visitorsOutput :: Bool + , statsFile :: Maybe String } deriving Show noOptions = Options { moduleName = NoName , dataTypes = False @@ -165,6 +169,8 @@ , doubleColons = False , monadic = False , ocaml = False + , visitorsOutput = False + , statsFile = Nothing } @@ -218,6 +224,8 @@ haskellSyntaxOpt = lcKeywordsOpt . doubleColonsOpt . genLinePragmasOpt monadicOpt opts = opts { monadic = True } ocamlOpt opts = opts { ocaml = True } +visitorsOutputOpt opts = opts { visitorsOutput = True } +statisticsOpt nm opts = opts { statsFile = Just nm } outputOpt file opts = opts{outputFiles = file : outputFiles opts} searchPathOpt path opts = opts{searchPath = extract path ++ searchPath opts} @@ -232,4 +240,3 @@ data ModuleHeader = NoName | Name String | Default deriving Show - diff --git a/src/Pretty.hs b/src/Pretty.hs --- a/src/Pretty.hs +++ b/src/Pretty.hs @@ -17,6 +17,7 @@ , pp_block , vlist_sep , pp_parens + , pp_braces , hv_sp , empty, text @@ -95,6 +96,9 @@ pp_parens :: PP a => a -> PP_Doc pp_parens p = '(' >|< p >|< ')' + +pp_braces :: PP a => a -> PP_Doc +pp_braces p = '{' >-< p >-< '}' vlist_sep :: (PP a, PP b) => a -> [b] -> PP_Doc vlist_sep sep lst 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.23" +banner = "Attribute Grammar compiler / HUT project. Version 0.9.24" 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.23 +version: 0.9.24 license: GPL license-file: LICENSE maintainer: Arie Middelkoop @@ -64,6 +64,7 @@ , Patterns , PrintCode , PrintOcamlCode + , PrintVisitCode , PrintErrorMessages , SemHsTokens , Transform 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.23 +version: 0.9.24 license: GPL license-file: LICENSE maintainer: Arie Middelkoop