uuagc-0.9.36: src-derived/GenerateCode.hs
-- UUAGC 0.9.35 (GenerateCode.ag)
module GenerateCode where
{-# LINE 9 "GenerateCode.ag" #-}
import CommonTypes
import SequentialTypes
import Code hiding (Type)
import qualified Code
import Options
import CodeSyntax
import ErrorMessages
import GrammarInfo
import DeclBlocks
import qualified Data.Map as Map
import Data.Map(Map)
import qualified Data.Set as Set
import Data.Set(Set)
import qualified Data.Sequence as Seq
import Data.Sequence(Seq)
import UU.Scanner.Position
import TokenDef
import HsToken
import HsTokenScanner
import Data.List(partition,intersperse,intersect,(\\))
import Maybe(fromJust,isJust)
import Debug.Trace
{-# LINE 33 "../src-derived/GenerateCode.hs" #-}
{-# LINE 2 "./CodeSyntax.ag" #-}
import Patterns
import CommonTypes
import Data.Map(Map)
import Data.Set(Set)
{-# LINE 41 "../src-derived/GenerateCode.hs" #-}
{-# LINE 2 "./Patterns.ag" #-}
-- Patterns.ag imports
import UU.Scanner.Position(Pos)
import CommonTypes (ConstructorIdent,Identifier)
{-# LINE 48 "../src-derived/GenerateCode.hs" #-}
{-# LINE 2 "./DeclBlocks.ag" #-}
import Code (Decl,Expr)
{-# LINE 53 "../src-derived/GenerateCode.hs" #-}
{-# LINE 107 "GenerateCode.ag" #-}
-- remove possible @v references in the types of a data type.
cleanupArg :: String -> String
cleanupArg s
= case idEvalType (SimpleType s) of
SimpleType s' -> s'
{-# LINE 61 "../src-derived/GenerateCode.hs" #-}
{-# LINE 121 "GenerateCode.ag" #-}
appContext :: ContextMap -> NontermIdent -> Code.Type -> Code.Type
appContext mp nt tp
= maybe tp (\ctx -> CtxApp (map (\(n,ns) -> (getName n, ns)) ctx) tp) $ Map.lookup nt mp
{-# LINE 68 "../src-derived/GenerateCode.hs" #-}
{-# LINE 240 "GenerateCode.ag" #-}
mkDecl True lhs rhs _ _ = Bind lhs rhs
mkDecl False lhs rhs s1 s2 = Decl lhs rhs s1 s2
unwrapSem :: Bool -> NontermIdent -> Expr -> Expr
unwrapSem False _ e = e
unwrapSem True nm e = Case e alts
where alts = [CaseAlt left right]
left = Fun (typeName nm 0) [SimpleExpr "x"]
right = SimpleExpr "x"
{-# LINE 81 "../src-derived/GenerateCode.hs" #-}
{-# LINE 406 "GenerateCode.ag" #-}
substSelf nt tp = case tp of
NT t tps | t == _SELF -> Haskell (getName nt ++ " " ++ unwords tps)
_ -> tp
{-# LINE 88 "../src-derived/GenerateCode.hs" #-}
{-# LINE 529 "GenerateCode.ag" #-}
mkLambdaArg :: String -> Maybe Code.Type -> Expr
mkLambdaArg nm Nothing = SimpleExpr nm
mkLambdaArg nm (Just tp) = TypedExpr (SimpleExpr nm) tp
mkLambda :: Exprs -> Expr -> Expr
mkLambda [] e = e
mkLambda xs e = Lambda xs e
mkSemFun :: Identifier -> Int -> Exprs -> Expr -> Expr
mkSemFun nt nr xs e = SemFun (typeName nt nr) xs e
typeAppStrs nm params = TypeApp (SimpleType nm) (map SimpleType params)
isHigherOrder :: Maybe (Maybe Type) -> Bool
isHigherOrder (Just Nothing) = True
isHigherOrder _ = False
pickOrigType :: (Identifier, Type, Maybe (Maybe Type)) -> (Identifier, Type, Maybe (Maybe Type))
pickOrigType (nm, tp, virt@(Just (Just x))) = (nm, x, virt)
pickOrigType x = x
{-# LINE 112 "../src-derived/GenerateCode.hs" #-}
{-# LINE 625 "GenerateCode.ag" #-}
mkPartitionedFunction :: String -> Bool -> [Decl] -> [String] -> DeclBlocks -> ([Decl], Expr)
mkPartitionedFunction prefix optCase nextVisitDecls lastExprVars cpsTree
= let inh = Inh_DeclBlocksRoot { prefix_Inh_DeclBlocksRoot = prefix
, optCase_Inh_DeclBlocksRoot = optCase
, nextVisitDecls_Inh_DeclBlocksRoot = nextVisitDecls
, lastExprVars_Inh_DeclBlocksRoot = lastExprVars
}
sem = sem_DeclBlocksRoot (DeclBlocksRoot cpsTree)
syn = wrap_DeclBlocksRoot sem inh
in (lambdas_Syn_DeclBlocksRoot syn, firstCall_Syn_DeclBlocksRoot syn)
{-# LINE 126 "../src-derived/GenerateCode.hs" #-}
{-# LINE 675 "GenerateCode.ag" #-}
freevars :: [String] -> [Decl] -> [String]
freevars additional decls
= Set.toList (allused `Set.difference` alldefined)
where
allused = Set.unions (Set.fromList additional : map usedvars decls)
alldefined = Set.unions (map definedvars decls)
usedvars (Decl _ _ _ uses) = uses
usedvars _ = Set.empty
definedvars (Decl _ _ defs _) = defs
definedvars _ = Set.empty
mkBlockLambda :: Bool -> String -> [String] -> [Decl] -> Expr -> Decl
mkBlockLambda optCase name args decls expr
= Decl lhs rhs Set.empty Set.empty
where
lhs = Fun name (map SimpleExpr args)
rhs = mkLet optCase decls expr
{-# LINE 149 "../src-derived/GenerateCode.hs" #-}
{-# LINE 753 "GenerateCode.ag" #-}
typeToCodeType :: Maybe NontermIdent -> [String] -> Type -> Code.Type
typeToCodeType mbNt params tp
= case tp of
NT nt tps | nt == _SELF -> NontermType (maybe "Unknown" getName mbNt) params
| otherwise -> NontermType (getName nt) tps
Haskell t -> SimpleType t
evalType :: (String -> String) -> Code.Type -> Code.Type
evalType replf t
= chase t
where
chase t
= case t of
Arr l r -> Arr (chase l) (chase r)
TypeApp f as -> TypeApp (chase f) (map chase as)
TupleType tps -> TupleType (map chase tps)
UnboxedTupleType tps -> UnboxedTupleType (map chase tps)
Code.List tp -> Code.List (chase tp)
SimpleType txt -> let tks = lexTokens (initPos txt) txt
tks' = map replaceTok tks
txt' = unlines . showTokens . tokensToStrings $ tks'
in SimpleType txt'
TMaybe m -> TMaybe (chase m)
TEither l r -> TEither (chase l) (chase r)
TMap k v -> TMap (chase k) (chase v)
TIntMap v -> TIntMap (chase v)
_ -> t
replaceTok t
= case t of
AGLocal v p _ -> HsToken (replf $ getName v) p
_ -> t
idEvalType :: Code.Type -> Code.Type
idEvalType = evalType id
{-# LINE 188 "../src-derived/GenerateCode.hs" #-}
{-# LINE 878 "GenerateCode.ag" #-}
-- for a virtual child that already existed as a child, returns
isFirstOrder :: Maybe (Maybe Type) -> Type -> Maybe Type
isFirstOrder Nothing tp = Just tp
isFirstOrder (Just x) _ = x
{-# LINE 196 "../src-derived/GenerateCode.hs" #-}
{-# LINE 898 "GenerateCode.ag" #-}
makeLocalComment :: Int -> String -> Identifier -> Maybe Type -> String
makeLocalComment width what name tp = let x = getName name
y = maybe "_" (\t -> case t of (NT nt tps) -> getName nt ++ " " ++ unwords tps; Haskell t -> '{':t++"}") tp
in ( what ++ " " ++ x ++ replicate ((width - length x) `max` 0) ' ' ++ " : " ++ y )
{-# LINE 205 "../src-derived/GenerateCode.hs" #-}
{-# LINE 929 "GenerateCode.ag" #-}
-- Lets or nested Cases?
-- or even a do-expression?
data DeclsType = DeclsLet | DeclsCase | DeclsDo
mkDecls :: DeclsType -> Decls -> Expr -> Expr
mkDecls DeclsLet = mkLet False
mkDecls DeclsCase = mkLet True
mkDecls DeclsDo = \decls -> Do (map toBind decls)
where toBind (Decl lhs rhs _ _) = BindLet lhs rhs
toBind d = d
mkLet :: Bool -> Decls -> Expr -> Expr
mkLet False decls body = Let decls body
mkLet True decls body = foldr oneCase body decls
oneCase :: Decl -> Expr -> Expr
oneCase (Decl left rhs _ _) exp = Case rhs [CaseAlt left exp]
oneCase (Resume _ nt left rhs) exp = ResumeExpr nt rhs left exp
oneCase _ exp = exp
-- Gives the name of the visit function
funname field 0 = show field ++ "_"
funname field nr = show field ++ "_" ++ show nr
-- Gives the name of a semantic function
seqSemname :: String -> NontermIdent -> ConstructorIdent -> Int -> String
seqSemname pre nt con 0 = semname pre nt con
seqSemname pre nt con nr = semname pre nt con ++ "_" ++ show nr
-- Gives the name of a type
typeName :: NontermIdent -> Int -> String
typeName nt 0 = "T_" ++ show nt
typeName nt n = "T_" ++ show nt ++ "_" ++ show n
ntOfVisit :: NontermIdent -> Int -> NontermIdent
ntOfVisit nt 0 = nt
ntOfVisit nt n = Ident (show nt ++ "_" ++ show n) (getPos nt)
-- Gives the name of a visit function
visitname :: String -> NontermIdent -> Int -> String
visitname pre nt n = pre ++ getName nt ++ "_" ++ show n
{-# LINE 251 "../src-derived/GenerateCode.hs" #-}
-- CGrammar ----------------------------------------------------
{-
visit 0:
inherited attribute:
options : Options
synthesized attributes:
errors : Seq Error
output : Program
alternatives:
alternative CGrammar:
child typeSyns : {TypeSyns}
child derivings : {Derivings}
child wrappers : {Set NontermIdent}
child nonts : CNonterminals
child pragmas : {PragmaMap}
child paramMap : {ParamMap}
child contextMap : {ContextMap}
child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Set Identifier))}
child mergeMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))}
child multivisit : {Bool}
visit 0:
local options : _
local aroundMap : _
local mergeMap : _
local unfoldSemDom : _
-}
-- cata
sem_CGrammar :: CGrammar ->
T_CGrammar
sem_CGrammar (CGrammar _typeSyns _derivings _wrappers _nonts _pragmas _paramMap _contextMap _aroundsMap _mergeMap _multivisit ) =
(sem_CGrammar_CGrammar _typeSyns _derivings _wrappers (sem_CNonterminals _nonts ) _pragmas _paramMap _contextMap _aroundsMap _mergeMap _multivisit )
-- semantic domain
newtype T_CGrammar = T_CGrammar (Options ->
( (Seq Error),Program))
data Inh_CGrammar = Inh_CGrammar {options_Inh_CGrammar :: !(Options)}
data Syn_CGrammar = Syn_CGrammar {errors_Syn_CGrammar :: !((Seq Error)),output_Syn_CGrammar :: !(Program)}
wrap_CGrammar :: T_CGrammar ->
Inh_CGrammar ->
Syn_CGrammar
wrap_CGrammar (T_CGrammar sem ) (Inh_CGrammar _lhsIoptions ) =
(let ( _lhsOerrors,_lhsOoutput) = sem _lhsIoptions
in (Syn_CGrammar _lhsOerrors _lhsOoutput ))
sem_CGrammar_CGrammar :: TypeSyns ->
Derivings ->
(Set NontermIdent) ->
T_CNonterminals ->
PragmaMap ->
ParamMap ->
ContextMap ->
(Map NontermIdent (Map ConstructorIdent (Set Identifier))) ->
(Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) ->
Bool ->
T_CGrammar
sem_CGrammar_CGrammar typeSyns_ derivings_ wrappers_ (T_CNonterminals nonts_ ) pragmas_ paramMap_ contextMap_ aroundsMap_ mergeMap_ multivisit_ =
(T_CGrammar (\ _lhsIoptions ->
(let _nontsOo_sig :: Bool
_nontsOo_cata :: Bool
_nontsOo_sem :: Bool
_nontsOo_newtypes :: Bool
_nontsOo_unbox :: Bool
_nontsOo_case :: Bool
_nontsOo_pretty :: Bool
_nontsOo_rename :: Bool
_nontsOo_strictwrap :: Bool
_nontsOo_splitsems :: Bool
_nontsOo_data :: (Maybe Bool)
_nontsOprefix :: String
_nontsOo_traces :: Bool
_nontsOo_costcentre :: Bool
_nontsOo_linePragmas :: Bool
_nontsOo_monadic :: Bool
_nontsOallPragmas :: PragmaMap
_nontsOparamMap :: ParamMap
_nontsOcontextMap :: ContextMap
_nontsOallNts :: (Set NontermIdent)
_nontsOwith_sig :: Bool
_lhsOerrors :: (Seq Error)
_lhsOoutput :: Program
_nontsOtypeSyns :: TypeSyns
_nontsOderivings :: Derivings
_nontsOwrappers :: (Set NontermIdent)
_nontsOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier)))
_nontsOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))
_nontsOoptions :: Options
_nontsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)
_nontsIchunks :: Chunks
_nontsIgathNts :: (Set NontermIdent)
_nontsIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_sig =
({-# LINE 53 "GenerateCode.ag" #-}
typeSigs _lhsIoptions
{-# LINE 344 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_cata =
({-# LINE 54 "GenerateCode.ag" #-}
folds _lhsIoptions
{-# LINE 350 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_sem =
({-# LINE 55 "GenerateCode.ag" #-}
semfuns _lhsIoptions
{-# LINE 356 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_newtypes =
({-# LINE 56 "GenerateCode.ag" #-}
newtypes _lhsIoptions
{-# LINE 362 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_unbox =
({-# LINE 57 "GenerateCode.ag" #-}
unbox _lhsIoptions
{-# LINE 368 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_case =
({-# LINE 58 "GenerateCode.ag" #-}
cases _lhsIoptions
{-# LINE 374 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_pretty =
({-# LINE 59 "GenerateCode.ag" #-}
attrInfo _lhsIoptions
{-# LINE 380 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_rename =
({-# LINE 60 "GenerateCode.ag" #-}
rename _lhsIoptions
{-# LINE 386 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_strictwrap =
({-# LINE 61 "GenerateCode.ag" #-}
strictWrap _lhsIoptions
{-# LINE 392 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_splitsems =
({-# LINE 62 "GenerateCode.ag" #-}
splitSems _lhsIoptions
{-# LINE 398 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_data =
({-# LINE 63 "GenerateCode.ag" #-}
if dataTypes _lhsIoptions then Just (strictData _lhsIoptions) else Nothing
{-# LINE 404 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOprefix =
({-# LINE 64 "GenerateCode.ag" #-}
prefix _lhsIoptions
{-# LINE 410 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_traces =
({-# LINE 65 "GenerateCode.ag" #-}
genTraces _lhsIoptions
{-# LINE 416 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_costcentre =
({-# LINE 66 "GenerateCode.ag" #-}
genCostCentres _lhsIoptions
{-# LINE 422 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_linePragmas =
({-# LINE 67 "GenerateCode.ag" #-}
genLinePragmas _lhsIoptions
{-# LINE 428 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 53, column 17)
_nontsOo_monadic =
({-# LINE 68 "GenerateCode.ag" #-}
monadic _lhsIoptions
{-# LINE 434 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 71, column 3)
_options =
({-# LINE 71 "GenerateCode.ag" #-}
_lhsIoptions { breadthFirst = breadthFirst _lhsIoptions && visit _lhsIoptions && cases _lhsIoptions && multivisit_ }
{-# LINE 440 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 76, column 15)
_nontsOallPragmas =
({-# LINE 76 "GenerateCode.ag" #-}
pragmas_
{-# LINE 446 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 98, column 14)
_nontsOparamMap =
({-# LINE 98 "GenerateCode.ag" #-}
paramMap_
{-# LINE 452 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 119, column 7)
_nontsOcontextMap =
({-# LINE 119 "GenerateCode.ag" #-}
contextMap_
{-# LINE 458 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 131, column 7)
_nontsOallNts =
({-# LINE 131 "GenerateCode.ag" #-}
_nontsIgathNts
{-# LINE 464 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 574, column 34)
_aroundMap =
({-# LINE 574 "GenerateCode.ag" #-}
aroundsMap_
{-# LINE 470 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 590, column 34)
_mergeMap =
({-# LINE 590 "GenerateCode.ag" #-}
mergeMap_
{-# LINE 476 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 746, column 7)
_unfoldSemDom =
({-# LINE 746 "GenerateCode.ag" #-}
\nt nr repl ->
let (params, tp) = Map.findWithDefault (error ("No such semantic domain: " ++ show nt)) (nt, nr) _nontsIsemDomUnfoldGath
replMap = Map.fromList (zip params repl)
replace k = Map.findWithDefault ('@':k) k replMap
in evalType replace tp
{-# LINE 486 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 847, column 14)
_nontsOwith_sig =
({-# LINE 847 "GenerateCode.ag" #-}
typeSigs _lhsIoptions
{-# LINE 492 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 850, column 15)
_lhsOerrors =
({-# LINE 850 "GenerateCode.ag" #-}
Seq.empty
{-# LINE 498 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 915, column 17)
_lhsOoutput =
({-# LINE 915 "GenerateCode.ag" #-}
Program _nontsIchunks multivisit_
{-# LINE 504 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 980, column 14)
_nontsOtypeSyns =
({-# LINE 980 "GenerateCode.ag" #-}
typeSyns_
{-# LINE 510 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 980, column 14)
_nontsOderivings =
({-# LINE 981 "GenerateCode.ag" #-}
derivings_
{-# LINE 516 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 980, column 14)
_nontsOwrappers =
({-# LINE 982 "GenerateCode.ag" #-}
wrappers_
{-# LINE 522 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_nontsOaroundMap =
({-# LINE 567 "GenerateCode.ag" #-}
_aroundMap
{-# LINE 528 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_nontsOmergeMap =
({-# LINE 583 "GenerateCode.ag" #-}
_mergeMap
{-# LINE 534 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_nontsOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_options
{-# LINE 540 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_nontsOunfoldSemDom =
({-# LINE 742 "GenerateCode.ag" #-}
_unfoldSemDom
{-# LINE 546 "GenerateCode.hs" #-}
)
( _nontsIchunks,_nontsIgathNts,_nontsIsemDomUnfoldGath) =
nonts_ _nontsOallNts _nontsOallPragmas _nontsOaroundMap _nontsOcontextMap _nontsOderivings _nontsOmergeMap _nontsOo_case _nontsOo_cata _nontsOo_costcentre _nontsOo_data _nontsOo_linePragmas _nontsOo_monadic _nontsOo_newtypes _nontsOo_pretty _nontsOo_rename _nontsOo_sem _nontsOo_sig _nontsOo_splitsems _nontsOo_strictwrap _nontsOo_traces _nontsOo_unbox _nontsOoptions _nontsOparamMap _nontsOprefix _nontsOtypeSyns _nontsOunfoldSemDom _nontsOwith_sig _nontsOwrappers
in ( _lhsOerrors,_lhsOoutput))) )
-- CInterface --------------------------------------------------
{-
visit 0:
inherited attributes:
inh : Attributes
nt : NontermIdent
o_case : Bool
o_cata : Bool
o_costcentre : Bool
o_data : Maybe Bool
o_linePragmas : Bool
o_monadic : Bool
o_newtypes : Bool
o_pretty : Bool
o_rename : Bool
o_sem : Bool
o_sig : Bool
o_splitsems : Bool
o_strictwrap : Bool
o_traces : Bool
o_unbox : Bool
options : Options
paramMap : ParamMap
prefix : String
syn : Attributes
synthesized attributes:
comments : [String]
semDom : [Decl]
semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)
wrapDecls : Decls
alternatives:
alternative CInterface:
child seg : CSegments
-}
-- cata
sem_CInterface :: CInterface ->
T_CInterface
sem_CInterface (CInterface _seg ) =
(sem_CInterface_CInterface (sem_CSegments _seg ) )
-- semantic domain
newtype T_CInterface = T_CInterface (Attributes ->
NontermIdent ->
Bool ->
Bool ->
Bool ->
(Maybe Bool) ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Options ->
ParamMap ->
String ->
Attributes ->
( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))
data Inh_CInterface = Inh_CInterface {inh_Inh_CInterface :: !(Attributes),nt_Inh_CInterface :: !(NontermIdent),o_case_Inh_CInterface :: !(Bool),o_cata_Inh_CInterface :: !(Bool),o_costcentre_Inh_CInterface :: !(Bool),o_data_Inh_CInterface :: !((Maybe Bool)),o_linePragmas_Inh_CInterface :: !(Bool),o_monadic_Inh_CInterface :: !(Bool),o_newtypes_Inh_CInterface :: !(Bool),o_pretty_Inh_CInterface :: !(Bool),o_rename_Inh_CInterface :: !(Bool),o_sem_Inh_CInterface :: !(Bool),o_sig_Inh_CInterface :: !(Bool),o_splitsems_Inh_CInterface :: !(Bool),o_strictwrap_Inh_CInterface :: !(Bool),o_traces_Inh_CInterface :: !(Bool),o_unbox_Inh_CInterface :: !(Bool),options_Inh_CInterface :: !(Options),paramMap_Inh_CInterface :: !(ParamMap),prefix_Inh_CInterface :: !(String),syn_Inh_CInterface :: !(Attributes)}
data Syn_CInterface = Syn_CInterface {comments_Syn_CInterface :: !(([String])),semDom_Syn_CInterface :: !(([Decl])),semDomUnfoldGath_Syn_CInterface :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CInterface :: !(Decls)}
wrap_CInterface :: T_CInterface ->
Inh_CInterface ->
Syn_CInterface
wrap_CInterface (T_CInterface sem ) (Inh_CInterface _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) =
(let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn
in (Syn_CInterface _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls ))
sem_CInterface_CInterface :: T_CSegments ->
T_CInterface
sem_CInterface_CInterface (T_CSegments seg_ ) =
(T_CInterface (\ _lhsIinh
_lhsInt
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamMap
_lhsIprefix
_lhsIsyn ->
(let _segOnr :: Int
_lhsOsemDom :: ([Decl])
_lhsOcomments :: ([String])
_lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))
_lhsOwrapDecls :: Decls
_segOinh :: Attributes
_segOnt :: NontermIdent
_segOo_case :: Bool
_segOo_cata :: Bool
_segOo_costcentre :: Bool
_segOo_data :: (Maybe Bool)
_segOo_linePragmas :: Bool
_segOo_monadic :: Bool
_segOo_newtypes :: Bool
_segOo_pretty :: Bool
_segOo_rename :: Bool
_segOo_sem :: Bool
_segOo_sig :: Bool
_segOo_splitsems :: Bool
_segOo_strictwrap :: Bool
_segOo_traces :: Bool
_segOo_unbox :: Bool
_segOoptions :: Options
_segOparamMap :: ParamMap
_segOprefix :: String
_segOsyn :: Attributes
_segIcomments :: ([String])
_segIisNil :: Bool
_segIsemDom :: ([Decl])
_segIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))
_segIwrapDecls :: Decls
-- "GenerateCode.ag"(line 277, column 17)
_segOnr =
({-# LINE 277 "GenerateCode.ag" #-}
0
{-# LINE 680 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 704, column 18)
_lhsOsemDom =
({-# LINE 704 "GenerateCode.ag" #-}
Comment "semantic domain" : _segIsemDom
{-# LINE 686 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 861, column 52)
_lhsOcomments =
({-# LINE 861 "GenerateCode.ag" #-}
_segIcomments
{-# LINE 692 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 736, column 86)
_lhsOsemDomUnfoldGath =
({-# LINE 736 "GenerateCode.ag" #-}
_segIsemDomUnfoldGath
{-# LINE 698 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 822, column 52)
_lhsOwrapDecls =
({-# LINE 822 "GenerateCode.ag" #-}
_segIwrapDecls
{-# LINE 704 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOinh =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIinh
{-# LINE 710 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOnt =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsInt
{-# LINE 716 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_case
{-# LINE 722 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 728 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 734 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 740 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 746 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 752 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 758 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 764 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 770 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 776 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 782 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_splitsems
{-# LINE 788 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 794 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 800 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 806 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 812 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 818 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 824 "GenerateCode.hs" #-}
)
-- copy rule (down)
_segOsyn =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIsyn
{-# LINE 830 "GenerateCode.hs" #-}
)
( _segIcomments,_segIisNil,_segIsemDom,_segIsemDomUnfoldGath,_segIwrapDecls) =
seg_ _segOinh _segOnr _segOnt _segOo_case _segOo_cata _segOo_costcentre _segOo_data _segOo_linePragmas _segOo_monadic _segOo_newtypes _segOo_pretty _segOo_rename _segOo_sem _segOo_sig _segOo_splitsems _segOo_strictwrap _segOo_traces _segOo_unbox _segOoptions _segOparamMap _segOprefix _segOsyn
in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) )
-- CNonterminal ------------------------------------------------
{-
visit 0:
inherited attributes:
allNts : Set NontermIdent
allPragmas : PragmaMap
aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier))
contextMap : ContextMap
derivings : Derivings
mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))
o_case : Bool
o_cata : Bool
o_costcentre : Bool
o_data : Maybe Bool
o_linePragmas : Bool
o_monadic : Bool
o_newtypes : Bool
o_pretty : Bool
o_rename : Bool
o_sem : Bool
o_sig : Bool
o_splitsems : Bool
o_strictwrap : Bool
o_traces : Bool
o_unbox : Bool
options : Options
paramMap : ParamMap
prefix : String
typeSyns : TypeSyns
unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type
with_sig : Bool
wrappers : Set NontermIdent
synthesized attributes:
chunks : Chunks
gathNts : Set NontermIdent
semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)
alternatives:
alternative CNonterminal:
child nt : {NontermIdent}
child params : {[Identifier]}
child inh : {Attributes}
child syn : {Attributes}
child prods : CProductions
child inter : CInterface
visit 0:
local _tup1 : {(Attributes,Attributes,NontermIdent)}
local _tup2 : {(Attributes,Attributes,NontermIdent)}
local aroundMap : _
local mergeMap : _
local semWrapper : _
local comment : _
local dataDef : _
local cataFun : _
-}
-- cata
sem_CNonterminal :: CNonterminal ->
T_CNonterminal
sem_CNonterminal (CNonterminal _nt _params _inh _syn _prods _inter ) =
(sem_CNonterminal_CNonterminal _nt _params _inh _syn (sem_CProductions _prods ) (sem_CInterface _inter ) )
-- semantic domain
newtype T_CNonterminal = T_CNonterminal ((Set NontermIdent) ->
PragmaMap ->
(Map NontermIdent (Map ConstructorIdent (Set Identifier))) ->
ContextMap ->
Derivings ->
(Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) ->
Bool ->
Bool ->
Bool ->
(Maybe Bool) ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Options ->
ParamMap ->
String ->
TypeSyns ->
(NontermIdent -> Int -> [String] -> Code.Type) ->
Bool ->
(Set NontermIdent) ->
( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type))))
data Inh_CNonterminal = Inh_CNonterminal {allNts_Inh_CNonterminal :: !((Set NontermIdent)),allPragmas_Inh_CNonterminal :: !(PragmaMap),aroundMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminal :: !(ContextMap),derivings_Inh_CNonterminal :: !(Derivings),mergeMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))),o_case_Inh_CNonterminal :: !(Bool),o_cata_Inh_CNonterminal :: !(Bool),o_costcentre_Inh_CNonterminal :: !(Bool),o_data_Inh_CNonterminal :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminal :: !(Bool),o_monadic_Inh_CNonterminal :: !(Bool),o_newtypes_Inh_CNonterminal :: !(Bool),o_pretty_Inh_CNonterminal :: !(Bool),o_rename_Inh_CNonterminal :: !(Bool),o_sem_Inh_CNonterminal :: !(Bool),o_sig_Inh_CNonterminal :: !(Bool),o_splitsems_Inh_CNonterminal :: !(Bool),o_strictwrap_Inh_CNonterminal :: !(Bool),o_traces_Inh_CNonterminal :: !(Bool),o_unbox_Inh_CNonterminal :: !(Bool),options_Inh_CNonterminal :: !(Options),paramMap_Inh_CNonterminal :: !(ParamMap),prefix_Inh_CNonterminal :: !(String),typeSyns_Inh_CNonterminal :: !(TypeSyns),unfoldSemDom_Inh_CNonterminal :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminal :: !(Bool),wrappers_Inh_CNonterminal :: !((Set NontermIdent))}
data Syn_CNonterminal = Syn_CNonterminal {chunks_Syn_CNonterminal :: !(Chunks),gathNts_Syn_CNonterminal :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminal :: !((Map (NontermIdent, Int) ([String], Code.Type)))}
wrap_CNonterminal :: T_CNonterminal ->
Inh_CNonterminal ->
Syn_CNonterminal
wrap_CNonterminal (T_CNonterminal sem ) (Inh_CNonterminal _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) =
(let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers
in (Syn_CNonterminal _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath ))
sem_CNonterminal_CNonterminal :: NontermIdent ->
([Identifier]) ->
Attributes ->
Attributes ->
T_CProductions ->
T_CInterface ->
T_CNonterminal
sem_CNonterminal_CNonterminal nt_ params_ inh_ syn_ (T_CProductions prods_ ) (T_CInterface inter_ ) =
(T_CNonterminal (\ _lhsIallNts
_lhsIallPragmas
_lhsIaroundMap
_lhsIcontextMap
_lhsIderivings
_lhsImergeMap
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamMap
_lhsIprefix
_lhsItypeSyns
_lhsIunfoldSemDom
_lhsIwith_sig
_lhsIwrappers ->
(let __tup1 :: ((Attributes,Attributes,NontermIdent))
_interOinh :: Attributes
_interOsyn :: Attributes
_interOnt :: NontermIdent
__tup2 :: ((Attributes,Attributes,NontermIdent))
_prodsOinh :: Attributes
_prodsOsyn :: Attributes
_prodsOnt :: NontermIdent
_lhsOgathNts :: (Set NontermIdent)
_lhsOchunks :: Chunks
_lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))
_prodsOallNts :: (Set NontermIdent)
_prodsOallPragmas :: PragmaMap
_prodsOaroundMap :: (Map ConstructorIdent (Set Identifier))
_prodsOcontextMap :: ContextMap
_prodsOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))
_prodsOo_case :: Bool
_prodsOo_cata :: Bool
_prodsOo_costcentre :: Bool
_prodsOo_data :: (Maybe Bool)
_prodsOo_linePragmas :: Bool
_prodsOo_monadic :: Bool
_prodsOo_newtypes :: Bool
_prodsOo_pretty :: Bool
_prodsOo_rename :: Bool
_prodsOo_sem :: Bool
_prodsOo_sig :: Bool
_prodsOo_splitsems :: Bool
_prodsOo_strictwrap :: Bool
_prodsOo_traces :: Bool
_prodsOo_unbox :: Bool
_prodsOoptions :: Options
_prodsOparamMap :: ParamMap
_prodsOprefix :: String
_prodsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)
_prodsOwith_sig :: Bool
_interOo_case :: Bool
_interOo_cata :: Bool
_interOo_costcentre :: Bool
_interOo_data :: (Maybe Bool)
_interOo_linePragmas :: Bool
_interOo_monadic :: Bool
_interOo_newtypes :: Bool
_interOo_pretty :: Bool
_interOo_rename :: Bool
_interOo_sem :: Bool
_interOo_sig :: Bool
_interOo_splitsems :: Bool
_interOo_strictwrap :: Bool
_interOo_traces :: Bool
_interOo_unbox :: Bool
_interOoptions :: Options
_interOparamMap :: ParamMap
_interOprefix :: String
_prodsIcataAlts :: Decls
_prodsIcomments :: ([String])
_prodsIdataAlts :: DataAlts
_prodsIdecls :: Decls
_prodsIsemNames :: ([String])
_interIcomments :: ([String])
_interIsemDom :: ([Decl])
_interIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))
_interIwrapDecls :: Decls
-- "GenerateCode.ag"(line 86, column 26)
__tup1 =
({-# LINE 86 "GenerateCode.ag" #-}
(inh_,syn_,nt_)
{-# LINE 1035 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 86, column 26)
(_interOinh,_,_) =
({-# LINE 86 "GenerateCode.ag" #-}
__tup1
{-# LINE 1041 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 86, column 26)
(_,_interOsyn,_) =
({-# LINE 86 "GenerateCode.ag" #-}
__tup1
{-# LINE 1047 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 86, column 26)
(_,_,_interOnt) =
({-# LINE 86 "GenerateCode.ag" #-}
__tup1
{-# LINE 1053 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 87, column 25)
__tup2 =
({-# LINE 87 "GenerateCode.ag" #-}
(inh_,syn_,nt_)
{-# LINE 1059 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 87, column 25)
(_prodsOinh,_,_) =
({-# LINE 87 "GenerateCode.ag" #-}
__tup2
{-# LINE 1065 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 87, column 25)
(_,_prodsOsyn,_) =
({-# LINE 87 "GenerateCode.ag" #-}
__tup2
{-# LINE 1071 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 87, column 25)
(_,_,_prodsOnt) =
({-# LINE 87 "GenerateCode.ag" #-}
__tup2
{-# LINE 1077 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 137, column 7)
_lhsOgathNts =
({-# LINE 137 "GenerateCode.ag" #-}
Set.singleton nt_
{-# LINE 1083 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 575, column 34)
_aroundMap =
({-# LINE 575 "GenerateCode.ag" #-}
Map.findWithDefault Map.empty nt_ _lhsIaroundMap
{-# LINE 1089 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 591, column 34)
_mergeMap =
({-# LINE 591 "GenerateCode.ag" #-}
Map.findWithDefault Map.empty nt_ _lhsImergeMap
{-# LINE 1095 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 796, column 18)
_semWrapper =
({-# LINE 796 "GenerateCode.ag" #-}
let params' = map getName params_
inhAttrs = Map.toList inh_
synAttrs = Map.toList syn_
inhVars = [ SimpleExpr (attrname True _LHS a) | (a,_) <- inhAttrs ]
synVars = [ SimpleExpr (attrname False _LHS a) | (a,_) <- synAttrs ]
var = "sem"
wrapNT = "wrap" ++ "_" ++ getName nt_
inhNT = "Inh" ++ "_" ++ getName nt_
synNT = "Syn" ++ "_" ++ getName nt_
varPat = if _lhsIo_newtypes
then App (sdtype nt_) [SimpleExpr var]
else SimpleExpr var
evalTp | null params' = id
| otherwise = idEvalType
appParams nm = TypeApp (SimpleType nm) (map SimpleType params')
typeSig = TSig wrapNT (evalTp $ appParams (sdtype nt_) `Arr` (appParams inhNT `Arr` appParams synNT))
mkstrict = Named _lhsIo_strictwrap
mkdata n attrs = Data n params' [Record n [mkstrict (getName f++"_"++n) $ evalTp $ typeToCodeType (Just nt_) params' t | (f,t) <- attrs]] False []
datas = [mkdata inhNT inhAttrs, mkdata synNT synAttrs]
in datas ++ [ typeSig
, Decl (Fun wrapNT [varPat, App inhNT inhVars])
(Let _interIwrapDecls (App synNT synVars))
Set.empty Set.empty
]
{-# LINE 1124 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 857, column 18)
_comment =
({-# LINE 857 "GenerateCode.ag" #-}
Comment . unlines . map ind $ ( _interIcomments ++ ("alternatives:" : map ind _prodsIcomments) )
{-# LINE 1130 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 918, column 19)
_lhsOchunks =
({-# LINE 918 "GenerateCode.ag" #-}
[ Chunk (getName nt_)
(Comment (getName nt_ ++ " " ++ replicate (60 - length (getName nt_)) '-'))
(if _lhsIo_pretty then [_comment ] else [])
(if isJust _lhsIo_data then [_dataDef ] else [])
(if _lhsIo_cata then _cataFun else [])
(if _lhsIo_sig then _interIsemDom else [])
(if nt_ `Set.member` _lhsIwrappers then _semWrapper else [])
(if _lhsIo_sem then _prodsIdecls else [])
(if _lhsIo_sem then _prodsIsemNames else [])
]
{-# LINE 1145 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 985, column 18)
_dataDef =
({-# LINE 985 "GenerateCode.ag" #-}
let params' = map getName params_
typeSyn tp = let theType =
case tp of
CommonTypes.Maybe t -> TMaybe $ typeToCodeType (Just nt_) params' t
CommonTypes.Either t1 t2 -> TEither (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2)
CommonTypes.Map t1 t2 -> TMap (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2)
CommonTypes.IntMap t -> TIntMap $ typeToCodeType (Just nt_) params' t
CommonTypes.List t -> Code.List $ typeToCodeType (Just nt_) params' t
CommonTypes.Tuple ts -> Code.TupleType [typeToCodeType (Just nt_) params' t
| (_,t) <- ts
]
in Code.Type (getName nt_) params' (idEvalType theType)
derivings = maybe [] (map getName . Set.toList) (Map.lookup nt_ _lhsIderivings)
dataDef = Data (getName nt_) (map getName params_) _prodsIdataAlts (maybe False id _lhsIo_data) derivings
in maybe dataDef typeSyn $ lookup nt_ _lhsItypeSyns
{-# LINE 1165 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 1017, column 18)
_cataFun =
({-# LINE 1017 "GenerateCode.ag" #-}
let appParams nm = TypeApp (SimpleType nm) (map SimpleType (map getName params_))
evalTp | null params_ = id
| otherwise = idEvalType
tSig = TSig (cataname _lhsIprefix nt_)
(appContext _lhsIcontextMap nt_ $ evalTp $ appParams (getName nt_) `Arr` appParams (sdtype nt_))
special typ = case typ of
CommonTypes.List tp ->
let cons = SimpleExpr (semname _lhsIprefix nt_ (identifier "Cons"))
nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil" ))
arg = SimpleExpr "list"
rarg = case tp of
NT t _ -> let t' = maybe t id (deforestedNt t)
in SimpleExpr ("(Prelude.map " ++ (cataname _lhsIprefix t') ++ " list)")
_ -> arg
lhs = Fun (cataname _lhsIprefix nt_) [arg]
rhs = (App "Prelude.foldr" [cons,nil,rarg])
in [Decl lhs rhs Set.empty Set.empty]
CommonTypes.Maybe tp ->
let just = semname _lhsIprefix nt_ (identifier "Just")
nothing = semname _lhsIprefix nt_ (identifier "Nothing" )
arg = SimpleExpr "x"
rarg = case tp of
NT t _ -> let t' = maybe t id (deforestedNt t)
in App (cataname _lhsIprefix t') [arg]
_ -> arg
lhs a = Fun (cataname _lhsIprefix nt_) [a]
in [Decl (lhs (App "Prelude.Just" [arg])) (App just [rarg]) Set.empty Set.empty
,Decl (lhs (SimpleExpr "Prelude.Nothing")) (SimpleExpr nothing) Set.empty Set.empty
]
CommonTypes.Either tp1 tp2 ->
let left = semname _lhsIprefix nt_ (identifier "Left")
right = semname _lhsIprefix nt_ (identifier "Right" )
arg = SimpleExpr "x"
rarg0 = case tp1 of
NT t _ -> let t' = maybe t id (deforestedNt t)
in App (cataname _lhsIprefix t') [arg]
_ -> arg
rarg1 = case tp2 of
NT t _ -> let t' = maybe t id (deforestedNt t)
in App (cataname _lhsIprefix t') [arg]
_ -> arg
lhs a = Fun (cataname _lhsIprefix nt_) [a]
in [Decl (lhs (App "Prelude.Left" [arg])) (App left [rarg0]) Set.empty Set.empty
,Decl (lhs (App "Prelude.Right" [arg])) (App right [rarg1]) Set.empty Set.empty
]
CommonTypes.Map _ tp ->
let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry"))
nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil"))
arg = SimpleExpr "m"
rarg = case tp of
NT t _ -> let t' = maybe t id (deforestedNt t)
in App "Map.map" [SimpleExpr $ cataname _lhsIprefix t', arg]
_ -> arg
lhs = Fun (cataname _lhsIprefix nt_) [arg]
rhs = App "Map.foldWithKey" [entry,nil,rarg]
in [Decl lhs rhs Set.empty Set.empty]
CommonTypes.IntMap tp ->
let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry"))
nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil"))
arg = SimpleExpr "m"
rarg = case tp of
NT t _ -> let t' = maybe t id (deforestedNt t)
in App "IntMap.map" [SimpleExpr $ cataname _lhsIprefix t', arg]
_ -> arg
lhs = Fun (cataname _lhsIprefix nt_) [arg]
rhs = App "IntMap.foldWithKey" [entry,nil,rarg]
in [Decl lhs rhs Set.empty Set.empty]
CommonTypes.Tuple tps ->
let con = semname _lhsIprefix nt_ (identifier "Tuple")
tps' = [ (SimpleExpr (getName x),y) | (x,y) <- tps]
rargs = map rarg tps'
rarg (n, tp) = case tp of
NT t _ -> let t' = maybe t id (deforestedNt t)
in App (cataname _lhsIprefix t') [n]
_ -> n
lhs = Fun (cataname _lhsIprefix nt_) [TupleExpr (map fst tps')]
rhs = App con rargs
in [Decl lhs rhs Set.empty Set.empty]
in Comment "cata" :
(if _lhsIo_sig then [tSig] else []) ++
maybe _prodsIcataAlts special (lookup nt_ _lhsItypeSyns)
{-# LINE 1251 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 736, column 86)
_lhsOsemDomUnfoldGath =
({-# LINE 736 "GenerateCode.ag" #-}
_interIsemDomUnfoldGath
{-# LINE 1257 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOallNts =
({-# LINE 127 "GenerateCode.ag" #-}
_lhsIallNts
{-# LINE 1263 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOallPragmas =
({-# LINE 73 "GenerateCode.ag" #-}
_lhsIallPragmas
{-# LINE 1269 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_prodsOaroundMap =
({-# LINE 570 "GenerateCode.ag" #-}
_aroundMap
{-# LINE 1275 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOcontextMap =
({-# LINE 115 "GenerateCode.ag" #-}
_lhsIcontextMap
{-# LINE 1281 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_prodsOmergeMap =
({-# LINE 586 "GenerateCode.ag" #-}
_mergeMap
{-# LINE 1287 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_case
{-# LINE 1293 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 1299 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 1305 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 1311 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 1317 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 1323 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 1329 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 1335 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 1341 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 1347 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 1353 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_splitsems
{-# LINE 1359 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 1365 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 1371 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 1377 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 1383 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 1389 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 1395 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOunfoldSemDom =
({-# LINE 742 "GenerateCode.ag" #-}
_lhsIunfoldSemDom
{-# LINE 1401 "GenerateCode.hs" #-}
)
-- copy rule (down)
_prodsOwith_sig =
({-# LINE 844 "GenerateCode.ag" #-}
_lhsIwith_sig
{-# LINE 1407 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_case
{-# LINE 1413 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 1419 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 1425 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 1431 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 1437 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 1443 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 1449 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 1455 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 1461 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 1467 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 1473 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_splitsems
{-# LINE 1479 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 1485 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 1491 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 1497 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 1503 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 1509 "GenerateCode.hs" #-}
)
-- copy rule (down)
_interOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 1515 "GenerateCode.hs" #-}
)
( _prodsIcataAlts,_prodsIcomments,_prodsIdataAlts,_prodsIdecls,_prodsIsemNames) =
prods_ _prodsOallNts _prodsOallPragmas _prodsOaroundMap _prodsOcontextMap _prodsOinh _prodsOmergeMap _prodsOnt _prodsOo_case _prodsOo_cata _prodsOo_costcentre _prodsOo_data _prodsOo_linePragmas _prodsOo_monadic _prodsOo_newtypes _prodsOo_pretty _prodsOo_rename _prodsOo_sem _prodsOo_sig _prodsOo_splitsems _prodsOo_strictwrap _prodsOo_traces _prodsOo_unbox _prodsOoptions _prodsOparamMap _prodsOprefix _prodsOsyn _prodsOunfoldSemDom _prodsOwith_sig
( _interIcomments,_interIsemDom,_interIsemDomUnfoldGath,_interIwrapDecls) =
inter_ _interOinh _interOnt _interOo_case _interOo_cata _interOo_costcentre _interOo_data _interOo_linePragmas _interOo_monadic _interOo_newtypes _interOo_pretty _interOo_rename _interOo_sem _interOo_sig _interOo_splitsems _interOo_strictwrap _interOo_traces _interOo_unbox _interOoptions _interOparamMap _interOprefix _interOsyn
in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) )
-- CNonterminals -----------------------------------------------
{-
visit 0:
inherited attributes:
allNts : Set NontermIdent
allPragmas : PragmaMap
aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier))
contextMap : ContextMap
derivings : Derivings
mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))
o_case : Bool
o_cata : Bool
o_costcentre : Bool
o_data : Maybe Bool
o_linePragmas : Bool
o_monadic : Bool
o_newtypes : Bool
o_pretty : Bool
o_rename : Bool
o_sem : Bool
o_sig : Bool
o_splitsems : Bool
o_strictwrap : Bool
o_traces : Bool
o_unbox : Bool
options : Options
paramMap : ParamMap
prefix : String
typeSyns : TypeSyns
unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type
with_sig : Bool
wrappers : Set NontermIdent
synthesized attributes:
chunks : Chunks
gathNts : Set NontermIdent
semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)
alternatives:
alternative Cons:
child hd : CNonterminal
child tl : CNonterminals
alternative Nil:
-}
-- cata
sem_CNonterminals :: CNonterminals ->
T_CNonterminals
sem_CNonterminals list =
(Prelude.foldr sem_CNonterminals_Cons sem_CNonterminals_Nil (Prelude.map sem_CNonterminal list) )
-- semantic domain
newtype T_CNonterminals = T_CNonterminals ((Set NontermIdent) ->
PragmaMap ->
(Map NontermIdent (Map ConstructorIdent (Set Identifier))) ->
ContextMap ->
Derivings ->
(Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) ->
Bool ->
Bool ->
Bool ->
(Maybe Bool) ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Options ->
ParamMap ->
String ->
TypeSyns ->
(NontermIdent -> Int -> [String] -> Code.Type) ->
Bool ->
(Set NontermIdent) ->
( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type))))
data Inh_CNonterminals = Inh_CNonterminals {allNts_Inh_CNonterminals :: !((Set NontermIdent)),allPragmas_Inh_CNonterminals :: !(PragmaMap),aroundMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminals :: !(ContextMap),derivings_Inh_CNonterminals :: !(Derivings),mergeMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))),o_case_Inh_CNonterminals :: !(Bool),o_cata_Inh_CNonterminals :: !(Bool),o_costcentre_Inh_CNonterminals :: !(Bool),o_data_Inh_CNonterminals :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminals :: !(Bool),o_monadic_Inh_CNonterminals :: !(Bool),o_newtypes_Inh_CNonterminals :: !(Bool),o_pretty_Inh_CNonterminals :: !(Bool),o_rename_Inh_CNonterminals :: !(Bool),o_sem_Inh_CNonterminals :: !(Bool),o_sig_Inh_CNonterminals :: !(Bool),o_splitsems_Inh_CNonterminals :: !(Bool),o_strictwrap_Inh_CNonterminals :: !(Bool),o_traces_Inh_CNonterminals :: !(Bool),o_unbox_Inh_CNonterminals :: !(Bool),options_Inh_CNonterminals :: !(Options),paramMap_Inh_CNonterminals :: !(ParamMap),prefix_Inh_CNonterminals :: !(String),typeSyns_Inh_CNonterminals :: !(TypeSyns),unfoldSemDom_Inh_CNonterminals :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminals :: !(Bool),wrappers_Inh_CNonterminals :: !((Set NontermIdent))}
data Syn_CNonterminals = Syn_CNonterminals {chunks_Syn_CNonterminals :: !(Chunks),gathNts_Syn_CNonterminals :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminals :: !((Map (NontermIdent, Int) ([String], Code.Type)))}
wrap_CNonterminals :: T_CNonterminals ->
Inh_CNonterminals ->
Syn_CNonterminals
wrap_CNonterminals (T_CNonterminals sem ) (Inh_CNonterminals _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) =
(let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers
in (Syn_CNonterminals _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath ))
sem_CNonterminals_Cons :: T_CNonterminal ->
T_CNonterminals ->
T_CNonterminals
sem_CNonterminals_Cons (T_CNonterminal hd_ ) (T_CNonterminals tl_ ) =
(T_CNonterminals (\ _lhsIallNts
_lhsIallPragmas
_lhsIaroundMap
_lhsIcontextMap
_lhsIderivings
_lhsImergeMap
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamMap
_lhsIprefix
_lhsItypeSyns
_lhsIunfoldSemDom
_lhsIwith_sig
_lhsIwrappers ->
(let _lhsOchunks :: Chunks
_lhsOgathNts :: (Set NontermIdent)
_lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))
_hdOallNts :: (Set NontermIdent)
_hdOallPragmas :: PragmaMap
_hdOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier)))
_hdOcontextMap :: ContextMap
_hdOderivings :: Derivings
_hdOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))
_hdOo_case :: Bool
_hdOo_cata :: Bool
_hdOo_costcentre :: Bool
_hdOo_data :: (Maybe Bool)
_hdOo_linePragmas :: Bool
_hdOo_monadic :: Bool
_hdOo_newtypes :: Bool
_hdOo_pretty :: Bool
_hdOo_rename :: Bool
_hdOo_sem :: Bool
_hdOo_sig :: Bool
_hdOo_splitsems :: Bool
_hdOo_strictwrap :: Bool
_hdOo_traces :: Bool
_hdOo_unbox :: Bool
_hdOoptions :: Options
_hdOparamMap :: ParamMap
_hdOprefix :: String
_hdOtypeSyns :: TypeSyns
_hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)
_hdOwith_sig :: Bool
_hdOwrappers :: (Set NontermIdent)
_tlOallNts :: (Set NontermIdent)
_tlOallPragmas :: PragmaMap
_tlOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier)))
_tlOcontextMap :: ContextMap
_tlOderivings :: Derivings
_tlOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))
_tlOo_case :: Bool
_tlOo_cata :: Bool
_tlOo_costcentre :: Bool
_tlOo_data :: (Maybe Bool)
_tlOo_linePragmas :: Bool
_tlOo_monadic :: Bool
_tlOo_newtypes :: Bool
_tlOo_pretty :: Bool
_tlOo_rename :: Bool
_tlOo_sem :: Bool
_tlOo_sig :: Bool
_tlOo_splitsems :: Bool
_tlOo_strictwrap :: Bool
_tlOo_traces :: Bool
_tlOo_unbox :: Bool
_tlOoptions :: Options
_tlOparamMap :: ParamMap
_tlOprefix :: String
_tlOtypeSyns :: TypeSyns
_tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)
_tlOwith_sig :: Bool
_tlOwrappers :: (Set NontermIdent)
_hdIchunks :: Chunks
_hdIgathNts :: (Set NontermIdent)
_hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))
_tlIchunks :: Chunks
_tlIgathNts :: (Set NontermIdent)
_tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))
-- use rule "GenerateCode.ag"(line 910, column 49)
_lhsOchunks =
({-# LINE 910 "GenerateCode.ag" #-}
_hdIchunks ++ _tlIchunks
{-# LINE 1708 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 133, column 47)
_lhsOgathNts =
({-# LINE 133 "GenerateCode.ag" #-}
_hdIgathNts `Set.union` _tlIgathNts
{-# LINE 1714 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 736, column 86)
_lhsOsemDomUnfoldGath =
({-# LINE 736 "GenerateCode.ag" #-}
_hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath
{-# LINE 1720 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOallNts =
({-# LINE 127 "GenerateCode.ag" #-}
_lhsIallNts
{-# LINE 1726 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOallPragmas =
({-# LINE 73 "GenerateCode.ag" #-}
_lhsIallPragmas
{-# LINE 1732 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOaroundMap =
({-# LINE 567 "GenerateCode.ag" #-}
_lhsIaroundMap
{-# LINE 1738 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOcontextMap =
({-# LINE 115 "GenerateCode.ag" #-}
_lhsIcontextMap
{-# LINE 1744 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOderivings =
({-# LINE 978 "GenerateCode.ag" #-}
_lhsIderivings
{-# LINE 1750 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOmergeMap =
({-# LINE 583 "GenerateCode.ag" #-}
_lhsImergeMap
{-# LINE 1756 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_case
{-# LINE 1762 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 1768 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 1774 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 1780 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 1786 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 1792 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 1798 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 1804 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 1810 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 1816 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 1822 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_splitsems
{-# LINE 1828 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 1834 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 1840 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 1846 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 1852 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 1858 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 1864 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOtypeSyns =
({-# LINE 978 "GenerateCode.ag" #-}
_lhsItypeSyns
{-# LINE 1870 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOunfoldSemDom =
({-# LINE 742 "GenerateCode.ag" #-}
_lhsIunfoldSemDom
{-# LINE 1876 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOwith_sig =
({-# LINE 844 "GenerateCode.ag" #-}
_lhsIwith_sig
{-# LINE 1882 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOwrappers =
({-# LINE 978 "GenerateCode.ag" #-}
_lhsIwrappers
{-# LINE 1888 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOallNts =
({-# LINE 127 "GenerateCode.ag" #-}
_lhsIallNts
{-# LINE 1894 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOallPragmas =
({-# LINE 73 "GenerateCode.ag" #-}
_lhsIallPragmas
{-# LINE 1900 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOaroundMap =
({-# LINE 567 "GenerateCode.ag" #-}
_lhsIaroundMap
{-# LINE 1906 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOcontextMap =
({-# LINE 115 "GenerateCode.ag" #-}
_lhsIcontextMap
{-# LINE 1912 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOderivings =
({-# LINE 978 "GenerateCode.ag" #-}
_lhsIderivings
{-# LINE 1918 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOmergeMap =
({-# LINE 583 "GenerateCode.ag" #-}
_lhsImergeMap
{-# LINE 1924 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_case
{-# LINE 1930 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 1936 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 1942 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 1948 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 1954 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 1960 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 1966 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 1972 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 1978 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 1984 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 1990 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_splitsems
{-# LINE 1996 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 2002 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 2008 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 2014 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 2020 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 2026 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 2032 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOtypeSyns =
({-# LINE 978 "GenerateCode.ag" #-}
_lhsItypeSyns
{-# LINE 2038 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOunfoldSemDom =
({-# LINE 742 "GenerateCode.ag" #-}
_lhsIunfoldSemDom
{-# LINE 2044 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOwith_sig =
({-# LINE 844 "GenerateCode.ag" #-}
_lhsIwith_sig
{-# LINE 2050 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOwrappers =
({-# LINE 978 "GenerateCode.ag" #-}
_lhsIwrappers
{-# LINE 2056 "GenerateCode.hs" #-}
)
( _hdIchunks,_hdIgathNts,_hdIsemDomUnfoldGath) =
hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOderivings _hdOmergeMap _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOtypeSyns _hdOunfoldSemDom _hdOwith_sig _hdOwrappers
( _tlIchunks,_tlIgathNts,_tlIsemDomUnfoldGath) =
tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOderivings _tlOmergeMap _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOtypeSyns _tlOunfoldSemDom _tlOwith_sig _tlOwrappers
in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) )
sem_CNonterminals_Nil :: T_CNonterminals
sem_CNonterminals_Nil =
(T_CNonterminals (\ _lhsIallNts
_lhsIallPragmas
_lhsIaroundMap
_lhsIcontextMap
_lhsIderivings
_lhsImergeMap
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamMap
_lhsIprefix
_lhsItypeSyns
_lhsIunfoldSemDom
_lhsIwith_sig
_lhsIwrappers ->
(let _lhsOchunks :: Chunks
_lhsOgathNts :: (Set NontermIdent)
_lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))
-- use rule "GenerateCode.ag"(line 910, column 49)
_lhsOchunks =
({-# LINE 910 "GenerateCode.ag" #-}
[]
{-# LINE 2100 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 133, column 47)
_lhsOgathNts =
({-# LINE 133 "GenerateCode.ag" #-}
Set.empty
{-# LINE 2106 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 736, column 86)
_lhsOsemDomUnfoldGath =
({-# LINE 736 "GenerateCode.ag" #-}
Map.empty
{-# LINE 2112 "GenerateCode.hs" #-}
)
in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) )
-- CProduction -------------------------------------------------
{-
visit 0:
inherited attributes:
allNts : Set NontermIdent
allPragmas : PragmaMap
aroundMap : Map ConstructorIdent (Set Identifier)
contextMap : ContextMap
inh : Attributes
mergeMap : Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))
nt : NontermIdent
o_case : Bool
o_cata : Bool
o_costcentre : Bool
o_data : Maybe Bool
o_linePragmas : Bool
o_monadic : Bool
o_newtypes : Bool
o_pretty : Bool
o_rename : Bool
o_sem : Bool
o_sig : Bool
o_splitsems : Bool
o_strictwrap : Bool
o_traces : Bool
o_unbox : Bool
options : Options
paramMap : ParamMap
prefix : String
syn : Attributes
unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type
with_sig : Bool
synthesized attributes:
cataAlt : Decl
comments : [String]
dataAlt : DataAlt
decls : Decls
semNames : [String]
alternatives:
alternative CProduction:
child con : {ConstructorIdent}
child visits : CVisits
child children : {[(Identifier,Type,Maybe (Maybe Type))]}
child terminals : {[Identifier]}
visit 0:
local paramInstMap : _
local aroundMap : _
local mergeMap : _
local firstOrderChildren : _
local params : _
-}
-- cata
sem_CProduction :: CProduction ->
T_CProduction
sem_CProduction (CProduction _con _visits _children _terminals ) =
(sem_CProduction_CProduction _con (sem_CVisits _visits ) _children _terminals )
-- semantic domain
newtype T_CProduction = T_CProduction ((Set NontermIdent) ->
PragmaMap ->
(Map ConstructorIdent (Set Identifier)) ->
ContextMap ->
Attributes ->
(Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) ->
NontermIdent ->
Bool ->
Bool ->
Bool ->
(Maybe Bool) ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Options ->
ParamMap ->
String ->
Attributes ->
(NontermIdent -> Int -> [String] -> Code.Type) ->
Bool ->
( Decl,([String]),DataAlt,Decls,([String])))
data Inh_CProduction = Inh_CProduction {allNts_Inh_CProduction :: !((Set NontermIdent)),allPragmas_Inh_CProduction :: !(PragmaMap),aroundMap_Inh_CProduction :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProduction :: !(ContextMap),inh_Inh_CProduction :: !(Attributes),mergeMap_Inh_CProduction :: !((Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))),nt_Inh_CProduction :: !(NontermIdent),o_case_Inh_CProduction :: !(Bool),o_cata_Inh_CProduction :: !(Bool),o_costcentre_Inh_CProduction :: !(Bool),o_data_Inh_CProduction :: !((Maybe Bool)),o_linePragmas_Inh_CProduction :: !(Bool),o_monadic_Inh_CProduction :: !(Bool),o_newtypes_Inh_CProduction :: !(Bool),o_pretty_Inh_CProduction :: !(Bool),o_rename_Inh_CProduction :: !(Bool),o_sem_Inh_CProduction :: !(Bool),o_sig_Inh_CProduction :: !(Bool),o_splitsems_Inh_CProduction :: !(Bool),o_strictwrap_Inh_CProduction :: !(Bool),o_traces_Inh_CProduction :: !(Bool),o_unbox_Inh_CProduction :: !(Bool),options_Inh_CProduction :: !(Options),paramMap_Inh_CProduction :: !(ParamMap),prefix_Inh_CProduction :: !(String),syn_Inh_CProduction :: !(Attributes),unfoldSemDom_Inh_CProduction :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProduction :: !(Bool)}
data Syn_CProduction = Syn_CProduction {cataAlt_Syn_CProduction :: !(Decl),comments_Syn_CProduction :: !(([String])),dataAlt_Syn_CProduction :: !(DataAlt),decls_Syn_CProduction :: !(Decls),semNames_Syn_CProduction :: !(([String]))}
wrap_CProduction :: T_CProduction ->
Inh_CProduction ->
Syn_CProduction
wrap_CProduction (T_CProduction sem ) (Inh_CProduction _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) =
(let ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig
in (Syn_CProduction _lhsOcataAlt _lhsOcomments _lhsOdataAlt _lhsOdecls _lhsOsemNames ))
sem_CProduction_CProduction :: ConstructorIdent ->
T_CVisits ->
([(Identifier,Type,Maybe (Maybe Type))]) ->
([Identifier]) ->
T_CProduction
sem_CProduction_CProduction con_ (T_CVisits visits_ ) children_ terminals_ =
(T_CProduction (\ _lhsIallNts
_lhsIallPragmas
_lhsIaroundMap
_lhsIcontextMap
_lhsIinh
_lhsImergeMap
_lhsInt
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamMap
_lhsIprefix
_lhsIsyn
_lhsIunfoldSemDom
_lhsIwith_sig ->
(let _visitsOcon :: ConstructorIdent
_visitsOterminals :: ([Identifier])
_visitsOvisitedSet :: (Set Identifier)
_visitsOnr :: Int
_visitsOchildren :: ([(Identifier,Type, Maybe (Maybe Type))])
_visitsOinstVisitNrs :: (Map Identifier Int)
_lhsOcomments :: ([String])
_lhsOdataAlt :: DataAlt
_lhsOcataAlt :: Decl
_lhsOdecls :: Decls
_lhsOsemNames :: ([String])
_visitsOallNts :: (Set NontermIdent)
_visitsOallPragmas :: PragmaMap
_visitsOaroundMap :: (Set Identifier)
_visitsOcontextMap :: ContextMap
_visitsOinh :: Attributes
_visitsOmergeMap :: (Map Identifier (Identifier, [Identifier]))
_visitsOnt :: NontermIdent
_visitsOo_case :: Bool
_visitsOo_cata :: Bool
_visitsOo_costcentre :: Bool
_visitsOo_data :: (Maybe Bool)
_visitsOo_linePragmas :: Bool
_visitsOo_monadic :: Bool
_visitsOo_newtypes :: Bool
_visitsOo_pretty :: Bool
_visitsOo_rename :: Bool
_visitsOo_sem :: Bool
_visitsOo_sig :: Bool
_visitsOo_splitsems :: Bool
_visitsOo_strictwrap :: Bool
_visitsOo_traces :: Bool
_visitsOo_unbox :: Bool
_visitsOoptions :: Options
_visitsOparamInstMap :: (Map Identifier (NontermIdent, [String]))
_visitsOparamMap :: ParamMap
_visitsOprefix :: String
_visitsOsyn :: Attributes
_visitsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)
_visitsOwith_sig :: Bool
_visitsIcomments :: ([String])
_visitsIdecls :: Decls
_visitsIgatherInstVisitNrs :: (Map Identifier Int)
_visitsIintra :: Exprs
_visitsIintraVars :: (Set String)
_visitsIisNil :: Bool
_visitsIsemNames :: ([String])
_visitsIvisitedSet :: (Set Identifier)
-- "GenerateCode.ag"(line 92, column 19)
_visitsOcon =
({-# LINE 92 "GenerateCode.ag" #-}
con_
{-# LINE 2295 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 93, column 20)
_visitsOterminals =
({-# LINE 93 "GenerateCode.ag" #-}
terminals_
{-# LINE 2301 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 105, column 7)
_paramInstMap =
({-# LINE 105 "GenerateCode.ag" #-}
Map.fromList [(nm, (extractNonterminal tp, tps)) | (nm,tp,_) <- children_, let tps = map cleanupArg $ nontermArgs tp, not (null tps) ]
{-# LINE 2307 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 141, column 32)
_visitsOvisitedSet =
({-# LINE 141 "GenerateCode.ag" #-}
Set.empty
{-# LINE 2313 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 273, column 18)
_visitsOnr =
({-# LINE 273 "GenerateCode.ag" #-}
0
{-# LINE 2319 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 414, column 18)
_visitsOchildren =
({-# LINE 414 "GenerateCode.ag" #-}
children_
{-# LINE 2325 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 556, column 7)
_visitsOinstVisitNrs =
({-# LINE 556 "GenerateCode.ag" #-}
_visitsIgatherInstVisitNrs
{-# LINE 2331 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 576, column 34)
_aroundMap =
({-# LINE 576 "GenerateCode.ag" #-}
Map.findWithDefault Set.empty con_ _lhsIaroundMap
{-# LINE 2337 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 592, column 34)
_mergeMap =
({-# LINE 592 "GenerateCode.ag" #-}
Map.findWithDefault Map.empty con_ _lhsImergeMap
{-# LINE 2343 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 872, column 18)
_firstOrderChildren =
({-# LINE 872 "GenerateCode.ag" #-}
[ (nm,fromJust mb,virt) | (nm,tp,virt) <- children_, let mb = isFirstOrder virt tp, isJust mb ]
{-# LINE 2349 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 873, column 18)
_lhsOcomments =
({-# LINE 873 "GenerateCode.ag" #-}
("alternative " ++ getName con_ ++ ":")
: map ind ( map (\(x,y,_) -> makeLocalComment 14 "child" x (Just y)) _firstOrderChildren
++ _visitsIcomments
)
{-# LINE 2358 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 1009, column 17)
_params =
({-# LINE 1009 "GenerateCode.ag" #-}
map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap
{-# LINE 2364 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 1010, column 17)
_lhsOdataAlt =
({-# LINE 1010 "GenerateCode.ag" #-}
DataAlt (conname _lhsIo_rename _lhsInt con_) (map (\(_,t,_) -> typeToCodeType (Just _lhsInt) _params t) _firstOrderChildren )
{-# LINE 2370 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 1109, column 17)
_lhsOcataAlt =
({-# LINE 1109 "GenerateCode.ag" #-}
let lhs = Fun (cataname _lhsIprefix _lhsInt) [lhs_pat]
lhs_pat = App (conname _lhsIo_rename _lhsInt con_)
(map (\(n,_,_) -> SimpleExpr $ locname $ n) _firstOrderChildren )
rhs = App (semname _lhsIprefix _lhsInt con_)
(map argument _firstOrderChildren )
argument (nm,NT tp _,_) = let tp' = maybe tp id (deforestedNt tp)
in App (cataname _lhsIprefix tp')
[SimpleExpr (locname nm)]
argument (nm, _,_) = SimpleExpr (locname nm)
in Decl lhs rhs Set.empty Set.empty
{-# LINE 2385 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 911, column 44)
_lhsOdecls =
({-# LINE 911 "GenerateCode.ag" #-}
_visitsIdecls
{-# LINE 2391 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 1125, column 61)
_lhsOsemNames =
({-# LINE 1125 "GenerateCode.ag" #-}
_visitsIsemNames
{-# LINE 2397 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOallNts =
({-# LINE 127 "GenerateCode.ag" #-}
_lhsIallNts
{-# LINE 2403 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOallPragmas =
({-# LINE 73 "GenerateCode.ag" #-}
_lhsIallPragmas
{-# LINE 2409 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_visitsOaroundMap =
({-# LINE 572 "GenerateCode.ag" #-}
_aroundMap
{-# LINE 2415 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOcontextMap =
({-# LINE 115 "GenerateCode.ag" #-}
_lhsIcontextMap
{-# LINE 2421 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOinh =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIinh
{-# LINE 2427 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_visitsOmergeMap =
({-# LINE 588 "GenerateCode.ag" #-}
_mergeMap
{-# LINE 2433 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOnt =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsInt
{-# LINE 2439 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_case
{-# LINE 2445 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 2451 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 2457 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 2463 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 2469 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 2475 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 2481 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 2487 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 2493 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 2499 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 2505 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_splitsems
{-# LINE 2511 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 2517 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 2523 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 2529 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 2535 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_visitsOparamInstMap =
({-# LINE 101 "GenerateCode.ag" #-}
_paramInstMap
{-# LINE 2541 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 2547 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 2553 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOsyn =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIsyn
{-# LINE 2559 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOunfoldSemDom =
({-# LINE 742 "GenerateCode.ag" #-}
_lhsIunfoldSemDom
{-# LINE 2565 "GenerateCode.hs" #-}
)
-- copy rule (down)
_visitsOwith_sig =
({-# LINE 844 "GenerateCode.ag" #-}
_lhsIwith_sig
{-# LINE 2571 "GenerateCode.hs" #-}
)
( _visitsIcomments,_visitsIdecls,_visitsIgatherInstVisitNrs,_visitsIintra,_visitsIintraVars,_visitsIisNil,_visitsIsemNames,_visitsIvisitedSet) =
visits_ _visitsOallNts _visitsOallPragmas _visitsOaroundMap _visitsOchildren _visitsOcon _visitsOcontextMap _visitsOinh _visitsOinstVisitNrs _visitsOmergeMap _visitsOnr _visitsOnt _visitsOo_case _visitsOo_cata _visitsOo_costcentre _visitsOo_data _visitsOo_linePragmas _visitsOo_monadic _visitsOo_newtypes _visitsOo_pretty _visitsOo_rename _visitsOo_sem _visitsOo_sig _visitsOo_splitsems _visitsOo_strictwrap _visitsOo_traces _visitsOo_unbox _visitsOoptions _visitsOparamInstMap _visitsOparamMap _visitsOprefix _visitsOsyn _visitsOterminals _visitsOunfoldSemDom _visitsOvisitedSet _visitsOwith_sig
in ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames))) )
-- CProductions ------------------------------------------------
{-
visit 0:
inherited attributes:
allNts : Set NontermIdent
allPragmas : PragmaMap
aroundMap : Map ConstructorIdent (Set Identifier)
contextMap : ContextMap
inh : Attributes
mergeMap : Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))
nt : NontermIdent
o_case : Bool
o_cata : Bool
o_costcentre : Bool
o_data : Maybe Bool
o_linePragmas : Bool
o_monadic : Bool
o_newtypes : Bool
o_pretty : Bool
o_rename : Bool
o_sem : Bool
o_sig : Bool
o_splitsems : Bool
o_strictwrap : Bool
o_traces : Bool
o_unbox : Bool
options : Options
paramMap : ParamMap
prefix : String
syn : Attributes
unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type
with_sig : Bool
synthesized attributes:
cataAlts : Decls
comments : [String]
dataAlts : DataAlts
decls : Decls
semNames : [String]
alternatives:
alternative Cons:
child hd : CProduction
child tl : CProductions
alternative Nil:
-}
-- cata
sem_CProductions :: CProductions ->
T_CProductions
sem_CProductions list =
(Prelude.foldr sem_CProductions_Cons sem_CProductions_Nil (Prelude.map sem_CProduction list) )
-- semantic domain
newtype T_CProductions = T_CProductions ((Set NontermIdent) ->
PragmaMap ->
(Map ConstructorIdent (Set Identifier)) ->
ContextMap ->
Attributes ->
(Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) ->
NontermIdent ->
Bool ->
Bool ->
Bool ->
(Maybe Bool) ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Options ->
ParamMap ->
String ->
Attributes ->
(NontermIdent -> Int -> [String] -> Code.Type) ->
Bool ->
( Decls,([String]),DataAlts,Decls,([String])))
data Inh_CProductions = Inh_CProductions {allNts_Inh_CProductions :: !((Set NontermIdent)),allPragmas_Inh_CProductions :: !(PragmaMap),aroundMap_Inh_CProductions :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProductions :: !(ContextMap),inh_Inh_CProductions :: !(Attributes),mergeMap_Inh_CProductions :: !((Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))),nt_Inh_CProductions :: !(NontermIdent),o_case_Inh_CProductions :: !(Bool),o_cata_Inh_CProductions :: !(Bool),o_costcentre_Inh_CProductions :: !(Bool),o_data_Inh_CProductions :: !((Maybe Bool)),o_linePragmas_Inh_CProductions :: !(Bool),o_monadic_Inh_CProductions :: !(Bool),o_newtypes_Inh_CProductions :: !(Bool),o_pretty_Inh_CProductions :: !(Bool),o_rename_Inh_CProductions :: !(Bool),o_sem_Inh_CProductions :: !(Bool),o_sig_Inh_CProductions :: !(Bool),o_splitsems_Inh_CProductions :: !(Bool),o_strictwrap_Inh_CProductions :: !(Bool),o_traces_Inh_CProductions :: !(Bool),o_unbox_Inh_CProductions :: !(Bool),options_Inh_CProductions :: !(Options),paramMap_Inh_CProductions :: !(ParamMap),prefix_Inh_CProductions :: !(String),syn_Inh_CProductions :: !(Attributes),unfoldSemDom_Inh_CProductions :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProductions :: !(Bool)}
data Syn_CProductions = Syn_CProductions {cataAlts_Syn_CProductions :: !(Decls),comments_Syn_CProductions :: !(([String])),dataAlts_Syn_CProductions :: !(DataAlts),decls_Syn_CProductions :: !(Decls),semNames_Syn_CProductions :: !(([String]))}
wrap_CProductions :: T_CProductions ->
Inh_CProductions ->
Syn_CProductions
wrap_CProductions (T_CProductions sem ) (Inh_CProductions _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) =
(let ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig
in (Syn_CProductions _lhsOcataAlts _lhsOcomments _lhsOdataAlts _lhsOdecls _lhsOsemNames ))
sem_CProductions_Cons :: T_CProduction ->
T_CProductions ->
T_CProductions
sem_CProductions_Cons (T_CProduction hd_ ) (T_CProductions tl_ ) =
(T_CProductions (\ _lhsIallNts
_lhsIallPragmas
_lhsIaroundMap
_lhsIcontextMap
_lhsIinh
_lhsImergeMap
_lhsInt
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamMap
_lhsIprefix
_lhsIsyn
_lhsIunfoldSemDom
_lhsIwith_sig ->
(let _lhsOdataAlts :: DataAlts
_lhsOcataAlts :: Decls
_lhsOcomments :: ([String])
_lhsOdecls :: Decls
_lhsOsemNames :: ([String])
_hdOallNts :: (Set NontermIdent)
_hdOallPragmas :: PragmaMap
_hdOaroundMap :: (Map ConstructorIdent (Set Identifier))
_hdOcontextMap :: ContextMap
_hdOinh :: Attributes
_hdOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))
_hdOnt :: NontermIdent
_hdOo_case :: Bool
_hdOo_cata :: Bool
_hdOo_costcentre :: Bool
_hdOo_data :: (Maybe Bool)
_hdOo_linePragmas :: Bool
_hdOo_monadic :: Bool
_hdOo_newtypes :: Bool
_hdOo_pretty :: Bool
_hdOo_rename :: Bool
_hdOo_sem :: Bool
_hdOo_sig :: Bool
_hdOo_splitsems :: Bool
_hdOo_strictwrap :: Bool
_hdOo_traces :: Bool
_hdOo_unbox :: Bool
_hdOoptions :: Options
_hdOparamMap :: ParamMap
_hdOprefix :: String
_hdOsyn :: Attributes
_hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)
_hdOwith_sig :: Bool
_tlOallNts :: (Set NontermIdent)
_tlOallPragmas :: PragmaMap
_tlOaroundMap :: (Map ConstructorIdent (Set Identifier))
_tlOcontextMap :: ContextMap
_tlOinh :: Attributes
_tlOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))
_tlOnt :: NontermIdent
_tlOo_case :: Bool
_tlOo_cata :: Bool
_tlOo_costcentre :: Bool
_tlOo_data :: (Maybe Bool)
_tlOo_linePragmas :: Bool
_tlOo_monadic :: Bool
_tlOo_newtypes :: Bool
_tlOo_pretty :: Bool
_tlOo_rename :: Bool
_tlOo_sem :: Bool
_tlOo_sig :: Bool
_tlOo_splitsems :: Bool
_tlOo_strictwrap :: Bool
_tlOo_traces :: Bool
_tlOo_unbox :: Bool
_tlOoptions :: Options
_tlOparamMap :: ParamMap
_tlOprefix :: String
_tlOsyn :: Attributes
_tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)
_tlOwith_sig :: Bool
_hdIcataAlt :: Decl
_hdIcomments :: ([String])
_hdIdataAlt :: DataAlt
_hdIdecls :: Decls
_hdIsemNames :: ([String])
_tlIcataAlts :: Decls
_tlIcomments :: ([String])
_tlIdataAlts :: DataAlts
_tlIdecls :: Decls
_tlIsemNames :: ([String])
-- "GenerateCode.ag"(line 1005, column 17)
_lhsOdataAlts =
({-# LINE 1005 "GenerateCode.ag" #-}
_hdIdataAlt : _tlIdataAlts
{-# LINE 2770 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 1105, column 10)
_lhsOcataAlts =
({-# LINE 1105 "GenerateCode.ag" #-}
_hdIcataAlt : _tlIcataAlts
{-# LINE 2776 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 861, column 52)
_lhsOcomments =
({-# LINE 861 "GenerateCode.ag" #-}
_hdIcomments ++ _tlIcomments
{-# LINE 2782 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 911, column 44)
_lhsOdecls =
({-# LINE 911 "GenerateCode.ag" #-}
_hdIdecls ++ _tlIdecls
{-# LINE 2788 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 1125, column 61)
_lhsOsemNames =
({-# LINE 1125 "GenerateCode.ag" #-}
_hdIsemNames ++ _tlIsemNames
{-# LINE 2794 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOallNts =
({-# LINE 127 "GenerateCode.ag" #-}
_lhsIallNts
{-# LINE 2800 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOallPragmas =
({-# LINE 73 "GenerateCode.ag" #-}
_lhsIallPragmas
{-# LINE 2806 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOaroundMap =
({-# LINE 570 "GenerateCode.ag" #-}
_lhsIaroundMap
{-# LINE 2812 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOcontextMap =
({-# LINE 115 "GenerateCode.ag" #-}
_lhsIcontextMap
{-# LINE 2818 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOinh =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIinh
{-# LINE 2824 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOmergeMap =
({-# LINE 586 "GenerateCode.ag" #-}
_lhsImergeMap
{-# LINE 2830 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOnt =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsInt
{-# LINE 2836 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_case
{-# LINE 2842 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 2848 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 2854 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 2860 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 2866 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 2872 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 2878 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 2884 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 2890 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 2896 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 2902 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_splitsems
{-# LINE 2908 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 2914 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 2920 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 2926 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 2932 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 2938 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 2944 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOsyn =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIsyn
{-# LINE 2950 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOunfoldSemDom =
({-# LINE 742 "GenerateCode.ag" #-}
_lhsIunfoldSemDom
{-# LINE 2956 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOwith_sig =
({-# LINE 844 "GenerateCode.ag" #-}
_lhsIwith_sig
{-# LINE 2962 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOallNts =
({-# LINE 127 "GenerateCode.ag" #-}
_lhsIallNts
{-# LINE 2968 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOallPragmas =
({-# LINE 73 "GenerateCode.ag" #-}
_lhsIallPragmas
{-# LINE 2974 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOaroundMap =
({-# LINE 570 "GenerateCode.ag" #-}
_lhsIaroundMap
{-# LINE 2980 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOcontextMap =
({-# LINE 115 "GenerateCode.ag" #-}
_lhsIcontextMap
{-# LINE 2986 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOinh =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIinh
{-# LINE 2992 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOmergeMap =
({-# LINE 586 "GenerateCode.ag" #-}
_lhsImergeMap
{-# LINE 2998 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOnt =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsInt
{-# LINE 3004 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_case
{-# LINE 3010 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 3016 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 3022 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 3028 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 3034 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 3040 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 3046 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 3052 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 3058 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 3064 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 3070 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_splitsems
{-# LINE 3076 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 3082 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 3088 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 3094 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 3100 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 3106 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 3112 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOsyn =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIsyn
{-# LINE 3118 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOunfoldSemDom =
({-# LINE 742 "GenerateCode.ag" #-}
_lhsIunfoldSemDom
{-# LINE 3124 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOwith_sig =
({-# LINE 844 "GenerateCode.ag" #-}
_lhsIwith_sig
{-# LINE 3130 "GenerateCode.hs" #-}
)
( _hdIcataAlt,_hdIcomments,_hdIdataAlt,_hdIdecls,_hdIsemNames) =
hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOinh _hdOmergeMap _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOsyn _hdOunfoldSemDom _hdOwith_sig
( _tlIcataAlts,_tlIcomments,_tlIdataAlts,_tlIdecls,_tlIsemNames) =
tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOinh _tlOmergeMap _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOsyn _tlOunfoldSemDom _tlOwith_sig
in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))) )
sem_CProductions_Nil :: T_CProductions
sem_CProductions_Nil =
(T_CProductions (\ _lhsIallNts
_lhsIallPragmas
_lhsIaroundMap
_lhsIcontextMap
_lhsIinh
_lhsImergeMap
_lhsInt
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamMap
_lhsIprefix
_lhsIsyn
_lhsIunfoldSemDom
_lhsIwith_sig ->
(let _lhsOdataAlts :: DataAlts
_lhsOcataAlts :: Decls
_lhsOcomments :: ([String])
_lhsOdecls :: Decls
_lhsOsemNames :: ([String])
-- "GenerateCode.ag"(line 1006, column 17)
_lhsOdataAlts =
({-# LINE 1006 "GenerateCode.ag" #-}
[]
{-# LINE 3176 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 1106, column 10)
_lhsOcataAlts =
({-# LINE 1106 "GenerateCode.ag" #-}
[]
{-# LINE 3182 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 861, column 52)
_lhsOcomments =
({-# LINE 861 "GenerateCode.ag" #-}
[]
{-# LINE 3188 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 911, column 44)
_lhsOdecls =
({-# LINE 911 "GenerateCode.ag" #-}
[]
{-# LINE 3194 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 1125, column 61)
_lhsOsemNames =
({-# LINE 1125 "GenerateCode.ag" #-}
[]
{-# LINE 3200 "GenerateCode.hs" #-}
)
in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))) )
-- CRule -------------------------------------------------------
{-
visit 0:
inherited attributes:
allNts : Set NontermIdent
aroundMap : Set Identifier
children : [(Identifier,Type,Maybe (Maybe Type))]
con : ConstructorIdent
inh : Attributes
instVisitNrs : Map Identifier Int
mergeMap : Map Identifier (Identifier, [Identifier])
nr : Int
nt : NontermIdent
o_case : Bool
o_cata : Bool
o_costcentre : Bool
o_data : Maybe Bool
o_linePragmas : Bool
o_monadic : Bool
o_newtypes : Bool
o_pretty : Bool
o_rename : Bool
o_sem : Bool
o_sig : Bool
o_splitsems : Bool
o_strictwrap : Bool
o_traces : Bool
o_unbox : Bool
options : Options
paramInstMap : Map Identifier (NontermIdent, [String])
paramMap : ParamMap
prefix : String
syn : Attributes
terminals : [Identifier]
unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type
what : String
chained attributes:
declsAbove : [Decl]
visitedSet : Set Identifier
synthesized attributes:
allTpsFound : Bool
bldBlocksFun : DeclBlocks -> DeclBlocks
comments : [String]
decls : Decls
definedInsts : [Identifier]
exprs : Exprs
tSigs : [Decl]
tps : [Type]
usedVars : Set String
alternatives:
alternative CChildVisit:
child name : {Identifier}
child nt : {NontermIdent}
child nr : {Int}
child inh : {Attributes}
child syn : {Attributes}
child isLast : {Bool}
visit 0:
local visitedSet : _
local costCentreDescr : _
local addCostCentre : _
local decls : _
local isSuperfluousHigherOrderIntra : _
local names : _
local mkTp : _
local definedTps : _
local nextTp : _
local orgParams : _
local instParams : _
local replParamMap : _
local replace : _
local evalTp : _
alternative CRule:
child name : {Identifier}
child isIn : {Bool}
child hasCode : {Bool}
child nt : {NontermIdent}
child con : {ConstructorIdent}
child field : {Identifier}
child childnt : {Maybe NontermIdent}
child tp : {Maybe Type}
child pattern : Pattern
child rhs : {[String]}
child defines : {Map Int (Identifier,Identifier,Maybe Type)}
child owrt : {Bool}
child origin : {String}
child uses : {Set (Identifier, Identifier)}
child explicit : {Bool}
child mbNamed : {Maybe Identifier}
visit 0:
local instTypes : _
local originComment : _
local instDecls : _
local patDescr : _
local traceDescr : _
local addTrace : _
local costCentreDescr : _
local addCostCentre : _
local addLinePragma : _
local decls : _
local definedInsts : _
local rulename : _
local mkTp : _
local orgParams : _
local evalTp : _
local _tup3 : {([Type],Bool)}
-}
-- cata
sem_CRule :: CRule ->
T_CRule
sem_CRule (CChildVisit _name _nt _nr _inh _syn _isLast ) =
(sem_CRule_CChildVisit _name _nt _nr _inh _syn _isLast )
sem_CRule (CRule _name _isIn _hasCode _nt _con _field _childnt _tp _pattern _rhs _defines _owrt _origin _uses _explicit _mbNamed ) =
(sem_CRule_CRule _name _isIn _hasCode _nt _con _field _childnt _tp (sem_Pattern _pattern ) _rhs _defines _owrt _origin _uses _explicit _mbNamed )
-- semantic domain
newtype T_CRule = T_CRule ((Set NontermIdent) ->
(Set Identifier) ->
([(Identifier,Type,Maybe (Maybe Type))]) ->
ConstructorIdent ->
([Decl]) ->
Attributes ->
(Map Identifier Int) ->
(Map Identifier (Identifier, [Identifier])) ->
Int ->
NontermIdent ->
Bool ->
Bool ->
Bool ->
(Maybe Bool) ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Options ->
(Map Identifier (NontermIdent, [String])) ->
ParamMap ->
String ->
Attributes ->
([Identifier]) ->
(NontermIdent -> Int -> [String] -> Code.Type) ->
(Set Identifier) ->
String ->
( Bool,(DeclBlocks -> DeclBlocks),([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String),(Set Identifier)))
data Inh_CRule = Inh_CRule {allNts_Inh_CRule :: !((Set NontermIdent)),aroundMap_Inh_CRule :: !((Set Identifier)),children_Inh_CRule :: !(([(Identifier,Type,Maybe (Maybe Type))])),con_Inh_CRule :: !(ConstructorIdent),declsAbove_Inh_CRule :: !(([Decl])),inh_Inh_CRule :: !(Attributes),instVisitNrs_Inh_CRule :: !((Map Identifier Int)),mergeMap_Inh_CRule :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_CRule :: !(Int),nt_Inh_CRule :: !(NontermIdent),o_case_Inh_CRule :: !(Bool),o_cata_Inh_CRule :: !(Bool),o_costcentre_Inh_CRule :: !(Bool),o_data_Inh_CRule :: !((Maybe Bool)),o_linePragmas_Inh_CRule :: !(Bool),o_monadic_Inh_CRule :: !(Bool),o_newtypes_Inh_CRule :: !(Bool),o_pretty_Inh_CRule :: !(Bool),o_rename_Inh_CRule :: !(Bool),o_sem_Inh_CRule :: !(Bool),o_sig_Inh_CRule :: !(Bool),o_splitsems_Inh_CRule :: !(Bool),o_strictwrap_Inh_CRule :: !(Bool),o_traces_Inh_CRule :: !(Bool),o_unbox_Inh_CRule :: !(Bool),options_Inh_CRule :: !(Options),paramInstMap_Inh_CRule :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CRule :: !(ParamMap),prefix_Inh_CRule :: !(String),syn_Inh_CRule :: !(Attributes),terminals_Inh_CRule :: !(([Identifier])),unfoldSemDom_Inh_CRule :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CRule :: !((Set Identifier)),what_Inh_CRule :: !(String)}
data Syn_CRule = Syn_CRule {allTpsFound_Syn_CRule :: !(Bool),bldBlocksFun_Syn_CRule :: !((DeclBlocks -> DeclBlocks)),comments_Syn_CRule :: !(([String])),decls_Syn_CRule :: !(Decls),declsAbove_Syn_CRule :: !(([Decl])),definedInsts_Syn_CRule :: !(([Identifier])),exprs_Syn_CRule :: !(Exprs),tSigs_Syn_CRule :: !(([Decl])),tps_Syn_CRule :: !(([Type])),usedVars_Syn_CRule :: !((Set String)),visitedSet_Syn_CRule :: !((Set Identifier))}
wrap_CRule :: T_CRule ->
Inh_CRule ->
Syn_CRule
wrap_CRule (T_CRule sem ) (Inh_CRule _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat ) =
(let ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet) = sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat
in (Syn_CRule _lhsOallTpsFound _lhsObldBlocksFun _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet ))
sem_CRule_CChildVisit :: Identifier ->
NontermIdent ->
Int ->
Attributes ->
Attributes ->
Bool ->
T_CRule
sem_CRule_CChildVisit name_ nt_ nr_ inh_ syn_ isLast_ =
(T_CRule (\ _lhsIallNts
_lhsIaroundMap
_lhsIchildren
_lhsIcon
_lhsIdeclsAbove
_lhsIinh
_lhsIinstVisitNrs
_lhsImergeMap
_lhsInr
_lhsInt
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamInstMap
_lhsIparamMap
_lhsIprefix
_lhsIsyn
_lhsIterminals
_lhsIunfoldSemDom
_lhsIvisitedSet
_lhsIwhat ->
(let _lhsOexprs :: Exprs
_lhsOusedVars :: (Set String)
_lhsOtSigs :: ([Decl])
_lhsOtps :: ([Type])
_lhsOdeclsAbove :: ([Decl])
_lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks)
_lhsOallTpsFound :: Bool
_lhsOcomments :: ([String])
_lhsOdecls :: Decls
_lhsOdefinedInsts :: ([Identifier])
_lhsOvisitedSet :: (Set Identifier)
-- "GenerateCode.ag"(line 142, column 26)
_visitedSet =
({-# LINE 142 "GenerateCode.ag" #-}
Set.insert name_ _lhsIvisitedSet
{-# LINE 3418 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 198, column 18)
_costCentreDescr =
({-# LINE 198 "GenerateCode.ag" #-}
show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show name_ ++ ":" ++ show nt_ ++ ":" ++ show nr_
{-# LINE 3424 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 199, column 18)
_addCostCentre =
({-# LINE 199 "GenerateCode.ag" #-}
\v -> if _lhsIo_costcentre
then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v
else v
{-# LINE 3432 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 202, column 18)
_decls =
({-# LINE 202 "GenerateCode.ag" #-}
let lhsVars = map (attrname True name_) (Map.keys syn_)
++ if isLast_ then [] else [unwrap ++ funname name_ (nr_+1)]
rhsVars = map (attrname False name_) (Map.keys inh_)
unwrap = if _lhsIo_newtypes then typeName nt_ (nr_ + 1) ++ " " else ""
tuple | isMerging = TupleLhs [locname name_ ++ "_comp"]
| otherwise = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars
rhs = _addCostCentre $ Code.InvokeExpr (typeName nt_ nr_) (SimpleExpr fun) (map SimpleExpr rhsVars)
isVirtual _ [] = False
isVirtual nm ((n,t,mb) : r)
| nm == n = isJust mb
| otherwise = isVirtual nm r
isMerged = name_ `Map.member` _lhsImergeMap
isMerging = name_ `elem` concatMap (\(_,cs) -> cs) (Map.elems _lhsImergeMap)
merges = [ (c,cs) | (c,(_,cs)) <- Map.assocs _lhsImergeMap, all (`Set.member` _visitedSet ) cs, name_ `elem` (c:cs) ]
baseNm = if nr_ == 0 && isVirtual name_ _lhsIchildren
then Ident (getName name_ ++ "_inst") (getPos name_)
else name_
fun | nr_ == 0 && Set.member name_ _lhsIaroundMap
= locname name_ ++ "_around " ++ funname baseNm 0
| otherwise = funname baseNm nr_
outDecls | isMerged = []
| otherwise =
if isMerging
then [mkDecl _lhsIo_monadic tuple rhs Set.empty Set.empty]
else [Resume _lhsIo_monadic (typeName nt_ nr_) tuple rhs]
outMerged | null merges || nr_ /= 0 = []
| otherwise = let (c,cs) = head merges
tuple' = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars'
lhsVars' = map (attrname True c) (Map.keys syn_)
++ if isLast_ then [] else [unwrap ++ funname c (nr_+1)]
rhsVars = [ locname c ++ "_comp" | c <- cs ]
fun = locname c ++ "_merge"
rhs' = App fun (map SimpleExpr rhsVars)
in [Resume _lhsIo_monadic (typeName nt_ nr_) tuple' rhs']
in
(outDecls ++ outMerged)
{-# LINE 3473 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 320, column 7)
_isSuperfluousHigherOrderIntra =
({-# LINE 320 "GenerateCode.ag" #-}
_lhsInr <= Map.findWithDefault (-1) name_ _lhsIinstVisitNrs
{-# LINE 3479 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 334, column 8)
_names =
({-# LINE 334 "GenerateCode.ag" #-}
if _isSuperfluousHigherOrderIntra
then []
else [funname name_ (nr_+1)]
{-# LINE 3487 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 338, column 8)
_lhsOexprs =
({-# LINE 338 "GenerateCode.ag" #-}
let wrap = if _lhsIo_newtypes then \x -> App (typeName nt_ (nr_ + 1)) [x] else id
addType expr | null _instParams = expr
| otherwise = TypedExpr expr (_lhsIunfoldSemDom nt_ (nr_+1) _instParams )
in map (wrap . addType . SimpleExpr) _names
{-# LINE 3496 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 350, column 7)
_lhsOusedVars =
({-# LINE 350 "GenerateCode.ag" #-}
Set.fromList _names
{-# LINE 3502 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 389, column 19)
_mkTp =
({-# LINE 389 "GenerateCode.ag" #-}
_evalTp . typeToCodeType (Just nt_) _orgParams
{-# LINE 3508 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 390, column 19)
_definedTps =
({-# LINE 390 "GenerateCode.ag" #-}
[ TSig (attrname True name_ a) (_mkTp tp) | (a,tp) <- Map.toList syn_ ]
{-# LINE 3514 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 391, column 19)
_nextTp =
({-# LINE 391 "GenerateCode.ag" #-}
typeName nt_ (nr_+1)
{-# LINE 3520 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 392, column 19)
_lhsOtSigs =
({-# LINE 392 "GenerateCode.ag" #-}
(if isLast_ then id else (TSig (funname name_ (nr_+1)) (TypeApp (SimpleType _nextTp) (map SimpleType _instParams )) :)) _definedTps
{-# LINE 3526 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 394, column 19)
_orgParams =
({-# LINE 394 "GenerateCode.ag" #-}
map getName $ Map.findWithDefault [] nt_ _lhsIparamMap
{-# LINE 3532 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 395, column 19)
_instParams =
({-# LINE 395 "GenerateCode.ag" #-}
snd $ Map.findWithDefault (nt_,[]) name_ _lhsIparamInstMap
{-# LINE 3538 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 396, column 19)
_replParamMap =
({-# LINE 396 "GenerateCode.ag" #-}
Map.fromList (zip _orgParams _instParams )
{-# LINE 3544 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 397, column 19)
_replace =
({-# LINE 397 "GenerateCode.ag" #-}
\k -> Map.findWithDefault k k _replParamMap
{-# LINE 3550 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 398, column 19)
_evalTp =
({-# LINE 398 "GenerateCode.ag" #-}
if null _orgParams then id else evalType _replace
{-# LINE 3556 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 421, column 19)
_lhsOtps =
({-# LINE 421 "GenerateCode.ag" #-}
if _isSuperfluousHigherOrderIntra
then []
else [NT (ntOfVisit nt_ (nr_+1)) _instParams ]
{-# LINE 3564 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 610, column 7)
_lhsOdeclsAbove =
({-# LINE 610 "GenerateCode.ag" #-}
[]
{-# LINE 3570 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 623, column 7)
_lhsObldBlocksFun =
({-# LINE 623 "GenerateCode.ag" #-}
DeclBlock _lhsIdeclsAbove (head _decls )
{-# LINE 3576 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 418, column 39)
_lhsOallTpsFound =
({-# LINE 418 "GenerateCode.ag" #-}
True
{-# LINE 3582 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 861, column 52)
_lhsOcomments =
({-# LINE 861 "GenerateCode.ag" #-}
[]
{-# LINE 3588 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 150, column 34)
_lhsOdecls =
({-# LINE 150 "GenerateCode.ag" #-}
_decls
{-# LINE 3594 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 254, column 55)
_lhsOdefinedInsts =
({-# LINE 254 "GenerateCode.ag" #-}
[]
{-# LINE 3600 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_lhsOvisitedSet =
({-# LINE 140 "GenerateCode.ag" #-}
_visitedSet
{-# LINE 3606 "GenerateCode.hs" #-}
)
in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) )
sem_CRule_CRule :: Identifier ->
Bool ->
Bool ->
NontermIdent ->
ConstructorIdent ->
Identifier ->
(Maybe NontermIdent) ->
(Maybe Type) ->
T_Pattern ->
([String]) ->
(Map Int (Identifier,Identifier,Maybe Type)) ->
Bool ->
String ->
(Set (Identifier, Identifier)) ->
Bool ->
(Maybe Identifier) ->
T_CRule
sem_CRule_CRule name_ isIn_ hasCode_ nt_ con_ field_ childnt_ tp_ (T_Pattern pattern_ ) rhs_ defines_ owrt_ origin_ uses_ explicit_ mbNamed_ =
(T_CRule (\ _lhsIallNts
_lhsIaroundMap
_lhsIchildren
_lhsIcon
_lhsIdeclsAbove
_lhsIinh
_lhsIinstVisitNrs
_lhsImergeMap
_lhsInr
_lhsInt
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamInstMap
_lhsIparamMap
_lhsIprefix
_lhsIsyn
_lhsIterminals
_lhsIunfoldSemDom
_lhsIvisitedSet
_lhsIwhat ->
(let _lhsOexprs :: Exprs
_lhsOusedVars :: (Set String)
_lhsOtSigs :: ([Decl])
__tup3 :: (([Type],Bool))
_lhsOtps :: ([Type])
_lhsOallTpsFound :: Bool
_lhsOdeclsAbove :: ([Decl])
_lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks)
_lhsOcomments :: ([String])
_lhsOdecls :: Decls
_lhsOdefinedInsts :: ([Identifier])
_lhsOvisitedSet :: (Set Identifier)
_patternIcopy :: Pattern
_patternIdefinedInsts :: ([Identifier])
_patternIpatternAttributes :: ([(Identifier, Identifier)])
-- "GenerateCode.ag"(line 152, column 12)
_instTypes =
({-# LINE 152 "GenerateCode.ag" #-}
[ (n, (t, mb)) | (n, NT t _, mb) <- _lhsIchildren ]
{-# LINE 3680 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 153, column 12)
_originComment =
({-# LINE 153 "GenerateCode.ag" #-}
if _lhsIo_pretty
then (Comment origin_:)
else id
{-# LINE 3688 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 156, column 12)
_instDecls =
({-# LINE 156 "GenerateCode.ag" #-}
[ mkDecl _lhsIo_monadic (Pattern3 (Alias _INST' inst (Underscore (getPos inst)) []))
( let (nm,mb) = fromJust $ inst `lookup` _instTypes
in unwrapSem _lhsIo_newtypes (maybe nm id (deforestedNt nm))
$ case mb of
Just (Just tp') -> App instLocFieldName [SimpleExpr $ fieldname inst]
_ ->
case nm `Set.member` _lhsIallNts of
True -> App (cataname _lhsIprefix nm)
[SimpleExpr instLocFieldName]
False -> SimpleExpr instLocFieldName
)
(Set.singleton instSemFieldName)
(Set.singleton instLocFieldName)
| inst <- _definedInsts
, let instLocFieldName = attrname True _INST inst
instSemFieldName = attrname False _INST' inst
]
{-# LINE 3710 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 173, column 12)
_patDescr =
({-# LINE 173 "GenerateCode.ag" #-}
if isIn_
then "_"
else concat $ intersperse "," (map (\(f,a) -> show f ++ "." ++ show a) _patternIpatternAttributes)
{-# LINE 3718 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 176, column 12)
_traceDescr =
({-# LINE 176 "GenerateCode.ag" #-}
(maybe "" (\nm -> show nm ++ ":") mbNamed_) ++ show nt_ ++ " :: " ++ show con_ ++ " :: " ++ _patDescr
{-# LINE 3724 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 178, column 12)
_addTrace =
({-# LINE 178 "GenerateCode.ag" #-}
\v -> if _lhsIo_traces
then Trace _traceDescr v
else v
{-# LINE 3732 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 181, column 12)
_costCentreDescr =
({-# LINE 181 "GenerateCode.ag" #-}
show nt_ ++ ":" ++ show con_ ++ ":" ++ _patDescr
{-# LINE 3738 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 182, column 12)
_addCostCentre =
({-# LINE 182 "GenerateCode.ag" #-}
\v -> if _lhsIo_costcentre
then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v
else v
{-# LINE 3746 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 185, column 12)
_addLinePragma =
({-# LINE 185 "GenerateCode.ag" #-}
\v -> let p = getPos name_
hasPos = line p > 0 && column p >= 0 && not (null (file p))
in if _lhsIo_linePragmas && hasPos
then PragmaExpr True True ("LINE " ++ show (line p) ++ " " ++ show (file p))
$ LineExpr
$ v
else v
{-# LINE 3758 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 192, column 12)
_decls =
({-# LINE 192 "GenerateCode.ag" #-}
if hasCode_
then _originComment ( mkDecl (_lhsIo_monadic && explicit_) (Pattern3 _patternIcopy) (_addTrace $ _addCostCentre $ _addLinePragma $ (TextExpr rhs_))
(Set.fromList [attrname False fld nm | (fld,nm,_) <- Map.elems defines_])
(Set.fromList [attrname True fld nm | (fld,nm) <- Set.toList uses_])
: _instDecls )
else _instDecls
{-# LINE 3769 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 259, column 12)
_definedInsts =
({-# LINE 259 "GenerateCode.ag" #-}
if isIn_ then [] else _patternIdefinedInsts
{-# LINE 3775 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 329, column 12)
_rulename =
({-# LINE 329 "GenerateCode.ag" #-}
if field_ == _LOC && name_ `elem` _lhsIterminals
then funname name_ 0
else attrname isIn_ field_ name_
{-# LINE 3783 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 332, column 12)
_lhsOexprs =
({-# LINE 332 "GenerateCode.ag" #-}
[SimpleExpr _rulename ]
{-# LINE 3789 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 348, column 7)
_lhsOusedVars =
({-# LINE 348 "GenerateCode.ag" #-}
Set.singleton _rulename
{-# LINE 3795 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 358, column 19)
_mkTp =
({-# LINE 358 "GenerateCode.ag" #-}
typeToCodeType (Just _lhsInt) _orgParams
{-# LINE 3801 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 359, column 19)
_lhsOtSigs =
({-# LINE 359 "GenerateCode.ag" #-}
[ TSig (attrname False field attr) tp'
| (field,attr,tp) <- Map.elems defines_, isJust tp
, let tp1 = _evalTp field $ _mkTp (fromJust tp)
tp' = case findOrigType attr _lhsIchildren of
Just tp' -> let tp'' = case tp' of
NT n params -> NT (Ident ("T_" ++ show n) (getPos n)) params
_ -> tp'
tp2 = _evalTp field $ _mkTp tp''
in Arr tp2 tp1
Nothing -> tp1
findOrigType nm [] = Nothing
findOrigType nm ((n,_,mb) : r)
| nm == n = case mb of
Just (Just orig) -> Just orig
_ -> Nothing
| otherwise = findOrigType nm r
]
{-# LINE 3823 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 377, column 19)
_orgParams =
({-# LINE 377 "GenerateCode.ag" #-}
map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap
{-# LINE 3829 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 378, column 19)
_evalTp =
({-# LINE 378 "GenerateCode.ag" #-}
\field tp -> let orgFldParams = map getName $ Map.findWithDefault [] childNt _lhsIparamMap
(childNt,instParams) = Map.findWithDefault (_lhsInt,[]) field _lhsIparamInstMap
replMap = Map.fromList (zip orgFldParams instParams)
replace k = Map.findWithDefault ('@':k) k replMap
in if null instParams
then if null _orgParams
then tp
else idEvalType tp
else evalType replace tp
{-# LINE 3843 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 420, column 23)
__tup3 =
({-# LINE 420 "GenerateCode.ag" #-}
maybe ([],False) (\tp -> ([substSelf (fromJust childnt_) tp],True)) tp_
{-# LINE 3849 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 420, column 23)
(_lhsOtps,_) =
({-# LINE 420 "GenerateCode.ag" #-}
__tup3
{-# LINE 3855 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 420, column 23)
(_,_lhsOallTpsFound) =
({-# LINE 420 "GenerateCode.ag" #-}
__tup3
{-# LINE 3861 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 608, column 7)
_lhsOdeclsAbove =
({-# LINE 608 "GenerateCode.ag" #-}
_lhsIdeclsAbove ++ _decls
{-# LINE 3867 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 621, column 7)
_lhsObldBlocksFun =
({-# LINE 621 "GenerateCode.ag" #-}
id
{-# LINE 3873 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 895, column 18)
_lhsOcomments =
({-# LINE 895 "GenerateCode.ag" #-}
[ makeLocalComment 11 _lhsIwhat name tp | (field,name,tp) <- Map.elems defines_, field == _LOC ]
++ [ makeLocalComment 11 "inst " name tp | (field,name,tp) <- Map.elems defines_, field == _INST ]
{-# LINE 3880 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 150, column 34)
_lhsOdecls =
({-# LINE 150 "GenerateCode.ag" #-}
_decls
{-# LINE 3886 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 254, column 55)
_lhsOdefinedInsts =
({-# LINE 254 "GenerateCode.ag" #-}
_definedInsts
{-# LINE 3892 "GenerateCode.hs" #-}
)
-- copy rule (chain)
_lhsOvisitedSet =
({-# LINE 140 "GenerateCode.ag" #-}
_lhsIvisitedSet
{-# LINE 3898 "GenerateCode.hs" #-}
)
( _patternIcopy,_patternIdefinedInsts,_patternIpatternAttributes) =
pattern_
in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) )
-- CSegment ----------------------------------------------------
{-
visit 0:
inherited attributes:
inh : Attributes
isLast : Bool
nr : Int
nt : NontermIdent
o_case : Bool
o_cata : Bool
o_costcentre : Bool
o_data : Maybe Bool
o_linePragmas : Bool
o_monadic : Bool
o_newtypes : Bool
o_pretty : Bool
o_rename : Bool
o_sem : Bool
o_sig : Bool
o_splitsems : Bool
o_strictwrap : Bool
o_traces : Bool
o_unbox : Bool
options : Options
paramMap : ParamMap
prefix : String
syn : Attributes
synthesized attributes:
comments : [String]
semDom : [Decl]
semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)
wrapDecls : Decls
alternatives:
alternative CSegment:
child inh : {Attributes}
child syn : {Attributes}
visit 0:
local altSemForm : _
local tp : _
local inhTps : _
local inhTup : _
local synTps : _
local curTypeName : _
local nextTypeName : _
local indexName : _
local dataIndex : _
local indexExpr : _
local indexStr : _
local inhInstance : _
local synInstance : _
local continuation : _
local params : _
-}
-- cata
sem_CSegment :: CSegment ->
T_CSegment
sem_CSegment (CSegment _inh _syn ) =
(sem_CSegment_CSegment _inh _syn )
-- semantic domain
newtype T_CSegment = T_CSegment (Attributes ->
Bool ->
Int ->
NontermIdent ->
Bool ->
Bool ->
Bool ->
(Maybe Bool) ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Options ->
ParamMap ->
String ->
Attributes ->
( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))
data Inh_CSegment = Inh_CSegment {inh_Inh_CSegment :: !(Attributes),isLast_Inh_CSegment :: !(Bool),nr_Inh_CSegment :: !(Int),nt_Inh_CSegment :: !(NontermIdent),o_case_Inh_CSegment :: !(Bool),o_cata_Inh_CSegment :: !(Bool),o_costcentre_Inh_CSegment :: !(Bool),o_data_Inh_CSegment :: !((Maybe Bool)),o_linePragmas_Inh_CSegment :: !(Bool),o_monadic_Inh_CSegment :: !(Bool),o_newtypes_Inh_CSegment :: !(Bool),o_pretty_Inh_CSegment :: !(Bool),o_rename_Inh_CSegment :: !(Bool),o_sem_Inh_CSegment :: !(Bool),o_sig_Inh_CSegment :: !(Bool),o_splitsems_Inh_CSegment :: !(Bool),o_strictwrap_Inh_CSegment :: !(Bool),o_traces_Inh_CSegment :: !(Bool),o_unbox_Inh_CSegment :: !(Bool),options_Inh_CSegment :: !(Options),paramMap_Inh_CSegment :: !(ParamMap),prefix_Inh_CSegment :: !(String),syn_Inh_CSegment :: !(Attributes)}
data Syn_CSegment = Syn_CSegment {comments_Syn_CSegment :: !(([String])),semDom_Syn_CSegment :: !(([Decl])),semDomUnfoldGath_Syn_CSegment :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegment :: !(Decls)}
wrap_CSegment :: T_CSegment ->
Inh_CSegment ->
Syn_CSegment
wrap_CSegment (T_CSegment sem ) (Inh_CSegment _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) =
(let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn
in (Syn_CSegment _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls ))
sem_CSegment_CSegment :: Attributes ->
Attributes ->
T_CSegment
sem_CSegment_CSegment inh_ syn_ =
(T_CSegment (\ _lhsIinh
_lhsIisLast
_lhsInr
_lhsInt
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamMap
_lhsIprefix
_lhsIsyn ->
(let _lhsOsemDom :: ([Decl])
_lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))
_lhsOwrapDecls :: Decls
_lhsOcomments :: ([String])
-- "GenerateCode.ag"(line 707, column 15)
_altSemForm =
({-# LINE 707 "GenerateCode.ag" #-}
breadthFirst _lhsIoptions
{-# LINE 4029 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 708, column 15)
_tp =
({-# LINE 708 "GenerateCode.ag" #-}
if _altSemForm
then TypeApp (SimpleType "Child") [SimpleType "EvalInfo", _indexExpr ]
else foldr Arr _synTps _inhTps
{-# LINE 4037 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 711, column 15)
_inhTps =
({-# LINE 711 "GenerateCode.ag" #-}
[typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems inh_]
{-# LINE 4043 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 712, column 15)
_inhTup =
({-# LINE 712 "GenerateCode.ag" #-}
mkTupleType _lhsIo_unbox (null _inhTps ) _inhTps
{-# LINE 4049 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 713, column 15)
_synTps =
({-# LINE 713 "GenerateCode.ag" #-}
mkTupleType _lhsIo_unbox (null _inhTps ) ([typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems syn_] ++ _continuation )
{-# LINE 4055 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 714, column 15)
_curTypeName =
({-# LINE 714 "GenerateCode.ag" #-}
typeName _lhsInt _lhsInr
{-# LINE 4061 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 715, column 15)
_nextTypeName =
({-# LINE 715 "GenerateCode.ag" #-}
typeName _lhsInt (_lhsInr + 1)
{-# LINE 4067 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 716, column 15)
_indexName =
({-# LINE 716 "GenerateCode.ag" #-}
"I_" ++ _curTypeName
{-# LINE 4073 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 717, column 15)
_dataIndex =
({-# LINE 717 "GenerateCode.ag" #-}
Code.Data _indexName _params [DataAlt _indexName []] False []
{-# LINE 4079 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 718, column 15)
_indexExpr =
({-# LINE 718 "GenerateCode.ag" #-}
TypeApp (SimpleType _indexName ) (map (SimpleType . ('@':)) _params )
{-# LINE 4085 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 719, column 15)
_indexStr =
({-# LINE 719 "GenerateCode.ag" #-}
"(" ++ _indexName ++ concatMap (\p -> " " ++ p) _params ++ ")"
{-# LINE 4091 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 720, column 15)
_inhInstance =
({-# LINE 720 "GenerateCode.ag" #-}
Code.Data "instance Inh" [_indexStr ] [DataAlt (typeName _lhsInt _lhsInr ++ "_Inh") [_inhTup ] ] False []
{-# LINE 4097 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 721, column 15)
_synInstance =
({-# LINE 721 "GenerateCode.ag" #-}
Code.Data "instance Syn" [_indexStr ] [DataAlt (typeName _lhsInt _lhsInr ++ "_Syn") [_synTps ] ] False []
{-# LINE 4103 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 722, column 15)
_continuation =
({-# LINE 722 "GenerateCode.ag" #-}
if _lhsIisLast
then []
else [TypeApp (SimpleType _nextTypeName ) (map (SimpleType . ('@':)) _params )]
{-# LINE 4111 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 725, column 15)
_params =
({-# LINE 725 "GenerateCode.ag" #-}
map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap
{-# LINE 4117 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 726, column 15)
_lhsOsemDom =
({-# LINE 726 "GenerateCode.ag" #-}
let name = typeName _lhsInt _lhsInr
evalTp | null _params = id
| otherwise = idEvalType
in ( if _lhsIo_newtypes
then [ Code.NewType name _params name (evalTp _tp ) ]
else [ Code.Type name _params (evalTp _tp ) ] )
++ ( if _altSemForm
then [_dataIndex , _inhInstance , _synInstance ]
else [] )
{-# LINE 4131 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 740, column 7)
_lhsOsemDomUnfoldGath =
({-# LINE 740 "GenerateCode.ag" #-}
Map.singleton (_lhsInt, _lhsInr) (_params , _tp )
{-# LINE 4137 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 824, column 15)
_lhsOwrapDecls =
({-# LINE 824 "GenerateCode.ag" #-}
let lhsVars = map (lhsname False) (Map.keys syn_)
++ if _lhsIisLast then [] else [unwrap ++ sem (_lhsInr+1)]
rhsVars = map (lhsname True) (Map.keys inh_)
rhs = map SimpleExpr rhsVars
unwrap = if _lhsIo_newtypes then typeName _lhsInt (_lhsInr + 1) ++ " " else ""
var = "sem"
sem 0 = var
sem n = var ++ "_" ++ show n
ntt = typeName _lhsInt _lhsInr
in [ EvalDecl ntt (mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars) (InvokeExpr ntt (SimpleExpr $ sem _lhsInr) rhs) ]
{-# LINE 4152 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 866, column 18)
_lhsOcomments =
({-# LINE 866 "GenerateCode.ag" #-}
let body = map ind (showsSegment (CSegment inh_ syn_))
in if null body
then []
else ("visit " ++ show _lhsInr ++ ":") : body
{-# LINE 4161 "GenerateCode.hs" #-}
)
in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) )
-- CSegments ---------------------------------------------------
{-
visit 0:
inherited attributes:
inh : Attributes
nr : Int
nt : NontermIdent
o_case : Bool
o_cata : Bool
o_costcentre : Bool
o_data : Maybe Bool
o_linePragmas : Bool
o_monadic : Bool
o_newtypes : Bool
o_pretty : Bool
o_rename : Bool
o_sem : Bool
o_sig : Bool
o_splitsems : Bool
o_strictwrap : Bool
o_traces : Bool
o_unbox : Bool
options : Options
paramMap : ParamMap
prefix : String
syn : Attributes
synthesized attributes:
comments : [String]
isNil : Bool
semDom : [Decl]
semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type)
wrapDecls : Decls
alternatives:
alternative Cons:
child hd : CSegment
child tl : CSegments
alternative Nil:
-}
-- cata
sem_CSegments :: CSegments ->
T_CSegments
sem_CSegments list =
(Prelude.foldr sem_CSegments_Cons sem_CSegments_Nil (Prelude.map sem_CSegment list) )
-- semantic domain
newtype T_CSegments = T_CSegments (Attributes ->
Int ->
NontermIdent ->
Bool ->
Bool ->
Bool ->
(Maybe Bool) ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Options ->
ParamMap ->
String ->
Attributes ->
( ([String]),Bool,([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls))
data Inh_CSegments = Inh_CSegments {inh_Inh_CSegments :: !(Attributes),nr_Inh_CSegments :: !(Int),nt_Inh_CSegments :: !(NontermIdent),o_case_Inh_CSegments :: !(Bool),o_cata_Inh_CSegments :: !(Bool),o_costcentre_Inh_CSegments :: !(Bool),o_data_Inh_CSegments :: !((Maybe Bool)),o_linePragmas_Inh_CSegments :: !(Bool),o_monadic_Inh_CSegments :: !(Bool),o_newtypes_Inh_CSegments :: !(Bool),o_pretty_Inh_CSegments :: !(Bool),o_rename_Inh_CSegments :: !(Bool),o_sem_Inh_CSegments :: !(Bool),o_sig_Inh_CSegments :: !(Bool),o_splitsems_Inh_CSegments :: !(Bool),o_strictwrap_Inh_CSegments :: !(Bool),o_traces_Inh_CSegments :: !(Bool),o_unbox_Inh_CSegments :: !(Bool),options_Inh_CSegments :: !(Options),paramMap_Inh_CSegments :: !(ParamMap),prefix_Inh_CSegments :: !(String),syn_Inh_CSegments :: !(Attributes)}
data Syn_CSegments = Syn_CSegments {comments_Syn_CSegments :: !(([String])),isNil_Syn_CSegments :: !(Bool),semDom_Syn_CSegments :: !(([Decl])),semDomUnfoldGath_Syn_CSegments :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegments :: !(Decls)}
wrap_CSegments :: T_CSegments ->
Inh_CSegments ->
Syn_CSegments
wrap_CSegments (T_CSegments sem ) (Inh_CSegments _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) =
(let ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn
in (Syn_CSegments _lhsOcomments _lhsOisNil _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls ))
sem_CSegments_Cons :: T_CSegment ->
T_CSegments ->
T_CSegments
sem_CSegments_Cons (T_CSegment hd_ ) (T_CSegments tl_ ) =
(T_CSegments (\ _lhsIinh
_lhsInr
_lhsInt
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamMap
_lhsIprefix
_lhsIsyn ->
(let _tlOnr :: Int
_lhsOisNil :: Bool
_hdOisLast :: Bool
_lhsOcomments :: ([String])
_lhsOsemDom :: ([Decl])
_lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))
_lhsOwrapDecls :: Decls
_hdOinh :: Attributes
_hdOnr :: Int
_hdOnt :: NontermIdent
_hdOo_case :: Bool
_hdOo_cata :: Bool
_hdOo_costcentre :: Bool
_hdOo_data :: (Maybe Bool)
_hdOo_linePragmas :: Bool
_hdOo_monadic :: Bool
_hdOo_newtypes :: Bool
_hdOo_pretty :: Bool
_hdOo_rename :: Bool
_hdOo_sem :: Bool
_hdOo_sig :: Bool
_hdOo_splitsems :: Bool
_hdOo_strictwrap :: Bool
_hdOo_traces :: Bool
_hdOo_unbox :: Bool
_hdOoptions :: Options
_hdOparamMap :: ParamMap
_hdOprefix :: String
_hdOsyn :: Attributes
_tlOinh :: Attributes
_tlOnt :: NontermIdent
_tlOo_case :: Bool
_tlOo_cata :: Bool
_tlOo_costcentre :: Bool
_tlOo_data :: (Maybe Bool)
_tlOo_linePragmas :: Bool
_tlOo_monadic :: Bool
_tlOo_newtypes :: Bool
_tlOo_pretty :: Bool
_tlOo_rename :: Bool
_tlOo_sem :: Bool
_tlOo_sig :: Bool
_tlOo_splitsems :: Bool
_tlOo_strictwrap :: Bool
_tlOo_traces :: Bool
_tlOo_unbox :: Bool
_tlOoptions :: Options
_tlOparamMap :: ParamMap
_tlOprefix :: String
_tlOsyn :: Attributes
_hdIcomments :: ([String])
_hdIsemDom :: ([Decl])
_hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))
_hdIwrapDecls :: Decls
_tlIcomments :: ([String])
_tlIisNil :: Bool
_tlIsemDom :: ([Decl])
_tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))
_tlIwrapDecls :: Decls
-- "GenerateCode.ag"(line 279, column 11)
_tlOnr =
({-# LINE 279 "GenerateCode.ag" #-}
_lhsInr + 1
{-# LINE 4328 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 292, column 12)
_lhsOisNil =
({-# LINE 292 "GenerateCode.ag" #-}
False
{-# LINE 4334 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 293, column 12)
_hdOisLast =
({-# LINE 293 "GenerateCode.ag" #-}
_tlIisNil
{-# LINE 4340 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 861, column 52)
_lhsOcomments =
({-# LINE 861 "GenerateCode.ag" #-}
_hdIcomments ++ _tlIcomments
{-# LINE 4346 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 702, column 50)
_lhsOsemDom =
({-# LINE 702 "GenerateCode.ag" #-}
_hdIsemDom ++ _tlIsemDom
{-# LINE 4352 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 736, column 86)
_lhsOsemDomUnfoldGath =
({-# LINE 736 "GenerateCode.ag" #-}
_hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath
{-# LINE 4358 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 822, column 52)
_lhsOwrapDecls =
({-# LINE 822 "GenerateCode.ag" #-}
_hdIwrapDecls ++ _tlIwrapDecls
{-# LINE 4364 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOinh =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIinh
{-# LINE 4370 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOnr =
({-# LINE 271 "GenerateCode.ag" #-}
_lhsInr
{-# LINE 4376 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOnt =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsInt
{-# LINE 4382 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_case
{-# LINE 4388 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 4394 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 4400 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 4406 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 4412 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 4418 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 4424 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 4430 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 4436 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 4442 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 4448 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_splitsems
{-# LINE 4454 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 4460 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 4466 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 4472 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 4478 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 4484 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 4490 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOsyn =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIsyn
{-# LINE 4496 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOinh =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIinh
{-# LINE 4502 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOnt =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsInt
{-# LINE 4508 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_case
{-# LINE 4514 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 4520 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 4526 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 4532 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 4538 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 4544 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 4550 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 4556 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 4562 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 4568 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 4574 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_splitsems
{-# LINE 4580 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 4586 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 4592 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 4598 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 4604 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 4610 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 4616 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOsyn =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIsyn
{-# LINE 4622 "GenerateCode.hs" #-}
)
( _hdIcomments,_hdIsemDom,_hdIsemDomUnfoldGath,_hdIwrapDecls) =
hd_ _hdOinh _hdOisLast _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOsyn
( _tlIcomments,_tlIisNil,_tlIsemDom,_tlIsemDomUnfoldGath,_tlIwrapDecls) =
tl_ _tlOinh _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOsyn
in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) )
sem_CSegments_Nil :: T_CSegments
sem_CSegments_Nil =
(T_CSegments (\ _lhsIinh
_lhsInr
_lhsInt
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamMap
_lhsIprefix
_lhsIsyn ->
(let _lhsOisNil :: Bool
_lhsOcomments :: ([String])
_lhsOsemDom :: ([Decl])
_lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type))
_lhsOwrapDecls :: Decls
-- "GenerateCode.ag"(line 294, column 10)
_lhsOisNil =
({-# LINE 294 "GenerateCode.ag" #-}
True
{-# LINE 4662 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 861, column 52)
_lhsOcomments =
({-# LINE 861 "GenerateCode.ag" #-}
[]
{-# LINE 4668 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 702, column 50)
_lhsOsemDom =
({-# LINE 702 "GenerateCode.ag" #-}
[]
{-# LINE 4674 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 736, column 86)
_lhsOsemDomUnfoldGath =
({-# LINE 736 "GenerateCode.ag" #-}
Map.empty
{-# LINE 4680 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 822, column 52)
_lhsOwrapDecls =
({-# LINE 822 "GenerateCode.ag" #-}
[]
{-# LINE 4686 "GenerateCode.hs" #-}
)
in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) )
-- CVisit ------------------------------------------------------
{-
visit 0:
inherited attributes:
allNts : Set NontermIdent
allPragmas : PragmaMap
aroundMap : Set Identifier
children : [(Identifier,Type, Maybe (Maybe Type))]
con : ConstructorIdent
contextMap : ContextMap
inh : Attributes
instVisitNrs : Map Identifier Int
isLast : Bool
mergeMap : Map Identifier (Identifier, [Identifier])
nextIntra : Exprs
nextIntraVars : Set String
nr : Int
nt : NontermIdent
o_case : Bool
o_cata : Bool
o_costcentre : Bool
o_data : Maybe Bool
o_linePragmas : Bool
o_monadic : Bool
o_newtypes : Bool
o_pretty : Bool
o_rename : Bool
o_sem : Bool
o_sig : Bool
o_splitsems : Bool
o_strictwrap : Bool
o_traces : Bool
o_unbox : Bool
options : Options
paramInstMap : Map Identifier (NontermIdent, [String])
paramMap : ParamMap
prefix : String
syn : Attributes
terminals : [Identifier]
unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type
with_sig : Bool
chained attributes:
decls : Decls
visitedSet : Set Identifier
synthesized attributes:
comments : [String]
gatherInstVisitNrs : Map Identifier Int
intra : Exprs
intraVars : Set String
semNames : [String]
alternatives:
alternative CVisit:
child inh : {Attributes}
child syn : {Attributes}
child vss : Sequence
child intra : Sequence
child ordered : {Bool}
visit 0:
local _tup4 : _
local higherOrderChildren : _
local firstOrderChildren : _
local firstOrderOrig : _
local funcname : _
local nextVisitName : _
local nextVisitDecl : _
local decls : _
local lastExprVars : _
local _tup5 : _
local blockFunDecls : _
local blockFirstFunCall : _
local costCentreDescr : _
local addCostCentre : _
local params : _
local semFun : _
local tsig : _
local semType : _
local typeSigs : _
local o_do : _
local o_case : _
local declsType : _
local o_splitsems : _
-}
-- cata
sem_CVisit :: CVisit ->
T_CVisit
sem_CVisit (CVisit _inh _syn _vss _intra _ordered ) =
(sem_CVisit_CVisit _inh _syn (sem_Sequence _vss ) (sem_Sequence _intra ) _ordered )
-- semantic domain
newtype T_CVisit = T_CVisit ((Set NontermIdent) ->
PragmaMap ->
(Set Identifier) ->
([(Identifier,Type, Maybe (Maybe Type))]) ->
ConstructorIdent ->
ContextMap ->
Decls ->
Attributes ->
(Map Identifier Int) ->
Bool ->
(Map Identifier (Identifier, [Identifier])) ->
Exprs ->
(Set String) ->
Int ->
NontermIdent ->
Bool ->
Bool ->
Bool ->
(Maybe Bool) ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Options ->
(Map Identifier (NontermIdent, [String])) ->
ParamMap ->
String ->
Attributes ->
([Identifier]) ->
(NontermIdent -> Int -> [String] -> Code.Type) ->
(Set Identifier) ->
Bool ->
( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),([String]),(Set Identifier)))
data Inh_CVisit = Inh_CVisit {allNts_Inh_CVisit :: !((Set NontermIdent)),allPragmas_Inh_CVisit :: !(PragmaMap),aroundMap_Inh_CVisit :: !((Set Identifier)),children_Inh_CVisit :: !(([(Identifier,Type, Maybe (Maybe Type))])),con_Inh_CVisit :: !(ConstructorIdent),contextMap_Inh_CVisit :: !(ContextMap),decls_Inh_CVisit :: !(Decls),inh_Inh_CVisit :: !(Attributes),instVisitNrs_Inh_CVisit :: !((Map Identifier Int)),isLast_Inh_CVisit :: !(Bool),mergeMap_Inh_CVisit :: !((Map Identifier (Identifier, [Identifier]))),nextIntra_Inh_CVisit :: !(Exprs),nextIntraVars_Inh_CVisit :: !((Set String)),nr_Inh_CVisit :: !(Int),nt_Inh_CVisit :: !(NontermIdent),o_case_Inh_CVisit :: !(Bool),o_cata_Inh_CVisit :: !(Bool),o_costcentre_Inh_CVisit :: !(Bool),o_data_Inh_CVisit :: !((Maybe Bool)),o_linePragmas_Inh_CVisit :: !(Bool),o_monadic_Inh_CVisit :: !(Bool),o_newtypes_Inh_CVisit :: !(Bool),o_pretty_Inh_CVisit :: !(Bool),o_rename_Inh_CVisit :: !(Bool),o_sem_Inh_CVisit :: !(Bool),o_sig_Inh_CVisit :: !(Bool),o_splitsems_Inh_CVisit :: !(Bool),o_strictwrap_Inh_CVisit :: !(Bool),o_traces_Inh_CVisit :: !(Bool),o_unbox_Inh_CVisit :: !(Bool),options_Inh_CVisit :: !(Options),paramInstMap_Inh_CVisit :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisit :: !(ParamMap),prefix_Inh_CVisit :: !(String),syn_Inh_CVisit :: !(Attributes),terminals_Inh_CVisit :: !(([Identifier])),unfoldSemDom_Inh_CVisit :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CVisit :: !((Set Identifier)),with_sig_Inh_CVisit :: !(Bool)}
data Syn_CVisit = Syn_CVisit {comments_Syn_CVisit :: !(([String])),decls_Syn_CVisit :: !(Decls),gatherInstVisitNrs_Syn_CVisit :: !((Map Identifier Int)),intra_Syn_CVisit :: !(Exprs),intraVars_Syn_CVisit :: !((Set String)),semNames_Syn_CVisit :: !(([String])),visitedSet_Syn_CVisit :: !((Set Identifier))}
wrap_CVisit :: T_CVisit ->
Inh_CVisit ->
Syn_CVisit
wrap_CVisit (T_CVisit sem ) (Inh_CVisit _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsImergeMap _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig ) =
(let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames,_lhsOvisitedSet) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsImergeMap _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig
in (Syn_CVisit _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOsemNames _lhsOvisitedSet ))
sem_CVisit_CVisit :: Attributes ->
Attributes ->
T_Sequence ->
T_Sequence ->
Bool ->
T_CVisit
sem_CVisit_CVisit inh_ syn_ (T_Sequence vss_ ) (T_Sequence intra_ ) ordered_ =
(T_CVisit (\ _lhsIallNts
_lhsIallPragmas
_lhsIaroundMap
_lhsIchildren
_lhsIcon
_lhsIcontextMap
_lhsIdecls
_lhsIinh
_lhsIinstVisitNrs
_lhsIisLast
_lhsImergeMap
_lhsInextIntra
_lhsInextIntraVars
_lhsInr
_lhsInt
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamInstMap
_lhsIparamMap
_lhsIprefix
_lhsIsyn
_lhsIterminals
_lhsIunfoldSemDom
_lhsIvisitedSet
_lhsIwith_sig ->
(let _lhsOintra :: Exprs
_lhsOintraVars :: (Set String)
_vssOlastExpr :: Expr
_intraOlastExpr :: Expr
_lhsOdecls :: Decls
_lhsOgatherInstVisitNrs :: (Map Identifier Int)
_vssOdeclsAbove :: ([Decl])
_intraOdeclsAbove :: ([Decl])
_lhsOcomments :: ([String])
_vssOwhat :: String
_intraOwhat :: String
_lhsOsemNames :: ([String])
_lhsOvisitedSet :: (Set Identifier)
_vssOallNts :: (Set NontermIdent)
_vssOaroundMap :: (Set Identifier)
_vssOchildren :: ([(Identifier,Type,Maybe (Maybe Type))])
_vssOcon :: ConstructorIdent
_vssOinh :: Attributes
_vssOinstVisitNrs :: (Map Identifier Int)
_vssOmergeMap :: (Map Identifier (Identifier, [Identifier]))
_vssOnr :: Int
_vssOnt :: NontermIdent
_vssOo_case :: Bool
_vssOo_cata :: Bool
_vssOo_costcentre :: Bool
_vssOo_data :: (Maybe Bool)
_vssOo_linePragmas :: Bool
_vssOo_monadic :: Bool
_vssOo_newtypes :: Bool
_vssOo_pretty :: Bool
_vssOo_rename :: Bool
_vssOo_sem :: Bool
_vssOo_sig :: Bool
_vssOo_splitsems :: Bool
_vssOo_strictwrap :: Bool
_vssOo_traces :: Bool
_vssOo_unbox :: Bool
_vssOoptions :: Options
_vssOparamInstMap :: (Map Identifier (NontermIdent, [String]))
_vssOparamMap :: ParamMap
_vssOprefix :: String
_vssOsyn :: Attributes
_vssOterminals :: ([Identifier])
_vssOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)
_vssOvisitedSet :: (Set Identifier)
_intraOallNts :: (Set NontermIdent)
_intraOaroundMap :: (Set Identifier)
_intraOchildren :: ([(Identifier,Type,Maybe (Maybe Type))])
_intraOcon :: ConstructorIdent
_intraOinh :: Attributes
_intraOinstVisitNrs :: (Map Identifier Int)
_intraOmergeMap :: (Map Identifier (Identifier, [Identifier]))
_intraOnr :: Int
_intraOnt :: NontermIdent
_intraOo_case :: Bool
_intraOo_cata :: Bool
_intraOo_costcentre :: Bool
_intraOo_data :: (Maybe Bool)
_intraOo_linePragmas :: Bool
_intraOo_monadic :: Bool
_intraOo_newtypes :: Bool
_intraOo_pretty :: Bool
_intraOo_rename :: Bool
_intraOo_sem :: Bool
_intraOo_sig :: Bool
_intraOo_splitsems :: Bool
_intraOo_strictwrap :: Bool
_intraOo_traces :: Bool
_intraOo_unbox :: Bool
_intraOoptions :: Options
_intraOparamInstMap :: (Map Identifier (NontermIdent, [String]))
_intraOparamMap :: ParamMap
_intraOprefix :: String
_intraOsyn :: Attributes
_intraOterminals :: ([Identifier])
_intraOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)
_intraOvisitedSet :: (Set Identifier)
_vssIallTpsFound :: Bool
_vssIblockDecls :: DeclBlocks
_vssIcomments :: ([String])
_vssIdecls :: Decls
_vssIdeclsAbove :: ([Decl])
_vssIdefinedInsts :: ([Identifier])
_vssIexprs :: Exprs
_vssItSigs :: ([Decl])
_vssItps :: ([Type])
_vssIusedVars :: (Set String)
_vssIvisitedSet :: (Set Identifier)
_intraIallTpsFound :: Bool
_intraIblockDecls :: DeclBlocks
_intraIcomments :: ([String])
_intraIdecls :: Decls
_intraIdeclsAbove :: ([Decl])
_intraIdefinedInsts :: ([Identifier])
_intraIexprs :: Exprs
_intraItSigs :: ([Decl])
_intraItps :: ([Type])
_intraIusedVars :: (Set String)
_intraIvisitedSet :: (Set Identifier)
-- "GenerateCode.ag"(line 303, column 13)
_lhsOintra =
({-# LINE 303 "GenerateCode.ag" #-}
_intraIexprs
{-# LINE 4974 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 304, column 13)
_lhsOintraVars =
({-# LINE 304 "GenerateCode.ag" #-}
_intraIusedVars
{-# LINE 4980 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 443, column 13)
__tup4 =
({-# LINE 443 "GenerateCode.ag" #-}
partition (\(_,_,virt) -> isHigherOrder virt) _lhsIchildren
{-# LINE 4986 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 443, column 13)
(_higherOrderChildren,_) =
({-# LINE 443 "GenerateCode.ag" #-}
__tup4
{-# LINE 4992 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 443, column 13)
(_,_firstOrderChildren) =
({-# LINE 443 "GenerateCode.ag" #-}
__tup4
{-# LINE 4998 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 444, column 13)
_firstOrderOrig =
({-# LINE 444 "GenerateCode.ag" #-}
map pickOrigType _firstOrderChildren
{-# LINE 5004 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 445, column 13)
_funcname =
({-# LINE 445 "GenerateCode.ag" #-}
seqSemname _lhsIprefix _lhsInt _lhsIcon _lhsInr
{-# LINE 5010 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 446, column 13)
_nextVisitName =
({-# LINE 446 "GenerateCode.ag" #-}
if _lhsIisLast then [] else [visitname _lhsIprefix _lhsInt (_lhsInr+1)]
{-# LINE 5016 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 447, column 13)
_nextVisitDecl =
({-# LINE 447 "GenerateCode.ag" #-}
let lhs = TupleLhs _nextVisitName
rhs = Let _lhsIdecls (SimpleExpr fun)
fun = seqSemname _lhsIprefix _lhsInt _lhsIcon (_lhsInr+1)
in if _lhsIisLast
then []
else [Decl lhs rhs (Set.fromList _nextVisitName) _lhsInextIntraVars]
{-# LINE 5027 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 454, column 13)
_decls =
({-# LINE 454 "GenerateCode.ag" #-}
_typeSigs ++ _vssIdecls ++ _nextVisitDecl
{-# LINE 5033 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 455, column 13)
_vssOlastExpr =
({-# LINE 455 "GenerateCode.ag" #-}
mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_) $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName
{-# LINE 5039 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 456, column 13)
_intraOlastExpr =
({-# LINE 456 "GenerateCode.ag" #-}
error "lastExpr: not used here"
{-# LINE 5045 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 457, column 13)
_lastExprVars =
({-# LINE 457 "GenerateCode.ag" #-}
map (lhsname False) (Map.keys syn_) ++ _nextVisitName
{-# LINE 5051 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 458, column 13)
__tup5 =
({-# LINE 458 "GenerateCode.ag" #-}
mkPartitionedFunction _funcname _o_case _nextVisitDecl _lastExprVars _vssIblockDecls
{-# LINE 5057 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 458, column 13)
(_blockFunDecls,_) =
({-# LINE 458 "GenerateCode.ag" #-}
__tup5
{-# LINE 5063 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 458, column 13)
(_,_blockFirstFunCall) =
({-# LINE 458 "GenerateCode.ag" #-}
__tup5
{-# LINE 5069 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 460, column 13)
_costCentreDescr =
({-# LINE 460 "GenerateCode.ag" #-}
"b" ++ ":" ++ show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show _lhsInr
{-# LINE 5075 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 461, column 13)
_addCostCentre =
({-# LINE 461 "GenerateCode.ag" #-}
\v -> if _lhsIo_costcentre
then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v
else v
{-# LINE 5083 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 465, column 13)
_params =
({-# LINE 465 "GenerateCode.ag" #-}
map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap
{-# LINE 5089 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 466, column 13)
_semFun =
({-# LINE 466 "GenerateCode.ag" #-}
let lhs = Fun _funcname lhs_args
lhs_args = if _lhsInr == 0 then map field _firstOrderOrig else []
field (name,NT tp tps,_) = let unwrap | _lhsIo_newtypes = \x -> App (sdtype tp) [x]
| otherwise = id
addType expr | null tps = expr
| otherwise = TypedExpr expr (_lhsIunfoldSemDom tp 0 tps)
in unwrap $ addType $ SimpleExpr $ funname name 0
field (name,tp,_) = let expr = SimpleExpr (funname name 0)
in if null _params
then expr
else TypedExpr expr (idEvalType $ typeToCodeType (Just _lhsInt) _params tp)
mbEvalTp | null _params = const Nothing
| otherwise = Just . idEvalType
rhs = wrap
. mkSemFun _lhsInt _lhsInr [mkLambdaArg (lhsname True nm) (mbEvalTp $ typeToCodeType (Just _lhsInt) _params tp) | (nm,tp) <- Map.assocs inh_]
$ _addCostCentre
$ if ordered_ && _o_splitsems
then _blockFirstFunCall
else mkDecls _declsType _decls
. ResultExpr (typeName _lhsInt _lhsInr)
. mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_)
$ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName
wrap = if _lhsIo_newtypes
then \x -> App (typeName _lhsInt _lhsInr) [x]
else id
in Decl lhs rhs Set.empty Set.empty
{-# LINE 5120 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 497, column 13)
_tsig =
({-# LINE 497 "GenerateCode.ag" #-}
TSig _funcname _semType
{-# LINE 5126 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 498, column 13)
_semType =
({-# LINE 498 "GenerateCode.ag" #-}
let argType (NT tp tps) r | tp /= _SELF = typeAppStrs (sdtype tp) tps `Arr` r
| tp == _SELF = error "GenerateCode: found an intra-type with type SELF, which should have been prevented by CRule.tps"
argType (Haskell tp) r = SimpleType tp `Arr` r
evalTp | null _params = id
| otherwise = idEvalType
in appContext _lhsIcontextMap _lhsInt $ evalTp $
if _lhsInr == 0
then foldr argType (typeAppStrs (sdtype _lhsInt ) _params ) (map (\(_,t,_) -> t) _firstOrderOrig )
else foldr argType (typeAppStrs (typeName _lhsInt _lhsInr) _params ) []
{-# LINE 5140 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 509, column 13)
_lhsOdecls =
({-# LINE 509 "GenerateCode.ag" #-}
( if _lhsIwith_sig
then [_tsig, _semFun]
else [_semFun]
) ++
( if ordered_ && _o_splitsems
then _blockFunDecls
else []
)
{-# LINE 5153 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 517, column 13)
_typeSigs =
({-# LINE 517 "GenerateCode.ag" #-}
if _lhsIo_sig && not _o_case
then _vssItSigs
else []
{-# LINE 5161 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 520, column 13)
_o_do =
({-# LINE 520 "GenerateCode.ag" #-}
ordered_ && _lhsIo_monadic
{-# LINE 5167 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 521, column 13)
_o_case =
({-# LINE 521 "GenerateCode.ag" #-}
not _o_do && _lhsIo_case && ordered_ && not (hasPragma _lhsIallPragmas _lhsInt _lhsIcon _NOCASE)
{-# LINE 5173 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 522, column 13)
_declsType =
({-# LINE 522 "GenerateCode.ag" #-}
if _o_do
then DeclsDo
else if _o_case
then DeclsCase
else DeclsLet
{-# LINE 5183 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 527, column 13)
_o_splitsems =
({-# LINE 527 "GenerateCode.ag" #-}
ordered_ && _lhsIo_splitsems
{-# LINE 5189 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 560, column 7)
_lhsOgatherInstVisitNrs =
({-# LINE 560 "GenerateCode.ag" #-}
Map.fromList [(i,_lhsInr) | i <- _vssIdefinedInsts]
{-# LINE 5195 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 603, column 7)
_vssOdeclsAbove =
({-# LINE 603 "GenerateCode.ag" #-}
[]
{-# LINE 5201 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 604, column 7)
_intraOdeclsAbove =
({-# LINE 604 "GenerateCode.ag" #-}
error "declsAbove: not used here"
{-# LINE 5207 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 886, column 18)
_lhsOcomments =
({-# LINE 886 "GenerateCode.ag" #-}
let body = map ind (_vssIcomments ++ _intraIcomments)
in if null body
then []
else ("visit " ++ show _lhsInr ++ ":") : body
{-# LINE 5216 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 890, column 18)
_vssOwhat =
({-# LINE 890 "GenerateCode.ag" #-}
"local"
{-# LINE 5222 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 891, column 18)
_intraOwhat =
({-# LINE 891 "GenerateCode.ag" #-}
"intra"
{-# LINE 5228 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 1135, column 7)
_lhsOsemNames =
({-# LINE 1135 "GenerateCode.ag" #-}
[_funcname ]
{-# LINE 5234 "GenerateCode.hs" #-}
)
-- copy rule (up)
_lhsOvisitedSet =
({-# LINE 140 "GenerateCode.ag" #-}
_intraIvisitedSet
{-# LINE 5240 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOallNts =
({-# LINE 127 "GenerateCode.ag" #-}
_lhsIallNts
{-# LINE 5246 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOaroundMap =
({-# LINE 572 "GenerateCode.ag" #-}
_lhsIaroundMap
{-# LINE 5252 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOchildren =
({-# LINE 252 "GenerateCode.ag" #-}
_lhsIchildren
{-# LINE 5258 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOcon =
({-# LINE 89 "GenerateCode.ag" #-}
_lhsIcon
{-# LINE 5264 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOinh =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIinh
{-# LINE 5270 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOinstVisitNrs =
({-# LINE 552 "GenerateCode.ag" #-}
_lhsIinstVisitNrs
{-# LINE 5276 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOmergeMap =
({-# LINE 588 "GenerateCode.ag" #-}
_lhsImergeMap
{-# LINE 5282 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOnr =
({-# LINE 271 "GenerateCode.ag" #-}
_lhsInr
{-# LINE 5288 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOnt =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsInt
{-# LINE 5294 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_vssOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_o_case
{-# LINE 5300 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 5306 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 5312 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 5318 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 5324 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 5330 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 5336 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 5342 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 5348 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 5354 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 5360 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_vssOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_o_splitsems
{-# LINE 5366 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 5372 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 5378 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 5384 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 5390 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOparamInstMap =
({-# LINE 101 "GenerateCode.ag" #-}
_lhsIparamInstMap
{-# LINE 5396 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 5402 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 5408 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOsyn =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIsyn
{-# LINE 5414 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOterminals =
({-# LINE 90 "GenerateCode.ag" #-}
_lhsIterminals
{-# LINE 5420 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOunfoldSemDom =
({-# LINE 742 "GenerateCode.ag" #-}
_lhsIunfoldSemDom
{-# LINE 5426 "GenerateCode.hs" #-}
)
-- copy rule (down)
_vssOvisitedSet =
({-# LINE 140 "GenerateCode.ag" #-}
_lhsIvisitedSet
{-# LINE 5432 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOallNts =
({-# LINE 127 "GenerateCode.ag" #-}
_lhsIallNts
{-# LINE 5438 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOaroundMap =
({-# LINE 572 "GenerateCode.ag" #-}
_lhsIaroundMap
{-# LINE 5444 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOchildren =
({-# LINE 252 "GenerateCode.ag" #-}
_lhsIchildren
{-# LINE 5450 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOcon =
({-# LINE 89 "GenerateCode.ag" #-}
_lhsIcon
{-# LINE 5456 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOinh =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIinh
{-# LINE 5462 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOinstVisitNrs =
({-# LINE 552 "GenerateCode.ag" #-}
_lhsIinstVisitNrs
{-# LINE 5468 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOmergeMap =
({-# LINE 588 "GenerateCode.ag" #-}
_lhsImergeMap
{-# LINE 5474 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOnr =
({-# LINE 271 "GenerateCode.ag" #-}
_lhsInr
{-# LINE 5480 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOnt =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsInt
{-# LINE 5486 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_intraOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_o_case
{-# LINE 5492 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 5498 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 5504 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 5510 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 5516 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 5522 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 5528 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 5534 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 5540 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 5546 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 5552 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_intraOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_o_splitsems
{-# LINE 5558 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 5564 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 5570 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 5576 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 5582 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOparamInstMap =
({-# LINE 101 "GenerateCode.ag" #-}
_lhsIparamInstMap
{-# LINE 5588 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 5594 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 5600 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOsyn =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIsyn
{-# LINE 5606 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOterminals =
({-# LINE 90 "GenerateCode.ag" #-}
_lhsIterminals
{-# LINE 5612 "GenerateCode.hs" #-}
)
-- copy rule (down)
_intraOunfoldSemDom =
({-# LINE 742 "GenerateCode.ag" #-}
_lhsIunfoldSemDom
{-# LINE 5618 "GenerateCode.hs" #-}
)
-- copy rule (chain)
_intraOvisitedSet =
({-# LINE 140 "GenerateCode.ag" #-}
_vssIvisitedSet
{-# LINE 5624 "GenerateCode.hs" #-}
)
( _vssIallTpsFound,_vssIblockDecls,_vssIcomments,_vssIdecls,_vssIdeclsAbove,_vssIdefinedInsts,_vssIexprs,_vssItSigs,_vssItps,_vssIusedVars,_vssIvisitedSet) =
vss_ _vssOallNts _vssOaroundMap _vssOchildren _vssOcon _vssOdeclsAbove _vssOinh _vssOinstVisitNrs _vssOlastExpr _vssOmergeMap _vssOnr _vssOnt _vssOo_case _vssOo_cata _vssOo_costcentre _vssOo_data _vssOo_linePragmas _vssOo_monadic _vssOo_newtypes _vssOo_pretty _vssOo_rename _vssOo_sem _vssOo_sig _vssOo_splitsems _vssOo_strictwrap _vssOo_traces _vssOo_unbox _vssOoptions _vssOparamInstMap _vssOparamMap _vssOprefix _vssOsyn _vssOterminals _vssOunfoldSemDom _vssOvisitedSet _vssOwhat
( _intraIallTpsFound,_intraIblockDecls,_intraIcomments,_intraIdecls,_intraIdeclsAbove,_intraIdefinedInsts,_intraIexprs,_intraItSigs,_intraItps,_intraIusedVars,_intraIvisitedSet) =
intra_ _intraOallNts _intraOaroundMap _intraOchildren _intraOcon _intraOdeclsAbove _intraOinh _intraOinstVisitNrs _intraOlastExpr _intraOmergeMap _intraOnr _intraOnt _intraOo_case _intraOo_cata _intraOo_costcentre _intraOo_data _intraOo_linePragmas _intraOo_monadic _intraOo_newtypes _intraOo_pretty _intraOo_rename _intraOo_sem _intraOo_sig _intraOo_splitsems _intraOo_strictwrap _intraOo_traces _intraOo_unbox _intraOoptions _intraOparamInstMap _intraOparamMap _intraOprefix _intraOsyn _intraOterminals _intraOunfoldSemDom _intraOvisitedSet _intraOwhat
in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames,_lhsOvisitedSet))) )
-- CVisits -----------------------------------------------------
{-
visit 0:
inherited attributes:
allNts : Set NontermIdent
allPragmas : PragmaMap
aroundMap : Set Identifier
children : [(Identifier,Type, Maybe (Maybe Type))]
con : ConstructorIdent
contextMap : ContextMap
inh : Attributes
instVisitNrs : Map Identifier Int
mergeMap : Map Identifier (Identifier, [Identifier])
nr : Int
nt : NontermIdent
o_case : Bool
o_cata : Bool
o_costcentre : Bool
o_data : Maybe Bool
o_linePragmas : Bool
o_monadic : Bool
o_newtypes : Bool
o_pretty : Bool
o_rename : Bool
o_sem : Bool
o_sig : Bool
o_splitsems : Bool
o_strictwrap : Bool
o_traces : Bool
o_unbox : Bool
options : Options
paramInstMap : Map Identifier (NontermIdent, [String])
paramMap : ParamMap
prefix : String
syn : Attributes
terminals : [Identifier]
unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type
with_sig : Bool
chained attribute:
visitedSet : Set Identifier
synthesized attributes:
comments : [String]
decls : Decls
gatherInstVisitNrs : Map Identifier Int
intra : Exprs
intraVars : Set String
isNil : Bool
semNames : [String]
alternatives:
alternative Cons:
child hd : CVisit
child tl : CVisits
alternative Nil:
-}
-- cata
sem_CVisits :: CVisits ->
T_CVisits
sem_CVisits list =
(Prelude.foldr sem_CVisits_Cons sem_CVisits_Nil (Prelude.map sem_CVisit list) )
-- semantic domain
newtype T_CVisits = T_CVisits ((Set NontermIdent) ->
PragmaMap ->
(Set Identifier) ->
([(Identifier,Type, Maybe (Maybe Type))]) ->
ConstructorIdent ->
ContextMap ->
Attributes ->
(Map Identifier Int) ->
(Map Identifier (Identifier, [Identifier])) ->
Int ->
NontermIdent ->
Bool ->
Bool ->
Bool ->
(Maybe Bool) ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Options ->
(Map Identifier (NontermIdent, [String])) ->
ParamMap ->
String ->
Attributes ->
([Identifier]) ->
(NontermIdent -> Int -> [String] -> Code.Type) ->
(Set Identifier) ->
Bool ->
( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),Bool,([String]),(Set Identifier)))
data Inh_CVisits = Inh_CVisits {allNts_Inh_CVisits :: !((Set NontermIdent)),allPragmas_Inh_CVisits :: !(PragmaMap),aroundMap_Inh_CVisits :: !((Set Identifier)),children_Inh_CVisits :: !(([(Identifier,Type, Maybe (Maybe Type))])),con_Inh_CVisits :: !(ConstructorIdent),contextMap_Inh_CVisits :: !(ContextMap),inh_Inh_CVisits :: !(Attributes),instVisitNrs_Inh_CVisits :: !((Map Identifier Int)),mergeMap_Inh_CVisits :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_CVisits :: !(Int),nt_Inh_CVisits :: !(NontermIdent),o_case_Inh_CVisits :: !(Bool),o_cata_Inh_CVisits :: !(Bool),o_costcentre_Inh_CVisits :: !(Bool),o_data_Inh_CVisits :: !((Maybe Bool)),o_linePragmas_Inh_CVisits :: !(Bool),o_monadic_Inh_CVisits :: !(Bool),o_newtypes_Inh_CVisits :: !(Bool),o_pretty_Inh_CVisits :: !(Bool),o_rename_Inh_CVisits :: !(Bool),o_sem_Inh_CVisits :: !(Bool),o_sig_Inh_CVisits :: !(Bool),o_splitsems_Inh_CVisits :: !(Bool),o_strictwrap_Inh_CVisits :: !(Bool),o_traces_Inh_CVisits :: !(Bool),o_unbox_Inh_CVisits :: !(Bool),options_Inh_CVisits :: !(Options),paramInstMap_Inh_CVisits :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisits :: !(ParamMap),prefix_Inh_CVisits :: !(String),syn_Inh_CVisits :: !(Attributes),terminals_Inh_CVisits :: !(([Identifier])),unfoldSemDom_Inh_CVisits :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CVisits :: !((Set Identifier)),with_sig_Inh_CVisits :: !(Bool)}
data Syn_CVisits = Syn_CVisits {comments_Syn_CVisits :: !(([String])),decls_Syn_CVisits :: !(Decls),gatherInstVisitNrs_Syn_CVisits :: !((Map Identifier Int)),intra_Syn_CVisits :: !(Exprs),intraVars_Syn_CVisits :: !((Set String)),isNil_Syn_CVisits :: !(Bool),semNames_Syn_CVisits :: !(([String])),visitedSet_Syn_CVisits :: !((Set Identifier))}
wrap_CVisits :: T_CVisits ->
Inh_CVisits ->
Syn_CVisits
wrap_CVisits (T_CVisits sem ) (Inh_CVisits _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig ) =
(let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig
in (Syn_CVisits _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOisNil _lhsOsemNames _lhsOvisitedSet ))
sem_CVisits_Cons :: T_CVisit ->
T_CVisits ->
T_CVisits
sem_CVisits_Cons (T_CVisit hd_ ) (T_CVisits tl_ ) =
(T_CVisits (\ _lhsIallNts
_lhsIallPragmas
_lhsIaroundMap
_lhsIchildren
_lhsIcon
_lhsIcontextMap
_lhsIinh
_lhsIinstVisitNrs
_lhsImergeMap
_lhsInr
_lhsInt
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamInstMap
_lhsIparamMap
_lhsIprefix
_lhsIsyn
_lhsIterminals
_lhsIunfoldSemDom
_lhsIvisitedSet
_lhsIwith_sig ->
(let _tlOnr :: Int
_lhsOisNil :: Bool
_hdOisLast :: Bool
_hdOnextIntra :: Exprs
_hdOnextIntraVars :: (Set String)
_lhsOintra :: Exprs
_lhsOintraVars :: (Set String)
_lhsOdecls :: Decls
_hdOdecls :: Decls
_lhsOcomments :: ([String])
_lhsOgatherInstVisitNrs :: (Map Identifier Int)
_lhsOsemNames :: ([String])
_lhsOvisitedSet :: (Set Identifier)
_hdOallNts :: (Set NontermIdent)
_hdOallPragmas :: PragmaMap
_hdOaroundMap :: (Set Identifier)
_hdOchildren :: ([(Identifier,Type, Maybe (Maybe Type))])
_hdOcon :: ConstructorIdent
_hdOcontextMap :: ContextMap
_hdOinh :: Attributes
_hdOinstVisitNrs :: (Map Identifier Int)
_hdOmergeMap :: (Map Identifier (Identifier, [Identifier]))
_hdOnr :: Int
_hdOnt :: NontermIdent
_hdOo_case :: Bool
_hdOo_cata :: Bool
_hdOo_costcentre :: Bool
_hdOo_data :: (Maybe Bool)
_hdOo_linePragmas :: Bool
_hdOo_monadic :: Bool
_hdOo_newtypes :: Bool
_hdOo_pretty :: Bool
_hdOo_rename :: Bool
_hdOo_sem :: Bool
_hdOo_sig :: Bool
_hdOo_splitsems :: Bool
_hdOo_strictwrap :: Bool
_hdOo_traces :: Bool
_hdOo_unbox :: Bool
_hdOoptions :: Options
_hdOparamInstMap :: (Map Identifier (NontermIdent, [String]))
_hdOparamMap :: ParamMap
_hdOprefix :: String
_hdOsyn :: Attributes
_hdOterminals :: ([Identifier])
_hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)
_hdOvisitedSet :: (Set Identifier)
_hdOwith_sig :: Bool
_tlOallNts :: (Set NontermIdent)
_tlOallPragmas :: PragmaMap
_tlOaroundMap :: (Set Identifier)
_tlOchildren :: ([(Identifier,Type, Maybe (Maybe Type))])
_tlOcon :: ConstructorIdent
_tlOcontextMap :: ContextMap
_tlOinh :: Attributes
_tlOinstVisitNrs :: (Map Identifier Int)
_tlOmergeMap :: (Map Identifier (Identifier, [Identifier]))
_tlOnt :: NontermIdent
_tlOo_case :: Bool
_tlOo_cata :: Bool
_tlOo_costcentre :: Bool
_tlOo_data :: (Maybe Bool)
_tlOo_linePragmas :: Bool
_tlOo_monadic :: Bool
_tlOo_newtypes :: Bool
_tlOo_pretty :: Bool
_tlOo_rename :: Bool
_tlOo_sem :: Bool
_tlOo_sig :: Bool
_tlOo_splitsems :: Bool
_tlOo_strictwrap :: Bool
_tlOo_traces :: Bool
_tlOo_unbox :: Bool
_tlOoptions :: Options
_tlOparamInstMap :: (Map Identifier (NontermIdent, [String]))
_tlOparamMap :: ParamMap
_tlOprefix :: String
_tlOsyn :: Attributes
_tlOterminals :: ([Identifier])
_tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)
_tlOvisitedSet :: (Set Identifier)
_tlOwith_sig :: Bool
_hdIcomments :: ([String])
_hdIdecls :: Decls
_hdIgatherInstVisitNrs :: (Map Identifier Int)
_hdIintra :: Exprs
_hdIintraVars :: (Set String)
_hdIsemNames :: ([String])
_hdIvisitedSet :: (Set Identifier)
_tlIcomments :: ([String])
_tlIdecls :: Decls
_tlIgatherInstVisitNrs :: (Map Identifier Int)
_tlIintra :: Exprs
_tlIintraVars :: (Set String)
_tlIisNil :: Bool
_tlIsemNames :: ([String])
_tlIvisitedSet :: (Set Identifier)
-- "GenerateCode.ag"(line 275, column 11)
_tlOnr =
({-# LINE 275 "GenerateCode.ag" #-}
_lhsInr + 1
{-# LINE 5875 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 288, column 12)
_lhsOisNil =
({-# LINE 288 "GenerateCode.ag" #-}
False
{-# LINE 5881 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 289, column 12)
_hdOisLast =
({-# LINE 289 "GenerateCode.ag" #-}
_tlIisNil
{-# LINE 5887 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 306, column 12)
_hdOnextIntra =
({-# LINE 306 "GenerateCode.ag" #-}
_tlIintra
{-# LINE 5893 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 307, column 12)
_hdOnextIntraVars =
({-# LINE 307 "GenerateCode.ag" #-}
_tlIintraVars
{-# LINE 5899 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 308, column 12)
_lhsOintra =
({-# LINE 308 "GenerateCode.ag" #-}
_hdIintra
{-# LINE 5905 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 309, column 12)
_lhsOintraVars =
({-# LINE 309 "GenerateCode.ag" #-}
_hdIintraVars
{-# LINE 5911 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 433, column 11)
_lhsOdecls =
({-# LINE 433 "GenerateCode.ag" #-}
_hdIdecls
{-# LINE 5917 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 434, column 11)
_hdOdecls =
({-# LINE 434 "GenerateCode.ag" #-}
_tlIdecls
{-# LINE 5923 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 861, column 52)
_lhsOcomments =
({-# LINE 861 "GenerateCode.ag" #-}
_hdIcomments ++ _tlIcomments
{-# LINE 5929 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 553, column 44)
_lhsOgatherInstVisitNrs =
({-# LINE 553 "GenerateCode.ag" #-}
_hdIgatherInstVisitNrs `Map.union` _tlIgatherInstVisitNrs
{-# LINE 5935 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 1125, column 61)
_lhsOsemNames =
({-# LINE 1125 "GenerateCode.ag" #-}
_hdIsemNames ++ _tlIsemNames
{-# LINE 5941 "GenerateCode.hs" #-}
)
-- copy rule (up)
_lhsOvisitedSet =
({-# LINE 140 "GenerateCode.ag" #-}
_tlIvisitedSet
{-# LINE 5947 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOallNts =
({-# LINE 127 "GenerateCode.ag" #-}
_lhsIallNts
{-# LINE 5953 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOallPragmas =
({-# LINE 73 "GenerateCode.ag" #-}
_lhsIallPragmas
{-# LINE 5959 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOaroundMap =
({-# LINE 572 "GenerateCode.ag" #-}
_lhsIaroundMap
{-# LINE 5965 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOchildren =
({-# LINE 412 "GenerateCode.ag" #-}
_lhsIchildren
{-# LINE 5971 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOcon =
({-# LINE 89 "GenerateCode.ag" #-}
_lhsIcon
{-# LINE 5977 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOcontextMap =
({-# LINE 115 "GenerateCode.ag" #-}
_lhsIcontextMap
{-# LINE 5983 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOinh =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIinh
{-# LINE 5989 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOinstVisitNrs =
({-# LINE 552 "GenerateCode.ag" #-}
_lhsIinstVisitNrs
{-# LINE 5995 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOmergeMap =
({-# LINE 588 "GenerateCode.ag" #-}
_lhsImergeMap
{-# LINE 6001 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOnr =
({-# LINE 271 "GenerateCode.ag" #-}
_lhsInr
{-# LINE 6007 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOnt =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsInt
{-# LINE 6013 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_case
{-# LINE 6019 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 6025 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 6031 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 6037 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 6043 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 6049 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 6055 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 6061 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 6067 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 6073 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 6079 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_splitsems
{-# LINE 6085 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 6091 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 6097 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 6103 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 6109 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOparamInstMap =
({-# LINE 101 "GenerateCode.ag" #-}
_lhsIparamInstMap
{-# LINE 6115 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 6121 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 6127 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOsyn =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIsyn
{-# LINE 6133 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOterminals =
({-# LINE 90 "GenerateCode.ag" #-}
_lhsIterminals
{-# LINE 6139 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOunfoldSemDom =
({-# LINE 742 "GenerateCode.ag" #-}
_lhsIunfoldSemDom
{-# LINE 6145 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOvisitedSet =
({-# LINE 140 "GenerateCode.ag" #-}
_lhsIvisitedSet
{-# LINE 6151 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOwith_sig =
({-# LINE 844 "GenerateCode.ag" #-}
_lhsIwith_sig
{-# LINE 6157 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOallNts =
({-# LINE 127 "GenerateCode.ag" #-}
_lhsIallNts
{-# LINE 6163 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOallPragmas =
({-# LINE 73 "GenerateCode.ag" #-}
_lhsIallPragmas
{-# LINE 6169 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOaroundMap =
({-# LINE 572 "GenerateCode.ag" #-}
_lhsIaroundMap
{-# LINE 6175 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOchildren =
({-# LINE 412 "GenerateCode.ag" #-}
_lhsIchildren
{-# LINE 6181 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOcon =
({-# LINE 89 "GenerateCode.ag" #-}
_lhsIcon
{-# LINE 6187 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOcontextMap =
({-# LINE 115 "GenerateCode.ag" #-}
_lhsIcontextMap
{-# LINE 6193 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOinh =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIinh
{-# LINE 6199 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOinstVisitNrs =
({-# LINE 552 "GenerateCode.ag" #-}
_lhsIinstVisitNrs
{-# LINE 6205 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOmergeMap =
({-# LINE 588 "GenerateCode.ag" #-}
_lhsImergeMap
{-# LINE 6211 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOnt =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsInt
{-# LINE 6217 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_case
{-# LINE 6223 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 6229 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 6235 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 6241 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 6247 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 6253 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 6259 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 6265 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 6271 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 6277 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 6283 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_splitsems
{-# LINE 6289 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 6295 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 6301 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 6307 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 6313 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOparamInstMap =
({-# LINE 101 "GenerateCode.ag" #-}
_lhsIparamInstMap
{-# LINE 6319 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 6325 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 6331 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOsyn =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIsyn
{-# LINE 6337 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOterminals =
({-# LINE 90 "GenerateCode.ag" #-}
_lhsIterminals
{-# LINE 6343 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOunfoldSemDom =
({-# LINE 742 "GenerateCode.ag" #-}
_lhsIunfoldSemDom
{-# LINE 6349 "GenerateCode.hs" #-}
)
-- copy rule (chain)
_tlOvisitedSet =
({-# LINE 140 "GenerateCode.ag" #-}
_hdIvisitedSet
{-# LINE 6355 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOwith_sig =
({-# LINE 844 "GenerateCode.ag" #-}
_lhsIwith_sig
{-# LINE 6361 "GenerateCode.hs" #-}
)
( _hdIcomments,_hdIdecls,_hdIgatherInstVisitNrs,_hdIintra,_hdIintraVars,_hdIsemNames,_hdIvisitedSet) =
hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOchildren _hdOcon _hdOcontextMap _hdOdecls _hdOinh _hdOinstVisitNrs _hdOisLast _hdOmergeMap _hdOnextIntra _hdOnextIntraVars _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOvisitedSet _hdOwith_sig
( _tlIcomments,_tlIdecls,_tlIgatherInstVisitNrs,_tlIintra,_tlIintraVars,_tlIisNil,_tlIsemNames,_tlIvisitedSet) =
tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOchildren _tlOcon _tlOcontextMap _tlOinh _tlOinstVisitNrs _tlOmergeMap _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOvisitedSet _tlOwith_sig
in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet))) )
sem_CVisits_Nil :: T_CVisits
sem_CVisits_Nil =
(T_CVisits (\ _lhsIallNts
_lhsIallPragmas
_lhsIaroundMap
_lhsIchildren
_lhsIcon
_lhsIcontextMap
_lhsIinh
_lhsIinstVisitNrs
_lhsImergeMap
_lhsInr
_lhsInt
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamInstMap
_lhsIparamMap
_lhsIprefix
_lhsIsyn
_lhsIterminals
_lhsIunfoldSemDom
_lhsIvisitedSet
_lhsIwith_sig ->
(let _lhsOisNil :: Bool
_lhsOintra :: Exprs
_lhsOintraVars :: (Set String)
_lhsOdecls :: Decls
_lhsOcomments :: ([String])
_lhsOgatherInstVisitNrs :: (Map Identifier Int)
_lhsOsemNames :: ([String])
_lhsOvisitedSet :: (Set Identifier)
-- "GenerateCode.ag"(line 290, column 10)
_lhsOisNil =
({-# LINE 290 "GenerateCode.ag" #-}
True
{-# LINE 6417 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 310, column 10)
_lhsOintra =
({-# LINE 310 "GenerateCode.ag" #-}
[]
{-# LINE 6423 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 311, column 10)
_lhsOintraVars =
({-# LINE 311 "GenerateCode.ag" #-}
Set.empty
{-# LINE 6429 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 432, column 11)
_lhsOdecls =
({-# LINE 432 "GenerateCode.ag" #-}
[]
{-# LINE 6435 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 861, column 52)
_lhsOcomments =
({-# LINE 861 "GenerateCode.ag" #-}
[]
{-# LINE 6441 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 553, column 44)
_lhsOgatherInstVisitNrs =
({-# LINE 553 "GenerateCode.ag" #-}
Map.empty
{-# LINE 6447 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 1125, column 61)
_lhsOsemNames =
({-# LINE 1125 "GenerateCode.ag" #-}
[]
{-# LINE 6453 "GenerateCode.hs" #-}
)
-- copy rule (chain)
_lhsOvisitedSet =
({-# LINE 140 "GenerateCode.ag" #-}
_lhsIvisitedSet
{-# LINE 6459 "GenerateCode.hs" #-}
)
in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet))) )
-- DeclBlocks --------------------------------------------------
{-
visit 0:
inherited attributes:
blockNr : Int
lastExprVars : [String]
nextVisitDecls : [Decl]
optCase : Bool
prefix : String
synthesized attributes:
callExpr : Expr
decls : [Decl]
freeVars : [String]
alternatives:
alternative DeclBlock:
child defs : {[Decl]}
child visit : {Decl}
child next : DeclBlocks
visit 0:
local lambdaName : _
local pragmaDecl : _
local freeVars : _
local decl : _
alternative DeclTerminator:
child defs : {[Decl]}
child result : {Expr}
visit 0:
local lambdaName : _
local pragmaDecl : _
local freeVars : _
-}
-- cata
sem_DeclBlocks :: DeclBlocks ->
T_DeclBlocks
sem_DeclBlocks (DeclBlock _defs _visit _next ) =
(sem_DeclBlocks_DeclBlock _defs _visit (sem_DeclBlocks _next ) )
sem_DeclBlocks (DeclTerminator _defs _result ) =
(sem_DeclBlocks_DeclTerminator _defs _result )
-- semantic domain
newtype T_DeclBlocks = T_DeclBlocks (Int ->
([String]) ->
([Decl]) ->
Bool ->
String ->
( Expr,([Decl]),([String])))
data Inh_DeclBlocks = Inh_DeclBlocks {blockNr_Inh_DeclBlocks :: !(Int),lastExprVars_Inh_DeclBlocks :: !(([String])),nextVisitDecls_Inh_DeclBlocks :: !(([Decl])),optCase_Inh_DeclBlocks :: !(Bool),prefix_Inh_DeclBlocks :: !(String)}
data Syn_DeclBlocks = Syn_DeclBlocks {callExpr_Syn_DeclBlocks :: !(Expr),decls_Syn_DeclBlocks :: !(([Decl])),freeVars_Syn_DeclBlocks :: !(([String]))}
wrap_DeclBlocks :: T_DeclBlocks ->
Inh_DeclBlocks ->
Syn_DeclBlocks
wrap_DeclBlocks (T_DeclBlocks sem ) (Inh_DeclBlocks _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) =
(let ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars) = sem _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix
in (Syn_DeclBlocks _lhsOcallExpr _lhsOdecls _lhsOfreeVars ))
sem_DeclBlocks_DeclBlock :: ([Decl]) ->
Decl ->
T_DeclBlocks ->
T_DeclBlocks
sem_DeclBlocks_DeclBlock defs_ visit_ (T_DeclBlocks next_ ) =
(T_DeclBlocks (\ _lhsIblockNr
_lhsIlastExprVars
_lhsInextVisitDecls
_lhsIoptCase
_lhsIprefix ->
(let _nextOblockNr :: Int
_lhsOcallExpr :: Expr
_lhsOdecls :: ([Decl])
_lhsOfreeVars :: ([String])
_nextOlastExprVars :: ([String])
_nextOnextVisitDecls :: ([Decl])
_nextOoptCase :: Bool
_nextOprefix :: String
_nextIcallExpr :: Expr
_nextIdecls :: ([Decl])
_nextIfreeVars :: ([String])
-- "GenerateCode.ag"(line 654, column 7)
_nextOblockNr =
({-# LINE 654 "GenerateCode.ag" #-}
_lhsIblockNr + 1
{-# LINE 6540 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 659, column 7)
_lambdaName =
({-# LINE 659 "GenerateCode.ag" #-}
_lhsIprefix ++ "_block" ++ show _lhsIblockNr
{-# LINE 6546 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 660, column 7)
_pragmaDecl =
({-# LINE 660 "GenerateCode.ag" #-}
PragmaDecl ("NOINLINE " ++ _lambdaName )
{-# LINE 6552 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 661, column 7)
_lhsOcallExpr =
({-# LINE 661 "GenerateCode.ag" #-}
App _lambdaName (map SimpleExpr _freeVars )
{-# LINE 6558 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 665, column 7)
_freeVars =
({-# LINE 665 "GenerateCode.ag" #-}
freevars _nextIfreeVars (visit_ : defs_)
{-# LINE 6564 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 672, column 7)
_decl =
({-# LINE 672 "GenerateCode.ag" #-}
mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ [visit_]) _nextIcallExpr
{-# LINE 6570 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 673, column 7)
_lhsOdecls =
({-# LINE 673 "GenerateCode.ag" #-}
(if _lhsIblockNr > 1 then [_pragmaDecl ] else []) ++ [_decl ] ++ _nextIdecls
{-# LINE 6576 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_lhsOfreeVars =
({-# LINE 656 "GenerateCode.ag" #-}
_freeVars
{-# LINE 6582 "GenerateCode.hs" #-}
)
-- copy rule (down)
_nextOlastExprVars =
({-# LINE 640 "GenerateCode.ag" #-}
_lhsIlastExprVars
{-# LINE 6588 "GenerateCode.hs" #-}
)
-- copy rule (down)
_nextOnextVisitDecls =
({-# LINE 640 "GenerateCode.ag" #-}
_lhsInextVisitDecls
{-# LINE 6594 "GenerateCode.hs" #-}
)
-- copy rule (down)
_nextOoptCase =
({-# LINE 640 "GenerateCode.ag" #-}
_lhsIoptCase
{-# LINE 6600 "GenerateCode.hs" #-}
)
-- copy rule (down)
_nextOprefix =
({-# LINE 640 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 6606 "GenerateCode.hs" #-}
)
( _nextIcallExpr,_nextIdecls,_nextIfreeVars) =
next_ _nextOblockNr _nextOlastExprVars _nextOnextVisitDecls _nextOoptCase _nextOprefix
in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))) )
sem_DeclBlocks_DeclTerminator :: ([Decl]) ->
Expr ->
T_DeclBlocks
sem_DeclBlocks_DeclTerminator defs_ result_ =
(T_DeclBlocks (\ _lhsIblockNr
_lhsIlastExprVars
_lhsInextVisitDecls
_lhsIoptCase
_lhsIprefix ->
(let _lhsOcallExpr :: Expr
_lhsOdecls :: ([Decl])
_lhsOfreeVars :: ([String])
-- "GenerateCode.ag"(line 659, column 7)
_lambdaName =
({-# LINE 659 "GenerateCode.ag" #-}
_lhsIprefix ++ "_block" ++ show _lhsIblockNr
{-# LINE 6627 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 660, column 7)
_pragmaDecl =
({-# LINE 660 "GenerateCode.ag" #-}
PragmaDecl ("NOINLINE " ++ _lambdaName )
{-# LINE 6633 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 661, column 7)
_lhsOcallExpr =
({-# LINE 661 "GenerateCode.ag" #-}
App _lambdaName (map SimpleExpr _freeVars )
{-# LINE 6639 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 663, column 7)
_freeVars =
({-# LINE 663 "GenerateCode.ag" #-}
freevars _lhsIlastExprVars (defs_ ++ _lhsInextVisitDecls)
{-# LINE 6645 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 670, column 7)
_lhsOdecls =
({-# LINE 670 "GenerateCode.ag" #-}
[ mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ _lhsInextVisitDecls) result_ ]
{-# LINE 6651 "GenerateCode.hs" #-}
)
-- copy rule (from local)
_lhsOfreeVars =
({-# LINE 656 "GenerateCode.ag" #-}
_freeVars
{-# LINE 6657 "GenerateCode.hs" #-}
)
in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))) )
-- DeclBlocksRoot ----------------------------------------------
{-
visit 0:
inherited attributes:
lastExprVars : [String]
nextVisitDecls : [Decl]
optCase : Bool
prefix : String
synthesized attributes:
firstCall : Expr
lambdas : [Decl]
alternatives:
alternative DeclBlocksRoot:
child blocks : DeclBlocks
-}
-- cata
sem_DeclBlocksRoot :: DeclBlocksRoot ->
T_DeclBlocksRoot
sem_DeclBlocksRoot (DeclBlocksRoot _blocks ) =
(sem_DeclBlocksRoot_DeclBlocksRoot (sem_DeclBlocks _blocks ) )
-- semantic domain
newtype T_DeclBlocksRoot = T_DeclBlocksRoot (([String]) ->
([Decl]) ->
Bool ->
String ->
( Expr,([Decl])))
data Inh_DeclBlocksRoot = Inh_DeclBlocksRoot {lastExprVars_Inh_DeclBlocksRoot :: !(([String])),nextVisitDecls_Inh_DeclBlocksRoot :: !(([Decl])),optCase_Inh_DeclBlocksRoot :: !(Bool),prefix_Inh_DeclBlocksRoot :: !(String)}
data Syn_DeclBlocksRoot = Syn_DeclBlocksRoot {firstCall_Syn_DeclBlocksRoot :: !(Expr),lambdas_Syn_DeclBlocksRoot :: !(([Decl]))}
wrap_DeclBlocksRoot :: T_DeclBlocksRoot ->
Inh_DeclBlocksRoot ->
Syn_DeclBlocksRoot
wrap_DeclBlocksRoot (T_DeclBlocksRoot sem ) (Inh_DeclBlocksRoot _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) =
(let ( _lhsOfirstCall,_lhsOlambdas) = sem _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix
in (Syn_DeclBlocksRoot _lhsOfirstCall _lhsOlambdas ))
sem_DeclBlocksRoot_DeclBlocksRoot :: T_DeclBlocks ->
T_DeclBlocksRoot
sem_DeclBlocksRoot_DeclBlocksRoot (T_DeclBlocks blocks_ ) =
(T_DeclBlocksRoot (\ _lhsIlastExprVars
_lhsInextVisitDecls
_lhsIoptCase
_lhsIprefix ->
(let _lhsOlambdas :: ([Decl])
_lhsOfirstCall :: Expr
_blocksOblockNr :: Int
_blocksOlastExprVars :: ([String])
_blocksOnextVisitDecls :: ([Decl])
_blocksOoptCase :: Bool
_blocksOprefix :: String
_blocksIcallExpr :: Expr
_blocksIdecls :: ([Decl])
_blocksIfreeVars :: ([String])
-- "GenerateCode.ag"(line 645, column 7)
_lhsOlambdas =
({-# LINE 645 "GenerateCode.ag" #-}
_blocksIdecls
{-# LINE 6715 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 646, column 7)
_lhsOfirstCall =
({-# LINE 646 "GenerateCode.ag" #-}
_blocksIcallExpr
{-# LINE 6721 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 651, column 7)
_blocksOblockNr =
({-# LINE 651 "GenerateCode.ag" #-}
1
{-# LINE 6727 "GenerateCode.hs" #-}
)
-- copy rule (down)
_blocksOlastExprVars =
({-# LINE 640 "GenerateCode.ag" #-}
_lhsIlastExprVars
{-# LINE 6733 "GenerateCode.hs" #-}
)
-- copy rule (down)
_blocksOnextVisitDecls =
({-# LINE 640 "GenerateCode.ag" #-}
_lhsInextVisitDecls
{-# LINE 6739 "GenerateCode.hs" #-}
)
-- copy rule (down)
_blocksOoptCase =
({-# LINE 640 "GenerateCode.ag" #-}
_lhsIoptCase
{-# LINE 6745 "GenerateCode.hs" #-}
)
-- copy rule (down)
_blocksOprefix =
({-# LINE 640 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 6751 "GenerateCode.hs" #-}
)
( _blocksIcallExpr,_blocksIdecls,_blocksIfreeVars) =
blocks_ _blocksOblockNr _blocksOlastExprVars _blocksOnextVisitDecls _blocksOoptCase _blocksOprefix
in ( _lhsOfirstCall,_lhsOlambdas))) )
-- Pattern -----------------------------------------------------
{-
visit 0:
synthesized attributes:
copy : SELF
definedInsts : [Identifier]
patternAttributes : [(Identifier, Identifier)]
alternatives:
alternative Alias:
child field : {Identifier}
child attr : {Identifier}
child pat : Pattern
child parts : Patterns
visit 0:
local copy : _
alternative Constr:
child name : {ConstructorIdent}
child pats : Patterns
visit 0:
local copy : _
alternative Irrefutable:
child pat : Pattern
visit 0:
local copy : _
alternative Product:
child pos : {Pos}
child pats : Patterns
visit 0:
local copy : _
alternative Underscore:
child pos : {Pos}
visit 0:
local copy : _
-}
-- cata
sem_Pattern :: Pattern ->
T_Pattern
sem_Pattern (Alias _field _attr _pat _parts ) =
(sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) )
sem_Pattern (Constr _name _pats ) =
(sem_Pattern_Constr _name (sem_Patterns _pats ) )
sem_Pattern (Irrefutable _pat ) =
(sem_Pattern_Irrefutable (sem_Pattern _pat ) )
sem_Pattern (Product _pos _pats ) =
(sem_Pattern_Product _pos (sem_Patterns _pats ) )
sem_Pattern (Underscore _pos ) =
(sem_Pattern_Underscore _pos )
-- semantic domain
newtype T_Pattern = T_Pattern (( Pattern ,([Identifier]),([(Identifier, Identifier)])))
data Inh_Pattern = Inh_Pattern {}
data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),definedInsts_Syn_Pattern :: !(([Identifier])),patternAttributes_Syn_Pattern :: !(([(Identifier, Identifier)]))}
wrap_Pattern :: T_Pattern ->
Inh_Pattern ->
Syn_Pattern
wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) =
(let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = sem
in (Syn_Pattern _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes ))
sem_Pattern_Alias :: Identifier ->
Identifier ->
T_Pattern ->
T_Patterns ->
T_Pattern
sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) =
(T_Pattern (let _lhsOdefinedInsts :: ([Identifier])
_lhsOpatternAttributes :: ([(Identifier, Identifier)])
_lhsOcopy :: Pattern
_patIcopy :: Pattern
_patIdefinedInsts :: ([Identifier])
_patIpatternAttributes :: ([(Identifier, Identifier)])
_partsIcopy :: Patterns
_partsIdefinedInsts :: ([Identifier])
_partsIpatternAttributes :: ([(Identifier, Identifier)])
-- "GenerateCode.ag"(line 256, column 11)
_lhsOdefinedInsts =
({-# LINE 256 "GenerateCode.ag" #-}
(if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts
{-# LINE 6832 "GenerateCode.hs" #-}
)
-- "GenerateCode.ag"(line 264, column 7)
_lhsOpatternAttributes =
({-# LINE 264 "GenerateCode.ag" #-}
(field_,attr_) : (_patIpatternAttributes ++ _partsIpatternAttributes)
{-# LINE 6838 "GenerateCode.hs" #-}
)
-- self rule
_copy =
({-# LINE 23 "./Patterns.ag" #-}
Alias field_ attr_ _patIcopy _partsIcopy
{-# LINE 6844 "GenerateCode.hs" #-}
)
-- self rule
_lhsOcopy =
({-# LINE 23 "./Patterns.ag" #-}
_copy
{-# LINE 6850 "GenerateCode.hs" #-}
)
( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) =
pat_
( _partsIcopy,_partsIdefinedInsts,_partsIpatternAttributes) =
parts_
in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )
sem_Pattern_Constr :: ConstructorIdent ->
T_Patterns ->
T_Pattern
sem_Pattern_Constr name_ (T_Patterns pats_ ) =
(T_Pattern (let _lhsOdefinedInsts :: ([Identifier])
_lhsOpatternAttributes :: ([(Identifier, Identifier)])
_lhsOcopy :: Pattern
_patsIcopy :: Patterns
_patsIdefinedInsts :: ([Identifier])
_patsIpatternAttributes :: ([(Identifier, Identifier)])
-- use rule "GenerateCode.ag"(line 254, column 55)
_lhsOdefinedInsts =
({-# LINE 254 "GenerateCode.ag" #-}
_patsIdefinedInsts
{-# LINE 6871 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 261, column 47)
_lhsOpatternAttributes =
({-# LINE 261 "GenerateCode.ag" #-}
_patsIpatternAttributes
{-# LINE 6877 "GenerateCode.hs" #-}
)
-- self rule
_copy =
({-# LINE 23 "./Patterns.ag" #-}
Constr name_ _patsIcopy
{-# LINE 6883 "GenerateCode.hs" #-}
)
-- self rule
_lhsOcopy =
({-# LINE 23 "./Patterns.ag" #-}
_copy
{-# LINE 6889 "GenerateCode.hs" #-}
)
( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) =
pats_
in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )
sem_Pattern_Irrefutable :: T_Pattern ->
T_Pattern
sem_Pattern_Irrefutable (T_Pattern pat_ ) =
(T_Pattern (let _lhsOdefinedInsts :: ([Identifier])
_lhsOpatternAttributes :: ([(Identifier, Identifier)])
_lhsOcopy :: Pattern
_patIcopy :: Pattern
_patIdefinedInsts :: ([Identifier])
_patIpatternAttributes :: ([(Identifier, Identifier)])
-- use rule "GenerateCode.ag"(line 254, column 55)
_lhsOdefinedInsts =
({-# LINE 254 "GenerateCode.ag" #-}
_patIdefinedInsts
{-# LINE 6907 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 261, column 47)
_lhsOpatternAttributes =
({-# LINE 261 "GenerateCode.ag" #-}
_patIpatternAttributes
{-# LINE 6913 "GenerateCode.hs" #-}
)
-- self rule
_copy =
({-# LINE 23 "./Patterns.ag" #-}
Irrefutable _patIcopy
{-# LINE 6919 "GenerateCode.hs" #-}
)
-- self rule
_lhsOcopy =
({-# LINE 23 "./Patterns.ag" #-}
_copy
{-# LINE 6925 "GenerateCode.hs" #-}
)
( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) =
pat_
in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )
sem_Pattern_Product :: Pos ->
T_Patterns ->
T_Pattern
sem_Pattern_Product pos_ (T_Patterns pats_ ) =
(T_Pattern (let _lhsOdefinedInsts :: ([Identifier])
_lhsOpatternAttributes :: ([(Identifier, Identifier)])
_lhsOcopy :: Pattern
_patsIcopy :: Patterns
_patsIdefinedInsts :: ([Identifier])
_patsIpatternAttributes :: ([(Identifier, Identifier)])
-- use rule "GenerateCode.ag"(line 254, column 55)
_lhsOdefinedInsts =
({-# LINE 254 "GenerateCode.ag" #-}
_patsIdefinedInsts
{-# LINE 6944 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 261, column 47)
_lhsOpatternAttributes =
({-# LINE 261 "GenerateCode.ag" #-}
_patsIpatternAttributes
{-# LINE 6950 "GenerateCode.hs" #-}
)
-- self rule
_copy =
({-# LINE 23 "./Patterns.ag" #-}
Product pos_ _patsIcopy
{-# LINE 6956 "GenerateCode.hs" #-}
)
-- self rule
_lhsOcopy =
({-# LINE 23 "./Patterns.ag" #-}
_copy
{-# LINE 6962 "GenerateCode.hs" #-}
)
( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) =
pats_
in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )
sem_Pattern_Underscore :: Pos ->
T_Pattern
sem_Pattern_Underscore pos_ =
(T_Pattern (let _lhsOdefinedInsts :: ([Identifier])
_lhsOpatternAttributes :: ([(Identifier, Identifier)])
_lhsOcopy :: Pattern
-- use rule "GenerateCode.ag"(line 254, column 55)
_lhsOdefinedInsts =
({-# LINE 254 "GenerateCode.ag" #-}
[]
{-# LINE 6977 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 261, column 47)
_lhsOpatternAttributes =
({-# LINE 261 "GenerateCode.ag" #-}
[]
{-# LINE 6983 "GenerateCode.hs" #-}
)
-- self rule
_copy =
({-# LINE 23 "./Patterns.ag" #-}
Underscore pos_
{-# LINE 6989 "GenerateCode.hs" #-}
)
-- self rule
_lhsOcopy =
({-# LINE 23 "./Patterns.ag" #-}
_copy
{-# LINE 6995 "GenerateCode.hs" #-}
)
in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )
-- Patterns ----------------------------------------------------
{-
visit 0:
synthesized attributes:
copy : SELF
definedInsts : [Identifier]
patternAttributes : [(Identifier, Identifier)]
alternatives:
alternative Cons:
child hd : Pattern
child tl : Patterns
visit 0:
local copy : _
alternative Nil:
visit 0:
local copy : _
-}
-- cata
sem_Patterns :: Patterns ->
T_Patterns
sem_Patterns list =
(Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) )
-- semantic domain
newtype T_Patterns = T_Patterns (( Patterns ,([Identifier]),([(Identifier, Identifier)])))
data Inh_Patterns = Inh_Patterns {}
data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),definedInsts_Syn_Patterns :: !(([Identifier])),patternAttributes_Syn_Patterns :: !(([(Identifier, Identifier)]))}
wrap_Patterns :: T_Patterns ->
Inh_Patterns ->
Syn_Patterns
wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) =
(let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = sem
in (Syn_Patterns _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes ))
sem_Patterns_Cons :: T_Pattern ->
T_Patterns ->
T_Patterns
sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) =
(T_Patterns (let _lhsOdefinedInsts :: ([Identifier])
_lhsOpatternAttributes :: ([(Identifier, Identifier)])
_lhsOcopy :: Patterns
_hdIcopy :: Pattern
_hdIdefinedInsts :: ([Identifier])
_hdIpatternAttributes :: ([(Identifier, Identifier)])
_tlIcopy :: Patterns
_tlIdefinedInsts :: ([Identifier])
_tlIpatternAttributes :: ([(Identifier, Identifier)])
-- use rule "GenerateCode.ag"(line 254, column 55)
_lhsOdefinedInsts =
({-# LINE 254 "GenerateCode.ag" #-}
_hdIdefinedInsts ++ _tlIdefinedInsts
{-# LINE 7047 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 261, column 47)
_lhsOpatternAttributes =
({-# LINE 261 "GenerateCode.ag" #-}
_hdIpatternAttributes ++ _tlIpatternAttributes
{-# LINE 7053 "GenerateCode.hs" #-}
)
-- self rule
_copy =
({-# LINE 23 "./Patterns.ag" #-}
(:) _hdIcopy _tlIcopy
{-# LINE 7059 "GenerateCode.hs" #-}
)
-- self rule
_lhsOcopy =
({-# LINE 23 "./Patterns.ag" #-}
_copy
{-# LINE 7065 "GenerateCode.hs" #-}
)
( _hdIcopy,_hdIdefinedInsts,_hdIpatternAttributes) =
hd_
( _tlIcopy,_tlIdefinedInsts,_tlIpatternAttributes) =
tl_
in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )
sem_Patterns_Nil :: T_Patterns
sem_Patterns_Nil =
(T_Patterns (let _lhsOdefinedInsts :: ([Identifier])
_lhsOpatternAttributes :: ([(Identifier, Identifier)])
_lhsOcopy :: Patterns
-- use rule "GenerateCode.ag"(line 254, column 55)
_lhsOdefinedInsts =
({-# LINE 254 "GenerateCode.ag" #-}
[]
{-# LINE 7081 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 261, column 47)
_lhsOpatternAttributes =
({-# LINE 261 "GenerateCode.ag" #-}
[]
{-# LINE 7087 "GenerateCode.hs" #-}
)
-- self rule
_copy =
({-# LINE 23 "./Patterns.ag" #-}
[]
{-# LINE 7093 "GenerateCode.hs" #-}
)
-- self rule
_lhsOcopy =
({-# LINE 23 "./Patterns.ag" #-}
_copy
{-# LINE 7099 "GenerateCode.hs" #-}
)
in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) )
-- Sequence ----------------------------------------------------
{-
visit 0:
inherited attributes:
allNts : Set NontermIdent
aroundMap : Set Identifier
children : [(Identifier,Type,Maybe (Maybe Type))]
con : ConstructorIdent
inh : Attributes
instVisitNrs : Map Identifier Int
lastExpr : Expr
mergeMap : Map Identifier (Identifier, [Identifier])
nr : Int
nt : NontermIdent
o_case : Bool
o_cata : Bool
o_costcentre : Bool
o_data : Maybe Bool
o_linePragmas : Bool
o_monadic : Bool
o_newtypes : Bool
o_pretty : Bool
o_rename : Bool
o_sem : Bool
o_sig : Bool
o_splitsems : Bool
o_strictwrap : Bool
o_traces : Bool
o_unbox : Bool
options : Options
paramInstMap : Map Identifier (NontermIdent, [String])
paramMap : ParamMap
prefix : String
syn : Attributes
terminals : [Identifier]
unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type
what : String
chained attributes:
declsAbove : [Decl]
visitedSet : Set Identifier
synthesized attributes:
allTpsFound : Bool
blockDecls : DeclBlocks
comments : [String]
decls : Decls
definedInsts : [Identifier]
exprs : Exprs
tSigs : [Decl]
tps : [Type]
usedVars : Set String
alternatives:
alternative Cons:
child hd : CRule
child tl : Sequence
alternative Nil:
-}
-- cata
sem_Sequence :: Sequence ->
T_Sequence
sem_Sequence list =
(Prelude.foldr sem_Sequence_Cons sem_Sequence_Nil (Prelude.map sem_CRule list) )
-- semantic domain
newtype T_Sequence = T_Sequence ((Set NontermIdent) ->
(Set Identifier) ->
([(Identifier,Type,Maybe (Maybe Type))]) ->
ConstructorIdent ->
([Decl]) ->
Attributes ->
(Map Identifier Int) ->
Expr ->
(Map Identifier (Identifier, [Identifier])) ->
Int ->
NontermIdent ->
Bool ->
Bool ->
Bool ->
(Maybe Bool) ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Options ->
(Map Identifier (NontermIdent, [String])) ->
ParamMap ->
String ->
Attributes ->
([Identifier]) ->
(NontermIdent -> Int -> [String] -> Code.Type) ->
(Set Identifier) ->
String ->
( Bool,DeclBlocks ,([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String),(Set Identifier)))
data Inh_Sequence = Inh_Sequence {allNts_Inh_Sequence :: !((Set NontermIdent)),aroundMap_Inh_Sequence :: !((Set Identifier)),children_Inh_Sequence :: !(([(Identifier,Type,Maybe (Maybe Type))])),con_Inh_Sequence :: !(ConstructorIdent),declsAbove_Inh_Sequence :: !(([Decl])),inh_Inh_Sequence :: !(Attributes),instVisitNrs_Inh_Sequence :: !((Map Identifier Int)),lastExpr_Inh_Sequence :: !(Expr),mergeMap_Inh_Sequence :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_Sequence :: !(Int),nt_Inh_Sequence :: !(NontermIdent),o_case_Inh_Sequence :: !(Bool),o_cata_Inh_Sequence :: !(Bool),o_costcentre_Inh_Sequence :: !(Bool),o_data_Inh_Sequence :: !((Maybe Bool)),o_linePragmas_Inh_Sequence :: !(Bool),o_monadic_Inh_Sequence :: !(Bool),o_newtypes_Inh_Sequence :: !(Bool),o_pretty_Inh_Sequence :: !(Bool),o_rename_Inh_Sequence :: !(Bool),o_sem_Inh_Sequence :: !(Bool),o_sig_Inh_Sequence :: !(Bool),o_splitsems_Inh_Sequence :: !(Bool),o_strictwrap_Inh_Sequence :: !(Bool),o_traces_Inh_Sequence :: !(Bool),o_unbox_Inh_Sequence :: !(Bool),options_Inh_Sequence :: !(Options),paramInstMap_Inh_Sequence :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_Sequence :: !(ParamMap),prefix_Inh_Sequence :: !(String),syn_Inh_Sequence :: !(Attributes),terminals_Inh_Sequence :: !(([Identifier])),unfoldSemDom_Inh_Sequence :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_Sequence :: !((Set Identifier)),what_Inh_Sequence :: !(String)}
data Syn_Sequence = Syn_Sequence {allTpsFound_Syn_Sequence :: !(Bool),blockDecls_Syn_Sequence :: !(DeclBlocks ),comments_Syn_Sequence :: !(([String])),decls_Syn_Sequence :: !(Decls),declsAbove_Syn_Sequence :: !(([Decl])),definedInsts_Syn_Sequence :: !(([Identifier])),exprs_Syn_Sequence :: !(Exprs),tSigs_Syn_Sequence :: !(([Decl])),tps_Syn_Sequence :: !(([Type])),usedVars_Syn_Sequence :: !((Set String)),visitedSet_Syn_Sequence :: !((Set Identifier))}
wrap_Sequence :: T_Sequence ->
Inh_Sequence ->
Syn_Sequence
wrap_Sequence (T_Sequence sem ) (Inh_Sequence _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat ) =
(let ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet) = sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat
in (Syn_Sequence _lhsOallTpsFound _lhsOblockDecls _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet ))
sem_Sequence_Cons :: T_CRule ->
T_Sequence ->
T_Sequence
sem_Sequence_Cons (T_CRule hd_ ) (T_Sequence tl_ ) =
(T_Sequence (\ _lhsIallNts
_lhsIaroundMap
_lhsIchildren
_lhsIcon
_lhsIdeclsAbove
_lhsIinh
_lhsIinstVisitNrs
_lhsIlastExpr
_lhsImergeMap
_lhsInr
_lhsInt
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamInstMap
_lhsIparamMap
_lhsIprefix
_lhsIsyn
_lhsIterminals
_lhsIunfoldSemDom
_lhsIvisitedSet
_lhsIwhat ->
(let _lhsOblockDecls :: DeclBlocks
_lhsOallTpsFound :: Bool
_lhsOcomments :: ([String])
_lhsOdecls :: Decls
_lhsOdefinedInsts :: ([Identifier])
_lhsOexprs :: Exprs
_lhsOtSigs :: ([Decl])
_lhsOtps :: ([Type])
_lhsOusedVars :: (Set String)
_lhsOdeclsAbove :: ([Decl])
_lhsOvisitedSet :: (Set Identifier)
_hdOallNts :: (Set NontermIdent)
_hdOaroundMap :: (Set Identifier)
_hdOchildren :: ([(Identifier,Type,Maybe (Maybe Type))])
_hdOcon :: ConstructorIdent
_hdOdeclsAbove :: ([Decl])
_hdOinh :: Attributes
_hdOinstVisitNrs :: (Map Identifier Int)
_hdOmergeMap :: (Map Identifier (Identifier, [Identifier]))
_hdOnr :: Int
_hdOnt :: NontermIdent
_hdOo_case :: Bool
_hdOo_cata :: Bool
_hdOo_costcentre :: Bool
_hdOo_data :: (Maybe Bool)
_hdOo_linePragmas :: Bool
_hdOo_monadic :: Bool
_hdOo_newtypes :: Bool
_hdOo_pretty :: Bool
_hdOo_rename :: Bool
_hdOo_sem :: Bool
_hdOo_sig :: Bool
_hdOo_splitsems :: Bool
_hdOo_strictwrap :: Bool
_hdOo_traces :: Bool
_hdOo_unbox :: Bool
_hdOoptions :: Options
_hdOparamInstMap :: (Map Identifier (NontermIdent, [String]))
_hdOparamMap :: ParamMap
_hdOprefix :: String
_hdOsyn :: Attributes
_hdOterminals :: ([Identifier])
_hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)
_hdOvisitedSet :: (Set Identifier)
_hdOwhat :: String
_tlOallNts :: (Set NontermIdent)
_tlOaroundMap :: (Set Identifier)
_tlOchildren :: ([(Identifier,Type,Maybe (Maybe Type))])
_tlOcon :: ConstructorIdent
_tlOdeclsAbove :: ([Decl])
_tlOinh :: Attributes
_tlOinstVisitNrs :: (Map Identifier Int)
_tlOlastExpr :: Expr
_tlOmergeMap :: (Map Identifier (Identifier, [Identifier]))
_tlOnr :: Int
_tlOnt :: NontermIdent
_tlOo_case :: Bool
_tlOo_cata :: Bool
_tlOo_costcentre :: Bool
_tlOo_data :: (Maybe Bool)
_tlOo_linePragmas :: Bool
_tlOo_monadic :: Bool
_tlOo_newtypes :: Bool
_tlOo_pretty :: Bool
_tlOo_rename :: Bool
_tlOo_sem :: Bool
_tlOo_sig :: Bool
_tlOo_splitsems :: Bool
_tlOo_strictwrap :: Bool
_tlOo_traces :: Bool
_tlOo_unbox :: Bool
_tlOoptions :: Options
_tlOparamInstMap :: (Map Identifier (NontermIdent, [String]))
_tlOparamMap :: ParamMap
_tlOprefix :: String
_tlOsyn :: Attributes
_tlOterminals :: ([Identifier])
_tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type)
_tlOvisitedSet :: (Set Identifier)
_tlOwhat :: String
_hdIallTpsFound :: Bool
_hdIbldBlocksFun :: (DeclBlocks -> DeclBlocks)
_hdIcomments :: ([String])
_hdIdecls :: Decls
_hdIdeclsAbove :: ([Decl])
_hdIdefinedInsts :: ([Identifier])
_hdIexprs :: Exprs
_hdItSigs :: ([Decl])
_hdItps :: ([Type])
_hdIusedVars :: (Set String)
_hdIvisitedSet :: (Set Identifier)
_tlIallTpsFound :: Bool
_tlIblockDecls :: DeclBlocks
_tlIcomments :: ([String])
_tlIdecls :: Decls
_tlIdeclsAbove :: ([Decl])
_tlIdefinedInsts :: ([Identifier])
_tlIexprs :: Exprs
_tlItSigs :: ([Decl])
_tlItps :: ([Type])
_tlIusedVars :: (Set String)
_tlIvisitedSet :: (Set Identifier)
-- "GenerateCode.ag"(line 614, column 7)
_lhsOblockDecls =
({-# LINE 614 "GenerateCode.ag" #-}
_hdIbldBlocksFun _tlIblockDecls
{-# LINE 7353 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 418, column 39)
_lhsOallTpsFound =
({-# LINE 418 "GenerateCode.ag" #-}
_hdIallTpsFound && _tlIallTpsFound
{-# LINE 7359 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 861, column 52)
_lhsOcomments =
({-# LINE 861 "GenerateCode.ag" #-}
_hdIcomments ++ _tlIcomments
{-# LINE 7365 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 150, column 34)
_lhsOdecls =
({-# LINE 150 "GenerateCode.ag" #-}
_hdIdecls ++ _tlIdecls
{-# LINE 7371 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 254, column 55)
_lhsOdefinedInsts =
({-# LINE 254 "GenerateCode.ag" #-}
_hdIdefinedInsts ++ _tlIdefinedInsts
{-# LINE 7377 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 327, column 34)
_lhsOexprs =
({-# LINE 327 "GenerateCode.ag" #-}
_hdIexprs ++ _tlIexprs
{-# LINE 7383 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 356, column 33)
_lhsOtSigs =
({-# LINE 356 "GenerateCode.ag" #-}
_hdItSigs ++ _tlItSigs
{-# LINE 7389 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 417, column 31)
_lhsOtps =
({-# LINE 417 "GenerateCode.ag" #-}
_hdItps ++ _tlItps
{-# LINE 7395 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 345, column 37)
_lhsOusedVars =
({-# LINE 345 "GenerateCode.ag" #-}
_hdIusedVars `Set.union` _tlIusedVars
{-# LINE 7401 "GenerateCode.hs" #-}
)
-- copy rule (up)
_lhsOdeclsAbove =
({-# LINE 600 "GenerateCode.ag" #-}
_tlIdeclsAbove
{-# LINE 7407 "GenerateCode.hs" #-}
)
-- copy rule (up)
_lhsOvisitedSet =
({-# LINE 140 "GenerateCode.ag" #-}
_tlIvisitedSet
{-# LINE 7413 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOallNts =
({-# LINE 127 "GenerateCode.ag" #-}
_lhsIallNts
{-# LINE 7419 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOaroundMap =
({-# LINE 572 "GenerateCode.ag" #-}
_lhsIaroundMap
{-# LINE 7425 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOchildren =
({-# LINE 252 "GenerateCode.ag" #-}
_lhsIchildren
{-# LINE 7431 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOcon =
({-# LINE 89 "GenerateCode.ag" #-}
_lhsIcon
{-# LINE 7437 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOdeclsAbove =
({-# LINE 600 "GenerateCode.ag" #-}
_lhsIdeclsAbove
{-# LINE 7443 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOinh =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIinh
{-# LINE 7449 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOinstVisitNrs =
({-# LINE 552 "GenerateCode.ag" #-}
_lhsIinstVisitNrs
{-# LINE 7455 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOmergeMap =
({-# LINE 588 "GenerateCode.ag" #-}
_lhsImergeMap
{-# LINE 7461 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOnr =
({-# LINE 271 "GenerateCode.ag" #-}
_lhsInr
{-# LINE 7467 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOnt =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsInt
{-# LINE 7473 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_case
{-# LINE 7479 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 7485 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 7491 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 7497 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 7503 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 7509 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 7515 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 7521 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 7527 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 7533 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 7539 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_splitsems
{-# LINE 7545 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 7551 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 7557 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 7563 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 7569 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOparamInstMap =
({-# LINE 101 "GenerateCode.ag" #-}
_lhsIparamInstMap
{-# LINE 7575 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 7581 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 7587 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOsyn =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIsyn
{-# LINE 7593 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOterminals =
({-# LINE 90 "GenerateCode.ag" #-}
_lhsIterminals
{-# LINE 7599 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOunfoldSemDom =
({-# LINE 742 "GenerateCode.ag" #-}
_lhsIunfoldSemDom
{-# LINE 7605 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOvisitedSet =
({-# LINE 140 "GenerateCode.ag" #-}
_lhsIvisitedSet
{-# LINE 7611 "GenerateCode.hs" #-}
)
-- copy rule (down)
_hdOwhat =
({-# LINE 863 "GenerateCode.ag" #-}
_lhsIwhat
{-# LINE 7617 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOallNts =
({-# LINE 127 "GenerateCode.ag" #-}
_lhsIallNts
{-# LINE 7623 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOaroundMap =
({-# LINE 572 "GenerateCode.ag" #-}
_lhsIaroundMap
{-# LINE 7629 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOchildren =
({-# LINE 252 "GenerateCode.ag" #-}
_lhsIchildren
{-# LINE 7635 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOcon =
({-# LINE 89 "GenerateCode.ag" #-}
_lhsIcon
{-# LINE 7641 "GenerateCode.hs" #-}
)
-- copy rule (chain)
_tlOdeclsAbove =
({-# LINE 600 "GenerateCode.ag" #-}
_hdIdeclsAbove
{-# LINE 7647 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOinh =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIinh
{-# LINE 7653 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOinstVisitNrs =
({-# LINE 552 "GenerateCode.ag" #-}
_lhsIinstVisitNrs
{-# LINE 7659 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOlastExpr =
({-# LINE 598 "GenerateCode.ag" #-}
_lhsIlastExpr
{-# LINE 7665 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOmergeMap =
({-# LINE 588 "GenerateCode.ag" #-}
_lhsImergeMap
{-# LINE 7671 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOnr =
({-# LINE 271 "GenerateCode.ag" #-}
_lhsInr
{-# LINE 7677 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOnt =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsInt
{-# LINE 7683 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_case =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_case
{-# LINE 7689 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_cata =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_cata
{-# LINE 7695 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_costcentre =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_costcentre
{-# LINE 7701 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_data =
({-# LINE 48 "GenerateCode.ag" #-}
_lhsIo_data
{-# LINE 7707 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_linePragmas =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_linePragmas
{-# LINE 7713 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_monadic =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_monadic
{-# LINE 7719 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_newtypes =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_newtypes
{-# LINE 7725 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_pretty =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_pretty
{-# LINE 7731 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_rename =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_rename
{-# LINE 7737 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_sem =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sem
{-# LINE 7743 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_sig =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_sig
{-# LINE 7749 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_splitsems =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_splitsems
{-# LINE 7755 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_strictwrap =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_strictwrap
{-# LINE 7761 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_traces =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_traces
{-# LINE 7767 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOo_unbox =
({-# LINE 47 "GenerateCode.ag" #-}
_lhsIo_unbox
{-# LINE 7773 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOoptions =
({-# LINE 50 "GenerateCode.ag" #-}
_lhsIoptions
{-# LINE 7779 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOparamInstMap =
({-# LINE 101 "GenerateCode.ag" #-}
_lhsIparamInstMap
{-# LINE 7785 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOparamMap =
({-# LINE 95 "GenerateCode.ag" #-}
_lhsIparamMap
{-# LINE 7791 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOprefix =
({-# LINE 49 "GenerateCode.ag" #-}
_lhsIprefix
{-# LINE 7797 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOsyn =
({-# LINE 84 "GenerateCode.ag" #-}
_lhsIsyn
{-# LINE 7803 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOterminals =
({-# LINE 90 "GenerateCode.ag" #-}
_lhsIterminals
{-# LINE 7809 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOunfoldSemDom =
({-# LINE 742 "GenerateCode.ag" #-}
_lhsIunfoldSemDom
{-# LINE 7815 "GenerateCode.hs" #-}
)
-- copy rule (chain)
_tlOvisitedSet =
({-# LINE 140 "GenerateCode.ag" #-}
_hdIvisitedSet
{-# LINE 7821 "GenerateCode.hs" #-}
)
-- copy rule (down)
_tlOwhat =
({-# LINE 863 "GenerateCode.ag" #-}
_lhsIwhat
{-# LINE 7827 "GenerateCode.hs" #-}
)
( _hdIallTpsFound,_hdIbldBlocksFun,_hdIcomments,_hdIdecls,_hdIdeclsAbove,_hdIdefinedInsts,_hdIexprs,_hdItSigs,_hdItps,_hdIusedVars,_hdIvisitedSet) =
hd_ _hdOallNts _hdOaroundMap _hdOchildren _hdOcon _hdOdeclsAbove _hdOinh _hdOinstVisitNrs _hdOmergeMap _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOvisitedSet _hdOwhat
( _tlIallTpsFound,_tlIblockDecls,_tlIcomments,_tlIdecls,_tlIdeclsAbove,_tlIdefinedInsts,_tlIexprs,_tlItSigs,_tlItps,_tlIusedVars,_tlIvisitedSet) =
tl_ _tlOallNts _tlOaroundMap _tlOchildren _tlOcon _tlOdeclsAbove _tlOinh _tlOinstVisitNrs _tlOlastExpr _tlOmergeMap _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOvisitedSet _tlOwhat
in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) )
sem_Sequence_Nil :: T_Sequence
sem_Sequence_Nil =
(T_Sequence (\ _lhsIallNts
_lhsIaroundMap
_lhsIchildren
_lhsIcon
_lhsIdeclsAbove
_lhsIinh
_lhsIinstVisitNrs
_lhsIlastExpr
_lhsImergeMap
_lhsInr
_lhsInt
_lhsIo_case
_lhsIo_cata
_lhsIo_costcentre
_lhsIo_data
_lhsIo_linePragmas
_lhsIo_monadic
_lhsIo_newtypes
_lhsIo_pretty
_lhsIo_rename
_lhsIo_sem
_lhsIo_sig
_lhsIo_splitsems
_lhsIo_strictwrap
_lhsIo_traces
_lhsIo_unbox
_lhsIoptions
_lhsIparamInstMap
_lhsIparamMap
_lhsIprefix
_lhsIsyn
_lhsIterminals
_lhsIunfoldSemDom
_lhsIvisitedSet
_lhsIwhat ->
(let _lhsOblockDecls :: DeclBlocks
_lhsOallTpsFound :: Bool
_lhsOcomments :: ([String])
_lhsOdecls :: Decls
_lhsOdefinedInsts :: ([Identifier])
_lhsOexprs :: Exprs
_lhsOtSigs :: ([Decl])
_lhsOtps :: ([Type])
_lhsOusedVars :: (Set String)
_lhsOdeclsAbove :: ([Decl])
_lhsOvisitedSet :: (Set Identifier)
-- "GenerateCode.ag"(line 616, column 7)
_lhsOblockDecls =
({-# LINE 616 "GenerateCode.ag" #-}
DeclTerminator _lhsIdeclsAbove _lhsIlastExpr
{-# LINE 7886 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 418, column 39)
_lhsOallTpsFound =
({-# LINE 418 "GenerateCode.ag" #-}
True
{-# LINE 7892 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 861, column 52)
_lhsOcomments =
({-# LINE 861 "GenerateCode.ag" #-}
[]
{-# LINE 7898 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 150, column 34)
_lhsOdecls =
({-# LINE 150 "GenerateCode.ag" #-}
[]
{-# LINE 7904 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 254, column 55)
_lhsOdefinedInsts =
({-# LINE 254 "GenerateCode.ag" #-}
[]
{-# LINE 7910 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 327, column 34)
_lhsOexprs =
({-# LINE 327 "GenerateCode.ag" #-}
[]
{-# LINE 7916 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 356, column 33)
_lhsOtSigs =
({-# LINE 356 "GenerateCode.ag" #-}
[]
{-# LINE 7922 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 417, column 31)
_lhsOtps =
({-# LINE 417 "GenerateCode.ag" #-}
[]
{-# LINE 7928 "GenerateCode.hs" #-}
)
-- use rule "GenerateCode.ag"(line 345, column 37)
_lhsOusedVars =
({-# LINE 345 "GenerateCode.ag" #-}
Set.empty
{-# LINE 7934 "GenerateCode.hs" #-}
)
-- copy rule (chain)
_lhsOdeclsAbove =
({-# LINE 600 "GenerateCode.ag" #-}
_lhsIdeclsAbove
{-# LINE 7940 "GenerateCode.hs" #-}
)
-- copy rule (chain)
_lhsOvisitedSet =
({-# LINE 140 "GenerateCode.ag" #-}
_lhsIvisitedSet
{-# LINE 7946 "GenerateCode.hs" #-}
)
in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) )