uuagc 0.9.36 → 0.9.37.0
raw patch · 38 files changed
+7988/−7381 lines, 38 filesdep +haskell-src-extsdep +mtldep ~Cabaldep ~containersPVP ok
version bump matches the API change (PVP)
Dependencies added: haskell-src-exts, mtl
Dependency ranges changed: Cabal, containers
API changes (from Hackage documentation)
Files
- cabal-plugin/src/Distribution/Simple/UUAGC/AbsSyn.hs +9/−3
- cabal-plugin/src/Distribution/Simple/UUAGC/Parser.hs +72/−7
- cabal-plugin/src/Distribution/Simple/UUAGC/UUAGC.hs +191/−69
- src-derived/AG2AspectAG.hs +345/−310
- src-derived/AbstractSyntax.hs +1/−1
- src-derived/AbstractSyntaxDump.hs +1/−1
- src-derived/Code.hs +1/−1
- src-derived/CodeSyntax.hs +1/−1
- src-derived/CodeSyntaxDump.hs +1/−1
- src-derived/ConcreteSyntax.hs +3/−2
- src-derived/DeclBlocks.hs +1/−1
- src-derived/DefaultRules.hs +1/−1
- src-derived/Desugar.hs +1/−1
- src-derived/ErrorMessages.hs +5/−1
- src-derived/Expression.hs +1/−1
- src-derived/GenerateCode.hs +1/−1
- src-derived/HsToken.hs +1/−1
- src-derived/Interfaces.hs +1/−1
- src-derived/InterfacesRules.hs +1/−1
- src-derived/Order.hs +93/−94
- src-derived/Patterns.hs +1/−1
- src-derived/PrintCode.hs +1/−1
- src-derived/PrintErrorMessages.hs +298/−243
- src-derived/PrintOcamlCode.hs +1/−1
- src-derived/PrintVisitCode.hs +1/−1
- src-derived/SemHsTokens.hs +1/−1
- src-derived/TfmToVisage.hs +1/−1
- src-derived/Transform.hs +6855/−6616
- src-derived/Visage.hs +1/−1
- src-derived/VisagePatterns.hs +1/−1
- src-derived/VisageSyntax.hs +1/−1
- src/Ag.hs +3/−3
- src/Options.hs +14/−1
- src/Parser.hs +5/−4
- src/RhsCheck.hs +65/−0
- src/Version.hs +1/−1
- uuagc.cabal +6/−4
- uuagc.cabal-for-ghc-6.6 +1/−1
cabal-plugin/src/Distribution/Simple/UUAGC/AbsSyn.hs view
@@ -3,8 +3,14 @@ import Distribution.Simple.UUAGC.Options import System.FilePath(normalise) -data AGFileOption = AGFileOption String UUAGCOptions deriving Show+data AGFileOption = AGFileOption {filename :: String,+ fileClasses :: [String],+ opts :: UUAGCOptions}+ deriving (Show, Eq) +data AGOptionsClass = AGOptionsClass {className :: String, opts' :: UUAGCOptions}+ deriving (Show, Read, Eq)+ type AGFileOptions = [AGFileOption] data UUAGCOption = UModuleDefault@@ -58,7 +64,7 @@ | UOptimize | UDoubleColons | UHaskellSyntax- deriving (Eq,Read,Show)+ deriving (Eq, Read, Show) type UUAGCOptions = [UUAGCOption] @@ -135,7 +141,7 @@ lookupFileOptions :: FilePath -> AGFileOptions -> UUAGCOptions lookupFileOptions s = foldl f defaultUUAGCOptions- where f e (AGFileOption s' opt)+ where f e (AGFileOption s' classes opt) | s == (normalise s') = opt | otherwise = e
cabal-plugin/src/Distribution/Simple/UUAGC/Parser.hs view
@@ -1,5 +1,10 @@ {-# OPTIONS_GHC -XScopedTypeVariables #-}-module Distribution.Simple.UUAGC.Parser(parserAG, scanner, parseIOAction) where+module Distribution.Simple.UUAGC.Parser(parserAG,+ parserAG',+ scanner,+ parseIOAction,+ parseClassAG,+ parseOptionAG) where import UU.Parsing import UU.Scanner@@ -7,8 +12,17 @@ import Distribution.Simple.UUAGC.Options import System.IO.Unsafe(unsafeInterleaveIO) import System.IO(hPutStr,stderr)-import Control.Exception+import Control.Monad.Error +data (Show a) => ParserError a = ParserError a+ | DefParserError String+ deriving (Show, Eq, Read)++instance Error (ParserError a) where+ strMsg x = DefParserError x++-- import Control.Exception+ uFlags = [odata, ostrictdata, ostrictwrap, ocatas, osemfuns, osignatures ,onewtypes, opretty ,owrappers, orename, omodcopy, onest, osyntaxmacro, overbose@@ -43,10 +57,10 @@ ugabsFlags = uabsFlags ++ gabsFlags -kwtxt = uFlags ++ (map (fst) gFlags) ++ aFlags ++ ["file", "options"]-kwotxt = [":","..","."]+kwtxt = uFlags ++ (map fst gFlags) ++ aFlags ++ ["file", "options", "class", "with"]+kwotxt = ["=",":","..","."] sctxt = "..,"-octxt = ":.,"+octxt = "=:.," posTxt :: Pos posTxt = Pos 0 0 ""@@ -54,6 +68,7 @@ puFlag :: UUAGCOption -> String -> Parser Token UUAGCOption puFlag opt sopt = opt <$ pKey sopt + pugFlags :: [Parser Token UUAGCOption] pugFlags = zipWith puFlag ugabsFlags ugFlags @@ -81,10 +96,25 @@ pAnyFlag = pAny id pAllFlags +pSep :: Parser Token String+pSep = pKey ":" <|> pKey "="++pFileClasses :: Parser Token [String]+pFileClasses = pKey "with" *> (pCommas pString)+ <|> pSucceed []++pLiftOptions :: (String -> [UUAGCOption] -> a) -> String -> Parser Token a+pLiftOptions f n = f <$> (pKey n *> pSep *> pString)+ <*> (pKey "options" *> pSep *> pCommas pAnyFlag)+ pAGFileOption :: Parser Token AGFileOption-pAGFileOption = AGFileOption <$> (pKey "file" *> pKey ":" *> pString)- <*> (pKey "options" *> pKey ":" *> pCommas pAnyFlag)+pAGFileOption = AGFileOption <$> (pKey "file" *> pSep *> pString) + <*> pFileClasses+ <*> (pKey "options" *> pSep *> pCommas pAnyFlag) +pAGOptionsClass :: Parser Token AGOptionsClass+pAGOptionsClass = pLiftOptions AGOptionsClass "class"+ pAGFileOptions :: Parser Token AGFileOptions pAGFileOptions = pList pAGFileOption @@ -92,6 +122,30 @@ parserAG fp = do s <- readFile fp parseIOAction action pAGFileOptions (scanner fp s) +parserAG' :: FilePath -> IO (Either (ParserError String) AGFileOptions)+parserAG' fp = do s <- readFile fp+ let steps = parse pAGFileOptions (scanner fp s)+ let (Pair res _, mesg) = evalStepsMessages steps+ if null mesg+ then return $ Right res+ else do let err = foldr (++) [] $ map message2error mesg+ return (Left $ ParserError err) ++message2error :: Message Token (Maybe Token) -> String+message2error (Msg e p a) = "Expecting: " ++ (show e) ++ " at " ++ action+ where action = case a of+ Insert s -> " Inserting: " ++ (show s)+ Delete s -> " Deleting: " ++ (show s)+ Other s -> s++liftParse p text = parseIOAction action p (scanner text text)++parseOptionAG :: String -> IO AGFileOption+parseOptionAG = liftParse pAGFileOption++parseClassAG :: String -> IO AGOptionsClass+parseClassAG = liftParse pAGOptionsClass+ scanner :: String -> String -> [Token] scanner fn s = scan kwtxt kwotxt sctxt octxt (Pos 0 0 fn) s @@ -116,6 +170,7 @@ -> IO b evalStepsIOAction showMessage = evalStepsIOAction' showMessage (-1) + evalStepsIOAction' :: (Message s p -> IO ()) -> Int -> Steps b s p@@ -134,3 +189,13 @@ NoMoreSteps v -> return v +evalStepsMessages :: (Eq s, Show s, Show p) => Steps a s p -> (a,[Message s p])+evalStepsMessages steps = case steps of+ OkVal v rest -> let (arg, ms) = evalStepsMessages rest+ in (v arg, ms)+ Ok rest -> evalStepsMessages rest+ Cost _ rest -> evalStepsMessages rest+ StRepair _ msg rest -> let (v, ms) = evalStepsMessages rest+ in (v, msg:ms)+ Best _ rest _ -> evalStepsMessages rest+ NoMoreSteps v -> (v,[])
cabal-plugin/src/Distribution/Simple/UUAGC/UUAGC.hs view
@@ -1,7 +1,10 @@+{-# LANGUAGE CPP #-}+ module Distribution.Simple.UUAGC.UUAGC(uuagcUserHook, uuagc ) where-+import Distribution.Simple.BuildPaths (autogenModulesDir)+import Debug.Trace import Distribution.Simple import Distribution.Simple.PreProcess import Distribution.Simple.LocalBuildInfo@@ -10,26 +13,46 @@ import Distribution.PackageDescription import Distribution.Simple.UUAGC.AbsSyn( AGFileOption(..) , AGFileOptions+ , AGOptionsClass(..) , UUAGCOption(..) , UUAGCOptions , defaultUUAGCOptions , fromUUAGCOtoArgs , fromUUAGCOstoArgs , lookupFileOptions+ , fileClasses ) import Distribution.Simple.UUAGC.Parser import System.Process( CreateProcess(..), createProcess, CmdSpec(..) , StdStream(..), runProcess, waitForProcess- , proc- )-import System.Directory-import System.FilePath(pathSeparator, normalise, joinPath, dropFileName)+ , proc)+import System.Directory(getModificationTime+ ,doesFileExist+ ,removeFile)+import System.FilePath(pathSeparators,+ (</>),+ takeFileName,+ normalise,+ joinPath,+ dropFileName,+ addExtension,+ dropExtension)+ import System.Exit (ExitCode(..))-import System.IO( openFile, IOMode(..), hFileSize- , hSetFileSize, hClose, hGetContents- , Handle(..), stderr, hPutStr- )+import System.IO( openFile, IOMode(..),+ hFileSize,+ hSetFileSize,+ hClose,+ hGetContents,+ hFlush,+ Handle(..), stderr, hPutStr, hPutStrLn)+import System(exitFailure) import Control.Exception (throwIO)+import Control.Monad (liftM, when, guard, forM_, forM)+import Control.Arrow ((&&&), second)+import Data.Maybe (maybeToList)+import Data.Either (partitionEithers)+import Data.List (nub) -- | 'uuagc' returns the name of the uuagc compiler uuagcn = "uuagc"@@ -37,97 +60,196 @@ -- | 'defUUAGCOptions' returns the default names of the uuagc options defUUAGCOptions = "uuagc_options" +-- | File used to store de classes defined in the cabal file.+agClassesFile = ".ag_file_options"++-- | The prefix used for the cabal file optionsw+agModule = "x-agmodule"++-- | The prefix used for the cabal file options used for defining classes+agClass = "x-agclass"+ uuagcUserHook :: UserHooks-uuagcUserHook = simpleUserHooks { hookedPreProcessors = ("ag", uuagc):knownSuffixHandlers- , preBuild = uuagcPreBuild+uuagcUserHook = simpleUserHooks {hookedPreProcessors = ("ag", uuagc):("lag",uuagc):knownSuffixHandlers+ ,buildHook = uuagcBuildHook+ ,postBuild = uuagcPostBuild } -originalPreBuild = preBuild simpleUserHooks+originalPreBuild = preBuild simpleUserHooks+originalBuildHook = buildHook simpleUserHooks processContent :: Handle -> IO [String]-processContent h = do s <- hGetContents h- return $ words s+processContent = liftM words . hGetContents putErrorInfo :: Handle -> IO ()-putErrorInfo h = do s <- hGetContents h- hPutStr stderr s+putErrorInfo h = hGetContents h >>= hPutStr stderr -addSearch :: [String] -> [String] -> [String]-addSearch spl fl = [ normalise (joinPath [sp, f]) | sp <- spl, f <- fl]+addSearch :: String -> [String] -> [String]+addSearch sp fl = let sf = [head pathSeparators]+ path = if sp == ""+ then '.' : sf+ else sp ++ sf+ in [normalise (joinPath [sp,f]) | f <- fl] throwFailure :: IO ()-throwFailure = do throwIO $ ExitFailure 1- return ()+throwFailure = throwIO $ ExitFailure 1 --- This manages to change the file modification time.-updateFile :: FilePath -> IO ()-updateFile f = do h <- openFile f AppendMode- i <- hFileSize h- hSetFileSize h (i+1)- hSetFileSize h i- hClose h+-- The tmp build directory really depends on the type of project.+-- In the case executables it uses the name of the generated file for+-- the output directory.+withBuildTmpDir+ :: PackageDescription+ -> LocalBuildInfo+ -> (FilePath -> IO ())+ -> IO ()+withBuildTmpDir pkgDescr lbi f = do+#if MIN_VERSION_Cabal(1,8,0)+ withLib pkgDescr $ \ _ -> f $ buildDir lbi+#else+ withLib pkgDescr () $ \ _ -> f $ buildDir lbi+#endif+ withExe pkgDescr $ \ theExe ->+ f $ buildDir lbi </> exeName theExe </> exeName theExe ++ "-tmp" +-- Creates the output file given the main preprocessed file and the buildtmp folder+tmpFile :: FilePath -> FilePath -> FilePath+tmpFile buildTmp = (buildTmp </>)+ . (`addExtension` "hs")+ . dropExtension+ . takeFileName+ -- | 'updateAGFile' search into the uuagc options file for a list of all -- AG Files and theirs file dependencies in order to see if the latters -- are more updated that the formers, and if this is the case to -- update the AG File-updateAGFile :: UUAGCOptions -> FilePath -> [String] -> IO ()-updateAGFile opts f sp = do- let modeOpts = filter isModeOption opts+updateAGFile :: PackageDescription + -> LocalBuildInfo + -> (FilePath, String)+ -> IO ()+updateAGFile pkgDescr lbi (f, sp) = do+ fileOpts <- readFileOptions+ let opts = case lookup f fileOpts of+ Nothing -> []+ Just x -> x+ modeOpts = filter isModeOption opts isModeOption UHaskellSyntax = True isModeOption ULCKeyWords = True isModeOption UDoubleColons = True isModeOption _ = False- - args = fromUUAGCOstoArgs modeOpts ++- [ "--genfiledeps"- , "--="++(intercalate ":" sp)- , f- ]- -- putStrLn ("Generating deps: " ++ unwords args)- (_,(Just ppOutput), (Just ppError),ph) <- createProcess- $ (proc uuagcn args)- { std_in = Inherit- , std_out = CreatePipe- , std_err = CreatePipe- }+ (_, Just ppOutput, Just ppError, ph) <- newProcess modeOpts ec <- waitForProcess ph case ec of- ExitSuccess -> do fls <- processContent ppOutput- let flsC = addSearch sp fls- fmt <- getModificationTime f- flsmt <- mapM getModificationTime flsC- if any (fmt < ) flsmt- then updateFile f- else return ()- (ExitFailure exc) -> do putErrorInfo ppOutput- putErrorInfo ppError- throwFailure+ ExitSuccess ->+ do fls <- processContent ppOutput+ let flsC = addSearch sp fls+ when ((not.null) flsC) $ do+ flsmt <- mapM getModificationTime flsC+ let maxModified = maximum flsmt+ removeTmpFile f = do+ exists <- doesFileExist f+ when exists $ do+ fmt <- getModificationTime f+ when (maxModified > fmt) $ removeFile f+ withBuildTmpDir pkgDescr lbi $ removeTmpFile . (`tmpFile` f)+ (ExitFailure exc) ->+ do putErrorInfo ppOutput+ putErrorInfo ppError+ throwFailure+ where newProcess mopts = createProcess $ (proc uuagcn (fromUUAGCOstoArgs mopts ++ ["--genfiledeps"+ ,"--=" ++ intercalate ":" [sp]+ ,f+ ]+ )+ )+ { std_in = Inherit+ , std_out = CreatePipe+ , std_err = CreatePipe+ } -uuagcPreBuild :: Args -> BuildFlags -> IO HookedBuildInfo-uuagcPreBuild args buildF = do- uuagcOpts <- parserAG defUUAGCOptions- let agfls = getAGFileList uuagcOpts- agflSP = map (\(f,opts) -> (f,opts,[dropFileName f])) agfls- mapM_ (\(f,opts,s) -> updateAGFile opts f s) agflSP- originalPreBuild args buildF+getAGFileOptions :: [(String, String)] -> IO AGFileOptions+getAGFileOptions extra = do+ usesOptionsFile <- doesFileExist defUUAGCOptions+ if usesOptionsFile+ then do r <- parserAG' defUUAGCOptions+ case r of+ Left e -> print e >> exitFailure+ Right a -> return a+ else mapM (parseOptionAG . snd)+ $ filter ((== agModule) . fst) extra -getAGFileList :: AGFileOptions -> [(FilePath, UUAGCOptions)]-getAGFileList = map (\(AGFileOption s opts) -> (normalise s, opts))+getAGClasses :: [(String, String)] -> IO [AGOptionsClass]+getAGClasses = mapM (parseClassAG . snd) . filter ((== agClass) . fst) +writeFileOptions :: [(String, [UUAGCOption])] -> IO ()+writeFileOptions opts = do+ hClasses <- openFile agClassesFile WriteMode+ hPutStr hClasses $ show opts+ hFlush hClasses+ hClose hClasses++readFileOptions :: IO [(String, [UUAGCOption])]+readFileOptions = do+ hClasses <- openFile agClassesFile ReadMode+ sClasses <- hGetContents hClasses+ classes <- readIO sClasses :: IO [(String, [UUAGCOption])]+ hClose hClasses+ return $ classes++getOptionsFromClass :: [(String, [UUAGCOption])] -> AGFileOption -> ([String], [UUAGCOption])+getOptionsFromClass classes fOpt =+ second (nub . concat . ((opts fOpt):))+ . partitionEithers $ do+ fClass <- fileClasses fOpt+ case fClass `lookup` classes of+ Just x -> return $ Right x+ Nothing -> return $ Left $ "Warning: The class "+ ++ show fClass+ ++ " is not defined."++uuagcBuildHook+ :: PackageDescription+ -> LocalBuildInfo+ -> UserHooks+ -> BuildFlags+ -> IO ()+uuagcBuildHook pd lbi uh bf = do+ let lib = library pd+ exes = executables pd+ bis = map libBuildInfo (maybeToList lib) ++ map buildInfo exes+ classes <- map (className &&& opts') `fmap` (getAGClasses . customFieldsPD $ pd)+ options <- getAGFileOptions (bis >>= customFieldsBI)+ fileOptions <- forM options (\ opt ->+ let (notFound, opts) = getOptionsFromClass classes $ opt+ in forM_ notFound (hPutStrLn stderr) >> return (normalise . filename $ opt, opts))+ writeFileOptions fileOptions+ let agflSP = map (id &&& dropFileName) $ nub $ getAGFileList options+ mapM_ (updateAGFile pd lbi) agflSP+ originalBuildHook pd lbi uh bf++uuagcPostBuild _ _ _ _ = do+ exists <- doesFileExist agClassesFile+ when exists $ removeFile agClassesFile++getAGFileList :: AGFileOptions -> [FilePath]+getAGFileList = map (normalise . filename)+ uuagc :: BuildInfo -> LocalBuildInfo -> PreProcessor uuagc build local = PreProcessor { platformIndependent = True,- runPreProcessor = mkSimplePreProcessor $ \inFile outFile verbosity ->- do info verbosity (inFile++" has been preprocessed into "++outFile)- print $ "processing: " ++ inFile- opts <- parserAG defUUAGCOptions- let search = dropFileName inFile- options = (fromUUAGCOstoArgs (lookupFileOptions inFile opts))- ++ ["-P"++search,"--output="++outFile,inFile]+ runPreProcessor = mkSimplePreProcessor $ \ inFile outFile verbosity ->+ do info verbosity $ concat [inFile, " has been preprocessed into ", outFile]+ print $ "processing: " ++ inFile ++ " generating: " ++ outFile+-- opts <- getAGFileOptions $ customFieldsBI build+ fileOpts <- readFileOptions+ let opts = case lookup inFile fileOpts of+ Nothing -> []+ Just x -> x+ search = dropFileName inFile+ options = fromUUAGCOstoArgs opts+ ++ ["-P" ++ search, "--output=" ++ outFile, inFile] (_,_,_,ph) <- createProcess (proc uuagcn options) eCode <- waitForProcess ph case eCode of
src-derived/AG2AspectAG.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (AG2AspectAG.ag)+-- UUAGC 0.9.36.2 (AG2AspectAG.ag) module AG2AspectAG where {-# LINE 7 "AG2AspectAG.ag" #-} @@ -14,11 +14,12 @@ import Pretty import PPUtil+import UU.Scanner.Position import AbstractSyntax import TokenDef import CommonTypes-{-# LINE 22 "../src-derived/AG2AspectAG.hs" #-}+{-# LINE 23 "../src-derived/AG2AspectAG.hs" #-} {-# LINE 2 "./AbstractSyntax.ag" #-} @@ -28,27 +29,27 @@ import Patterns (Pattern(..),Patterns) import Expression (Expression(..)) import CommonTypes-{-# LINE 32 "../src-derived/AG2AspectAG.hs" #-}+{-# LINE 33 "../src-derived/AG2AspectAG.hs" #-} {-# LINE 2 "./Patterns.ag" #-} -- Patterns.ag imports import UU.Scanner.Position(Pos) import CommonTypes (ConstructorIdent,Identifier)-{-# LINE 39 "../src-derived/AG2AspectAG.hs" #-}+{-# LINE 40 "../src-derived/AG2AspectAG.hs" #-} {-# LINE 2 "./Expression.ag" #-} import UU.Scanner.Position(Pos) import HsToken-{-# LINE 45 "../src-derived/AG2AspectAG.hs" #-}+{-# LINE 46 "../src-derived/AG2AspectAG.hs" #-} {-# LINE 2 "./HsToken.ag" #-} import CommonTypes import UU.Scanner.Position(Pos)-{-# LINE 51 "../src-derived/AG2AspectAG.hs" #-}-{-# LINE 24 "AG2AspectAG.ag" #-}+{-# LINE 52 "../src-derived/AG2AspectAG.hs" #-}+{-# LINE 25 "AG2AspectAG.ag" #-} pragmaAspectAG = pp "{-# LANGUAGE EmptyDataDecls, NoMonomorphismRestriction , TypeSynonymInstances, MultiParamTypeClasses, FlexibleContexts #-}" @@ -58,19 +59,19 @@ pp "import Data.HList.TypeEqGeneric1" >-< pp "import Data.HList.TypeCastGeneric1" -{-# LINE 62 "../src-derived/AG2AspectAG.hs" #-}+{-# LINE 63 "../src-derived/AG2AspectAG.hs" #-} -{-# LINE 108 "AG2AspectAG.ag" #-}+{-# LINE 109 "AG2AspectAG.ag" #-} prodName :: Bool -> PP_Doc -> PP_Doc -> PP_Doc-prodName rename ppNt ppCon | rename = ppCon- | otherwise = ppListSep "" "" "_" [ppNt, ppCon] +prodName rename ppNt ppCon | rename = ppListSep "" "" "_" [ppNt, ppCon] + | otherwise = ppCon -{-# LINE 72 "../src-derived/AG2AspectAG.hs" #-}+{-# LINE 73 "../src-derived/AG2AspectAG.hs" #-} -{-# LINE 177 "AG2AspectAG.ag" #-}+{-# LINE 178 "AG2AspectAG.ag" #-} defAtts = pp "data Att_inh; att_inh = proxy :: Proxy Att_inh" >-<@@ -92,9 +93,9 @@ defLocalAtts ppNt ppProd total (actual+1) ls defLocalAtts _ _ _ _ [] = empty -{-# LINE 96 "../src-derived/AG2AspectAG.hs" #-}+{-# LINE 97 "../src-derived/AG2AspectAG.hs" #-} -{-# LINE 270 "AG2AspectAG.ag" #-}+{-# LINE 271 "AG2AspectAG.ag" #-} defInhRule ppNt prod ch rules chids locals = @@ -176,8 +177,11 @@ in ppAtt >|< (rhs field chids locals) -rhsRule ppNt ppProd tks field chids locals = hv_sp $ map (token2PP ppNt ppProd field chids locals) tks +rhsRule ppNt ppProd tks field chids locals = vlist . lines2PP . (map (token2PP ppNt ppProd field chids locals)) $ tks+-- hv_sp $ map (token2PP ppNt ppProd field chids locals) tks ++{- token2PP ppNt ppProd field chids locals tk = case tk of AGLocal var _ _ -> if (elem var locals)@@ -197,8 +201,39 @@ CharToken value _ -> pp $ show value StrToken value _ -> pp $ show value Err mesg _ -> pp $ " ***" ++ mesg ++ "*** "+-} -{-# LINE 202 "../src-derived/AG2AspectAG.hs" #-}+lines2PP [] = []+lines2PP xs = map line2PP . shiftLeft . getLines $ xs+++token2PP ppNt ppProd field chids locals tk+ = case tk of+ AGLocal var pos _ -> (pos, if (elem var locals)+ then (ppListSep "(" "" "_" [pp var, ppNt, ppProd]) >|< pp " (loc # att_loc)) " + else pp var)+ AGField field attr pos _ -> let ppChT = maybe (error $ "rhs field " ++ show field ++ " is not a child") ppShow (lookup field chids)+ ppAtt = case (show field) of+ "lhs" -> pp "att_inh"+ "loc" -> pp "att_loc"+ otherwise -> pp "att_syn"+ ppSubAtt = case (show field) of+ "lhs" -> ppListSep "" "" "_" [pp (getName attr), pp "Inh", ppNt]+ "loc" -> ppListSep "" "" "_" [pp (getName attr), ppNt, ppProd]+ otherwise -> ppListSep "" "" "_" [pp (getName attr), pp "Syn", ppChT]+ in (pos, pp "(" >|< ppSubAtt >|< " (" >|< pp (getName field) >|< " # " >|< ppAtt >|< ")) ")+ HsToken value pos -> (pos, pp value)+ CharToken value pos -> (pos, pp $ show value)+ StrToken value pos -> (pos, pp $ show value)+ Err mesg pos -> (pos, pp $ " ***" ++ mesg ++ "*** ")++line2PP ts = let f (p,t) r = let ct = column p+ in \c -> pp (spaces (ct-c)) >|< t >|< r (length (show t) +ct)+ spaces x | x < 0 = ""+ | otherwise = replicate x ' '+ in foldr f (pp . const "") ts 1++{-# LINE 237 "../src-derived/AG2AspectAG.hs" #-} -- Child ------------------------------------------------------- {- visit 0:@@ -253,18 +288,18 @@ _lhsOppR :: PP_Doc _lhsOidCL :: ([(Identifier,Type)]) _lhsOppCSF :: ([(Identifier,PP_Doc)])- -- "AG2AspectAG.ag"(line 128, column 25)+ -- "AG2AspectAG.ag"(line 129, column 25) _lhsOppDL =- ({-# LINE 128 "AG2AspectAG.ag" #-}+ ({-# LINE 129 "AG2AspectAG.ag" #-} case virtual_ of Nothing -> let chName = ppListSep "" "" "_" [pp name_, _lhsIppNt, _lhsIppProd] in [ chName >|< pp " :: " >|< ppShow tp_ ] otherwise -> []- {-# LINE 264 "AG2AspectAG.hs" #-}+ {-# LINE 299 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 153, column 25)+ -- "AG2AspectAG.ag"(line 154, column 25) _lhsOppL =- ({-# LINE 153 "AG2AspectAG.ag" #-}+ ({-# LINE 154 "AG2AspectAG.ag" #-} let chName = ppListSep "" "" "_" [pp name_, _lhsIppNt, _lhsIppProd] in pp "data Ch_" >|< chName >|< pp "; " >|< pp "ch_" >|< chName >|< pp " = proxy :: " >|<@@ -272,27 +307,27 @@ Nothing -> pp "Proxy " >|< pp "(Ch_" >|< chName >|< ", " >|< ppShow tp_ >|< pp ")" otherwise -> pp "SemType " >|< ppShow tp_ >|< pp " nt => Proxy " >|< pp "(Ch_" >|< chName >|< pp ", nt)"- {-# LINE 276 "AG2AspectAG.hs" #-}+ {-# LINE 311 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 231, column 25)+ -- "AG2AspectAG.ag"(line 232, column 25) _lhsOppR =- ({-# LINE 231 "AG2AspectAG.ag" #-}+ ({-# LINE 232 "AG2AspectAG.ag" #-} let chName = ppListSep "" "" "_" [pp name_, _lhsIppNt, _lhsIppProd] in pp name_ >|< " <- at ch_" >|< chName- {-# LINE 283 "AG2AspectAG.hs" #-}+ {-# LINE 318 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 262, column 25)+ -- "AG2AspectAG.ag"(line 263, column 25) _lhsOidCL =- ({-# LINE 262 "AG2AspectAG.ag" #-}+ ({-# LINE 263 "AG2AspectAG.ag" #-} [ (name_, case (stripPrefix "T_" (show tp_)) of Nothing -> tp_ Just t -> NT (Ident t undefined) [] ) ]- {-# LINE 292 "AG2AspectAG.hs" #-}+ {-# LINE 327 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 433, column 25)+ -- "AG2AspectAG.ag"(line 468, column 25) _lhsOppCSF =- ({-# LINE 433 "AG2AspectAG.ag" #-}+ ({-# LINE 468 "AG2AspectAG.ag" #-} let ppProd = ppListSep "" "" "_" [_lhsIppNt,_lhsIppProd] ppChi = ppListSep "" "" "_" [pp "ch", pp name_, ppProd]@@ -302,7 +337,7 @@ in case virtual_ of Nothing -> [(name_, ppChi >|< pp " .=. (" >|< semC >|< pp ") .*. ")] otherwise -> []- {-# LINE 306 "AG2AspectAG.hs" #-}+ {-# LINE 341 "AG2AspectAG.hs" #-} ) in ( _lhsOidCL,_lhsOppCSF,_lhsOppDL,_lhsOppL,_lhsOppR))) ) -- Children ----------------------------------------------------@@ -370,71 +405,71 @@ _tlIppDL :: ([PP_Doc]) _tlIppL :: PP_Doc _tlIppR :: PP_Doc- -- "AG2AspectAG.ag"(line 124, column 33)+ -- "AG2AspectAG.ag"(line 125, column 33) _lhsOppDL =- ({-# LINE 124 "AG2AspectAG.ag" #-}+ ({-# LINE 125 "AG2AspectAG.ag" #-} _hdIppDL ++ _tlIppDL- {-# LINE 378 "AG2AspectAG.hs" #-}+ {-# LINE 413 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 260, column 31)+ -- use rule "AG2AspectAG.ag"(line 261, column 31) _lhsOidCL =- ({-# LINE 260 "AG2AspectAG.ag" #-}+ ({-# LINE 261 "AG2AspectAG.ag" #-} _hdIidCL ++ _tlIidCL- {-# LINE 384 "AG2AspectAG.hs" #-}+ {-# LINE 419 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 429, column 34)+ -- use rule "AG2AspectAG.ag"(line 464, column 34) _lhsOppCSF =- ({-# LINE 429 "AG2AspectAG.ag" #-}+ ({-# LINE 464 "AG2AspectAG.ag" #-} _hdIppCSF ++ _tlIppCSF- {-# LINE 390 "AG2AspectAG.hs" #-}+ {-# LINE 425 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 145, column 79)+ -- use rule "AG2AspectAG.ag"(line 146, column 79) _lhsOppL =- ({-# LINE 145 "AG2AspectAG.ag" #-}+ ({-# LINE 146 "AG2AspectAG.ag" #-} _hdIppL >-< _tlIppL- {-# LINE 396 "AG2AspectAG.hs" #-}+ {-# LINE 431 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 219, column 79)+ -- use rule "AG2AspectAG.ag"(line 220, column 79) _lhsOppR =- ({-# LINE 219 "AG2AspectAG.ag" #-}+ ({-# LINE 220 "AG2AspectAG.ag" #-} _hdIppR >-< _tlIppR- {-# LINE 402 "AG2AspectAG.hs" #-}+ {-# LINE 437 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOo_rename =- ({-# LINE 37 "AG2AspectAG.ag" #-}+ ({-# LINE 38 "AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 408 "AG2AspectAG.hs" #-}+ {-# LINE 443 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOppNt =- ({-# LINE 75 "AG2AspectAG.ag" #-}+ ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 414 "AG2AspectAG.hs" #-}+ {-# LINE 449 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOppProd =- ({-# LINE 81 "AG2AspectAG.ag" #-}+ ({-# LINE 82 "AG2AspectAG.ag" #-} _lhsIppProd- {-# LINE 420 "AG2AspectAG.hs" #-}+ {-# LINE 455 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOo_rename =- ({-# LINE 37 "AG2AspectAG.ag" #-}+ ({-# LINE 38 "AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 426 "AG2AspectAG.hs" #-}+ {-# LINE 461 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOppNt =- ({-# LINE 75 "AG2AspectAG.ag" #-}+ ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 432 "AG2AspectAG.hs" #-}+ {-# LINE 467 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOppProd =- ({-# LINE 81 "AG2AspectAG.ag" #-}+ ({-# LINE 82 "AG2AspectAG.ag" #-} _lhsIppProd- {-# LINE 438 "AG2AspectAG.hs" #-}+ {-# LINE 473 "AG2AspectAG.hs" #-} ) ( _hdIidCL,_hdIppCSF,_hdIppDL,_hdIppL,_hdIppR) = hd_ _hdOo_rename _hdOppNt _hdOppProd @@ -451,35 +486,35 @@ _lhsOppCSF :: ([(Identifier,PP_Doc)]) _lhsOppL :: PP_Doc _lhsOppR :: PP_Doc- -- "AG2AspectAG.ag"(line 125, column 33)+ -- "AG2AspectAG.ag"(line 126, column 33) _lhsOppDL =- ({-# LINE 125 "AG2AspectAG.ag" #-}+ ({-# LINE 126 "AG2AspectAG.ag" #-} []- {-# LINE 459 "AG2AspectAG.hs" #-}+ {-# LINE 494 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 260, column 31)+ -- use rule "AG2AspectAG.ag"(line 261, column 31) _lhsOidCL =- ({-# LINE 260 "AG2AspectAG.ag" #-}+ ({-# LINE 261 "AG2AspectAG.ag" #-} []- {-# LINE 465 "AG2AspectAG.hs" #-}+ {-# LINE 500 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 429, column 34)+ -- use rule "AG2AspectAG.ag"(line 464, column 34) _lhsOppCSF =- ({-# LINE 429 "AG2AspectAG.ag" #-}+ ({-# LINE 464 "AG2AspectAG.ag" #-} []- {-# LINE 471 "AG2AspectAG.hs" #-}+ {-# LINE 506 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 145, column 79)+ -- use rule "AG2AspectAG.ag"(line 146, column 79) _lhsOppL =- ({-# LINE 145 "AG2AspectAG.ag" #-}+ ({-# LINE 146 "AG2AspectAG.ag" #-} empty- {-# LINE 477 "AG2AspectAG.hs" #-}+ {-# LINE 512 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 219, column 79)+ -- use rule "AG2AspectAG.ag"(line 220, column 79) _lhsOppR =- ({-# LINE 219 "AG2AspectAG.ag" #-}+ ({-# LINE 220 "AG2AspectAG.ag" #-} empty- {-# LINE 483 "AG2AspectAG.hs" #-}+ {-# LINE 518 "AG2AspectAG.hs" #-} ) in ( _lhsOidCL,_lhsOppCSF,_lhsOppDL,_lhsOppL,_lhsOppR))) ) -- Expression --------------------------------------------------@@ -519,11 +554,11 @@ (T_Expression (\ _lhsIppNt _lhsIppProd -> (let _lhsOppRE :: (Identifier -> [(Identifier,Type)] -> [Identifier] -> PP_Doc)- -- "AG2AspectAG.ag"(line 256, column 25)+ -- "AG2AspectAG.ag"(line 257, column 25) _lhsOppRE =- ({-# LINE 256 "AG2AspectAG.ag" #-}+ ({-# LINE 257 "AG2AspectAG.ag" #-} rhsRule _lhsIppNt _lhsIppProd tks_- {-# LINE 527 "AG2AspectAG.hs" #-}+ {-# LINE 562 "AG2AspectAG.hs" #-} ) in ( _lhsOppRE))) ) -- Grammar -----------------------------------------------------@@ -593,15 +628,15 @@ _nontsIppR :: PP_Doc _nontsIppSF :: PP_Doc _nontsIppW :: PP_Doc- -- "AG2AspectAG.ag"(line 39, column 14)+ -- "AG2AspectAG.ag"(line 40, column 14) _nontsOo_rename =- ({-# LINE 39 "AG2AspectAG.ag" #-}+ ({-# LINE 40 "AG2AspectAG.ag" #-} rename _lhsIoptions- {-# LINE 601 "AG2AspectAG.hs" #-}+ {-# LINE 636 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 46, column 25)+ -- "AG2AspectAG.ag"(line 47, column 25) _lhsOpp =- ({-# LINE 46 "AG2AspectAG.ag" #-}+ ({-# LINE 47 "AG2AspectAG.ag" #-} (if dataTypes _lhsIoptions then pp "-- datatypes" >-< _nontsIppD >-< pp "-- labels" >-< _nontsIppL@@ -620,19 +655,19 @@ (if wrappers _lhsIoptions then pp "-- wrappers" >-< _nontsIppW else empty)- {-# LINE 624 "AG2AspectAG.hs" #-}+ {-# LINE 659 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 91, column 25)+ -- "AG2AspectAG.ag"(line 92, column 25) _nontsOderivs =- ({-# LINE 91 "AG2AspectAG.ag" #-}+ ({-# LINE 92 "AG2AspectAG.ag" #-} derivings_- {-# LINE 630 "AG2AspectAG.hs" #-}+ {-# LINE 665 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 137, column 34)+ -- "AG2AspectAG.ag"(line 138, column 34) _nontsOtSyns =- ({-# LINE 137 "AG2AspectAG.ag" #-}+ ({-# LINE 138 "AG2AspectAG.ag" #-} typeSyns_- {-# LINE 636 "AG2AspectAG.hs" #-}+ {-# LINE 671 "AG2AspectAG.hs" #-} ) ( _nontsIppA,_nontsIppCata,_nontsIppD,_nontsIppL,_nontsIppNtL,_nontsIppR,_nontsIppSF,_nontsIppW) = nonts_ _nontsOderivs _nontsOo_rename _nontsOtSyns @@ -853,61 +888,61 @@ _prodsIppL :: PP_Doc _prodsIppR :: PP_Doc _prodsIppSF :: PP_Doc- -- "AG2AspectAG.ag"(line 78, column 25)+ -- "AG2AspectAG.ag"(line 79, column 25) _prodsOppNt =- ({-# LINE 78 "AG2AspectAG.ag" #-}+ ({-# LINE 79 "AG2AspectAG.ag" #-} pp nt_- {-# LINE 861 "AG2AspectAG.hs" #-}+ {-# LINE 896 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 97, column 25)+ -- "AG2AspectAG.ag"(line 98, column 25) _lhsOppD =- ({-# LINE 97 "AG2AspectAG.ag" #-}+ ({-# LINE 98 "AG2AspectAG.ag" #-} case (lookup nt_ _lhsItSyns) of Nothing -> pp "data " >|< pp nt_ >|< " = " >|< vlist_sep " | " _prodsIppDL >-< case (Map.lookup nt_ _lhsIderivs) of Just ntds -> pp " deriving " >|< (ppListSep "(" ")" ", " $ Set.elems ntds) Nothing -> empty Just tp -> pp "type " >|< pp nt_ >|< " = " >|< ppShow tp- {-# LINE 872 "AG2AspectAG.hs" #-}+ {-# LINE 907 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 148, column 25)+ -- "AG2AspectAG.ag"(line 149, column 25) _lhsOppL =- ({-# LINE 148 "AG2AspectAG.ag" #-}+ ({-# LINE 149 "AG2AspectAG.ag" #-} pp "nt_" >|< pp nt_ >|< " = proxy :: Proxy " >|< pp nt_ >-< _prodsIppL- {-# LINE 879 "AG2AspectAG.hs" #-}+ {-# LINE 914 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 170, column 25)+ -- "AG2AspectAG.ag"(line 171, column 25) _lhsOppA =- ({-# LINE 170 "AG2AspectAG.ag" #-}+ ({-# LINE 171 "AG2AspectAG.ag" #-} defTAtt "inh" (pp nt_) inh_ >-< defTAtt "syn" (pp nt_) syn_ >-< _prodsIppA- {-# LINE 887 "AG2AspectAG.hs" #-}+ {-# LINE 922 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 215, column 25)+ -- "AG2AspectAG.ag"(line 216, column 25) _lhsOppNtL =- ({-# LINE 215 "AG2AspectAG.ag" #-}+ ({-# LINE 216 "AG2AspectAG.ag" #-} pp "nt_" >|< pp nt_ >|< pp " .*. "- {-# LINE 893 "AG2AspectAG.hs" #-}+ {-# LINE 928 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 222, column 25)+ -- "AG2AspectAG.ag"(line 223, column 25) _lhsOppR =- ({-# LINE 222 "AG2AspectAG.ag" #-}+ ({-# LINE 223 "AG2AspectAG.ag" #-} pp "----" >|< pp nt_ >-< _prodsIppR- {-# LINE 899 "AG2AspectAG.hs" #-}+ {-# LINE 934 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 382, column 25)+ -- "AG2AspectAG.ag"(line 417, column 25) _lhsOppCata =- ({-# LINE 382 "AG2AspectAG.ag" #-}+ ({-# LINE 417 "AG2AspectAG.ag" #-} let ppNt = pp nt_ in pp "----" >|< ppNt >-< _prodsIppCata- {-# LINE 907 "AG2AspectAG.hs" #-}+ {-# LINE 942 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 403, column 25)+ -- "AG2AspectAG.ag"(line 438, column 25) _lhsOppSF =- ({-# LINE 403 "AG2AspectAG.ag" #-}+ ({-# LINE 438 "AG2AspectAG.ag" #-} let ppNt = pp nt_ in pp "----" >|< ppNt >-< pp "type T_" >|< ppNt >|< pp " = " >|<@@ -916,21 +951,21 @@ pp "instance SemType T_" >|< ppNt >|< pp " " >|< ppNt >-< pp "-- sem_" >|< ppNt >|< pp " :: " >|< ppNt >|< pp " -> T_" >|< ppNt >-< _prodsIppSF- {-# LINE 920 "AG2AspectAG.hs" #-}+ {-# LINE 955 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 450, column 25)+ -- "AG2AspectAG.ag"(line 485, column 25) _lhsOppW =- ({-# LINE 450 "AG2AspectAG.ag" #-}+ ({-# LINE 485 "AG2AspectAG.ag" #-} pp "wrap_" >|< pp nt_ >|< pp " sem _inh = " >-< pp " let (Record (HCons _syn HNil)) = sem (att_inh .=. _inh .*. emptyRecord)" >|< pp " in (valueLVPair _syn)"- {-# LINE 928 "AG2AspectAG.hs" #-}+ {-# LINE 963 "AG2AspectAG.hs" #-} ) -- copy rule (down) _prodsOo_rename =- ({-# LINE 37 "AG2AspectAG.ag" #-}+ ({-# LINE 38 "AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 934 "AG2AspectAG.hs" #-}+ {-# LINE 969 "AG2AspectAG.hs" #-} ) ( _prodsIppA,_prodsIppCata,_prodsIppDL,_prodsIppL,_prodsIppR,_prodsIppSF) = prods_ _prodsOo_rename _prodsOppNt @@ -1012,89 +1047,89 @@ _tlIppR :: PP_Doc _tlIppSF :: PP_Doc _tlIppW :: PP_Doc- -- use rule "AG2AspectAG.ag"(line 167, column 64)+ -- use rule "AG2AspectAG.ag"(line 168, column 64) _lhsOppA =- ({-# LINE 167 "AG2AspectAG.ag" #-}+ ({-# LINE 168 "AG2AspectAG.ag" #-} _hdIppA >-< _tlIppA- {-# LINE 1020 "AG2AspectAG.hs" #-}+ {-# LINE 1055 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 379, column 67)+ -- use rule "AG2AspectAG.ag"(line 414, column 67) _lhsOppCata =- ({-# LINE 379 "AG2AspectAG.ag" #-}+ ({-# LINE 414 "AG2AspectAG.ag" #-} _hdIppCata >-< _tlIppCata- {-# LINE 1026 "AG2AspectAG.hs" #-}+ {-# LINE 1061 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 94, column 52)+ -- use rule "AG2AspectAG.ag"(line 95, column 52) _lhsOppD =- ({-# LINE 94 "AG2AspectAG.ag" #-}+ ({-# LINE 95 "AG2AspectAG.ag" #-} _hdIppD >-< _tlIppD- {-# LINE 1032 "AG2AspectAG.hs" #-}+ {-# LINE 1067 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 145, column 79)+ -- use rule "AG2AspectAG.ag"(line 146, column 79) _lhsOppL =- ({-# LINE 145 "AG2AspectAG.ag" #-}+ ({-# LINE 146 "AG2AspectAG.ag" #-} _hdIppL >-< _tlIppL- {-# LINE 1038 "AG2AspectAG.hs" #-}+ {-# LINE 1073 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 212, column 44)+ -- use rule "AG2AspectAG.ag"(line 213, column 44) _lhsOppNtL =- ({-# LINE 212 "AG2AspectAG.ag" #-}+ ({-# LINE 213 "AG2AspectAG.ag" #-} _hdIppNtL >|< _tlIppNtL- {-# LINE 1044 "AG2AspectAG.hs" #-}+ {-# LINE 1079 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 219, column 79)+ -- use rule "AG2AspectAG.ag"(line 220, column 79) _lhsOppR =- ({-# LINE 219 "AG2AspectAG.ag" #-}+ ({-# LINE 220 "AG2AspectAG.ag" #-} _hdIppR >-< _tlIppR- {-# LINE 1050 "AG2AspectAG.hs" #-}+ {-# LINE 1085 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 400, column 66)+ -- use rule "AG2AspectAG.ag"(line 435, column 66) _lhsOppSF =- ({-# LINE 400 "AG2AspectAG.ag" #-}+ ({-# LINE 435 "AG2AspectAG.ag" #-} _hdIppSF >-< _tlIppSF- {-# LINE 1056 "AG2AspectAG.hs" #-}+ {-# LINE 1091 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 447, column 42)+ -- use rule "AG2AspectAG.ag"(line 482, column 42) _lhsOppW =- ({-# LINE 447 "AG2AspectAG.ag" #-}+ ({-# LINE 482 "AG2AspectAG.ag" #-} _hdIppW >-< _tlIppW- {-# LINE 1062 "AG2AspectAG.hs" #-}+ {-# LINE 1097 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOderivs =- ({-# LINE 88 "AG2AspectAG.ag" #-}+ ({-# LINE 89 "AG2AspectAG.ag" #-} _lhsIderivs- {-# LINE 1068 "AG2AspectAG.hs" #-}+ {-# LINE 1103 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOo_rename =- ({-# LINE 37 "AG2AspectAG.ag" #-}+ ({-# LINE 38 "AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 1074 "AG2AspectAG.hs" #-}+ {-# LINE 1109 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOtSyns =- ({-# LINE 134 "AG2AspectAG.ag" #-}+ ({-# LINE 135 "AG2AspectAG.ag" #-} _lhsItSyns- {-# LINE 1080 "AG2AspectAG.hs" #-}+ {-# LINE 1115 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOderivs =- ({-# LINE 88 "AG2AspectAG.ag" #-}+ ({-# LINE 89 "AG2AspectAG.ag" #-} _lhsIderivs- {-# LINE 1086 "AG2AspectAG.hs" #-}+ {-# LINE 1121 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOo_rename =- ({-# LINE 37 "AG2AspectAG.ag" #-}+ ({-# LINE 38 "AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 1092 "AG2AspectAG.hs" #-}+ {-# LINE 1127 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOtSyns =- ({-# LINE 134 "AG2AspectAG.ag" #-}+ ({-# LINE 135 "AG2AspectAG.ag" #-} _lhsItSyns- {-# LINE 1098 "AG2AspectAG.hs" #-}+ {-# LINE 1133 "AG2AspectAG.hs" #-} ) ( _hdIppA,_hdIppCata,_hdIppD,_hdIppL,_hdIppNtL,_hdIppR,_hdIppSF,_hdIppW) = hd_ _hdOderivs _hdOo_rename _hdOtSyns @@ -1114,53 +1149,53 @@ _lhsOppR :: PP_Doc _lhsOppSF :: PP_Doc _lhsOppW :: PP_Doc- -- use rule "AG2AspectAG.ag"(line 167, column 64)+ -- use rule "AG2AspectAG.ag"(line 168, column 64) _lhsOppA =- ({-# LINE 167 "AG2AspectAG.ag" #-}+ ({-# LINE 168 "AG2AspectAG.ag" #-} empty- {-# LINE 1122 "AG2AspectAG.hs" #-}+ {-# LINE 1157 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 379, column 67)+ -- use rule "AG2AspectAG.ag"(line 414, column 67) _lhsOppCata =- ({-# LINE 379 "AG2AspectAG.ag" #-}+ ({-# LINE 414 "AG2AspectAG.ag" #-} empty- {-# LINE 1128 "AG2AspectAG.hs" #-}+ {-# LINE 1163 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 94, column 52)+ -- use rule "AG2AspectAG.ag"(line 95, column 52) _lhsOppD =- ({-# LINE 94 "AG2AspectAG.ag" #-}+ ({-# LINE 95 "AG2AspectAG.ag" #-} empty- {-# LINE 1134 "AG2AspectAG.hs" #-}+ {-# LINE 1169 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 145, column 79)+ -- use rule "AG2AspectAG.ag"(line 146, column 79) _lhsOppL =- ({-# LINE 145 "AG2AspectAG.ag" #-}+ ({-# LINE 146 "AG2AspectAG.ag" #-} empty- {-# LINE 1140 "AG2AspectAG.hs" #-}+ {-# LINE 1175 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 212, column 44)+ -- use rule "AG2AspectAG.ag"(line 213, column 44) _lhsOppNtL =- ({-# LINE 212 "AG2AspectAG.ag" #-}+ ({-# LINE 213 "AG2AspectAG.ag" #-} pp "hNil"- {-# LINE 1146 "AG2AspectAG.hs" #-}+ {-# LINE 1181 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 219, column 79)+ -- use rule "AG2AspectAG.ag"(line 220, column 79) _lhsOppR =- ({-# LINE 219 "AG2AspectAG.ag" #-}+ ({-# LINE 220 "AG2AspectAG.ag" #-} empty- {-# LINE 1152 "AG2AspectAG.hs" #-}+ {-# LINE 1187 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 400, column 66)+ -- use rule "AG2AspectAG.ag"(line 435, column 66) _lhsOppSF =- ({-# LINE 400 "AG2AspectAG.ag" #-}+ ({-# LINE 435 "AG2AspectAG.ag" #-} empty- {-# LINE 1158 "AG2AspectAG.hs" #-}+ {-# LINE 1193 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 447, column 42)+ -- use rule "AG2AspectAG.ag"(line 482, column 42) _lhsOppW =- ({-# LINE 447 "AG2AspectAG.ag" #-}+ ({-# LINE 482 "AG2AspectAG.ag" #-} empty- {-# LINE 1164 "AG2AspectAG.hs" #-}+ {-# LINE 1199 "AG2AspectAG.hs" #-} ) in ( _lhsOppA,_lhsOppCata,_lhsOppD,_lhsOppL,_lhsOppNtL,_lhsOppR,_lhsOppSF,_lhsOppW))) ) -- Pattern -----------------------------------------------------@@ -1230,23 +1265,23 @@ _patIcopy :: Pattern _patIinfo :: ((Identifier, Identifier)) _partsIcopy :: Patterns - -- "AG2AspectAG.ag"(line 239, column 25)+ -- "AG2AspectAG.ag"(line 240, column 25) _lhsOinfo =- ({-# LINE 239 "AG2AspectAG.ag" #-}+ ({-# LINE 240 "AG2AspectAG.ag" #-} (field_, attr_)- {-# LINE 1238 "AG2AspectAG.hs" #-}+ {-# LINE 1273 "AG2AspectAG.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Alias field_ attr_ _patIcopy _partsIcopy- {-# LINE 1244 "AG2AspectAG.hs" #-}+ {-# LINE 1279 "AG2AspectAG.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy- {-# LINE 1250 "AG2AspectAG.hs" #-}+ {-# LINE 1285 "AG2AspectAG.hs" #-} ) ( _patIcopy,_patIinfo) = pat_ @@ -1260,23 +1295,23 @@ (T_Pattern (let _lhsOinfo :: ((Identifier, Identifier)) _lhsOcopy :: Pattern _patsIcopy :: Patterns - -- "AG2AspectAG.ag"(line 240, column 25)+ -- "AG2AspectAG.ag"(line 241, column 25) _lhsOinfo =- ({-# LINE 240 "AG2AspectAG.ag" #-}+ ({-# LINE 241 "AG2AspectAG.ag" #-} error "Pattern Constr undefined!!"- {-# LINE 1268 "AG2AspectAG.hs" #-}+ {-# LINE 1303 "AG2AspectAG.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Constr name_ _patsIcopy- {-# LINE 1274 "AG2AspectAG.hs" #-}+ {-# LINE 1309 "AG2AspectAG.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy- {-# LINE 1280 "AG2AspectAG.hs" #-}+ {-# LINE 1315 "AG2AspectAG.hs" #-} ) ( _patsIcopy) = pats_ @@ -1292,19 +1327,19 @@ _copy = ({-# LINE 23 "./Patterns.ag" #-} Irrefutable _patIcopy- {-# LINE 1296 "AG2AspectAG.hs" #-}+ {-# LINE 1331 "AG2AspectAG.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy- {-# LINE 1302 "AG2AspectAG.hs" #-}+ {-# LINE 1337 "AG2AspectAG.hs" #-} ) -- copy rule (up) _lhsOinfo =- ({-# LINE 237 "AG2AspectAG.ag" #-}+ ({-# LINE 238 "AG2AspectAG.ag" #-} _patIinfo- {-# LINE 1308 "AG2AspectAG.hs" #-}+ {-# LINE 1343 "AG2AspectAG.hs" #-} ) ( _patIcopy,_patIinfo) = pat_ @@ -1316,23 +1351,23 @@ (T_Pattern (let _lhsOinfo :: ((Identifier, Identifier)) _lhsOcopy :: Pattern _patsIcopy :: Patterns - -- "AG2AspectAG.ag"(line 241, column 25)+ -- "AG2AspectAG.ag"(line 242, column 25) _lhsOinfo =- ({-# LINE 241 "AG2AspectAG.ag" #-}+ ({-# LINE 242 "AG2AspectAG.ag" #-} error "Pattern Product undefined!!"- {-# LINE 1324 "AG2AspectAG.hs" #-}+ {-# LINE 1359 "AG2AspectAG.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Product pos_ _patsIcopy- {-# LINE 1330 "AG2AspectAG.hs" #-}+ {-# LINE 1365 "AG2AspectAG.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy- {-# LINE 1336 "AG2AspectAG.hs" #-}+ {-# LINE 1371 "AG2AspectAG.hs" #-} ) ( _patsIcopy) = pats_ @@ -1342,23 +1377,23 @@ sem_Pattern_Underscore pos_ = (T_Pattern (let _lhsOinfo :: ((Identifier, Identifier)) _lhsOcopy :: Pattern - -- "AG2AspectAG.ag"(line 242, column 25)+ -- "AG2AspectAG.ag"(line 243, column 25) _lhsOinfo =- ({-# LINE 242 "AG2AspectAG.ag" #-}+ ({-# LINE 243 "AG2AspectAG.ag" #-} error "Pattern Underscore undefined!!"- {-# LINE 1350 "AG2AspectAG.hs" #-}+ {-# LINE 1385 "AG2AspectAG.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Underscore pos_- {-# LINE 1356 "AG2AspectAG.hs" #-}+ {-# LINE 1391 "AG2AspectAG.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy- {-# LINE 1362 "AG2AspectAG.hs" #-}+ {-# LINE 1397 "AG2AspectAG.hs" #-} ) in ( _lhsOcopy,_lhsOinfo)) ) -- Patterns ----------------------------------------------------@@ -1403,13 +1438,13 @@ _copy = ({-# LINE 23 "./Patterns.ag" #-} (:) _hdIcopy _tlIcopy- {-# LINE 1407 "AG2AspectAG.hs" #-}+ {-# LINE 1442 "AG2AspectAG.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy- {-# LINE 1413 "AG2AspectAG.hs" #-}+ {-# LINE 1448 "AG2AspectAG.hs" #-} ) ( _hdIcopy,_hdIinfo) = hd_ @@ -1423,13 +1458,13 @@ _copy = ({-# LINE 23 "./Patterns.ag" #-} []- {-# LINE 1427 "AG2AspectAG.hs" #-}+ {-# LINE 1462 "AG2AspectAG.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy- {-# LINE 1433 "AG2AspectAG.hs" #-}+ {-# LINE 1468 "AG2AspectAG.hs" #-} ) in ( _lhsOcopy)) ) -- Production --------------------------------------------------@@ -1495,54 +1530,54 @@ _childrenIppR :: PP_Doc _rulesIlocals :: ([Identifier]) _rulesIppRL :: ([((Identifier,Identifier),[(Identifier,Type)] -> [Identifier] -> PP_Doc)])- -- "AG2AspectAG.ag"(line 84, column 25)+ -- "AG2AspectAG.ag"(line 85, column 25) _childrenOppProd =- ({-# LINE 84 "AG2AspectAG.ag" #-}+ ({-# LINE 85 "AG2AspectAG.ag" #-} pp con_- {-# LINE 1503 "AG2AspectAG.hs" #-}+ {-# LINE 1538 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 85, column 25)+ -- "AG2AspectAG.ag"(line 86, column 25) _rulesOppProd =- ({-# LINE 85 "AG2AspectAG.ag" #-}+ ({-# LINE 86 "AG2AspectAG.ag" #-} pp con_- {-# LINE 1509 "AG2AspectAG.hs" #-}+ {-# LINE 1544 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 106, column 25)+ -- "AG2AspectAG.ag"(line 107, column 25) _lhsOppD =- ({-# LINE 106 "AG2AspectAG.ag" #-}+ ({-# LINE 107 "AG2AspectAG.ag" #-} let ppProd = prodName _lhsIo_rename _lhsIppNt (pp con_) in ppProd >|< ppListSep " {" "}" ", " _childrenIppDL- {-# LINE 1516 "AG2AspectAG.hs" #-}+ {-# LINE 1551 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 175, column 25)+ -- "AG2AspectAG.ag"(line 176, column 25) _lhsOppA =- ({-# LINE 175 "AG2AspectAG.ag" #-}+ ({-# LINE 176 "AG2AspectAG.ag" #-} defLocalAtts _lhsIppNt (pp con_) (length _rulesIlocals) 1 $ sort _rulesIlocals- {-# LINE 1522 "AG2AspectAG.hs" #-}+ {-# LINE 1557 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 225, column 25)+ -- "AG2AspectAG.ag"(line 226, column 25) _lhsOppR =- ({-# LINE 225 "AG2AspectAG.ag" #-}+ ({-# LINE 226 "AG2AspectAG.ag" #-} defInstRules _lhsIppNt con_ _childrenIppR _rulesIppRL _childrenIidCL _rulesIlocals >-< defLocRule _lhsIppNt con_ _childrenIppR _rulesIppRL _childrenIidCL _rulesIlocals >-< defInhRule _lhsIppNt con_ _childrenIppR _rulesIppRL _childrenIidCL _rulesIlocals >-< defSynRule _lhsIppNt con_ _childrenIppR _rulesIppRL _childrenIidCL _rulesIlocals- {-# LINE 1531 "AG2AspectAG.hs" #-}+ {-# LINE 1566 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 389, column 25)+ -- "AG2AspectAG.ag"(line 424, column 25) _lhsOppCata =- ({-# LINE 389 "AG2AspectAG.ag" #-}+ ({-# LINE 424 "AG2AspectAG.ag" #-} let ppProd = ppListSep "" "" "_" [_lhsIppNt, pp con_] in pp "asp_" >|< ppProd >|< pp " = inh_" >|< ppProd >|< pp " `ext` syn_" >|< ppProd >|< pp " `ext` loc_" >|< ppProd >|< pp " `ext` inst_" >|< ppProd >-< pp "sem_" >|< ppProd >|< pp " = knit asp_" >|< ppProd- {-# LINE 1542 "AG2AspectAG.hs" #-}+ {-# LINE 1577 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 414, column 25)+ -- "AG2AspectAG.ag"(line 449, column 25) _lhsOppSF =- ({-# LINE 414 "AG2AspectAG.ag" #-}+ ({-# LINE 449 "AG2AspectAG.ag" #-} let chi = _childrenIppCSF ppProd = ppListSep "" "" "_" [_lhsIppNt,pp con_] ppPattern = case (show con_) of@@ -1552,31 +1587,31 @@ ppParams f = f $ map (((>|<) (pp "_")) . fst) chi in pp "sem_" >|< _lhsIppNt >|< pp " (" >|< ppPattern >|< ") = sem_" >|< ppProd >|< pp " (" >|< map snd chi >|< pp "emptyRecord)"- {-# LINE 1556 "AG2AspectAG.hs" #-}+ {-# LINE 1591 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 145, column 79)+ -- use rule "AG2AspectAG.ag"(line 146, column 79) _lhsOppL =- ({-# LINE 145 "AG2AspectAG.ag" #-}+ ({-# LINE 146 "AG2AspectAG.ag" #-} _childrenIppL- {-# LINE 1562 "AG2AspectAG.hs" #-}+ {-# LINE 1597 "AG2AspectAG.hs" #-} ) -- copy rule (down) _childrenOo_rename =- ({-# LINE 37 "AG2AspectAG.ag" #-}+ ({-# LINE 38 "AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 1568 "AG2AspectAG.hs" #-}+ {-# LINE 1603 "AG2AspectAG.hs" #-} ) -- copy rule (down) _childrenOppNt =- ({-# LINE 75 "AG2AspectAG.ag" #-}+ ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 1574 "AG2AspectAG.hs" #-}+ {-# LINE 1609 "AG2AspectAG.hs" #-} ) -- copy rule (down) _rulesOppNt =- ({-# LINE 75 "AG2AspectAG.ag" #-}+ ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 1580 "AG2AspectAG.hs" #-}+ {-# LINE 1615 "AG2AspectAG.hs" #-} ) ( _childrenIidCL,_childrenIppCSF,_childrenIppDL,_childrenIppL,_childrenIppR) = children_ _childrenOo_rename _childrenOppNt _childrenOppProd @@ -1647,65 +1682,65 @@ _tlIppL :: PP_Doc _tlIppR :: PP_Doc _tlIppSF :: PP_Doc- -- "AG2AspectAG.ag"(line 120, column 33)+ -- "AG2AspectAG.ag"(line 121, column 33) _lhsOppDL =- ({-# LINE 120 "AG2AspectAG.ag" #-}+ ({-# LINE 121 "AG2AspectAG.ag" #-} _hdIppD : _tlIppDL- {-# LINE 1655 "AG2AspectAG.hs" #-}+ {-# LINE 1690 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 167, column 64)+ -- use rule "AG2AspectAG.ag"(line 168, column 64) _lhsOppA =- ({-# LINE 167 "AG2AspectAG.ag" #-}+ ({-# LINE 168 "AG2AspectAG.ag" #-} _hdIppA >-< _tlIppA- {-# LINE 1661 "AG2AspectAG.hs" #-}+ {-# LINE 1696 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 379, column 67)+ -- use rule "AG2AspectAG.ag"(line 414, column 67) _lhsOppCata =- ({-# LINE 379 "AG2AspectAG.ag" #-}+ ({-# LINE 414 "AG2AspectAG.ag" #-} _hdIppCata >-< _tlIppCata- {-# LINE 1667 "AG2AspectAG.hs" #-}+ {-# LINE 1702 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 145, column 79)+ -- use rule "AG2AspectAG.ag"(line 146, column 79) _lhsOppL =- ({-# LINE 145 "AG2AspectAG.ag" #-}+ ({-# LINE 146 "AG2AspectAG.ag" #-} _hdIppL >-< _tlIppL- {-# LINE 1673 "AG2AspectAG.hs" #-}+ {-# LINE 1708 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 219, column 79)+ -- use rule "AG2AspectAG.ag"(line 220, column 79) _lhsOppR =- ({-# LINE 219 "AG2AspectAG.ag" #-}+ ({-# LINE 220 "AG2AspectAG.ag" #-} _hdIppR >-< _tlIppR- {-# LINE 1679 "AG2AspectAG.hs" #-}+ {-# LINE 1714 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 400, column 66)+ -- use rule "AG2AspectAG.ag"(line 435, column 66) _lhsOppSF =- ({-# LINE 400 "AG2AspectAG.ag" #-}+ ({-# LINE 435 "AG2AspectAG.ag" #-} _hdIppSF >-< _tlIppSF- {-# LINE 1685 "AG2AspectAG.hs" #-}+ {-# LINE 1720 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOo_rename =- ({-# LINE 37 "AG2AspectAG.ag" #-}+ ({-# LINE 38 "AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 1691 "AG2AspectAG.hs" #-}+ {-# LINE 1726 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOppNt =- ({-# LINE 75 "AG2AspectAG.ag" #-}+ ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 1697 "AG2AspectAG.hs" #-}+ {-# LINE 1732 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOo_rename =- ({-# LINE 37 "AG2AspectAG.ag" #-}+ ({-# LINE 38 "AG2AspectAG.ag" #-} _lhsIo_rename- {-# LINE 1703 "AG2AspectAG.hs" #-}+ {-# LINE 1738 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOppNt =- ({-# LINE 75 "AG2AspectAG.ag" #-}+ ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 1709 "AG2AspectAG.hs" #-}+ {-# LINE 1744 "AG2AspectAG.hs" #-} ) ( _hdIppA,_hdIppCata,_hdIppD,_hdIppL,_hdIppR,_hdIppSF) = hd_ _hdOo_rename _hdOppNt @@ -1722,41 +1757,41 @@ _lhsOppL :: PP_Doc _lhsOppR :: PP_Doc _lhsOppSF :: PP_Doc- -- "AG2AspectAG.ag"(line 121, column 33)+ -- "AG2AspectAG.ag"(line 122, column 33) _lhsOppDL =- ({-# LINE 121 "AG2AspectAG.ag" #-}+ ({-# LINE 122 "AG2AspectAG.ag" #-} []- {-# LINE 1730 "AG2AspectAG.hs" #-}+ {-# LINE 1765 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 167, column 64)+ -- use rule "AG2AspectAG.ag"(line 168, column 64) _lhsOppA =- ({-# LINE 167 "AG2AspectAG.ag" #-}+ ({-# LINE 168 "AG2AspectAG.ag" #-} empty- {-# LINE 1736 "AG2AspectAG.hs" #-}+ {-# LINE 1771 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 379, column 67)+ -- use rule "AG2AspectAG.ag"(line 414, column 67) _lhsOppCata =- ({-# LINE 379 "AG2AspectAG.ag" #-}+ ({-# LINE 414 "AG2AspectAG.ag" #-} empty- {-# LINE 1742 "AG2AspectAG.hs" #-}+ {-# LINE 1777 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 145, column 79)+ -- use rule "AG2AspectAG.ag"(line 146, column 79) _lhsOppL =- ({-# LINE 145 "AG2AspectAG.ag" #-}+ ({-# LINE 146 "AG2AspectAG.ag" #-} empty- {-# LINE 1748 "AG2AspectAG.hs" #-}+ {-# LINE 1783 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 219, column 79)+ -- use rule "AG2AspectAG.ag"(line 220, column 79) _lhsOppR =- ({-# LINE 219 "AG2AspectAG.ag" #-}+ ({-# LINE 220 "AG2AspectAG.ag" #-} empty- {-# LINE 1754 "AG2AspectAG.hs" #-}+ {-# LINE 1789 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 400, column 66)+ -- use rule "AG2AspectAG.ag"(line 435, column 66) _lhsOppSF =- ({-# LINE 400 "AG2AspectAG.ag" #-}+ ({-# LINE 435 "AG2AspectAG.ag" #-} empty- {-# LINE 1760 "AG2AspectAG.hs" #-}+ {-# LINE 1795 "AG2AspectAG.hs" #-} ) in ( _lhsOppA,_lhsOppCata,_lhsOppDL,_lhsOppL,_lhsOppR,_lhsOppSF))) ) -- Rule --------------------------------------------------------@@ -1811,31 +1846,31 @@ _patternIcopy :: Pattern _patternIinfo :: ((Identifier, Identifier)) _rhsIppRE :: (Identifier -> [(Identifier,Type)] -> [Identifier] -> PP_Doc)- -- "AG2AspectAG.ag"(line 205, column 25)+ -- "AG2AspectAG.ag"(line 206, column 25) _lhsOlocals =- ({-# LINE 205 "AG2AspectAG.ag" #-}+ ({-# LINE 206 "AG2AspectAG.ag" #-} if (show (fst _patternIinfo) == "loc") then [ snd _patternIinfo ] else [ ]- {-# LINE 1821 "AG2AspectAG.hs" #-}+ {-# LINE 1856 "AG2AspectAG.hs" #-} )- -- "AG2AspectAG.ag"(line 252, column 33)+ -- "AG2AspectAG.ag"(line 253, column 33) _lhsOppRL =- ({-# LINE 252 "AG2AspectAG.ag" #-}+ ({-# LINE 253 "AG2AspectAG.ag" #-} [ (_patternIinfo, defRule _lhsIppNt _patternIinfo _rhsIppRE) ]- {-# LINE 1827 "AG2AspectAG.hs" #-}+ {-# LINE 1862 "AG2AspectAG.hs" #-} ) -- copy rule (down) _rhsOppNt =- ({-# LINE 75 "AG2AspectAG.ag" #-}+ ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 1833 "AG2AspectAG.hs" #-}+ {-# LINE 1868 "AG2AspectAG.hs" #-} ) -- copy rule (down) _rhsOppProd =- ({-# LINE 81 "AG2AspectAG.ag" #-}+ ({-# LINE 82 "AG2AspectAG.ag" #-} _lhsIppProd- {-# LINE 1839 "AG2AspectAG.hs" #-}+ {-# LINE 1874 "AG2AspectAG.hs" #-} ) ( _patternIcopy,_patternIinfo) = pattern_ @@ -1890,41 +1925,41 @@ _hdIppRL :: ([((Identifier,Identifier),[(Identifier,Type)] -> [Identifier] -> PP_Doc)]) _tlIlocals :: ([Identifier]) _tlIppRL :: ([((Identifier,Identifier),[(Identifier,Type)] -> [Identifier] -> PP_Doc)])- -- "AG2AspectAG.ag"(line 248, column 33)+ -- "AG2AspectAG.ag"(line 249, column 33) _lhsOppRL =- ({-# LINE 248 "AG2AspectAG.ag" #-}+ ({-# LINE 249 "AG2AspectAG.ag" #-} _hdIppRL ++ _tlIppRL- {-# LINE 1898 "AG2AspectAG.hs" #-}+ {-# LINE 1933 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 201, column 30)+ -- use rule "AG2AspectAG.ag"(line 202, column 30) _lhsOlocals =- ({-# LINE 201 "AG2AspectAG.ag" #-}+ ({-# LINE 202 "AG2AspectAG.ag" #-} _hdIlocals ++ _tlIlocals- {-# LINE 1904 "AG2AspectAG.hs" #-}+ {-# LINE 1939 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOppNt =- ({-# LINE 75 "AG2AspectAG.ag" #-}+ ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 1910 "AG2AspectAG.hs" #-}+ {-# LINE 1945 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOppProd =- ({-# LINE 81 "AG2AspectAG.ag" #-}+ ({-# LINE 82 "AG2AspectAG.ag" #-} _lhsIppProd- {-# LINE 1916 "AG2AspectAG.hs" #-}+ {-# LINE 1951 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOppNt =- ({-# LINE 75 "AG2AspectAG.ag" #-}+ ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt- {-# LINE 1922 "AG2AspectAG.hs" #-}+ {-# LINE 1957 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOppProd =- ({-# LINE 81 "AG2AspectAG.ag" #-}+ ({-# LINE 82 "AG2AspectAG.ag" #-} _lhsIppProd- {-# LINE 1928 "AG2AspectAG.hs" #-}+ {-# LINE 1963 "AG2AspectAG.hs" #-} ) ( _hdIlocals,_hdIppRL) = hd_ _hdOppNt _hdOppProd @@ -1937,17 +1972,17 @@ _lhsIppProd -> (let _lhsOppRL :: ([((Identifier,Identifier),[(Identifier,Type)] -> [Identifier] -> PP_Doc)]) _lhsOlocals :: ([Identifier])- -- "AG2AspectAG.ag"(line 249, column 33)+ -- "AG2AspectAG.ag"(line 250, column 33) _lhsOppRL =- ({-# LINE 249 "AG2AspectAG.ag" #-}+ ({-# LINE 250 "AG2AspectAG.ag" #-} []- {-# LINE 1945 "AG2AspectAG.hs" #-}+ {-# LINE 1980 "AG2AspectAG.hs" #-} )- -- use rule "AG2AspectAG.ag"(line 201, column 30)+ -- use rule "AG2AspectAG.ag"(line 202, column 30) _lhsOlocals =- ({-# LINE 201 "AG2AspectAG.ag" #-}+ ({-# LINE 202 "AG2AspectAG.ag" #-} []- {-# LINE 1951 "AG2AspectAG.hs" #-}+ {-# LINE 1986 "AG2AspectAG.hs" #-} ) in ( _lhsOlocals,_lhsOppRL))) ) -- TypeSig -----------------------------------------------------
src-derived/AbstractSyntax.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (AbstractSyntax.ag)+-- UUAGC 0.9.36.2 (AbstractSyntax.ag) module AbstractSyntax where {-# LINE 2 "AbstractSyntax.ag" #-}
src-derived/AbstractSyntaxDump.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (AbstractSyntaxDump.ag)+-- UUAGC 0.9.36.2 (AbstractSyntaxDump.ag) module AbstractSyntaxDump where {-# LINE 6 "AbstractSyntaxDump.ag" #-}
src-derived/Code.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (Code.ag)+-- UUAGC 0.9.36.2 (Code.ag) module Code where {-# LINE 2 "Code.ag" #-}
src-derived/CodeSyntax.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (CodeSyntax.ag)+-- UUAGC 0.9.36.2 (CodeSyntax.ag) module CodeSyntax where {-# LINE 2 "CodeSyntax.ag" #-}
src-derived/CodeSyntaxDump.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (CodeSyntaxDump.ag)+-- UUAGC 0.9.36.2 (CodeSyntaxDump.ag) module CodeSyntaxDump where {-# LINE 5 "CodeSyntaxDump.ag" #-}
src-derived/ConcreteSyntax.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (ConcreteSyntax.ag)+-- UUAGC 0.9.36.2 (ConcreteSyntax.ag) module ConcreteSyntax where {-# LINE 2 "ConcreteSyntax.ag" #-} @@ -202,6 +202,7 @@ alternative SemPragma: child names : {[NontermIdent]} alternative TypeDef:+ child pos : {Pos} child ident : {Identifier} child tp : {Type} alternative UniqueDef:@@ -214,7 +215,7 @@ | Def (Pos) ((Maybe Identifier)) (Pattern) (Expression) (Bool) | MergeDef (Identifier) (Identifier) (([Identifier])) (Expression) | SemPragma (([NontermIdent])) - | TypeDef (Identifier) (Type) + | TypeDef (Pos) (Identifier) (Type) | UniqueDef (Identifier) (Identifier) -- SemDefs ----------------------------------------------------- {-
src-derived/DeclBlocks.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (DeclBlocks.ag)+-- UUAGC 0.9.36.2 (DeclBlocks.ag) module DeclBlocks where {-# LINE 2 "DeclBlocks.ag" #-}
src-derived/DefaultRules.hs view
@@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.35 (DefaultRules.ag)+-- UUAGC 0.9.36.2 (DefaultRules.ag) module DefaultRules where {-# LINE 10 "DefaultRules.ag" #-}
src-derived/Desugar.hs view
@@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.35 (Desugar.ag)+-- UUAGC 0.9.36.2 (Desugar.ag) module Desugar where {-# LINE 13 "Desugar.ag" #-}
src-derived/ErrorMessages.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (ErrorMessages.ag)+-- UUAGC 0.9.36.2 (ErrorMessages.ag) module ErrorMessages where {-# LINE 2 "ErrorMessages.ag" #-} @@ -68,6 +68,9 @@ child nt : {NontermIdent} child con : {ConstructorIdent} child attr : {Identifier}+ alternative HsParseError:+ child pos : {Pos}+ child msg : {String} alternative InducedCirc: child nt : {NontermIdent} child cinter : {CInterface}@@ -150,6 +153,7 @@ | DupSynAttr (NontermIdent) (Identifier) (Identifier) | DupSynonym (NontermIdent) (NontermIdent) | DupUnique (NontermIdent) (ConstructorIdent) (Identifier) + | HsParseError (Pos) (String) | InducedCirc (NontermIdent) (CInterface) (([((Identifier,Identifier),[String],[String])])) | InstCirc (NontermIdent) (ConstructorIdent) (Identifier) (Bool) (([String])) | LocalCirc (NontermIdent) (ConstructorIdent) (Identifier) (Bool) (([String]))
src-derived/Expression.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (Expression.ag)+-- UUAGC 0.9.36.2 (Expression.ag) module Expression where {-# LINE 2 "Expression.ag" #-}
src-derived/GenerateCode.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (GenerateCode.ag)+-- UUAGC 0.9.36.2 (GenerateCode.ag) module GenerateCode where {-# LINE 9 "GenerateCode.ag" #-}
src-derived/HsToken.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (HsToken.ag)+-- UUAGC 0.9.36.2 (HsToken.ag) module HsToken where {-# LINE 2 "HsToken.ag" #-}
src-derived/Interfaces.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (Interfaces.ag)+-- UUAGC 0.9.36.2 (Interfaces.ag) module Interfaces where {-# LINE 2 "Interfaces.ag" #-}
src-derived/InterfacesRules.hs view
@@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.35 (InterfacesRules.lag)+-- UUAGC 0.9.36.2 (InterfacesRules.lag) module InterfacesRules where {-# LINE 10 "InterfacesRules.lag" #-}
src-derived/Order.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (Order.ag)+-- UUAGC 0.9.36.2 (Order.ag) module Order where {-# LINE 9 "Order.ag" #-} @@ -4647,13 +4647,12 @@ typ :: Pattern -> Maybe Type typ (Alias field attr _ parts) = tp field attr parts typ (Underscore _) = Nothing- typ (Product _ pats) = tp _LOC undefined pats typ _ = Nothing in Map.fromList [ (findWithErr1 "Rule.defines" aa _lhsIaltAttrs, (field,attr,(tp field attr parts))) | (field,attr,isLocalOrInst,parts) <- _patternIpatternAttrs , let aa = AltAttr field attr isLocalOrInst ]- {-# LINE 4657 "Order.hs" #-}+ {-# LINE 4656 "Order.hs" #-} ) -- "Order.ag"(line 233, column 12) _gathRules =@@ -4662,7 +4661,7 @@ in Seq.fromList [ CRule attr False True _lhsInt _lhsIcon field (childnt field) tp _patternIcopy _rhsItextLines _defines owrt_ origin_ _rhsIallRhsVars explicit_ mbName_ | (field,attr,tp) <- Map.elems _defines ]- {-# LINE 4666 "Order.hs" #-}+ {-# LINE 4665 "Order.hs" #-} ) -- "Order.ag"(line 271, column 12) _lhsOdirectDep =@@ -4671,7 +4670,7 @@ used = [ Map.lookup (AltAttr field attr True) _lhsIaltAttrs | (field,attr) <- _rhsIusedAttrs] ++ [ Map.lookup (AltAttr _LOC attr True) _lhsIaltAttrs | attr <- _rhsIusedLocals ++ _rhsIusedFields ] in Seq.fromList [ (x,y) | Just x <- used, y <- defined ]- {-# LINE 4675 "Order.hs" #-}+ {-# LINE 4674 "Order.hs" #-} ) -- "Order.ag"(line 315, column 6) _instDep1 =@@ -4686,7 +4685,7 @@ instVert = findWithErr2 instAttr _lhsIaltAttrs synVert = findWithErr2 synAttr _lhsIaltAttrs ]- {-# LINE 4690 "Order.hs" #-}+ {-# LINE 4689 "Order.hs" #-} ) -- "Order.ag"(line 326, column 6) _instDep2 =@@ -4701,115 +4700,115 @@ instVert = findWithErr2 instAttr _lhsIaltAttrs inhVert = findWithErr2 inhAttr _lhsIaltAttrs ]- {-# LINE 4705 "Order.hs" #-}+ {-# LINE 4704 "Order.hs" #-} ) -- "Order.ag"(line 337, column 6) _lhsOinstDep = ({-# LINE 337 "Order.ag" #-} _instDep1 Seq.>< _instDep2- {-# LINE 4711 "Order.hs" #-}+ {-# LINE 4710 "Order.hs" #-} ) -- use rule "Order.ag"(line 84, column 70) _lhsOerrors = ({-# LINE 84 "Order.ag" #-} _patternIerrors Seq.>< _rhsIerrors- {-# LINE 4717 "Order.hs" #-}+ {-# LINE 4716 "Order.hs" #-} ) -- use rule "Order.ag"(line 170, column 68) _lhsOgathAltAttrs = ({-# LINE 170 "Order.ag" #-} _patternIgathAltAttrs- {-# LINE 4723 "Order.hs" #-}+ {-# LINE 4722 "Order.hs" #-} ) -- use rule "Order.ag"(line 206, column 23) _lhsOgathRules = ({-# LINE 206 "Order.ag" #-} _gathRules- {-# LINE 4729 "Order.hs" #-}+ {-# LINE 4728 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 86) _lhsOinstVars = ({-# LINE 677 "Order.ag" #-} _patternIinstVars- {-# LINE 4735 "Order.hs" #-}+ {-# LINE 4734 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 48) _lhsOlocVars = ({-# LINE 677 "Order.ag" #-} _patternIlocVars- {-# LINE 4741 "Order.hs" #-}+ {-# LINE 4740 "Order.hs" #-} ) -- copy rule (down) _patternOallTypeSigs = ({-# LINE 533 "Order.ag" #-} _lhsIallTypeSigs- {-# LINE 4747 "Order.hs" #-}+ {-# LINE 4746 "Order.hs" #-} ) -- copy rule (down) _patternOaltAttrs = ({-# LINE 186 "Order.ag" #-} _lhsIaltAttrs- {-# LINE 4753 "Order.hs" #-}+ {-# LINE 4752 "Order.hs" #-} ) -- copy rule (down) _patternOcon = ({-# LINE 90 "Order.ag" #-} _lhsIcon- {-# LINE 4759 "Order.hs" #-}+ {-# LINE 4758 "Order.hs" #-} ) -- copy rule (down) _patternOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh- {-# LINE 4765 "Order.hs" #-}+ {-# LINE 4764 "Order.hs" #-} ) -- copy rule (down) _patternOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt- {-# LINE 4771 "Order.hs" #-}+ {-# LINE 4770 "Order.hs" #-} ) -- copy rule (down) _patternOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn- {-# LINE 4777 "Order.hs" #-}+ {-# LINE 4776 "Order.hs" #-} ) -- copy rule (down) _rhsOallfields = ({-# LINE 448 "Order.ag" #-} _lhsIallfields- {-# LINE 4783 "Order.hs" #-}+ {-# LINE 4782 "Order.hs" #-} ) -- copy rule (down) _rhsOallnts = ({-# LINE 449 "Order.ag" #-} _lhsIallnts- {-# LINE 4789 "Order.hs" #-}+ {-# LINE 4788 "Order.hs" #-} ) -- copy rule (down) _rhsOattrs = ({-# LINE 450 "Order.ag" #-} _lhsIattrs- {-# LINE 4795 "Order.hs" #-}+ {-# LINE 4794 "Order.hs" #-} ) -- copy rule (down) _rhsOcon = ({-# LINE 447 "Order.ag" #-} _lhsIcon- {-# LINE 4801 "Order.hs" #-}+ {-# LINE 4800 "Order.hs" #-} ) -- copy rule (down) _rhsOmergeMap = ({-# LINE 362 "Order.ag" #-} _lhsImergeMap- {-# LINE 4807 "Order.hs" #-}+ {-# LINE 4806 "Order.hs" #-} ) -- copy rule (down) _rhsOnt = ({-# LINE 447 "Order.ag" #-} _lhsInt- {-# LINE 4813 "Order.hs" #-}+ {-# LINE 4812 "Order.hs" #-} ) ( _patternIcopy,_patternIerrors,_patternIgathAltAttrs,_patternIinstVars,_patternIlocVars,_patternIpatternAttrs) = pattern_ _patternOallTypeSigs _patternOaltAttrs _patternOcon _patternOinh _patternOnt _patternOsyn @@ -5001,331 +5000,331 @@ _lhsOdirectDep = ({-# LINE 269 "Order.ag" #-} _hdIdirectDep Seq.>< _tlIdirectDep- {-# LINE 5005 "Order.hs" #-}+ {-# LINE 5004 "Order.hs" #-} ) -- use rule "Order.ag"(line 84, column 70) _lhsOerrors = ({-# LINE 84 "Order.ag" #-} _hdIerrors Seq.>< _tlIerrors- {-# LINE 5011 "Order.hs" #-}+ {-# LINE 5010 "Order.hs" #-} ) -- use rule "Order.ag"(line 170, column 68) _lhsOgathAltAttrs = ({-# LINE 170 "Order.ag" #-} _hdIgathAltAttrs ++ _tlIgathAltAttrs- {-# LINE 5017 "Order.hs" #-}+ {-# LINE 5016 "Order.hs" #-} ) -- use rule "Order.ag"(line 206, column 23) _lhsOgathRules = ({-# LINE 206 "Order.ag" #-} _hdIgathRules Seq.>< _tlIgathRules- {-# LINE 5023 "Order.hs" #-}+ {-# LINE 5022 "Order.hs" #-} ) -- use rule "Order.ag"(line 312, column 31) _lhsOinstDep = ({-# LINE 312 "Order.ag" #-} _hdIinstDep Seq.>< _tlIinstDep- {-# LINE 5029 "Order.hs" #-}+ {-# LINE 5028 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 86) _lhsOinstVars = ({-# LINE 677 "Order.ag" #-} _hdIinstVars ++ _tlIinstVars- {-# LINE 5035 "Order.hs" #-}+ {-# LINE 5034 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 48) _lhsOlocVars = ({-# LINE 677 "Order.ag" #-} _hdIlocVars ++ _tlIlocVars- {-# LINE 5041 "Order.hs" #-}+ {-# LINE 5040 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnAutoRules = ({-# LINE 61 "Order.ag" #-} _hdInAutoRules + _tlInAutoRules- {-# LINE 5047 "Order.hs" #-}+ {-# LINE 5046 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnExplicitRules = ({-# LINE 61 "Order.ag" #-} _hdInExplicitRules + _tlInExplicitRules- {-# LINE 5053 "Order.hs" #-}+ {-# LINE 5052 "Order.hs" #-} ) -- copy rule (down) _hdOallTypeSigs = ({-# LINE 533 "Order.ag" #-} _lhsIallTypeSigs- {-# LINE 5059 "Order.hs" #-}+ {-# LINE 5058 "Order.hs" #-} ) -- copy rule (down) _hdOallfields = ({-# LINE 654 "Order.ag" #-} _lhsIallfields- {-# LINE 5065 "Order.hs" #-}+ {-# LINE 5064 "Order.hs" #-} ) -- copy rule (down) _hdOallnts = ({-# LINE 647 "Order.ag" #-} _lhsIallnts- {-# LINE 5071 "Order.hs" #-}+ {-# LINE 5070 "Order.hs" #-} ) -- copy rule (down) _hdOaltAttrs = ({-# LINE 186 "Order.ag" #-} _lhsIaltAttrs- {-# LINE 5077 "Order.hs" #-}+ {-# LINE 5076 "Order.hs" #-} ) -- copy rule (down) _hdOattrs = ({-# LINE 654 "Order.ag" #-} _lhsIattrs- {-# LINE 5083 "Order.hs" #-}+ {-# LINE 5082 "Order.hs" #-} ) -- copy rule (down) _hdOchildInhs = ({-# LINE 199 "Order.ag" #-} _lhsIchildInhs- {-# LINE 5089 "Order.hs" #-}+ {-# LINE 5088 "Order.hs" #-} ) -- copy rule (down) _hdOchildNts = ({-# LINE 198 "Order.ag" #-} _lhsIchildNts- {-# LINE 5095 "Order.hs" #-}+ {-# LINE 5094 "Order.hs" #-} ) -- copy rule (down) _hdOcon = ({-# LINE 90 "Order.ag" #-} _lhsIcon- {-# LINE 5101 "Order.hs" #-}+ {-# LINE 5100 "Order.hs" #-} ) -- copy rule (down) _hdOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh- {-# LINE 5107 "Order.hs" #-}+ {-# LINE 5106 "Order.hs" #-} ) -- copy rule (down) _hdOinhsOfChildren = ({-# LINE 339 "Order.ag" #-} _lhsIinhsOfChildren- {-# LINE 5113 "Order.hs" #-}+ {-# LINE 5112 "Order.hs" #-} ) -- copy rule (down) _hdOmergeMap = ({-# LINE 362 "Order.ag" #-} _lhsImergeMap- {-# LINE 5119 "Order.hs" #-}+ {-# LINE 5118 "Order.hs" #-} ) -- copy rule (down) _hdOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt- {-# LINE 5125 "Order.hs" #-}+ {-# LINE 5124 "Order.hs" #-} ) -- copy rule (down) _hdOo_case = ({-# LINE 117 "Order.ag" #-} _lhsIo_case- {-# LINE 5131 "Order.hs" #-}+ {-# LINE 5130 "Order.hs" #-} ) -- copy rule (down) _hdOo_cata = ({-# LINE 111 "Order.ag" #-} _lhsIo_cata- {-# LINE 5137 "Order.hs" #-}+ {-# LINE 5136 "Order.hs" #-} ) -- copy rule (down) _hdOo_dovisit = ({-# LINE 116 "Order.ag" #-} _lhsIo_dovisit- {-# LINE 5143 "Order.hs" #-}+ {-# LINE 5142 "Order.hs" #-} ) -- copy rule (down) _hdOo_newtypes = ({-# LINE 110 "Order.ag" #-} _lhsIo_newtypes- {-# LINE 5149 "Order.hs" #-}+ {-# LINE 5148 "Order.hs" #-} ) -- copy rule (down) _hdOo_rename = ({-# LINE 114 "Order.ag" #-} _lhsIo_rename- {-# LINE 5155 "Order.hs" #-}+ {-# LINE 5154 "Order.hs" #-} ) -- copy rule (down) _hdOo_sem = ({-# LINE 113 "Order.ag" #-} _lhsIo_sem- {-# LINE 5161 "Order.hs" #-}+ {-# LINE 5160 "Order.hs" #-} ) -- copy rule (down) _hdOo_sig = ({-# LINE 112 "Order.ag" #-} _lhsIo_sig- {-# LINE 5167 "Order.hs" #-}+ {-# LINE 5166 "Order.hs" #-} ) -- copy rule (down) _hdOo_wantvisit = ({-# LINE 115 "Order.ag" #-} _lhsIo_wantvisit- {-# LINE 5173 "Order.hs" #-}+ {-# LINE 5172 "Order.hs" #-} ) -- copy rule (down) _hdOprefix = ({-# LINE 118 "Order.ag" #-} _lhsIprefix- {-# LINE 5179 "Order.hs" #-}+ {-# LINE 5178 "Order.hs" #-} ) -- copy rule (down) _hdOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn- {-# LINE 5185 "Order.hs" #-}+ {-# LINE 5184 "Order.hs" #-} ) -- copy rule (down) _hdOsynsOfChildren = ({-# LINE 339 "Order.ag" #-} _lhsIsynsOfChildren- {-# LINE 5191 "Order.hs" #-}+ {-# LINE 5190 "Order.hs" #-} ) -- copy rule (down) _tlOallTypeSigs = ({-# LINE 533 "Order.ag" #-} _lhsIallTypeSigs- {-# LINE 5197 "Order.hs" #-}+ {-# LINE 5196 "Order.hs" #-} ) -- copy rule (down) _tlOallfields = ({-# LINE 654 "Order.ag" #-} _lhsIallfields- {-# LINE 5203 "Order.hs" #-}+ {-# LINE 5202 "Order.hs" #-} ) -- copy rule (down) _tlOallnts = ({-# LINE 647 "Order.ag" #-} _lhsIallnts- {-# LINE 5209 "Order.hs" #-}+ {-# LINE 5208 "Order.hs" #-} ) -- copy rule (down) _tlOaltAttrs = ({-# LINE 186 "Order.ag" #-} _lhsIaltAttrs- {-# LINE 5215 "Order.hs" #-}+ {-# LINE 5214 "Order.hs" #-} ) -- copy rule (down) _tlOattrs = ({-# LINE 654 "Order.ag" #-} _lhsIattrs- {-# LINE 5221 "Order.hs" #-}+ {-# LINE 5220 "Order.hs" #-} ) -- copy rule (down) _tlOchildInhs = ({-# LINE 199 "Order.ag" #-} _lhsIchildInhs- {-# LINE 5227 "Order.hs" #-}+ {-# LINE 5226 "Order.hs" #-} ) -- copy rule (down) _tlOchildNts = ({-# LINE 198 "Order.ag" #-} _lhsIchildNts- {-# LINE 5233 "Order.hs" #-}+ {-# LINE 5232 "Order.hs" #-} ) -- copy rule (down) _tlOcon = ({-# LINE 90 "Order.ag" #-} _lhsIcon- {-# LINE 5239 "Order.hs" #-}+ {-# LINE 5238 "Order.hs" #-} ) -- copy rule (down) _tlOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh- {-# LINE 5245 "Order.hs" #-}+ {-# LINE 5244 "Order.hs" #-} ) -- copy rule (down) _tlOinhsOfChildren = ({-# LINE 339 "Order.ag" #-} _lhsIinhsOfChildren- {-# LINE 5251 "Order.hs" #-}+ {-# LINE 5250 "Order.hs" #-} ) -- copy rule (down) _tlOmergeMap = ({-# LINE 362 "Order.ag" #-} _lhsImergeMap- {-# LINE 5257 "Order.hs" #-}+ {-# LINE 5256 "Order.hs" #-} ) -- copy rule (down) _tlOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt- {-# LINE 5263 "Order.hs" #-}+ {-# LINE 5262 "Order.hs" #-} ) -- copy rule (down) _tlOo_case = ({-# LINE 117 "Order.ag" #-} _lhsIo_case- {-# LINE 5269 "Order.hs" #-}+ {-# LINE 5268 "Order.hs" #-} ) -- copy rule (down) _tlOo_cata = ({-# LINE 111 "Order.ag" #-} _lhsIo_cata- {-# LINE 5275 "Order.hs" #-}+ {-# LINE 5274 "Order.hs" #-} ) -- copy rule (down) _tlOo_dovisit = ({-# LINE 116 "Order.ag" #-} _lhsIo_dovisit- {-# LINE 5281 "Order.hs" #-}+ {-# LINE 5280 "Order.hs" #-} ) -- copy rule (down) _tlOo_newtypes = ({-# LINE 110 "Order.ag" #-} _lhsIo_newtypes- {-# LINE 5287 "Order.hs" #-}+ {-# LINE 5286 "Order.hs" #-} ) -- copy rule (down) _tlOo_rename = ({-# LINE 114 "Order.ag" #-} _lhsIo_rename- {-# LINE 5293 "Order.hs" #-}+ {-# LINE 5292 "Order.hs" #-} ) -- copy rule (down) _tlOo_sem = ({-# LINE 113 "Order.ag" #-} _lhsIo_sem- {-# LINE 5299 "Order.hs" #-}+ {-# LINE 5298 "Order.hs" #-} ) -- copy rule (down) _tlOo_sig = ({-# LINE 112 "Order.ag" #-} _lhsIo_sig- {-# LINE 5305 "Order.hs" #-}+ {-# LINE 5304 "Order.hs" #-} ) -- copy rule (down) _tlOo_wantvisit = ({-# LINE 115 "Order.ag" #-} _lhsIo_wantvisit- {-# LINE 5311 "Order.hs" #-}+ {-# LINE 5310 "Order.hs" #-} ) -- copy rule (down) _tlOprefix = ({-# LINE 118 "Order.ag" #-} _lhsIprefix- {-# LINE 5317 "Order.hs" #-}+ {-# LINE 5316 "Order.hs" #-} ) -- copy rule (down) _tlOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn- {-# LINE 5323 "Order.hs" #-}+ {-# LINE 5322 "Order.hs" #-} ) -- copy rule (down) _tlOsynsOfChildren = ({-# LINE 339 "Order.ag" #-} _lhsIsynsOfChildren- {-# LINE 5329 "Order.hs" #-}+ {-# LINE 5328 "Order.hs" #-} ) ( _hdIdirectDep,_hdIerrors,_hdIgathAltAttrs,_hdIgathRules,_hdIinstDep,_hdIinstVars,_hdIlocVars,_hdInAutoRules,_hdInExplicitRules) = hd_ _hdOallTypeSigs _hdOallfields _hdOallnts _hdOaltAttrs _hdOattrs _hdOchildInhs _hdOchildNts _hdOcon _hdOinh _hdOinhsOfChildren _hdOmergeMap _hdOnt _hdOo_case _hdOo_cata _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_wantvisit _hdOprefix _hdOsyn _hdOsynsOfChildren @@ -5370,55 +5369,55 @@ _lhsOdirectDep = ({-# LINE 269 "Order.ag" #-} Seq.empty- {-# LINE 5374 "Order.hs" #-}+ {-# LINE 5373 "Order.hs" #-} ) -- use rule "Order.ag"(line 84, column 70) _lhsOerrors = ({-# LINE 84 "Order.ag" #-} Seq.empty- {-# LINE 5380 "Order.hs" #-}+ {-# LINE 5379 "Order.hs" #-} ) -- use rule "Order.ag"(line 170, column 68) _lhsOgathAltAttrs = ({-# LINE 170 "Order.ag" #-} []- {-# LINE 5386 "Order.hs" #-}+ {-# LINE 5385 "Order.hs" #-} ) -- use rule "Order.ag"(line 206, column 23) _lhsOgathRules = ({-# LINE 206 "Order.ag" #-} Seq.empty- {-# LINE 5392 "Order.hs" #-}+ {-# LINE 5391 "Order.hs" #-} ) -- use rule "Order.ag"(line 312, column 31) _lhsOinstDep = ({-# LINE 312 "Order.ag" #-} Seq.empty- {-# LINE 5398 "Order.hs" #-}+ {-# LINE 5397 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 86) _lhsOinstVars = ({-# LINE 677 "Order.ag" #-} []- {-# LINE 5404 "Order.hs" #-}+ {-# LINE 5403 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 48) _lhsOlocVars = ({-# LINE 677 "Order.ag" #-} []- {-# LINE 5410 "Order.hs" #-}+ {-# LINE 5409 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnAutoRules = ({-# LINE 61 "Order.ag" #-} 0- {-# LINE 5416 "Order.hs" #-}+ {-# LINE 5415 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnExplicitRules = ({-# LINE 61 "Order.ag" #-} 0- {-# LINE 5422 "Order.hs" #-}+ {-# LINE 5421 "Order.hs" #-} ) in ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules))) ) -- TypeSig -----------------------------------------------------@@ -5457,7 +5456,7 @@ _lhsOtypeSigs = ({-# LINE 531 "Order.ag" #-} Map.insert name_ tp_ _lhsItypeSigs- {-# LINE 5461 "Order.hs" #-}+ {-# LINE 5460 "Order.hs" #-} ) in ( _lhsOtypeSigs))) ) -- TypeSigs ----------------------------------------------------@@ -5501,19 +5500,19 @@ _lhsOtypeSigs = ({-# LINE 527 "Order.ag" #-} _tlItypeSigs- {-# LINE 5505 "Order.hs" #-}+ {-# LINE 5504 "Order.hs" #-} ) -- copy rule (down) _hdOtypeSigs = ({-# LINE 527 "Order.ag" #-} _lhsItypeSigs- {-# LINE 5511 "Order.hs" #-}+ {-# LINE 5510 "Order.hs" #-} ) -- copy rule (chain) _tlOtypeSigs = ({-# LINE 527 "Order.ag" #-} _hdItypeSigs- {-# LINE 5517 "Order.hs" #-}+ {-# LINE 5516 "Order.hs" #-} ) ( _hdItypeSigs) = hd_ _hdOtypeSigs @@ -5528,6 +5527,6 @@ _lhsOtypeSigs = ({-# LINE 527 "Order.ag" #-} _lhsItypeSigs- {-# LINE 5532 "Order.hs" #-}+ {-# LINE 5531 "Order.hs" #-} ) in ( _lhsOtypeSigs))) )
src-derived/Patterns.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (Patterns.ag)+-- UUAGC 0.9.36.2 (Patterns.ag) module Patterns where {-# LINE 2 "Patterns.ag" #-}
src-derived/PrintCode.hs view
@@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.35 (PrintCode.ag)+-- UUAGC 0.9.36.2 (PrintCode.ag) module PrintCode where {-# LINE 10 "PrintCode.ag" #-}
src-derived/PrintErrorMessages.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (PrintErrorMessages.ag)+-- UUAGC 0.9.36.2 (PrintErrorMessages.ag) module PrintErrorMessages where {-# LINE 4 "PrintErrorMessages.ag" #-} @@ -54,13 +54,14 @@ isError opts (MissingSyn _ _ ) = True isError opts (MissingNamedRule _ _ _) = True isError opts (DupRuleName _ _ _) = True+isError opts (HsParseError _ _) = True cycleIsDangerous :: Options -> Bool cycleIsDangerous opts = any ($ opts) [ wignore, bangpats, cases, strictCases, stricterCases, strictSems, withCycle ]-{-# LINE 62 "../src-derived/PrintErrorMessages.hs" #-}+{-# LINE 63 "../src-derived/PrintErrorMessages.hs" #-} -{-# LINE 497 "PrintErrorMessages.ag" #-}+{-# LINE 506 "PrintErrorMessages.ag" #-} toWidth n xs | k<n = xs ++ replicate (n-k) ' ' | otherwise = xs@@ -110,9 +111,9 @@ ppAttr f a = text (getName f++"."++getName a) ppAttrUse f a = "@" >|< ppAttr f a-{-# LINE 114 "../src-derived/PrintErrorMessages.hs" #-}+{-# LINE 115 "../src-derived/PrintErrorMessages.hs" #-} -{-# LINE 549 "PrintErrorMessages.ag" #-}+{-# LINE 558 "PrintErrorMessages.ag" #-} infixr 5 +#+ (+#+) :: String -> String -> String@@ -171,7 +172,7 @@ ppInterface inter = wfill ["interface:", show inter] -{-# LINE 175 "../src-derived/PrintErrorMessages.hs" #-}+{-# LINE 176 "../src-derived/PrintErrorMessages.hs" #-} -- Error ------------------------------------------------------- {- visit 0:@@ -265,6 +266,11 @@ child attr : {Identifier} visit 0: local me : _+ alternative HsParseError:+ child pos : {Pos}+ child msg : {String}+ visit 0:+ local me : _ alternative InducedCirc: child nt : {NontermIdent} child cinter : {CInterface}@@ -396,6 +402,8 @@ (sem_Error_DupSynonym _nt _occ1 ) sem_Error (DupUnique _nt _con _attr ) = (sem_Error_DupUnique _nt _con _attr )+sem_Error (HsParseError _pos _msg ) =+ (sem_Error_HsParseError _pos _msg ) sem_Error (InducedCirc _nt _cinter _cyclic ) = (sem_Error_InducedCirc _nt _cinter _cyclic ) sem_Error (InstCirc _nt _con _attr _o_visit _path ) =@@ -449,9 +457,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 332, column 21)+ -- "PrintErrorMessages.ag"(line 341, column 21) _lhsOpp =- ({-# LINE 332 "PrintErrorMessages.ag" #-}+ ({-# LINE 341 "PrintErrorMessages.ag" #-} let mesg = wfill ["Nontrivial field ",getName var_, "is used as local at constructor" , getName con_ , "of nonterminal",getName nt_, "." ]@@ -464,19 +472,19 @@ ] act = wfill ["The generated program probably contains a type error or has undefined variables."] in ppError (isError _lhsIoptions _me) (getPos var_) mesg pat help act _lhsIverbose- {-# LINE 468 "PrintErrorMessages.hs" #-}+ {-# LINE 476 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} ChildAsLocal nt_ con_ var_- {-# LINE 474 "PrintErrorMessages.hs" #-}+ {-# LINE 482 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 480 "PrintErrorMessages.hs" #-}+ {-# LINE 488 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_CustomError :: Bool ->@@ -488,26 +496,26 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 374, column 21)+ -- "PrintErrorMessages.ag"(line 383, column 21) _lhsOpp =- ({-# LINE 374 "PrintErrorMessages.ag" #-}+ ({-# LINE 383 "PrintErrorMessages.ag" #-} let pat = text "unknown" help = wfill ["not available."] act = wfill ["unknown"] in ppError (isError _lhsIoptions _me) pos_ mesg_ pat help act False- {-# LINE 499 "PrintErrorMessages.hs" #-}+ {-# LINE 507 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} CustomError isWarning_ pos_ mesg_- {-# LINE 505 "PrintErrorMessages.hs" #-}+ {-# LINE 513 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 511 "PrintErrorMessages.hs" #-}+ {-# LINE 519 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_CyclicSet :: Identifier ->@@ -517,9 +525,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 365, column 21)+ -- "PrintErrorMessages.ag"(line 374, column 21) _lhsOpp =- ({-# LINE 365 "PrintErrorMessages.ag" #-}+ ({-# LINE 374 "PrintErrorMessages.ag" #-} let mesg = wfill ["Cyclic definition for nonterminal set", getName name_] pat = "SET" >#< getName name_ >#< "=" >#< "..." >#< getName name_ >#< "..." help = wfill ["The defintion for a nonterminal set named" , getName name_@@ -528,19 +536,19 @@ ] act = wfill ["The nonterminal set", getName name_, "is considered to be empty."] in ppError (isError _lhsIoptions _me) (getPos name_) mesg pat help act _lhsIverbose- {-# LINE 532 "PrintErrorMessages.hs" #-}+ {-# LINE 540 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} CyclicSet name_- {-# LINE 538 "PrintErrorMessages.hs" #-}+ {-# LINE 546 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 544 "PrintErrorMessages.hs" #-}+ {-# LINE 552 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_DirectCirc :: NontermIdent ->@@ -552,9 +560,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 403, column 21)+ -- "PrintErrorMessages.ag"(line 412, column 21) _lhsOpp =- ({-# LINE 403 "PrintErrorMessages.ag" #-}+ ({-# LINE 412 "PrintErrorMessages.ag" #-} let mesg = wfill ["In nonterminal", getName nt_, "synthesized and inherited attributes are mutually dependent" ] >-< vlist (map showEdge cyclic_) pat = text ""@@ -562,19 +570,19 @@ act | o_visit_ = text "An unoptimized version was generated. It might hang when run." | otherwise = text "The generated program might hang when run." in ppError (isError _lhsIoptions _me) noPos mesg pat help act _lhsIverbose- {-# LINE 566 "PrintErrorMessages.hs" #-}+ {-# LINE 574 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} DirectCirc nt_ o_visit_ cyclic_- {-# LINE 572 "PrintErrorMessages.hs" #-}+ {-# LINE 580 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 578 "PrintErrorMessages.hs" #-}+ {-# LINE 586 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_DupAlt :: NontermIdent ->@@ -586,9 +594,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 78, column 21)+ -- "PrintErrorMessages.ag"(line 87, column 21) _lhsOpp =- ({-# LINE 78 "PrintErrorMessages.ag" #-}+ ({-# LINE 87 "PrintErrorMessages.ag" #-} let mesg = wfill ["Repeated definition for alternative", getName con_ ,"of nonterminal", getName nt_, "." ] >-<@@ -607,19 +615,19 @@ ,"is considered valid. All other alternatives have been discarded." ] in ppError (isError _lhsIoptions _me) (getPos con_) mesg pat help act _lhsIverbose- {-# LINE 611 "PrintErrorMessages.hs" #-}+ {-# LINE 619 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} DupAlt nt_ con_ occ1_- {-# LINE 617 "PrintErrorMessages.hs" #-}+ {-# LINE 625 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 623 "PrintErrorMessages.hs" #-}+ {-# LINE 631 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_DupChild :: NontermIdent ->@@ -632,9 +640,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 171, column 21)+ -- "PrintErrorMessages.ag"(line 180, column 21) _lhsOpp =- ({-# LINE 171 "PrintErrorMessages.ag" #-}+ ({-# LINE 180 "PrintErrorMessages.ag" #-} let mesg = wfill ["Repeated declaration for field", getName name_, "of alternative" ,getName con_, "of nonterminal", getName nt_, "." ] >-<@@ -652,19 +660,19 @@ ,"All others have been discarded." ] in ppError (isError _lhsIoptions _me) (getPos name_) mesg pat help act _lhsIverbose- {-# LINE 656 "PrintErrorMessages.hs" #-}+ {-# LINE 664 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} DupChild nt_ con_ name_ occ1_- {-# LINE 662 "PrintErrorMessages.hs" #-}+ {-# LINE 670 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 668 "PrintErrorMessages.hs" #-}+ {-# LINE 676 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_DupInhAttr :: NontermIdent ->@@ -676,9 +684,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 133, column 21)+ -- "PrintErrorMessages.ag"(line 142, column 21) _lhsOpp =- ({-# LINE 133 "PrintErrorMessages.ag" #-}+ ({-# LINE 142 "PrintErrorMessages.ag" #-} let mesg = wfill ["Repeated declaration of inherited attribute", getName attr_ , "of nonterminal", getName nt_, "." ] >-<@@ -695,19 +703,19 @@ ,"All others have been discarded. The generated program will probably not run." ] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 699 "PrintErrorMessages.hs" #-}+ {-# LINE 707 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} DupInhAttr nt_ attr_ occ1_- {-# LINE 705 "PrintErrorMessages.hs" #-}+ {-# LINE 713 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 711 "PrintErrorMessages.hs" #-}+ {-# LINE 719 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_DupRule :: NontermIdent ->@@ -721,9 +729,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 191, column 21)+ -- "PrintErrorMessages.ag"(line 200, column 21) _lhsOpp =- ({-# LINE 191 "PrintErrorMessages.ag" #-}+ ({-# LINE 200 "PrintErrorMessages.ag" #-} let mesg = wfill ["At constructor",getName con_, "of nonterminal", getName nt_, "there are two or more rules for" ,showAttrDef field_ attr_,"." ] >-<@@ -739,19 +747,19 @@ ] act = wfill ["The last rule given is considered valid. All others have been discarded."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 743 "PrintErrorMessages.hs" #-}+ {-# LINE 751 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} DupRule nt_ con_ field_ attr_ occ1_- {-# LINE 749 "PrintErrorMessages.hs" #-}+ {-# LINE 757 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 755 "PrintErrorMessages.hs" #-}+ {-# LINE 763 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_DupRuleName :: NontermIdent ->@@ -763,9 +771,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 209, column 21)+ -- "PrintErrorMessages.ag"(line 218, column 21) _lhsOpp =- ({-# LINE 209 "PrintErrorMessages.ag" #-}+ ({-# LINE 218 "PrintErrorMessages.ag" #-} let mesg = wfill ["At constructor",getName con_, "of nonterminal", getName nt_, "there are two or more rule names for" ,show nm_,"." ]@@ -778,19 +786,19 @@ ] act = wfill ["Compilation cannot continue."] in ppError (isError _lhsIoptions _me) (getPos nm_) mesg pat help act _lhsIverbose- {-# LINE 782 "PrintErrorMessages.hs" #-}+ {-# LINE 790 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} DupRuleName nt_ con_ nm_- {-# LINE 788 "PrintErrorMessages.hs" #-}+ {-# LINE 796 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 794 "PrintErrorMessages.hs" #-}+ {-# LINE 802 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_DupSet :: NontermIdent ->@@ -801,9 +809,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 117, column 21)+ -- "PrintErrorMessages.ag"(line 126, column 21) _lhsOpp =- ({-# LINE 117 "PrintErrorMessages.ag" #-}+ ({-# LINE 126 "PrintErrorMessages.ag" #-} let mesg = wfill ["Definition of nonterminal set", getName name_, "clashes with another" ,"set, a type synonym or a data definition." ] >-<@@ -819,19 +827,19 @@ act = wfill [ "The clashing nonterminal set will be ignored." ] in ppError (isError _lhsIoptions _me) (getPos name_) mesg pat help act _lhsIverbose- {-# LINE 823 "PrintErrorMessages.hs" #-}+ {-# LINE 831 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} DupSet name_ occ1_- {-# LINE 829 "PrintErrorMessages.hs" #-}+ {-# LINE 837 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 835 "PrintErrorMessages.hs" #-}+ {-# LINE 843 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_DupSig :: NontermIdent ->@@ -843,9 +851,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 224, column 21)+ -- "PrintErrorMessages.ag"(line 233, column 21) _lhsOpp =- ({-# LINE 224 "PrintErrorMessages.ag" #-}+ ({-# LINE 233 "PrintErrorMessages.ag" #-} let mesg = wfill ["At constructor",getName con_, "of nonterminal", getName nt_, "there are two or more typesignatures for" ,showAttrDef _LOC attr_,"." ] >-<@@ -860,19 +868,19 @@ ] act = wfill ["The last typesignature given is considered valid. All others have been discarded."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 864 "PrintErrorMessages.hs" #-}+ {-# LINE 872 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} DupSig nt_ con_ attr_- {-# LINE 870 "PrintErrorMessages.hs" #-}+ {-# LINE 878 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 876 "PrintErrorMessages.hs" #-}+ {-# LINE 884 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_DupSynAttr :: NontermIdent ->@@ -884,9 +892,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 152, column 21)+ -- "PrintErrorMessages.ag"(line 161, column 21) _lhsOpp =- ({-# LINE 152 "PrintErrorMessages.ag" #-}+ ({-# LINE 161 "PrintErrorMessages.ag" #-} let mesg = wfill ["Repeated declaration of synthesized attribute", getName attr_ , "of nonterminal", getName nt_, "." ] >-<@@ -903,19 +911,19 @@ ,"All others have been discarded. The generated program will probably not run." ] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 907 "PrintErrorMessages.hs" #-}+ {-# LINE 915 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} DupSynAttr nt_ attr_ occ1_- {-# LINE 913 "PrintErrorMessages.hs" #-}+ {-# LINE 921 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 919 "PrintErrorMessages.hs" #-}+ {-# LINE 927 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_DupSynonym :: NontermIdent ->@@ -926,9 +934,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 100, column 21)+ -- "PrintErrorMessages.ag"(line 109, column 21) _lhsOpp =- ({-# LINE 100 "PrintErrorMessages.ag" #-}+ ({-# LINE 109 "PrintErrorMessages.ag" #-} let mesg = wfill ["Definition of type synonym", getName nt_, "clashes with another" ,"type synonym." ] >-<@@ -945,19 +953,19 @@ act = wfill [ "The clashing type synonym will be ignored." ] in ppError (isError _lhsIoptions _me) (getPos nt_) mesg pat help act _lhsIverbose- {-# LINE 949 "PrintErrorMessages.hs" #-}+ {-# LINE 957 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} DupSynonym nt_ occ1_- {-# LINE 955 "PrintErrorMessages.hs" #-}+ {-# LINE 963 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 961 "PrintErrorMessages.hs" #-}+ {-# LINE 969 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_DupUnique :: NontermIdent ->@@ -969,9 +977,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 464, column 21)+ -- "PrintErrorMessages.ag"(line 473, column 21) _lhsOpp =- ({-# LINE 464 "PrintErrorMessages.ag" #-}+ ({-# LINE 473 "PrintErrorMessages.ag" #-} let mesg = wfill ["At constructor",getName con_, "of nonterminal", getName nt_, "there are two or more unique-attribute signatures for" ,showAttrDef _LOC attr_,"." ] >-<@@ -986,21 +994,48 @@ ] act = wfill ["Unpredicatable sharing of unique numbers may occur."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 990 "PrintErrorMessages.hs" #-}+ {-# LINE 998 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} DupUnique nt_ con_ attr_- {-# LINE 996 "PrintErrorMessages.hs" #-}+ {-# LINE 1004 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1002 "PrintErrorMessages.hs" #-}+ {-# LINE 1010 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) )+sem_Error_HsParseError :: Pos ->+ String ->+ T_Error +sem_Error_HsParseError pos_ msg_ =+ (T_Error (\ _lhsIoptions+ _lhsIverbose ->+ (let _lhsOpp :: PP_Doc+ _lhsOme :: Error + -- "PrintErrorMessages.ag"(line 85, column 21)+ _lhsOpp =+ ({-# LINE 85 "PrintErrorMessages.ag" #-}+ ppError True pos_ (text msg_) (text "") (text "") (text "Correct the syntax of the Haskell code.") _lhsIverbose+ {-# LINE 1025 "PrintErrorMessages.hs" #-}+ )+ -- self rule+ _me =+ ({-# LINE 61 "PrintErrorMessages.ag" #-}+ HsParseError pos_ msg_+ {-# LINE 1031 "PrintErrorMessages.hs" #-}+ )+ -- self rule+ _lhsOme =+ ({-# LINE 61 "PrintErrorMessages.ag" #-}+ _me+ {-# LINE 1037 "PrintErrorMessages.hs" #-}+ )+ in ( _lhsOme,_lhsOpp))) ) sem_Error_InducedCirc :: NontermIdent -> CInterface -> ([((Identifier,Identifier),[String],[String])]) ->@@ -1010,9 +1045,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 411, column 21)+ -- "PrintErrorMessages.ag"(line 420, column 21) _lhsOpp =- ({-# LINE 411 "PrintErrorMessages.ag" #-}+ ({-# LINE 420 "PrintErrorMessages.ag" #-} let mesg = wfill ["After scheduling, in nonterminal", getName nt_, "synthesized and inherited attributes have an INDUCED mutual dependency" ] >-< vlist (map showEdge cyclic_) pat = text ""@@ -1021,19 +1056,19 @@ >-< vlist (map showEdgeLong cyclic_) act = text "An unoptimized version was generated. It might hang when run." in ppError (isError _lhsIoptions _me) noPos mesg pat help act _lhsIverbose- {-# LINE 1025 "PrintErrorMessages.hs" #-}+ {-# LINE 1060 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} InducedCirc nt_ cinter_ cyclic_- {-# LINE 1031 "PrintErrorMessages.hs" #-}+ {-# LINE 1066 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1037 "PrintErrorMessages.hs" #-}+ {-# LINE 1072 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_InstCirc :: NontermIdent ->@@ -1047,9 +1082,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 391, column 21)+ -- "PrintErrorMessages.ag"(line 400, column 21) _lhsOpp =- ({-# LINE 391 "PrintErrorMessages.ag" #-}+ ({-# LINE 400 "PrintErrorMessages.ag" #-} let mesg = wfill ["Circular dependency for inst attribute", getName attr_ , "of alternative", getName con_, "of nonterminal", getName nt_] pat = "SEM" >#< getName nt_@@ -1061,19 +1096,19 @@ act | o_visit_ = text "An unoptimized version was generated. It might hang when run." | otherwise = text "The generated program might hang when run." in ppError (isError _lhsIoptions _me) (getPos (attr_)) mesg pat help act _lhsIverbose- {-# LINE 1065 "PrintErrorMessages.hs" #-}+ {-# LINE 1100 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} InstCirc nt_ con_ attr_ o_visit_ path_- {-# LINE 1071 "PrintErrorMessages.hs" #-}+ {-# LINE 1106 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1077 "PrintErrorMessages.hs" #-}+ {-# LINE 1112 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_LocalCirc :: NontermIdent ->@@ -1087,9 +1122,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 379, column 21)+ -- "PrintErrorMessages.ag"(line 388, column 21) _lhsOpp =- ({-# LINE 379 "PrintErrorMessages.ag" #-}+ ({-# LINE 388 "PrintErrorMessages.ag" #-} let mesg = wfill ["Circular dependency for local attribute", getName attr_ , "of alternative", getName con_, "of nonterminal", getName nt_] pat = "SEM" >#< getName nt_@@ -1101,19 +1136,19 @@ act | o_visit_ = text "An unoptimized version was generated. It might hang when run." | otherwise = text "The generated program might hang when run." in ppError (isError _lhsIoptions _me) (getPos (attr_)) mesg pat help act _lhsIverbose- {-# LINE 1105 "PrintErrorMessages.hs" #-}+ {-# LINE 1140 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} LocalCirc nt_ con_ attr_ o_visit_ path_- {-# LINE 1111 "PrintErrorMessages.hs" #-}+ {-# LINE 1146 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1117 "PrintErrorMessages.hs" #-}+ {-# LINE 1152 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_MissingInstSig :: NontermIdent ->@@ -1125,9 +1160,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 434, column 21)+ -- "PrintErrorMessages.ag"(line 443, column 21) _lhsOpp =- ({-# LINE 434 "PrintErrorMessages.ag" #-}+ ({-# LINE 443 "PrintErrorMessages.ag" #-} let mesg = wfill ["Type signature needed, but not found for", showAttrDef _INST attr_ , "in alternative" , getName con_ , "of nonterminal",getName nt_ ,"." ]>-<@@ -1141,19 +1176,19 @@ ] act = wfill ["It is not possible to proceed without this signature."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1145 "PrintErrorMessages.hs" #-}+ {-# LINE 1180 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} MissingInstSig nt_ con_ attr_- {-# LINE 1151 "PrintErrorMessages.hs" #-}+ {-# LINE 1186 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1157 "PrintErrorMessages.hs" #-}+ {-# LINE 1192 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_MissingNamedRule :: NontermIdent ->@@ -1165,9 +1200,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 291, column 23)+ -- "PrintErrorMessages.ag"(line 300, column 23) _lhsOpp =- ({-# LINE 291 "PrintErrorMessages.ag" #-}+ ({-# LINE 300 "PrintErrorMessages.ag" #-} let mesg = wfill ["Missing rule name ", show name_ , "in alternative" , getName con_ , "of nonterminal",getName nt_ ,"." ]@@ -1178,19 +1213,19 @@ ] act = wfill ["Compilation cannot continue."] in ppError (isError _lhsIoptions _me) (getPos name_) mesg pat help act _lhsIverbose- {-# LINE 1182 "PrintErrorMessages.hs" #-}+ {-# LINE 1217 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} MissingNamedRule nt_ con_ name_- {-# LINE 1188 "PrintErrorMessages.hs" #-}+ {-# LINE 1223 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1194 "PrintErrorMessages.hs" #-}+ {-# LINE 1229 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_MissingRule :: NontermIdent ->@@ -1203,9 +1238,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 278, column 21)+ -- "PrintErrorMessages.ag"(line 287, column 21) _lhsOpp =- ({-# LINE 278 "PrintErrorMessages.ag" #-}+ ({-# LINE 287 "PrintErrorMessages.ag" #-} let mesg = wfill ["Missing rule for", showAttrDef field_ attr_ , "in alternative" , getName con_ , "of nonterminal",getName nt_ ,"." ]@@ -1217,19 +1252,19 @@ ] act = wfill ["The value of the attribute has been set to undefined."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1221 "PrintErrorMessages.hs" #-}+ {-# LINE 1256 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} MissingRule nt_ con_ field_ attr_- {-# LINE 1227 "PrintErrorMessages.hs" #-}+ {-# LINE 1262 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1233 "PrintErrorMessages.hs" #-}+ {-# LINE 1268 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_MissingSyn :: NontermIdent ->@@ -1240,9 +1275,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 481, column 20)+ -- "PrintErrorMessages.ag"(line 490, column 20) _lhsOpp =- ({-# LINE 481 "PrintErrorMessages.ag" #-}+ ({-# LINE 490 "PrintErrorMessages.ag" #-} let mesg = wfill ["Missing synthesized attribute" , getName attr_ , "at nonterminal"@@ -1257,19 +1292,19 @@ ] act = wfill ["It is not possible to proceed without this declaration."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1261 "PrintErrorMessages.hs" #-}+ {-# LINE 1296 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} MissingSyn nt_ attr_- {-# LINE 1267 "PrintErrorMessages.hs" #-}+ {-# LINE 1302 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1273 "PrintErrorMessages.hs" #-}+ {-# LINE 1308 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_MissingTypeSig :: NontermIdent ->@@ -1281,9 +1316,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 420, column 21)+ -- "PrintErrorMessages.ag"(line 429, column 21) _lhsOpp =- ({-# LINE 420 "PrintErrorMessages.ag" #-}+ ({-# LINE 429 "PrintErrorMessages.ag" #-} let mesg = wfill ["Type signature needed, but not found for", showAttrDef _LOC attr_ , "in alternative" , getName con_ , "of nonterminal",getName nt_ ,"." ]>-<@@ -1297,19 +1332,19 @@ ] act = wfill ["The type signatures of semantic functions are not generated."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1301 "PrintErrorMessages.hs" #-}+ {-# LINE 1336 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} MissingTypeSig nt_ con_ attr_- {-# LINE 1307 "PrintErrorMessages.hs" #-}+ {-# LINE 1342 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1313 "PrintErrorMessages.hs" #-}+ {-# LINE 1348 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_MissingUnique :: NontermIdent ->@@ -1320,9 +1355,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 448, column 21)+ -- "PrintErrorMessages.ag"(line 457, column 21) _lhsOpp =- ({-# LINE 448 "PrintErrorMessages.ag" #-}+ ({-# LINE 457 "PrintErrorMessages.ag" #-} let mesg = wfill ["Missing unique counter (chained attribute)" , getName attr_ , "at nonterminal"@@ -1337,19 +1372,19 @@ ] act = wfill ["It is not possible to proceed without this declaration."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1341 "PrintErrorMessages.hs" #-}+ {-# LINE 1376 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} MissingUnique nt_ attr_- {-# LINE 1347 "PrintErrorMessages.hs" #-}+ {-# LINE 1382 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1353 "PrintErrorMessages.hs" #-}+ {-# LINE 1388 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_ParserError :: Pos ->@@ -1361,27 +1396,27 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 72, column 21)+ -- "PrintErrorMessages.ag"(line 79, column 21) _lhsOpp =- ({-# LINE 72 "PrintErrorMessages.ag" #-}+ ({-# LINE 79 "PrintErrorMessages.ag" #-} let mesg = text ("parser expecting " ++ problem_) pat = text "" help = text "" act = text action_ in ppError (isError _lhsIoptions _me) pos_ mesg pat help act _lhsIverbose- {-# LINE 1373 "PrintErrorMessages.hs" #-}+ {-# LINE 1408 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} ParserError pos_ problem_ action_- {-# LINE 1379 "PrintErrorMessages.hs" #-}+ {-# LINE 1414 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1385 "PrintErrorMessages.hs" #-}+ {-# LINE 1420 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_SuperfluousRule :: NontermIdent ->@@ -1394,9 +1429,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 303, column 21)+ -- "PrintErrorMessages.ag"(line 312, column 21) _lhsOpp =- ({-# LINE 303 "PrintErrorMessages.ag" #-}+ ({-# LINE 312 "PrintErrorMessages.ag" #-} let mesg = wfill ["Rule for non-existing", showAttrDef field_ attr_ , "at alternative" , getName con_ , "of nonterminal",getName nt_, "." ]@@ -1408,19 +1443,19 @@ ] act = wfill ["The rule has been ignored."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1412 "PrintErrorMessages.hs" #-}+ {-# LINE 1447 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} SuperfluousRule nt_ con_ field_ attr_- {-# LINE 1418 "PrintErrorMessages.hs" #-}+ {-# LINE 1453 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1424 "PrintErrorMessages.hs" #-}+ {-# LINE 1459 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_UndefAlt :: NontermIdent ->@@ -1431,9 +1466,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 251, column 21)+ -- "PrintErrorMessages.ag"(line 260, column 21) _lhsOpp =- ({-# LINE 251 "PrintErrorMessages.ag" #-}+ ({-# LINE 260 "PrintErrorMessages.ag" #-} let mesg = wfill ["Constructor", getName con_, "of nonterminal" ,getName nt_, "is not defined." ] pat = "DATA" >#< getName nt_@@ -1444,19 +1479,19 @@ ] act = wfill ["All rules for the unknown alternative have been ignored."] in ppError (isError _lhsIoptions _me) (getPos con_) mesg pat help act _lhsIverbose- {-# LINE 1448 "PrintErrorMessages.hs" #-}+ {-# LINE 1483 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} UndefAlt nt_ con_- {-# LINE 1454 "PrintErrorMessages.hs" #-}+ {-# LINE 1489 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1460 "PrintErrorMessages.hs" #-}+ {-# LINE 1495 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_UndefAttr :: NontermIdent ->@@ -1470,9 +1505,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 346, column 21)+ -- "PrintErrorMessages.ag"(line 355, column 21) _lhsOpp =- ({-# LINE 346 "PrintErrorMessages.ag" #-}+ ({-# LINE 355 "PrintErrorMessages.ag" #-} let mesg = wfill ["Undefined" , if isOut_ then showAttrDef field_ attr_@@ -1490,19 +1525,19 @@ ] act = wfill ["The generated program will not run."] in ppError (isError _lhsIoptions _me) (getPos attr_) mesg pat help act _lhsIverbose- {-# LINE 1494 "PrintErrorMessages.hs" #-}+ {-# LINE 1529 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} UndefAttr nt_ con_ field_ attr_ isOut_- {-# LINE 1500 "PrintErrorMessages.hs" #-}+ {-# LINE 1535 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1506 "PrintErrorMessages.hs" #-}+ {-# LINE 1541 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_UndefChild :: NontermIdent ->@@ -1514,9 +1549,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 263, column 21)+ -- "PrintErrorMessages.ag"(line 272, column 21) _lhsOpp =- ({-# LINE 263 "PrintErrorMessages.ag" #-}+ ({-# LINE 272 "PrintErrorMessages.ag" #-} let mesg = wfill ["Constructor", getName con_, "of nonterminal" ,getName nt_ , "does not have a nontrivial field named", getName name_ , "." ]@@ -1530,19 +1565,19 @@ ] act = wfill ["All rules for the unknown field have been ignored."] in ppError (isError _lhsIoptions _me) (getPos name_) mesg pat help act _lhsIverbose- {-# LINE 1534 "PrintErrorMessages.hs" #-}+ {-# LINE 1569 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} UndefChild nt_ con_ name_- {-# LINE 1540 "PrintErrorMessages.hs" #-}+ {-# LINE 1575 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1546 "PrintErrorMessages.hs" #-}+ {-# LINE 1581 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_UndefLocal :: NontermIdent ->@@ -1554,9 +1589,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 317, column 21)+ -- "PrintErrorMessages.ag"(line 326, column 21) _lhsOpp =- ({-# LINE 317 "PrintErrorMessages.ag" #-}+ ({-# LINE 326 "PrintErrorMessages.ag" #-} let mesg = wfill ["Undefined local variable or field",getName var_, "at constructor" , getName con_ , "of nonterminal",getName nt_, "." ]@@ -1570,19 +1605,19 @@ ] act = wfill ["The generated program will not run."] in ppError (isError _lhsIoptions _me) (getPos var_) mesg pat help act _lhsIverbose- {-# LINE 1574 "PrintErrorMessages.hs" #-}+ {-# LINE 1609 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} UndefLocal nt_ con_ var_- {-# LINE 1580 "PrintErrorMessages.hs" #-}+ {-# LINE 1615 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1586 "PrintErrorMessages.hs" #-}+ {-# LINE 1621 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) sem_Error_UndefNont :: NontermIdent ->@@ -1592,9 +1627,9 @@ _lhsIverbose -> (let _lhsOpp :: PP_Doc _lhsOme :: Error - -- "PrintErrorMessages.ag"(line 241, column 21)+ -- "PrintErrorMessages.ag"(line 250, column 21) _lhsOpp =- ({-# LINE 241 "PrintErrorMessages.ag" #-}+ ({-# LINE 250 "PrintErrorMessages.ag" #-} let mesg = wfill ["Nonterminal", getName nt_, "is not defined." ] pat = "DATA" >#< getName nt_ >#< "..."@@ -1603,25 +1638,26 @@ ] act = wfill ["Everything regarding the unknown nonterminal has been ignored."] in ppError (isError _lhsIoptions _me) (getPos nt_) mesg pat help act _lhsIverbose- {-# LINE 1607 "PrintErrorMessages.hs" #-}+ {-# LINE 1642 "PrintErrorMessages.hs" #-} ) -- self rule _me =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} UndefNont nt_- {-# LINE 1613 "PrintErrorMessages.hs" #-}+ {-# LINE 1648 "PrintErrorMessages.hs" #-} ) -- self rule _lhsOme =- ({-# LINE 60 "PrintErrorMessages.ag" #-}+ ({-# LINE 61 "PrintErrorMessages.ag" #-} _me- {-# LINE 1619 "PrintErrorMessages.hs" #-}+ {-# LINE 1654 "PrintErrorMessages.hs" #-} ) in ( _lhsOme,_lhsOpp))) ) -- Errors ------------------------------------------------------ {- visit 0:- inherited attribute:+ inherited attributes:+ dups : [String] options : Options synthesized attribute: pp : PP_Doc@@ -1631,6 +1667,7 @@ child tl : Errors visit 0: local verbose : _+ local str : _ alternative Nil: visit 0: local verbose : _@@ -1641,77 +1678,95 @@ sem_Errors list = (Prelude.foldr sem_Errors_Cons sem_Errors_Nil (Prelude.map sem_Error list) ) -- semantic domain-newtype T_Errors = T_Errors (Options ->+newtype T_Errors = T_Errors (([String]) ->+ Options -> ( PP_Doc))-data Inh_Errors = Inh_Errors {options_Inh_Errors :: Options}+data Inh_Errors = Inh_Errors {dups_Inh_Errors :: ([String]),options_Inh_Errors :: Options} data Syn_Errors = Syn_Errors {pp_Syn_Errors :: PP_Doc} wrap_Errors :: T_Errors -> Inh_Errors -> Syn_Errors -wrap_Errors (T_Errors sem ) (Inh_Errors _lhsIoptions ) =- (let ( _lhsOpp) = sem _lhsIoptions +wrap_Errors (T_Errors sem ) (Inh_Errors _lhsIdups _lhsIoptions ) =+ (let ( _lhsOpp) = sem _lhsIdups _lhsIoptions in (Syn_Errors _lhsOpp )) sem_Errors_Cons :: T_Error -> T_Errors -> T_Errors sem_Errors_Cons (T_Error hd_ ) (T_Errors tl_ ) =- (T_Errors (\ _lhsIoptions ->+ (T_Errors (\ _lhsIdups+ _lhsIoptions -> (let _lhsOpp :: PP_Doc+ _tlOdups :: ([String]) _hdOoptions :: Options _hdOverbose :: Bool _tlOoptions :: Options _hdIme :: Error _hdIpp :: PP_Doc _tlIpp :: PP_Doc- -- "PrintErrorMessages.ag"(line 67, column 8)+ -- "PrintErrorMessages.ag"(line 68, column 8) _verbose =- ({-# LINE 67 "PrintErrorMessages.ag" #-}+ ({-# LINE 68 "PrintErrorMessages.ag" #-} verbose _lhsIoptions- {-# LINE 1671 "PrintErrorMessages.hs" #-}+ {-# LINE 1711 "PrintErrorMessages.hs" #-} )- -- use rule "PrintErrorMessages.ag"(line 63, column 49)+ -- "PrintErrorMessages.ag"(line 69, column 11)+ _str =+ ({-# LINE 69 "PrintErrorMessages.ag" #-}+ disp _hdIpp 5000 ""+ {-# LINE 1717 "PrintErrorMessages.hs" #-}+ )+ -- "PrintErrorMessages.ag"(line 71, column 11) _lhsOpp =- ({-# LINE 63 "PrintErrorMessages.ag" #-}- _hdIpp >-< _tlIpp- {-# LINE 1677 "PrintErrorMessages.hs" #-}+ ({-# LINE 71 "PrintErrorMessages.ag" #-}+ if _str `elem` _lhsIdups+ then _tlIpp+ else _hdIpp >-< _tlIpp+ {-# LINE 1725 "PrintErrorMessages.hs" #-} )+ -- "PrintErrorMessages.ag"(line 74, column 11)+ _tlOdups =+ ({-# LINE 74 "PrintErrorMessages.ag" #-}+ _str : _lhsIdups+ {-# LINE 1731 "PrintErrorMessages.hs" #-}+ ) -- copy rule (down) _hdOoptions =- ({-# LINE 59 "PrintErrorMessages.ag" #-}+ ({-# LINE 60 "PrintErrorMessages.ag" #-} _lhsIoptions- {-# LINE 1683 "PrintErrorMessages.hs" #-}+ {-# LINE 1737 "PrintErrorMessages.hs" #-} ) -- copy rule (from local) _hdOverbose =- ({-# LINE 59 "PrintErrorMessages.ag" #-}+ ({-# LINE 60 "PrintErrorMessages.ag" #-} _verbose- {-# LINE 1689 "PrintErrorMessages.hs" #-}+ {-# LINE 1743 "PrintErrorMessages.hs" #-} ) -- copy rule (down) _tlOoptions =- ({-# LINE 63 "PrintErrorMessages.ag" #-}+ ({-# LINE 64 "PrintErrorMessages.ag" #-} _lhsIoptions- {-# LINE 1695 "PrintErrorMessages.hs" #-}+ {-# LINE 1749 "PrintErrorMessages.hs" #-} ) ( _hdIme,_hdIpp) = hd_ _hdOoptions _hdOverbose ( _tlIpp) =- tl_ _tlOoptions + tl_ _tlOdups _tlOoptions in ( _lhsOpp))) ) sem_Errors_Nil :: T_Errors sem_Errors_Nil =- (T_Errors (\ _lhsIoptions ->+ (T_Errors (\ _lhsIdups+ _lhsIoptions -> (let _lhsOpp :: PP_Doc- -- "PrintErrorMessages.ag"(line 67, column 8)+ -- "PrintErrorMessages.ag"(line 68, column 8) _verbose =- ({-# LINE 67 "PrintErrorMessages.ag" #-}+ ({-# LINE 68 "PrintErrorMessages.ag" #-} verbose _lhsIoptions- {-# LINE 1710 "PrintErrorMessages.hs" #-}+ {-# LINE 1765 "PrintErrorMessages.hs" #-} )- -- use rule "PrintErrorMessages.ag"(line 63, column 49)+ -- "PrintErrorMessages.ag"(line 75, column 11) _lhsOpp =- ({-# LINE 63 "PrintErrorMessages.ag" #-}+ ({-# LINE 75 "PrintErrorMessages.ag" #-} text ""- {-# LINE 1716 "PrintErrorMessages.hs" #-}+ {-# LINE 1771 "PrintErrorMessages.hs" #-} ) in ( _lhsOpp))) )
src-derived/PrintOcamlCode.hs view
@@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.35 (PrintOcamlCode.ag)+-- UUAGC 0.9.36.2 (PrintOcamlCode.ag) module PrintOcamlCode where {-# LINE 10 "PrintOcamlCode.ag" #-}
src-derived/PrintVisitCode.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (PrintVisitCode.ag)+-- UUAGC 0.9.36.2 (PrintVisitCode.ag) module PrintVisitCode where {-# LINE 10 "PrintVisitCode.ag" #-}
src-derived/SemHsTokens.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (SemHsTokens.ag)+-- UUAGC 0.9.36.2 (SemHsTokens.ag) module SemHsTokens where {-# LINE 4 "SemHsTokens.ag" #-}
src-derived/TfmToVisage.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (TfmToVisage.ag)+-- UUAGC 0.9.36.2 (TfmToVisage.ag) module TfmToVisage where {-# LINE 8 "TfmToVisage.ag" #-}
src-derived/Transform.hs view
@@ -1,6618 +1,6857 @@ --- UUAGC 0.9.35 (Transform.ag)-module Transform where-{-# LINE 8 "Transform.ag" #-}--import Control.Monad(mplus,mzero)-import List (partition, elem, nub,intersperse)-import Data.Maybe-import qualified Data.Map as Map-import Data.Map (Map)-import Data.Set as Set (Set, member, union, toList, fromList, empty, singleton, member, unions, size, fold, intersection, difference, insert)-import qualified Data.Sequence as Seq-import Data.Sequence(Seq, empty, (><),fromList)-import Data.Foldable(toList)-import UU.Scanner.Position(noPos)--import ConcreteSyntax-import AbstractSyntax-import ErrorMessages-import Patterns (Patterns(..),Pattern(..))-import Expression (Expression(..))-import HsToken--import Options-import CommonTypes-{-# LINE 28 "../src-derived/Transform.hs" #-}--{-# LINE 2 "./ConcreteSyntax.ag" #-}--import UU.Scanner.Position (Pos)-import Patterns (Pattern)-import Expression (Expression)-import CommonTypes-{-# LINE 36 "../src-derived/Transform.hs" #-}--{-# LINE 2 "./Patterns.ag" #-}---- Patterns.ag imports-import UU.Scanner.Position(Pos)-import CommonTypes (ConstructorIdent,Identifier)-{-# LINE 43 "../src-derived/Transform.hs" #-}-{-# LINE 100 "Transform.ag" #-}-type DefinedSets = Map Identifier (Set NontermIdent) -{-# LINE 46 "../src-derived/Transform.hs" #-}--{-# LINE 120 "Transform.ag" #-}-type FieldMap = [(Identifier, Type)] -{-# LINE 50 "../src-derived/Transform.hs" #-}--{-# LINE 121 "Transform.ag" #-}-type DataTypes = Map.Map NontermIdent (Map.Map ConstructorIdent FieldMap) -{-# LINE 54 "../src-derived/Transform.hs" #-}--{-# LINE 141 "Transform.ag" #-}-type AttrName = (Identifier,Identifier) -{-# LINE 58 "../src-derived/Transform.hs" #-}--{-# LINE 142 "Transform.ag" #-}-type RuleInfo = (Maybe Identifier, [AttrName]->Pattern, Expression, [AttrName], Bool, String) -{-# LINE 62 "../src-derived/Transform.hs" #-}--{-# LINE 143 "Transform.ag" #-}-type SigInfo = (Identifier,Type) -{-# LINE 66 "../src-derived/Transform.hs" #-}--{-# LINE 144 "Transform.ag" #-}-type UniqueInfo = (Identifier,Identifier) -{-# LINE 70 "../src-derived/Transform.hs" #-}--{-# LINE 145 "Transform.ag" #-}-type AugmentInfo = (Identifier,Expression)-{-# LINE 74 "../src-derived/Transform.hs" #-}--{-# LINE 146 "Transform.ag" #-}-type AroundInfo = (Identifier,Expression)-{-# LINE 78 "../src-derived/Transform.hs" #-}--{-# LINE 147 "Transform.ag" #-}-type MergeInfo = (Identifier, Identifier, [Identifier], Expression)-{-# LINE 82 "../src-derived/Transform.hs" #-}--{-# LINE 195 "Transform.ag" #-}---checkDuplicate :: (Identifier -> Identifier -> Error)- -> Identifier -> val -> Map Identifier val -> (Map Identifier val,Seq Error)-checkDuplicate dupError key val m- = case Map.lookupIndex key m of- Just ix -> let (key',_) = Map.elemAt ix m- in (m,Seq.singleton (dupError key key'))- Nothing -> (Map.insert key val m,Seq.empty)--checkDuplicates :: (Identifier -> Identifier -> Error)- -> [(Identifier, val)] -> Map Identifier val -> (Map Identifier val,Seq Error)-checkDuplicates dupError new m = foldErrors check m new- where check = uncurry (checkDuplicate dupError)--foldErrors f e xs = foldl g (e,Seq.empty) xs- where g ~(e,es) x = let (e',es') = f x e- in (e', es >< es')---checkForDuplicates :: (Identifier -> Identifier -> Error) -> [Identifier] -> [Error]-checkForDuplicates err [] = []-checkForDuplicates err (x:xs) = let (same,other) = List.partition (equalId x) xs- in map (err x) same ++ checkForDuplicates err other--equalId :: Identifier -> Identifier -> Bool-equalId x y = getName x == getName y--{-# LINE 113 "../src-derived/Transform.hs" #-}--{-# LINE 331 "Transform.ag" #-}--type RulesAndErrors = ([Rule], Seq Error)-type SigsAndErrors = ([TypeSig], Seq Error)-type InstsAndErrors = ([(Identifier, Type)], Seq Error)-type UniquesAndErrors = (Map Identifier Identifier, Seq Error)-type AugmentsAndErrors = (Map Identifier [Expression], Seq Error)-type AroundsAndErrors = (Map Identifier [Expression], Seq Error)-type MergesAndErrors = (Map Identifier (Identifier, [Identifier], Expression), Seq Error)-type AttrOverwrite = Map AttrName Bool-type AccumRuleCheck = (RulesAndErrors, AttrOverwrite)-type AccumDefiCheck = (Seq Error, AttrOverwrite, [AttrName], [AttrName])--checkRules :: Map NontermIdent (Attributes, Attributes) -> Map NontermIdent (Map ConstructorIdent FieldMap) ->- Map NontermIdent (Map ConstructorIdent [Identifier]) -> Map NontermIdent (Map ConstructorIdent [SigInfo]) ->- Map NontermIdent (Map ConstructorIdent [MergeInfo]) ->- NontermIdent -> ConstructorIdent -> [RuleInfo] -> RulesAndErrors-checkRules attributes fields allinsts allsigs allmerges nt con rs- = let fieldmap :: FieldMap- fieldmap = (_LHS,NT nt undefined) : (_LOC,NT undefined undefined) : (_INST, NT undefined undefined) : (_FIRST, NT undefined undefined) : (_LAST, NT undefined undefined)- : Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fields)- ++ mapMaybe (\instNm -> lookup instNm sigs >>= \tp -> return (instNm, tp)) (Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allinsts))- -- merged children are not allowed to have any inherited attrs defined: do not include- - sigs = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allsigs)-- hasAttrib f tp attr = Map.member attr (f (Map.findWithDefault (Map.empty,Map.empty) tp attributes))- - checkRule :: RuleInfo -> AccumRuleCheck -> AccumRuleCheck- checkRule (mbNm, pat,exp,as,owrt,str) ((r1,e1),m1) - = let (e2,m2,u2,b2) = foldr (checkDefi owrt) (e1,m1,[],[]) as- in ( (Rule mbNm (pat u2) exp owrt str True : r1, e2), m2)-- checkDefi :: Bool -> AttrName -> AccumDefiCheck -> AccumDefiCheck- checkDefi owrt fa@(field,attr) (e,m,u,bs)- = case lookup field fieldmap- of Just (NT tp _) -> - let tp' = maybe tp id (deforestedNt tp)- in if field == _LOC || field == _INST || field == _FIRST || field == _LAST- || hasAttrib (if getName field==getName _LHS then snd else fst) tp' attr- then case Map.lookupIndex fa m of- Just ix -> let ((_,attr2),b) = Map.elemAt ix m- in if b && not (fa `elem` bs)- then ( e, Map.insert fa owrt m, fa:u, fa:bs)- else (((Seq.<|)) (DupRule nt con field attr2 attr) e, m, fa:u, bs)- Nothing -> ( e, Map.insert fa owrt m, u, fa:bs)- else (((Seq.<|)) (SuperfluousRule nt con field attr) e, m, fa:u, bs)- _ -> (((Seq.<|)) (UndefChild nt con field) e, m, fa:u, bs )-- in fst (foldr checkRule (([],Seq.empty),Map.empty) rs)--checkRuleNames :: NontermIdent -> ConstructorIdent -> [RuleInfo] -> Seq Error-checkRuleNames nt con- = fst . foldr checkRule (Seq.empty, Set.empty)- where- checkRule (Just nm,_,_,_,_,_) (errs, nms)- | nm `Set.member` nms = (DupRuleName nt con nm Seq.<| errs, nms)- | otherwise = (errs, Set.insert nm nms)- checkRule (Nothing,_,_,_,_,_) inp = inp--checkSigs :: NontermIdent -> ConstructorIdent -> [SigInfo] -> SigsAndErrors-checkSigs nt con sis - = let checkSig (ide,typ) (sigs,errs)- = if ide `elem` map (\(TypeSig n t)-> n) sigs- then (sigs, ((Seq.<|)) (DupSig nt con ide) errs)- -- else if not (ide `elem` locattrdefs)- -- then (sigs, ((Seq.<|)) (SupSig nt con ide) errs)- else (TypeSig ide typ:sigs, errs)- in foldr checkSig ([],Seq.empty) sis--checkInsts :: Set NontermIdent -> Map NontermIdent (Map ConstructorIdent [SigInfo]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [Identifier] -> InstsAndErrors-checkInsts allNts sigMap fieldMap nt con- = foldr (\inst (insts, errs) ->- maybe (insts, Seq.singleton (MissingInstSig nt con inst) >< errs)- (\info@(k, NT nm _) ->- case findInst k insts of- Just k' -> (insts, Seq.singleton (DupChild nt con k k') >< errs)- Nothing -> case nm `Set.member` allNts of- True -> (info : insts, errs)- False | take 2 (getName nm) == "T_" -> let nm' = Ident (drop 2 (getName nm)) (getPos nm)- in case nm' `Set.member` allNts of- True -> (info : insts, errs)- False -> (insts, Seq.singleton (UndefNont nm') >< errs)- | otherwise -> (insts, Seq.singleton (UndefNont nm) >< errs)- ) - $ findSig inst- ) ([], Seq.empty)- where- sigs = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt sigMap)- - findSig name- = do tp@(NT _ _) <- lookup name sigs- return (name, tp)- - findInst _ [] = Nothing- findInst k ((k', _): r)- | k == k' = Just k'- | otherwise = findInst k r--checkUniques :: Map NontermIdent (Attributes, Attributes) -> NontermIdent -> ConstructorIdent -> [UniqueInfo] -> UniquesAndErrors-checkUniques allAttrs nt con uniques- = let checkUnique (ident,ref) (us,errs)- = if ident `Map.member` us- then (us, ((Seq.<|)) (DupUnique nt con ident) errs)- else if Map.member ref inhs && Map.member ref syns- then (Map.insert ident ref us, errs)- else (us, ((Seq.<|)) (MissingUnique nt ref) errs)-- (inhs,syns) = Map.findWithDefault (Map.empty,Map.empty) nt allAttrs- in foldr checkUnique (Map.empty, Seq.empty) uniques--checkAugments :: Map NontermIdent (Attributes, Attributes) -> NontermIdent -> ConstructorIdent -> [AugmentInfo] -> AugmentsAndErrors-checkAugments allAttrs nt con augments- = let checkAugment (ident,expr) (as,errs)- = if ident `Map.member` as- then (Map.update (\vs -> Just (vs ++ [expr])) ident as, errs)- else if Map.member ident syns- then (Map.insert ident [expr] as, errs)- else (as, ((Seq.<|)) (MissingSyn nt ident) errs)-- (inhs,syns) = Map.findWithDefault (Map.empty,Map.empty) nt allAttrs- in foldr checkAugment (Map.empty, Seq.empty) augments--checkArounds :: Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [AroundInfo] -> AroundsAndErrors-checkArounds fieldMap nt con arounds- = let checkAround (ident,expr) (as,errs)- = if ident `Map.member` as- then (Map.update (\vs -> Just (vs ++ [expr])) ident as, errs)- else case lookup ident fields of- Just (NT _ _) -> (Map.insert ident [expr] as, errs)- _ -> (as, ((Seq.<|)) (UndefChild nt con ident) errs)- fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fieldMap)- in foldr checkAround (Map.empty, Seq.empty) arounds--checkMerges :: Set NontermIdent -> Map NontermIdent (Map ConstructorIdent [Identifier]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [MergeInfo] -> MergesAndErrors-checkMerges allNts allInsts fieldMap nt con merges- = let checkMerge (target,nt,sources,expr) (m,errs)- = let fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fieldMap)- insts = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allInsts)- allFields = insts ++ map fst fields -- note: sources of merge may not contain a target (for simplicity)- in if target `Map.member` m -- check for duplicate with self- then (m, DupChild nt con target (fst $ Map.elemAt (Map.findIndex target m) m) Seq.<| errs)- else if target `elem` allFields- then (m, DupChild nt con target (head $ filter (== target) allFields) Seq.<| errs)- else let missing = filter (\s -> not (s `elem` allFields)) sources- in if null missing- then if nt `Set.member` allNts -- check if the nonterm is defined- then (Map.insert target (nt, sources, expr) m, errs) -- all ok..- else (m, UndefNont nt Seq.<| errs)- else (m, (Seq.fromList $ map (UndefChild nt con) missing) Seq.>< errs)- in foldr checkMerge (Map.empty, Seq.empty) merges--unionunionplusplus = Map.unionWith (Map.unionWith (++))-{-# LINE 268 "../src-derived/Transform.hs" #-}--{-# LINE 486 "Transform.ag" #-}--mkUniqueRules :: Options -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> Map NontermIdent (Attributes,Attributes) -> NontermIdent -> ConstructorIdent -> Map Identifier Identifier -> [Rule]-mkUniqueRules opts allFields allInsts allAttrDecls nt con usMap- = map apply groups- where- fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allFields)- ++ Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allInsts)- -- may have duplicates-- groups = Map.assocs $ Map.foldrWithKey (\i r m -> Map.insertWith (++) r [i] m) Map.empty usMap- apply (ref,us) = mkRule ref (findOutField ref) us- findOutField ref = case [ chld | (chld,NT tp _) <- fields, tp `hasSyn` ref] of- [] -> _LHS- (x:_) -> x- hasSyn tp ref = Map.member ref $ snd $ Map.findWithDefault (Map.empty,Map.empty) tp allAttrDecls- mkRule ref outFld locAttrs- = let pat = Product noPos (attr outFld ref : [attr _LOC u | u <- locAttrs ])- rhs = Expression noPos $ wrap ref $ foldr gencase (finalout locAttrs) locAttrs- -- [HsToken ("mkUniques" ++ show (length locAttrs) ++ " ") noPos, AGField _LHS ref noPos Nothing]- in Rule Nothing pat rhs False "-- generated by the unique rule mechanism." False- attr fld a = Alias fld a (Underscore noPos) []- gencase nm outp- = h ("case " ++ uniqueDispenser opts ++ " __cont of { (__cont, " ++ getName nm ++ ") -> ") ++ outp ++ h "}"- h s = [HsToken s noPos]- finalout us = h ("(__cont, " ++ concat (intersperse "," (map getName us)) ++ ")")- wrap ref inp = h "case " ++ [AGField _LHS ref noPos Nothing] ++ h " of { __cont | __cont `seq` True -> " ++ inp ++ h "}"-{-# LINE 297 "../src-derived/Transform.hs" #-}--{-# LINE 658 "Transform.ag" #-}--flattenDatas :: DataTypes -> Map NontermIdent (Set NontermIdent)-flattenDatas ds = Map.map flatten ds- where flatten cs = Set.fromList [ nt | (_,NT nt _) <- concatMap snd (Map.toList cs)]--reachableFrom :: Map NontermIdent (Set NontermIdent) -> Set NontermIdent -> Set NontermIdent-reachableFrom table nts = reach nts- where reach nts = let nts' = Set.unions (nts : [ ns | nt <- Set.toList nts- , let ns = Map.findWithDefault Set.empty nt table ])- in if Set.size nts' > Set.size nts- then reach nts'- else nts-invert :: Map NontermIdent (Set NontermIdent) -> Map NontermIdent (Set NontermIdent)-invert m = foldr inv Map.empty (Map.toList m)- where inv (x,ns) m = fold (\n m -> Map.insertWith Set.union n (Set.singleton x) m) m ns--path :: Map NontermIdent (Set NontermIdent) -> NontermIdent -> NontermIdent -> Set NontermIdent-path table from to = let children = Map.findWithDefault Set.empty from table- forward = reachableFrom table children- backward = reachableFrom (invert table)- (Set.singleton to)- in Set.intersection forward backward-{-# LINE 322 "../src-derived/Transform.hs" #-}--{-# LINE 768 "Transform.ag" #-}--pragmaMapUnion :: PragmaMap -> PragmaMap -> PragmaMap-pragmaMapUnion = Map.unionWith (Map.unionWith Set.union)--pragmaMapSingle :: NontermIdent -> ConstructorIdent -> Set Identifier -> PragmaMap-pragmaMapSingle nt con nms = Map.singleton nt (Map.singleton con nms)-{-# LINE 331 "../src-derived/Transform.hs" #-}--{-# LINE 800 "Transform.ag" #-}--orderMapUnion :: AttrOrderMap -> AttrOrderMap -> AttrOrderMap-orderMapUnion = Map.unionWith (Map.unionWith Set.union)--orderMapSingle :: NontermIdent -> ConstructorIdent -> Set Dependency -> AttrOrderMap-orderMapSingle nt con deps = Map.singleton nt (Map.singleton con deps)-{-# LINE 340 "../src-derived/Transform.hs" #-}--{-# LINE 826 "Transform.ag" #-}--mergeParams :: ParamMap -> ParamMap -> ParamMap-mergeParams = Map.unionWith (++)-{-# LINE 346 "../src-derived/Transform.hs" #-}--{-# LINE 849 "Transform.ag" #-}--mergeCtx :: ContextMap -> ContextMap -> ContextMap-mergeCtx- = Map.unionWith nubconcat- where nubconcat a b = nub (a ++ b)-{-# LINE 354 "../src-derived/Transform.hs" #-}--{-# LINE 862 "Transform.ag" #-}--mergeDerivings m1 m2 = foldr (\(n,cs) m -> Map.insertWith Set.union n cs m) m2 (Map.toList m1)-{-# LINE 359 "../src-derived/Transform.hs" #-}--{-# LINE 873 "Transform.ag" #-}--merge x y = foldr f y (Map.toList x)- where f ~(k,v) m = Map.insertWith (Map.union) k v m-{-# LINE 365 "../src-derived/Transform.hs" #-}--{-# LINE 900 "Transform.ag" #-}--checkAttrs allFields nts inherited synthesized decls = foldErrors check decls nts where- check nt decls | not (nt `Map.member` allFields) = (decls,Seq.singleton(UndefNont nt))- | otherwise = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt decls- (inh',einh) = checkDuplicates (DupInhAttr nt) inherited inh- (syn',esyn) = checkDuplicates (DupSynAttr nt) synthesized syn- in (Map.insert nt (inh',syn') decls,einh >< esyn)-{-# LINE 375 "../src-derived/Transform.hs" #-}--{-# LINE 911 "Transform.ag" #-}--addSelf name atMap = let (eInh,eSyn) = Map.findWithDefault(Map.empty,Map.empty) name atMap- in Map.insert name (eInh, Map.insert (Ident "self" noPos) (NT _SELF []) eSyn)atMap-{-# LINE 381 "../src-derived/Transform.hs" #-}--{-# LINE 1051 "Transform.ag" #-}--makeType :: Set NontermIdent -> Type -> Type-makeType nts tp@(NT x _) | x == _SELF = tp- | Set.member x nts = tp- | otherwise = Haskell (typeToHaskellString Nothing [] tp)-makeType _ tp = tp-{-# LINE 390 "../src-derived/Transform.hs" #-}--{-# LINE 1058 "Transform.ag" #-}--constructGrammar :: Set NontermIdent- -> ParamMap- -> DataTypes- -> Map NontermIdent (Attributes, Attributes)- -> Map NontermIdent (Map Identifier (String, String, String))- -> Derivings- -> Set NontermIdent- -> Map NontermIdent (Map ConstructorIdent [Rule])- -> Map NontermIdent (Map ConstructorIdent [TypeSig])- -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)])- -> TypeSyns- -> PragmaMap- -> AttrOrderMap- -> ContextMap- -> UniqueMap- -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))- -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))- -> Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))- -> Grammar--constructGrammar nts ntParams gram attrs uses derivings wrappers allrules tsigs allinsts tsyns pragmaMap orderMap contextMap uniqueMap augmentsMap aroundsMap mergeMap =- let gr = [ (nt,Map.toList alts) | (nt,alts) <- Map.toList gram]- nonts = map nont gr- nont (nt,alts) = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt attrs- rmap = Map.findWithDefault Map.empty nt allrules- tsmap = Map.findWithDefault Map.empty nt tsigs- instsmap = Map.findWithDefault Map.empty nt allinsts- params = Map.findWithDefault [] nt ntParams- mergemap = Map.findWithDefault Map.empty nt mergeMap- alt (con,flds) =- let rules = maybe [] id (Map.lookup con rmap)- tsigs = maybe [] id (Map.lookup con tsmap)- insts = maybe [] id (Map.lookup con instsmap)- merges = [ (n, NT t []) | (n, (t, _, _)) <- Map.assocs $ maybe Map.empty id (Map.lookup con mergemap) ]-- -- important: keep order of children- cldrn = map child (flds ++ filter (not . existsAsField) insts ++ merges)- child (nm, tp) =- let tpI = if existsAsInst nm- then fromJust $ lookup nm insts- else tp- (inh,syn) = case tpI of- NT nt _ -> let nt' = maybe nt id (deforestedNt nt)- in Map.findWithDefault (Map.empty,Map.empty) nt' attrs- _ -> (Map.empty,Map.empty)- virt = if existsAsInst nm- then case lookup nm flds of- Just tp' -> Just (Just tp')- Nothing -> Just Nothing- else if existsAsMerge nm- then (Just Nothing)- else Nothing- in Child nm tpI inh syn virt- existsAsInst nm = maybe False (const True) (lookup nm insts)- existsAsField (nm,_) = maybe False (const True) (lookup nm flds)- existsAsMerge nm = maybe False (const True) (lookup nm merges)- in Production con cldrn rules tsigs- in Nonterminal nt params inh syn (map alt alts)- in Grammar tsyns uses derivings wrappers nonts pragmaMap orderMap ntParams contextMap uniqueMap augmentsMap aroundsMap mergeMap-{-# LINE 453 "../src-derived/Transform.hs" #-}--{-# LINE 1120 "Transform.ag" #-}--mapUnionWithSetUnion = Map.unionWith Set.union-mapUnionWithPlusPlus = Map.unionWith (++)-{-# LINE 459 "../src-derived/Transform.hs" #-}--- AG -----------------------------------------------------------{-- visit 0:- inherited attribute:- options : Options- synthesized attributes:- blocks : Blocks- errors : Seq Error- moduleDecl : Maybe (String,String,String)- output : Grammar- pragmas : Options -> Options- alternatives:- alternative AG:- child elems : Elems - visit 0:- local allFields : _- local allConstrs : _- local allRules : _- local allSigs : _- local allInsts : _- local allUniques : _- local allAugments : _- local allArounds : _- local allMerges : _- local augmentSigs : _- local allRulesErrs : _- local allNamesErrs : _- local allSigsErrs : _- local allInstsErrs : _- local allUniquesErrs : _- local allAugmentErrs : _- local allAroundsErrs : _- local allMergesErrs : _- local checkedRulesPre : _- local checkedSigs : _- local checkedInsts : _- local checkedUniques : _- local checkedAugments : _- local checkedArounds : _- local checkedRules : _- local checkedMerges : _- local errs1 : _- local errs2 : _- local errs3 : _- local errs4 : _- local errs5 : _- local errs6 : _- local errs7 : _- local errs8 : _- local errs9 : _- local errs10 : _- local errs11 : _- local allNonterminals : _- local allAttrDecls : _--}--- cata-sem_AG :: AG ->- T_AG -sem_AG (AG _elems ) =- (sem_AG_AG (sem_Elems _elems ) )--- semantic domain-newtype T_AG = T_AG (Options ->- ( Blocks,(Seq Error),(Maybe (String,String,String)),Grammar,(Options -> Options)))-data Inh_AG = Inh_AG {options_Inh_AG :: !(Options)}-data Syn_AG = Syn_AG {blocks_Syn_AG :: !(Blocks),errors_Syn_AG :: !((Seq Error)),moduleDecl_Syn_AG :: !((Maybe (String,String,String))),output_Syn_AG :: !(Grammar),pragmas_Syn_AG :: !((Options -> Options))}-wrap_AG :: T_AG ->- Inh_AG ->- Syn_AG -wrap_AG (T_AG sem ) (Inh_AG _lhsIoptions ) =- (let ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas) = sem _lhsIoptions - in (Syn_AG _lhsOblocks _lhsOerrors _lhsOmoduleDecl _lhsOoutput _lhsOpragmas ))-sem_AG_AG :: T_Elems ->- T_AG -sem_AG_AG (T_Elems elems_ ) =- (T_AG (\ _lhsIoptions ->- (let _lhsOoutput :: Grammar- _lhsOerrors :: (Seq Error)- _elemsOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _elemsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _elemsOdefinedSets :: DefinedSets- _elemsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOblocks :: Blocks- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOpragmas :: (Options -> Options)- _elemsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _elemsOallFields :: DataTypes- _elemsOallNonterminals :: (Set NontermIdent)- _elemsIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _elemsIattrOrderCollect :: AttrOrderMap- _elemsIblocks :: Blocks- _elemsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _elemsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _elemsIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _elemsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _elemsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _elemsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _elemsIcollectedNames :: (Set Identifier)- _elemsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _elemsIcollectedSetNames :: (Set Identifier)- _elemsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _elemsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _elemsIctxCollect :: ContextMap- _elemsIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _elemsIderivings :: Derivings- _elemsIerrors :: (Seq Error)- _elemsImoduleDecl :: (Maybe (String,String,String))- _elemsIparamsCollect :: ParamMap- _elemsIpragmas :: (Options -> Options)- _elemsIsemPragmasCollect :: PragmaMap- _elemsItypeSyns :: TypeSyns- _elemsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _elemsIwrappers :: (Set NontermIdent)- -- "Transform.ag"(line 51, column 8)- _lhsOoutput =- ({-# LINE 51 "Transform.ag" #-}- constructGrammar _allNonterminals- _elemsIparamsCollect- _allFields- _allAttrDecls- _elemsIuseMap- _elemsIderivings- (if wrappers _lhsIoptions then _allNonterminals else _elemsIwrappers)- _checkedRules- _checkedSigs- _checkedInsts- _elemsItypeSyns- _elemsIsemPragmasCollect- _elemsIattrOrderCollect- _elemsIctxCollect- _checkedUniques- _checkedAugments- _checkedArounds- _checkedMerges- {-# LINE 593 "Transform.hs" #-}- )- -- "Transform.ag"(line 246, column 10)- _allFields =- ({-# LINE 246 "Transform.ag" #-}- let f (nt,con,fm) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con fm)- in foldr f (Map.empty) _elemsIcollectedFields- {-# LINE 600 "Transform.hs" #-}- )- -- "Transform.ag"(line 249, column 10)- _allConstrs =- ({-# LINE 249 "Transform.ag" #-}- let f (nt,con,_) = Map.insertWith (++) nt [con]- in foldr f (Map.empty) _elemsIcollectedFields- {-# LINE 607 "Transform.hs" #-}- )- -- "Transform.ag"(line 252, column 10)- _allRules =- ({-# LINE 252 "Transform.ag" #-}- let f (nt,con,r) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [r])- in foldr f (Map.empty) _elemsIcollectedRules- {-# LINE 614 "Transform.hs" #-}- )- -- "Transform.ag"(line 255, column 10)- _allSigs =- ({-# LINE 255 "Transform.ag" #-}- let f (nt,con,t) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [t])- typeof nt r = Map.findWithDefault (Haskell "<unknown>") r $ fst $ Map.findWithDefault (Map.empty,Map.empty) nt _allAttrDecls- in foldr f (Map.empty) ( _elemsIcollectedSigs- ++ [ (nt, con, (ident,typeof nt ref)) | (nt, con, us) <- _elemsIcollectedUniques, (ident,ref) <- us ]- )- {-# LINE 624 "Transform.hs" #-}- )- -- "Transform.ag"(line 261, column 10)- _allInsts =- ({-# LINE 261 "Transform.ag" #-}- let f (nt,con,is) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con is)- in foldr f (Map.empty) _elemsIcollectedInsts- {-# LINE 631 "Transform.hs" #-}- )- -- "Transform.ag"(line 264, column 10)- _allUniques =- ({-# LINE 264 "Transform.ag" #-}- let f (nt,con,us) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con us)- in foldr f (Map.empty) _elemsIcollectedUniques- {-# LINE 638 "Transform.hs" #-}- )- -- "Transform.ag"(line 266, column 10)- _allAugments =- ({-# LINE 266 "Transform.ag" #-}- let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)- in foldr f Map.empty _elemsIcollectedAugments- {-# LINE 645 "Transform.hs" #-}- )- -- "Transform.ag"(line 268, column 10)- _allArounds =- ({-# LINE 268 "Transform.ag" #-}- let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)- in foldr f Map.empty _elemsIcollectedArounds- {-# LINE 652 "Transform.hs" #-}- )- -- "Transform.ag"(line 270, column 10)- _allMerges =- ({-# LINE 270 "Transform.ag" #-}- let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)- in foldr f Map.empty _elemsIcollectedMerges- {-# LINE 659 "Transform.hs" #-}- )- -- "Transform.ag"(line 273, column 10)- _augmentSigs =- ({-# LINE 273 "Transform.ag" #-}- let gen mp = []- in Map.map (Map.map gen) _allAugments- {-# LINE 666 "Transform.hs" #-}- )- -- "Transform.ag"(line 276, column 10)- _allRulesErrs =- ({-# LINE 276 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkRules _allAttrDecls _allFields _allInsts _allSigs _allMerges )) _allRules- {-# LINE 672 "Transform.hs" #-}- )- -- "Transform.ag"(line 277, column 10)- _allNamesErrs =- ({-# LINE 277 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . checkRuleNames) _allRules- {-# LINE 678 "Transform.hs" #-}- )- -- "Transform.ag"(line 278, column 10)- _allSigsErrs =- ({-# LINE 278 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkSigs )) _allSigs- {-# LINE 684 "Transform.hs" #-}- )- -- "Transform.ag"(line 279, column 10)- _allInstsErrs =- ({-# LINE 279 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkInsts _allNonterminals _allSigs _allFields )) _allInsts- {-# LINE 690 "Transform.hs" #-}- )- -- "Transform.ag"(line 280, column 10)- _allUniquesErrs =- ({-# LINE 280 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkUniques _allAttrDecls )) _allUniques- {-# LINE 696 "Transform.hs" #-}- )- -- "Transform.ag"(line 281, column 10)- _allAugmentErrs =- ({-# LINE 281 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkAugments _allAttrDecls )) _allAugments- {-# LINE 702 "Transform.hs" #-}- )- -- "Transform.ag"(line 282, column 10)- _allAroundsErrs =- ({-# LINE 282 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkArounds _allFields )) _allArounds- {-# LINE 708 "Transform.hs" #-}- )- -- "Transform.ag"(line 283, column 10)- _allMergesErrs =- ({-# LINE 283 "Transform.ag" #-}- Map.mapWithKey (Map.mapWithKey . (checkMerges _allNonterminals _allInsts _allFields )) _allMerges- {-# LINE 714 "Transform.hs" #-}- )- -- "Transform.ag"(line 285, column 10)- _checkedRulesPre =- ({-# LINE 285 "Transform.ag" #-}- Map.map (Map.map fst) _allRulesErrs- {-# LINE 720 "Transform.hs" #-}- )- -- "Transform.ag"(line 286, column 10)- _checkedSigs =- ({-# LINE 286 "Transform.ag" #-}- Map.map (Map.map fst) _allSigsErrs `unionunionplusplus` _augmentSigs- {-# LINE 726 "Transform.hs" #-}- )- -- "Transform.ag"(line 287, column 10)- _checkedInsts =- ({-# LINE 287 "Transform.ag" #-}- Map.map (Map.map fst) _allInstsErrs- {-# LINE 732 "Transform.hs" #-}- )- -- "Transform.ag"(line 288, column 10)- _checkedUniques =- ({-# LINE 288 "Transform.ag" #-}- Map.map (Map.map fst) _allUniquesErrs- {-# LINE 738 "Transform.hs" #-}- )- -- "Transform.ag"(line 289, column 10)- _checkedAugments =- ({-# LINE 289 "Transform.ag" #-}- Map.map (Map.map fst) _allAugmentErrs- {-# LINE 744 "Transform.hs" #-}- )- -- "Transform.ag"(line 290, column 10)- _checkedArounds =- ({-# LINE 290 "Transform.ag" #-}- Map.map (Map.map fst) _allAroundsErrs- {-# LINE 750 "Transform.hs" #-}- )- -- "Transform.ag"(line 291, column 10)- _checkedRules =- ({-# LINE 291 "Transform.ag" #-}- Map.unionWith (Map.unionWith (++)) _checkedRulesPre (Map.mapWithKey (Map.mapWithKey . (mkUniqueRules _lhsIoptions _allFields _checkedInsts _allAttrDecls )) _checkedUniques )- {-# LINE 756 "Transform.hs" #-}- )- -- "Transform.ag"(line 292, column 10)- _checkedMerges =- ({-# LINE 292 "Transform.ag" #-}- Map.map (Map.map fst) _allMergesErrs- {-# LINE 762 "Transform.hs" #-}- )- -- "Transform.ag"(line 294, column 10)- _errs1 =- ({-# LINE 294 "Transform.ag" #-}- let f = checkForDuplicates (DupSynonym)- in Seq.fromList . f . map fst $ _elemsItypeSyns- {-# LINE 769 "Transform.hs" #-}- )- -- "Transform.ag"(line 297, column 10)- _errs2 =- ({-# LINE 297 "Transform.ag" #-}- let g nt (con,fm) = checkForDuplicates (DupChild nt con) (map fst fm)- f (nt,cfm) = concat . map (g nt) . Map.toList $ cfm- in Seq.fromList . concat . map f . Map.toList $ _allFields- {-# LINE 777 "Transform.hs" #-}- )- -- "Transform.ag"(line 301, column 10)- _errs3 =- ({-# LINE 301 "Transform.ag" #-}- let f (nt,cons) = checkForDuplicates (DupAlt nt) cons- in Seq.empty- {-# LINE 784 "Transform.hs" #-}- )- -- "Transform.ag"(line 305, column 10)- _errs4 =- ({-# LINE 305 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allRulesErrs- {-# LINE 791 "Transform.hs" #-}- )- -- "Transform.ag"(line 308, column 10)- _errs5 =- ({-# LINE 308 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allSigsErrs- {-# LINE 798 "Transform.hs" #-}- )- -- "Transform.ag"(line 311, column 10)- _errs6 =- ({-# LINE 311 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allInstsErrs- {-# LINE 805 "Transform.hs" #-}- )- -- "Transform.ag"(line 314, column 10)- _errs7 =- ({-# LINE 314 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allUniquesErrs- {-# LINE 812 "Transform.hs" #-}- )- -- "Transform.ag"(line 317, column 10)- _errs8 =- ({-# LINE 317 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allAugmentErrs- {-# LINE 819 "Transform.hs" #-}- )- -- "Transform.ag"(line 320, column 10)- _errs9 =- ({-# LINE 320 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allAroundsErrs- {-# LINE 826 "Transform.hs" #-}- )- -- "Transform.ag"(line 323, column 10)- _errs10 =- ({-# LINE 323 "Transform.ag" #-}- let f m s = Map.fold ((><)) s m- in Map.fold f Seq.empty _allNamesErrs- {-# LINE 833 "Transform.hs" #-}- )- -- "Transform.ag"(line 326, column 10)- _errs11 =- ({-# LINE 326 "Transform.ag" #-}- let f m s = Map.fold ((><) . snd) s m- in Map.fold f Seq.empty _allMergesErrs- {-# LINE 840 "Transform.hs" #-}- )- -- "Transform.ag"(line 329, column 10)- _lhsOerrors =- ({-# LINE 329 "Transform.ag" #-}- _elemsIerrors >< _errs1 >< _errs2 >< _errs3 >< _errs4 >< _errs5 >< _errs6 >< _errs7 >< _errs8 >< _errs9 >< _errs10 >< _errs11- {-# LINE 846 "Transform.hs" #-}- )- -- "Transform.ag"(line 531, column 10)- _allNonterminals =- ({-# LINE 531 "Transform.ag" #-}- _elemsIcollectedNames `Set.difference` _elemsIcollectedSetNames- {-# LINE 852 "Transform.hs" #-}- )- -- "Transform.ag"(line 551, column 8)- _elemsOallConstructors =- ({-# LINE 551 "Transform.ag" #-}- _elemsIcollectedConstructorsMap- {-# LINE 858 "Transform.hs" #-}- )- -- "Transform.ag"(line 624, column 8)- _elemsOdefSets =- ({-# LINE 624 "Transform.ag" #-}- Map.fromList (map (\x->(x,(Set.singleton x, Set.empty))) (Set.toList _allNonterminals ))- {-# LINE 864 "Transform.hs" #-}- )- -- "Transform.ag"(line 625, column 8)- _elemsOdefinedSets =- ({-# LINE 625 "Transform.ag" #-}- Map.map fst _elemsIdefSets- {-# LINE 870 "Transform.hs" #-}- )- -- "Transform.ag"(line 879, column 8)- _elemsOattrDecls =- ({-# LINE 879 "Transform.ag" #-}- Map.empty- {-# LINE 876 "Transform.hs" #-}- )- -- "Transform.ag"(line 918, column 9)- _allAttrDecls =- ({-# LINE 918 "Transform.ag" #-}- if withSelf _lhsIoptions- then foldr addSelf _elemsIattrDecls (Set.toList _allNonterminals )- else _elemsIattrDecls- {-# LINE 884 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 44, column 19)- _lhsOblocks =- ({-# LINE 44 "Transform.ag" #-}- _elemsIblocks- {-# LINE 890 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1041, column 37)- _lhsOmoduleDecl =- ({-# LINE 1041 "Transform.ag" #-}- _elemsImoduleDecl- {-# LINE 896 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 706, column 34)- _lhsOpragmas =- ({-# LINE 706 "Transform.ag" #-}- _elemsIpragmas- {-# LINE 902 "Transform.hs" #-}- )- -- copy rule (from local)- _elemsOallAttrDecls =- ({-# LINE 781 "Transform.ag" #-}- _allAttrDecls- {-# LINE 908 "Transform.hs" #-}- )- -- copy rule (from local)- _elemsOallFields =- ({-# LINE 127 "Transform.ag" #-}- _allFields- {-# LINE 914 "Transform.hs" #-}- )- -- copy rule (from local)- _elemsOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _allNonterminals- {-# LINE 920 "Transform.hs" #-}- )- ( _elemsIattrDecls,_elemsIattrOrderCollect,_elemsIblocks,_elemsIcollectedArounds,_elemsIcollectedAugments,_elemsIcollectedConstructorsMap,_elemsIcollectedFields,_elemsIcollectedInsts,_elemsIcollectedMerges,_elemsIcollectedNames,_elemsIcollectedRules,_elemsIcollectedSetNames,_elemsIcollectedSigs,_elemsIcollectedUniques,_elemsIctxCollect,_elemsIdefSets,_elemsIderivings,_elemsIerrors,_elemsImoduleDecl,_elemsIparamsCollect,_elemsIpragmas,_elemsIsemPragmasCollect,_elemsItypeSyns,_elemsIuseMap,_elemsIwrappers) =- elems_ _elemsOallAttrDecls _elemsOallConstructors _elemsOallFields _elemsOallNonterminals _elemsOattrDecls _elemsOdefSets _elemsOdefinedSets - in ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas))) )--- Alt ----------------------------------------------------------{-- visit 0:- inherited attributes:- allConstructors : Map NontermIdent (Set ConstructorIdent)- allNonterminals : Set NontermIdent- nts : Set NontermIdent- synthesized attributes:- collectedConstructorNames : Set ConstructorIdent- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- alternatives:- alternative Alt:- child pos : {Pos}- child names : ConstructorSet - child fields : {Fields}--}--- cata-sem_Alt :: Alt ->- T_Alt -sem_Alt (Alt _pos _names _fields ) =- (sem_Alt_Alt _pos (sem_ConstructorSet _names ) _fields )--- semantic domain-newtype T_Alt = T_Alt ((Map NontermIdent (Set ConstructorIdent)) ->- (Set NontermIdent) ->- (Set NontermIdent) ->- ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)])))-data Inh_Alt = Inh_Alt {allConstructors_Inh_Alt :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alt :: !((Set NontermIdent)),nts_Inh_Alt :: !((Set NontermIdent))}-data Syn_Alt = Syn_Alt {collectedConstructorNames_Syn_Alt :: !((Set ConstructorIdent)),collectedFields_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))}-wrap_Alt :: T_Alt ->- Inh_Alt ->- Syn_Alt -wrap_Alt (T_Alt sem ) (Inh_Alt _lhsIallConstructors _lhsIallNonterminals _lhsInts ) =- (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts - in (Syn_Alt _lhsOcollectedConstructorNames _lhsOcollectedFields ))-sem_Alt_Alt :: Pos ->- T_ConstructorSet ->- Fields ->- T_Alt -sem_Alt_Alt pos_ (T_ConstructorSet names_ ) fields_ =- (T_Alt (\ _lhsIallConstructors- _lhsIallNonterminals- _lhsInts ->- (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _namesIcollectedConstructorNames :: (Set ConstructorIdent)- _namesIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _namesIerrors :: (Seq Error)- -- "Transform.ag"(line 231, column 10)- _lhsOcollectedFields =- ({-# LINE 231 "Transform.ag" #-}- let fieldTable =- [ (attr, makeType _lhsIallNonterminals tp)- | (attr, tp) <- fields_- ]- in [ (nt, con, fieldTable)- | nt <- Set.toList _lhsInts- , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors))- ]- {-# LINE 983 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 92, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 92 "Transform.ag" #-}- _namesIcollectedConstructorNames- {-# LINE 989 "Transform.hs" #-}- )- ( _namesIcollectedConstructorNames,_namesIconstructors,_namesIerrors) =- names_ - in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )--- Alts ---------------------------------------------------------{-- visit 0:- inherited attributes:- allConstructors : Map NontermIdent (Set ConstructorIdent)- allNonterminals : Set NontermIdent- nts : Set NontermIdent- synthesized attributes:- collectedConstructorNames : Set ConstructorIdent- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- alternatives:- alternative Cons:- child hd : Alt - child tl : Alts - alternative Nil:--}--- cata-sem_Alts :: Alts ->- T_Alts -sem_Alts list =- (Prelude.foldr sem_Alts_Cons sem_Alts_Nil (Prelude.map sem_Alt list) )--- semantic domain-newtype T_Alts = T_Alts ((Map NontermIdent (Set ConstructorIdent)) ->- (Set NontermIdent) ->- (Set NontermIdent) ->- ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)])))-data Inh_Alts = Inh_Alts {allConstructors_Inh_Alts :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alts :: !((Set NontermIdent)),nts_Inh_Alts :: !((Set NontermIdent))}-data Syn_Alts = Syn_Alts {collectedConstructorNames_Syn_Alts :: !((Set ConstructorIdent)),collectedFields_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))}-wrap_Alts :: T_Alts ->- Inh_Alts ->- Syn_Alts -wrap_Alts (T_Alts sem ) (Inh_Alts _lhsIallConstructors _lhsIallNonterminals _lhsInts ) =- (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts - in (Syn_Alts _lhsOcollectedConstructorNames _lhsOcollectedFields ))-sem_Alts_Cons :: T_Alt ->- T_Alts ->- T_Alts -sem_Alts_Cons (T_Alt hd_ ) (T_Alts tl_ ) =- (T_Alts (\ _lhsIallConstructors- _lhsIallNonterminals- _lhsInts ->- (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _hdOallNonterminals :: (Set NontermIdent)- _hdOnts :: (Set NontermIdent)- _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _tlOallNonterminals :: (Set NontermIdent)- _tlOnts :: (Set NontermIdent)- _hdIcollectedConstructorNames :: (Set ConstructorIdent)- _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _tlIcollectedConstructorNames :: (Set ConstructorIdent)- _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- -- use rule "Transform.ag"(line 92, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 92 "Transform.ag" #-}- _hdIcollectedConstructorNames `Set.union` _tlIcollectedConstructorNames- {-# LINE 1051 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 124, column 28)- _lhsOcollectedFields =- ({-# LINE 124 "Transform.ag" #-}- _hdIcollectedFields ++ _tlIcollectedFields- {-# LINE 1057 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallConstructors =- ({-# LINE 95 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 1063 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1069 "Transform.hs" #-}- )- -- copy rule (down)- _hdOnts =- ({-# LINE 166 "Transform.ag" #-}- _lhsInts- {-# LINE 1075 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallConstructors =- ({-# LINE 95 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 1081 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1087 "Transform.hs" #-}- )- -- copy rule (down)- _tlOnts =- ({-# LINE 166 "Transform.ag" #-}- _lhsInts- {-# LINE 1093 "Transform.hs" #-}- )- ( _hdIcollectedConstructorNames,_hdIcollectedFields) =- hd_ _hdOallConstructors _hdOallNonterminals _hdOnts - ( _tlIcollectedConstructorNames,_tlIcollectedFields) =- tl_ _tlOallConstructors _tlOallNonterminals _tlOnts - in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )-sem_Alts_Nil :: T_Alts -sem_Alts_Nil =- (T_Alts (\ _lhsIallConstructors- _lhsIallNonterminals- _lhsInts ->- (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- -- use rule "Transform.ag"(line 92, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 92 "Transform.ag" #-}- Set.empty- {-# LINE 1111 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 124, column 28)- _lhsOcollectedFields =- ({-# LINE 124 "Transform.ag" #-}- []- {-# LINE 1117 "Transform.hs" #-}- )- in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )--- Attrs --------------------------------------------------------{-- visit 0:- inherited attributes:- allFields : DataTypes- allNonterminals : Set NontermIdent- nts : Set NontermIdent- chained attribute:- attrDecls : Map NontermIdent (Attributes, Attributes)- synthesized attributes:- errors : Seq Error- useMap : Map NontermIdent (Map Identifier (String,String,String))- alternatives:- alternative Attrs:- child pos : {Pos}- child inh : {AttrNames}- child chn : {AttrNames}- child syn : {AttrNames}- visit 0:- local _tup1 : _- local attrDecls : _- local errors : _- local _tup2 : _- local inherited : _- local synthesized : _- local useMap : _--}--- cata-sem_Attrs :: Attrs ->- T_Attrs -sem_Attrs (Attrs _pos _inh _chn _syn ) =- (sem_Attrs_Attrs _pos _inh _chn _syn )--- semantic domain-newtype T_Attrs = T_Attrs (DataTypes ->- (Set NontermIdent) ->- (Map NontermIdent (Attributes, Attributes)) ->- (Set NontermIdent) ->- ( (Map NontermIdent (Attributes, Attributes)),(Seq Error),(Map NontermIdent (Map Identifier (String,String,String)))))-data Inh_Attrs = Inh_Attrs {allFields_Inh_Attrs :: !(DataTypes),allNonterminals_Inh_Attrs :: !((Set NontermIdent)),attrDecls_Inh_Attrs :: !((Map NontermIdent (Attributes, Attributes))),nts_Inh_Attrs :: !((Set NontermIdent))}-data Syn_Attrs = Syn_Attrs {attrDecls_Syn_Attrs :: !((Map NontermIdent (Attributes, Attributes))),errors_Syn_Attrs :: !((Seq Error)),useMap_Syn_Attrs :: !((Map NontermIdent (Map Identifier (String,String,String))))}-wrap_Attrs :: T_Attrs ->- Inh_Attrs ->- Syn_Attrs -wrap_Attrs (T_Attrs sem ) (Inh_Attrs _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts ) =- (let ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap) = sem _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts - in (Syn_Attrs _lhsOattrDecls _lhsOerrors _lhsOuseMap ))-sem_Attrs_Attrs :: Pos ->- AttrNames ->- AttrNames ->- AttrNames ->- T_Attrs -sem_Attrs_Attrs pos_ inh_ chn_ syn_ =- (T_Attrs (\ _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsInts ->- (let _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOerrors :: (Seq Error)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- -- "Transform.ag"(line 887, column 15)- __tup1 =- ({-# LINE 887 "Transform.ag" #-}- checkAttrs _lhsIallFields (Set.toList _lhsInts) _inherited _synthesized _lhsIattrDecls- {-# LINE 1183 "Transform.hs" #-}- )- -- "Transform.ag"(line 887, column 15)- (_attrDecls,_) =- ({-# LINE 887 "Transform.ag" #-}- __tup1- {-# LINE 1189 "Transform.hs" #-}- )- -- "Transform.ag"(line 887, column 15)- (_,_errors) =- ({-# LINE 887 "Transform.ag" #-}- __tup1- {-# LINE 1195 "Transform.hs" #-}- )- -- "Transform.ag"(line 889, column 15)- __tup2 =- ({-# LINE 889 "Transform.ag" #-}- let splitAttrs xs = unzip [ ((n,makeType _lhsIallNonterminals t),(n,ud))- | (n,t,ud) <- xs- ]- (inh,_) = splitAttrs inh_- (chn,uses1) = splitAttrs chn_- (syn,uses2) = splitAttrs syn_- isUse (n,(e1,e2,_)) = not (null e1 || null e2)- in (inh++chn,chn++syn, Map.fromList (Prelude.filter isUse (uses1++uses2)))- {-# LINE 1208 "Transform.hs" #-}- )- -- "Transform.ag"(line 889, column 15)- (_inherited,_,_) =- ({-# LINE 889 "Transform.ag" #-}- __tup2- {-# LINE 1214 "Transform.hs" #-}- )- -- "Transform.ag"(line 889, column 15)- (_,_synthesized,_) =- ({-# LINE 889 "Transform.ag" #-}- __tup2- {-# LINE 1220 "Transform.hs" #-}- )- -- "Transform.ag"(line 889, column 15)- (_,_,_useMap) =- ({-# LINE 889 "Transform.ag" #-}- __tup2- {-# LINE 1226 "Transform.hs" #-}- )- -- "Transform.ag"(line 897, column 11)- _lhsOuseMap =- ({-# LINE 897 "Transform.ag" #-}- Map.fromList (zip (Set.toList _lhsInts) (repeat _useMap))- {-# LINE 1232 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- _errors- {-# LINE 1238 "Transform.hs" #-}- )- -- copy rule (from local)- _lhsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _attrDecls- {-# LINE 1244 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap))) )--- ConstructorSet -----------------------------------------------{-- visit 0:- synthesized attributes:- collectedConstructorNames : Set ConstructorIdent- constructors : (Set ConstructorIdent->Set ConstructorIdent)- errors : Seq Error- alternatives:- alternative CAll:- alternative CDifference:- child set1 : ConstructorSet - child set2 : ConstructorSet - alternative CName:- child name : {ConstructorIdent}- alternative CUnion:- child set1 : ConstructorSet - child set2 : ConstructorSet --}--- cata-sem_ConstructorSet :: ConstructorSet ->- T_ConstructorSet -sem_ConstructorSet (CAll ) =- (sem_ConstructorSet_CAll )-sem_ConstructorSet (CDifference _set1 _set2 ) =- (sem_ConstructorSet_CDifference (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) )-sem_ConstructorSet (CName _name ) =- (sem_ConstructorSet_CName _name )-sem_ConstructorSet (CUnion _set1 _set2 ) =- (sem_ConstructorSet_CUnion (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) )--- semantic domain-newtype T_ConstructorSet = T_ConstructorSet (( (Set ConstructorIdent),((Set ConstructorIdent->Set ConstructorIdent)),(Seq Error)))-data Inh_ConstructorSet = Inh_ConstructorSet {}-data Syn_ConstructorSet = Syn_ConstructorSet {collectedConstructorNames_Syn_ConstructorSet :: !((Set ConstructorIdent)),constructors_Syn_ConstructorSet :: !(((Set ConstructorIdent->Set ConstructorIdent))),errors_Syn_ConstructorSet :: !((Seq Error))}-wrap_ConstructorSet :: T_ConstructorSet ->- Inh_ConstructorSet ->- Syn_ConstructorSet -wrap_ConstructorSet (T_ConstructorSet sem ) (Inh_ConstructorSet ) =- (let ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors) = sem - in (Syn_ConstructorSet _lhsOcollectedConstructorNames _lhsOconstructors _lhsOerrors ))-sem_ConstructorSet_CAll :: T_ConstructorSet -sem_ConstructorSet_CAll =- (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOerrors :: (Seq Error)- -- "Transform.ag"(line 691, column 17)- _lhsOconstructors =- ({-# LINE 691 "Transform.ag" #-}- \ds -> ds- {-# LINE 1295 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 92, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 92 "Transform.ag" #-}- Set.empty- {-# LINE 1301 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- Seq.empty- {-# LINE 1307 "Transform.hs" #-}- )- in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )-sem_ConstructorSet_CDifference :: T_ConstructorSet ->- T_ConstructorSet ->- T_ConstructorSet -sem_ConstructorSet_CDifference (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) =- (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOerrors :: (Seq Error)- _set1IcollectedConstructorNames :: (Set ConstructorIdent)- _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _set1Ierrors :: (Seq Error)- _set2IcollectedConstructorNames :: (Set ConstructorIdent)- _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _set2Ierrors :: (Seq Error)- -- "Transform.ag"(line 690, column 17)- _lhsOconstructors =- ({-# LINE 690 "Transform.ag" #-}- \ds -> _set1Iconstructors ds `Set.difference` _set2Iconstructors ds- {-# LINE 1327 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 92, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 92 "Transform.ag" #-}- _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames- {-# LINE 1333 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 1339 "Transform.hs" #-}- )- ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =- set1_ - ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =- set2_ - in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )-sem_ConstructorSet_CName :: ConstructorIdent ->- T_ConstructorSet -sem_ConstructorSet_CName name_ =- (T_ConstructorSet (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _lhsOerrors :: (Seq Error)- -- "Transform.ag"(line 539, column 11)- _lhsOcollectedConstructorNames =- ({-# LINE 539 "Transform.ag" #-}- Set.singleton name_- {-# LINE 1356 "Transform.hs" #-}- )- -- "Transform.ag"(line 688, column 17)- _lhsOconstructors =- ({-# LINE 688 "Transform.ag" #-}- \ds -> Set.singleton name_- {-# LINE 1362 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- Seq.empty- {-# LINE 1368 "Transform.hs" #-}- )- in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )-sem_ConstructorSet_CUnion :: T_ConstructorSet ->- T_ConstructorSet ->- T_ConstructorSet -sem_ConstructorSet_CUnion (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) =- (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _lhsOcollectedConstructorNames :: (Set ConstructorIdent)- _lhsOerrors :: (Seq Error)- _set1IcollectedConstructorNames :: (Set ConstructorIdent)- _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _set1Ierrors :: (Seq Error)- _set2IcollectedConstructorNames :: (Set ConstructorIdent)- _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _set2Ierrors :: (Seq Error)- -- "Transform.ag"(line 689, column 17)- _lhsOconstructors =- ({-# LINE 689 "Transform.ag" #-}- \ds -> _set1Iconstructors ds `Set.union` _set2Iconstructors ds- {-# LINE 1388 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 92, column 62)- _lhsOcollectedConstructorNames =- ({-# LINE 92 "Transform.ag" #-}- _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames- {-# LINE 1394 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 1400 "Transform.hs" #-}- )- ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =- set1_ - ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =- set2_ - in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )--- Elem ---------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allConstructors : Map NontermIdent (Set ConstructorIdent)- allFields : DataTypes- allNonterminals : Set NontermIdent- definedSets : DefinedSets- chained attributes:- attrDecls : Map NontermIdent (Attributes, Attributes)- defSets : Map Identifier (Set NontermIdent,Set Identifier)- synthesized attributes:- attrOrderCollect : AttrOrderMap- blocks : Blocks- collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]- collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]- collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]- collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]- collectedNames : Set Identifier- collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]- collectedSetNames : Set Identifier- collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]- collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]- ctxCollect : ContextMap- derivings : Derivings- errors : Seq Error- moduleDecl : Maybe (String,String,String)- paramsCollect : ParamMap- pragmas : Options -> Options- semPragmasCollect : PragmaMap- typeSyns : TypeSyns- useMap : Map NontermIdent (Map Identifier (String,String,String))- wrappers : Set NontermIdent- alternatives:- alternative Attr:- child pos : {Pos}- child ctx : {ClassContext}- child names : NontSet - child attrs : Attrs - alternative Data:- child pos : {Pos}- child ctx : {ClassContext}- child names : NontSet - child params : {[Identifier]}- child attrs : Attrs - child alts : Alts - child ext : {Bool}- alternative Deriving:- child pos : {Pos}- child set : NontSet - child classes : {[NontermIdent]}- alternative Module:- child pos : {Pos}- child name : {String}- child exports : {String}- child imports : {String}- alternative Pragma:- child pos : {Pos}- child names : {[NontermIdent]}- alternative Sem:- child pos : {Pos}- child ctx : {ClassContext}- child names : NontSet - child attrs : Attrs - child alts : SemAlts - alternative Set:- child pos : {Pos}- child name : {NontermIdent}- child set : NontSet - visit 0:- local _tup3 : _- local defSets2 : _- local errs : _- alternative Txt:- child pos : {Pos}- child name : {Identifier}- child mbNt : {Maybe NontermIdent}- child lines : {[String]}- visit 0:- local blockInfo : _- local blockValue : _- alternative Type:- child pos : {Pos}- child ctx : {ClassContext}- child name : {NontermIdent}- child params : {[Identifier]}- child type : {ComplexType}- visit 0:- local expanded : _- local argType : _- alternative Wrapper:- child pos : {Pos}- child set : NontSet --}--- cata-sem_Elem :: Elem ->- T_Elem -sem_Elem (Attr _pos _ctx _names _attrs ) =- (sem_Elem_Attr _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) )-sem_Elem (Data _pos _ctx _names _params _attrs _alts _ext ) =- (sem_Elem_Data _pos _ctx (sem_NontSet _names ) _params (sem_Attrs _attrs ) (sem_Alts _alts ) _ext )-sem_Elem (Deriving _pos _set _classes ) =- (sem_Elem_Deriving _pos (sem_NontSet _set ) _classes )-sem_Elem (Module _pos _name _exports _imports ) =- (sem_Elem_Module _pos _name _exports _imports )-sem_Elem (Pragma _pos _names ) =- (sem_Elem_Pragma _pos _names )-sem_Elem (Sem _pos _ctx _names _attrs _alts ) =- (sem_Elem_Sem _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) (sem_SemAlts _alts ) )-sem_Elem (Set _pos _name _set ) =- (sem_Elem_Set _pos _name (sem_NontSet _set ) )-sem_Elem (Txt _pos _name _mbNt _lines ) =- (sem_Elem_Txt _pos _name _mbNt _lines )-sem_Elem (Type _pos _ctx _name _params _type ) =- (sem_Elem_Type _pos _ctx _name _params _type )-sem_Elem (Wrapper _pos _set ) =- (sem_Elem_Wrapper _pos (sem_NontSet _set ) )--- semantic domain-newtype T_Elem = T_Elem ((Map NontermIdent (Attributes, Attributes)) ->- (Map NontermIdent (Set ConstructorIdent)) ->- DataTypes ->- (Set NontermIdent) ->- (Map NontermIdent (Attributes, Attributes)) ->- (Map Identifier (Set NontermIdent,Set Identifier)) ->- DefinedSets ->- ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))-data Inh_Elem = Inh_Elem {allAttrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elem :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elem :: !(DataTypes),allNonterminals_Inh_Elem :: !((Set NontermIdent)),attrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elem :: !(DefinedSets)}-data Syn_Elem = Syn_Elem {attrDecls_Syn_Elem :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elem :: !(AttrOrderMap),blocks_Syn_Elem :: !(Blocks),collectedArounds_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elem :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elem :: !((Set Identifier)),collectedRules_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elem :: !((Set Identifier)),collectedSigs_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elem :: !(ContextMap),defSets_Syn_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elem :: !(Derivings),errors_Syn_Elem :: !((Seq Error)),moduleDecl_Syn_Elem :: !((Maybe (String,String,String))),paramsCollect_Syn_Elem :: !(ParamMap),pragmas_Syn_Elem :: !((Options -> Options)),semPragmasCollect_Syn_Elem :: !(PragmaMap),typeSyns_Syn_Elem :: !(TypeSyns),useMap_Syn_Elem :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elem :: !((Set NontermIdent))}-wrap_Elem :: T_Elem ->- Inh_Elem ->- Syn_Elem -wrap_Elem (T_Elem sem ) (Inh_Elem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets ) =- (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets - in (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers ))-sem_Elem_Attr :: Pos ->- ClassContext ->- T_NontSet ->- T_Attrs ->- T_Elem -sem_Elem_Attr pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets ->- (let _lhsOctxCollect :: ContextMap- _attrsOnts :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _namesOallFields :: DataTypes- _namesOallNonterminals :: (Set NontermIdent)- _namesOdefinedSets :: DefinedSets- _attrsOallFields :: DataTypes- _attrsOallNonterminals :: (Set NontermIdent)- _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _namesIcollectedNames :: (Set Identifier)- _namesIerrors :: (Seq Error)- _namesInontSet :: (Set NontermIdent)- _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsIerrors :: (Seq Error)- _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- -- "Transform.ag"(line 839, column 7)- _lhsOctxCollect =- ({-# LINE 839 "Transform.ag" #-}- if null ctx_- then Map.empty- else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]- {-# LINE 1601 "Transform.hs" #-}- )- -- "Transform.ag"(line 883, column 10)- _attrsOnts =- ({-# LINE 883 "Transform.ag" #-}- _namesInontSet- {-# LINE 1607 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 780, column 55)- _lhsOattrOrderCollect =- ({-# LINE 780 "Transform.ag" #-}- Map.empty- {-# LINE 1613 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 44, column 19)- _lhsOblocks =- ({-# LINE 44 "Transform.ag" #-}- Map.empty- {-# LINE 1619 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedArounds =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 1625 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedAugments =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 1631 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 93 "Transform.ag" #-}- Map.empty- {-# LINE 1637 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 124, column 28)- _lhsOcollectedFields =- ({-# LINE 124 "Transform.ag" #-}- []- {-# LINE 1643 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedInsts =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 1649 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedMerges =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 1655 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- _namesIcollectedNames- {-# LINE 1661 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 150, column 32)- _lhsOcollectedRules =- ({-# LINE 150 "Transform.ag" #-}- []- {-# LINE 1667 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 84, column 50)- _lhsOcollectedSetNames =- ({-# LINE 84 "Transform.ag" #-}- Set.empty- {-# LINE 1673 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedSigs =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 1679 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedUniques =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 1685 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 860, column 33)- _lhsOderivings =- ({-# LINE 860 "Transform.ag" #-}- Map.empty- {-# LINE 1691 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- _namesIerrors Seq.>< _attrsIerrors- {-# LINE 1697 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1041, column 37)- _lhsOmoduleDecl =- ({-# LINE 1041 "Transform.ag" #-}- mzero- {-# LINE 1703 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 812, column 37)- _lhsOparamsCollect =- ({-# LINE 812 "Transform.ag" #-}- Map.empty- {-# LINE 1709 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 706, column 34)- _lhsOpragmas =- ({-# LINE 706 "Transform.ag" #-}- id- {-# LINE 1715 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 752, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 752 "Transform.ag" #-}- Map.empty- {-# LINE 1721 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 566, column 32)- _lhsOtypeSyns =- ({-# LINE 566 "Transform.ag" #-}- []- {-# LINE 1727 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 136, column 15)- _lhsOuseMap =- ({-# LINE 136 "Transform.ag" #-}- _attrsIuseMap- {-# LINE 1733 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 697, column 32)- _lhsOwrappers =- ({-# LINE 697 "Transform.ag" #-}- Set.empty- {-# LINE 1739 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _attrsIattrDecls- {-# LINE 1745 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 103 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 1751 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 1757 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1763 "Transform.hs" #-}- )- -- copy rule (down)- _namesOdefinedSets =- ({-# LINE 106 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 1769 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 1775 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 1781 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 1787 "Transform.hs" #-}- )- ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =- names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =- attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Data :: Pos ->- ClassContext ->- T_NontSet ->- ([Identifier]) ->- T_Attrs ->- T_Alts ->- Bool ->- T_Elem -sem_Elem_Data pos_ ctx_ (T_NontSet names_ ) params_ (T_Attrs attrs_ ) (T_Alts alts_ ) ext_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets ->- (let _altsOnts :: (Set NontermIdent)- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOparamsCollect :: ParamMap- _lhsOctxCollect :: ContextMap- _attrsOnts :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _namesOallFields :: DataTypes- _namesOallNonterminals :: (Set NontermIdent)- _namesOdefinedSets :: DefinedSets- _attrsOallFields :: DataTypes- _attrsOallNonterminals :: (Set NontermIdent)- _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _altsOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _altsOallNonterminals :: (Set NontermIdent)- _namesIcollectedNames :: (Set Identifier)- _namesIerrors :: (Seq Error)- _namesInontSet :: (Set NontermIdent)- _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsIerrors :: (Seq Error)- _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _altsIcollectedConstructorNames :: (Set ConstructorIdent)- _altsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- -- "Transform.ag"(line 169, column 10)- _altsOnts =- ({-# LINE 169 "Transform.ag" #-}- _namesInontSet- {-# LINE 1857 "Transform.hs" #-}- )- -- "Transform.ag"(line 545, column 11)- _lhsOcollectedConstructorsMap =- ({-# LINE 545 "Transform.ag" #-}- Map.fromList- [ (n, _altsIcollectedConstructorNames)- | n <- Set.toList _namesInontSet- ]- {-# LINE 1866 "Transform.hs" #-}- )- -- "Transform.ag"(line 816, column 7)- _lhsOparamsCollect =- ({-# LINE 816 "Transform.ag" #-}- if null params_- then Map.empty- else Map.fromList [(nt, params_) | nt <- Set.toList _namesInontSet]- {-# LINE 1874 "Transform.hs" #-}- )- -- "Transform.ag"(line 839, column 7)- _lhsOctxCollect =- ({-# LINE 839 "Transform.ag" #-}- if null ctx_- then Map.empty- else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]- {-# LINE 1882 "Transform.hs" #-}- )- -- "Transform.ag"(line 882, column 10)- _attrsOnts =- ({-# LINE 882 "Transform.ag" #-}- _namesInontSet- {-# LINE 1888 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 780, column 55)- _lhsOattrOrderCollect =- ({-# LINE 780 "Transform.ag" #-}- Map.empty- {-# LINE 1894 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 44, column 19)- _lhsOblocks =- ({-# LINE 44 "Transform.ag" #-}- Map.empty- {-# LINE 1900 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedArounds =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 1906 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedAugments =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 1912 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 124, column 28)- _lhsOcollectedFields =- ({-# LINE 124 "Transform.ag" #-}- _altsIcollectedFields- {-# LINE 1918 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedInsts =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 1924 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedMerges =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 1930 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- _namesIcollectedNames- {-# LINE 1936 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 150, column 32)- _lhsOcollectedRules =- ({-# LINE 150 "Transform.ag" #-}- []- {-# LINE 1942 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 84, column 50)- _lhsOcollectedSetNames =- ({-# LINE 84 "Transform.ag" #-}- Set.empty- {-# LINE 1948 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedSigs =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 1954 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedUniques =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 1960 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 860, column 33)- _lhsOderivings =- ({-# LINE 860 "Transform.ag" #-}- Map.empty- {-# LINE 1966 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- _namesIerrors Seq.>< _attrsIerrors- {-# LINE 1972 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1041, column 37)- _lhsOmoduleDecl =- ({-# LINE 1041 "Transform.ag" #-}- mzero- {-# LINE 1978 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 706, column 34)- _lhsOpragmas =- ({-# LINE 706 "Transform.ag" #-}- id- {-# LINE 1984 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 752, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 752 "Transform.ag" #-}- Map.empty- {-# LINE 1990 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 566, column 32)- _lhsOtypeSyns =- ({-# LINE 566 "Transform.ag" #-}- []- {-# LINE 1996 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 136, column 15)- _lhsOuseMap =- ({-# LINE 136 "Transform.ag" #-}- _attrsIuseMap- {-# LINE 2002 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 697, column 32)- _lhsOwrappers =- ({-# LINE 697 "Transform.ag" #-}- Set.empty- {-# LINE 2008 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _attrsIattrDecls- {-# LINE 2014 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 103 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2020 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 2026 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2032 "Transform.hs" #-}- )- -- copy rule (down)- _namesOdefinedSets =- ({-# LINE 106 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 2038 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 2044 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2050 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2056 "Transform.hs" #-}- )- -- copy rule (down)- _altsOallConstructors =- ({-# LINE 95 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 2062 "Transform.hs" #-}- )- -- copy rule (down)- _altsOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2068 "Transform.hs" #-}- )- ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =- names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =- attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts - ( _altsIcollectedConstructorNames,_altsIcollectedFields) =- alts_ _altsOallConstructors _altsOallNonterminals _altsOnts - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Deriving :: Pos ->- T_NontSet ->- ([NontermIdent]) ->- T_Elem -sem_Elem_Deriving pos_ (T_NontSet set_ ) classes_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets ->- (let _lhsOderivings :: Derivings- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _setOallFields :: DataTypes- _setOallNonterminals :: (Set NontermIdent)- _setOdefinedSets :: DefinedSets- _setIcollectedNames :: (Set Identifier)- _setIerrors :: (Seq Error)- _setInontSet :: (Set NontermIdent)- -- "Transform.ag"(line 867, column 14)- _lhsOderivings =- ({-# LINE 867 "Transform.ag" #-}- Map.fromList [(nt,Set.fromList classes_) | nt <- Set.toList _setInontSet]- {-# LINE 2124 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 780, column 55)- _lhsOattrOrderCollect =- ({-# LINE 780 "Transform.ag" #-}- Map.empty- {-# LINE 2130 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 44, column 19)- _lhsOblocks =- ({-# LINE 44 "Transform.ag" #-}- Map.empty- {-# LINE 2136 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedArounds =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 2142 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedAugments =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 2148 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 93 "Transform.ag" #-}- Map.empty- {-# LINE 2154 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 124, column 28)- _lhsOcollectedFields =- ({-# LINE 124 "Transform.ag" #-}- []- {-# LINE 2160 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedInsts =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 2166 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedMerges =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 2172 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- _setIcollectedNames- {-# LINE 2178 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 150, column 32)- _lhsOcollectedRules =- ({-# LINE 150 "Transform.ag" #-}- []- {-# LINE 2184 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 84, column 50)- _lhsOcollectedSetNames =- ({-# LINE 84 "Transform.ag" #-}- Set.empty- {-# LINE 2190 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedSigs =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 2196 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedUniques =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 2202 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 835, column 34)- _lhsOctxCollect =- ({-# LINE 835 "Transform.ag" #-}- Map.empty- {-# LINE 2208 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- _setIerrors- {-# LINE 2214 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1041, column 37)- _lhsOmoduleDecl =- ({-# LINE 1041 "Transform.ag" #-}- mzero- {-# LINE 2220 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 812, column 37)- _lhsOparamsCollect =- ({-# LINE 812 "Transform.ag" #-}- Map.empty- {-# LINE 2226 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 706, column 34)- _lhsOpragmas =- ({-# LINE 706 "Transform.ag" #-}- id- {-# LINE 2232 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 752, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 752 "Transform.ag" #-}- Map.empty- {-# LINE 2238 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 566, column 32)- _lhsOtypeSyns =- ({-# LINE 566 "Transform.ag" #-}- []- {-# LINE 2244 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 136, column 15)- _lhsOuseMap =- ({-# LINE 136 "Transform.ag" #-}- Map.empty- {-# LINE 2250 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 697, column 32)- _lhsOwrappers =- ({-# LINE 697 "Transform.ag" #-}- Set.empty- {-# LINE 2256 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2262 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 103 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2268 "Transform.hs" #-}- )- -- copy rule (down)- _setOallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 2274 "Transform.hs" #-}- )- -- copy rule (down)- _setOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2280 "Transform.hs" #-}- )- -- copy rule (down)- _setOdefinedSets =- ({-# LINE 106 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 2286 "Transform.hs" #-}- )- ( _setIcollectedNames,_setIerrors,_setInontSet) =- set_ _setOallFields _setOallNonterminals _setOdefinedSets - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Module :: Pos ->- String ->- String ->- String ->- T_Elem -sem_Elem_Module pos_ name_ exports_ imports_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets ->- (let _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "Transform.ag"(line 1045, column 7)- _lhsOmoduleDecl =- ({-# LINE 1045 "Transform.ag" #-}- Just (name_, exports_, imports_)- {-# LINE 2333 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 780, column 55)- _lhsOattrOrderCollect =- ({-# LINE 780 "Transform.ag" #-}- Map.empty- {-# LINE 2339 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 44, column 19)- _lhsOblocks =- ({-# LINE 44 "Transform.ag" #-}- Map.empty- {-# LINE 2345 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedArounds =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 2351 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedAugments =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 2357 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 93 "Transform.ag" #-}- Map.empty- {-# LINE 2363 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 124, column 28)- _lhsOcollectedFields =- ({-# LINE 124 "Transform.ag" #-}- []- {-# LINE 2369 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedInsts =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 2375 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedMerges =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 2381 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 2387 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 150, column 32)- _lhsOcollectedRules =- ({-# LINE 150 "Transform.ag" #-}- []- {-# LINE 2393 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 84, column 50)- _lhsOcollectedSetNames =- ({-# LINE 84 "Transform.ag" #-}- Set.empty- {-# LINE 2399 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedSigs =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 2405 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedUniques =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 2411 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 835, column 34)- _lhsOctxCollect =- ({-# LINE 835 "Transform.ag" #-}- Map.empty- {-# LINE 2417 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 860, column 33)- _lhsOderivings =- ({-# LINE 860 "Transform.ag" #-}- Map.empty- {-# LINE 2423 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- Seq.empty- {-# LINE 2429 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 812, column 37)- _lhsOparamsCollect =- ({-# LINE 812 "Transform.ag" #-}- Map.empty- {-# LINE 2435 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 706, column 34)- _lhsOpragmas =- ({-# LINE 706 "Transform.ag" #-}- id- {-# LINE 2441 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 752, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 752 "Transform.ag" #-}- Map.empty- {-# LINE 2447 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 566, column 32)- _lhsOtypeSyns =- ({-# LINE 566 "Transform.ag" #-}- []- {-# LINE 2453 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 136, column 15)- _lhsOuseMap =- ({-# LINE 136 "Transform.ag" #-}- Map.empty- {-# LINE 2459 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 697, column 32)- _lhsOwrappers =- ({-# LINE 697 "Transform.ag" #-}- Set.empty- {-# LINE 2465 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2471 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 103 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2477 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Pragma :: Pos ->- ([NontermIdent]) ->- T_Elem -sem_Elem_Pragma pos_ names_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets ->- (let _lhsOpragmas :: (Options -> Options)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "Transform.ag"(line 709, column 13)- _lhsOpragmas =- ({-# LINE 709 "Transform.ag" #-}- let mk n o = case getName n of- "gencatas" -> o { folds = True }- "nogencatas" -> o { folds = False }- "gendatas" -> o { dataTypes = True }- "nogendatas" -> o { dataTypes = False }- "gensems" -> o { semfuns = True }- "nogensems" -> o { semfuns = False }- "gentypesigs" -> o { typeSigs = True }- "nogentypesigs"-> o { typeSigs = False }- "nocycle" -> o { withCycle = False }- "cycle" -> o { withCycle = True }- "nostrictdata" -> o { strictData = False }- "strictdata" -> o { strictData = True }- "nostrictcase" -> o { strictCases = False }- "strictcase" -> o { strictCases = True }- "strictercase" -> o { strictCases = True, stricterCases = True }- "nostrictwrap" -> o { strictWrap = False }- "strictwrap" -> o { strictWrap = True }- "novisit" -> o { visit = False }- "visit" -> o { visit = True }- "nocase" -> o { cases = False }- "case" -> o { cases = True }- "noseq" -> o { withSeq = False }- "seq" -> o { withSeq = True }- "nounbox" -> o { unbox = False }- "unbox" -> o { unbox = True }- "bangpats" -> o { bangpats = True }- "breadthfirst" -> o { breadthFirst = True }- "breadthfirstStrict" -> o { breadthFirstStrict = True }- "nooptimize" -> o { cases = False , visit = False }- "optimize" -> o { cases = True , visit = True }- "strictsem" -> o { strictSems = True }- "gentraces" -> o { genTraces = True }- "genusetraces" -> o { genUseTraces = True }- "splitsems" -> o { splitSems = True }- "gencostcentres" -> o { genCostCentres = True }- "sepsemmods" -> o { sepSemMods = True }- "genlinepragmas" -> o { genLinePragmas = True }- "newtypes" -> o { newtypes = True }- "nonewtypes" -> o { newtypes = False }- _ -> o- in \o -> foldr mk o names_- {-# LINE 2561 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 780, column 55)- _lhsOattrOrderCollect =- ({-# LINE 780 "Transform.ag" #-}- Map.empty- {-# LINE 2567 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 44, column 19)- _lhsOblocks =- ({-# LINE 44 "Transform.ag" #-}- Map.empty- {-# LINE 2573 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedArounds =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 2579 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedAugments =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 2585 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 93 "Transform.ag" #-}- Map.empty- {-# LINE 2591 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 124, column 28)- _lhsOcollectedFields =- ({-# LINE 124 "Transform.ag" #-}- []- {-# LINE 2597 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedInsts =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 2603 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedMerges =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 2609 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 2615 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 150, column 32)- _lhsOcollectedRules =- ({-# LINE 150 "Transform.ag" #-}- []- {-# LINE 2621 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 84, column 50)- _lhsOcollectedSetNames =- ({-# LINE 84 "Transform.ag" #-}- Set.empty- {-# LINE 2627 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedSigs =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 2633 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedUniques =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 2639 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 835, column 34)- _lhsOctxCollect =- ({-# LINE 835 "Transform.ag" #-}- Map.empty- {-# LINE 2645 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 860, column 33)- _lhsOderivings =- ({-# LINE 860 "Transform.ag" #-}- Map.empty- {-# LINE 2651 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- Seq.empty- {-# LINE 2657 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1041, column 37)- _lhsOmoduleDecl =- ({-# LINE 1041 "Transform.ag" #-}- mzero- {-# LINE 2663 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 812, column 37)- _lhsOparamsCollect =- ({-# LINE 812 "Transform.ag" #-}- Map.empty- {-# LINE 2669 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 752, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 752 "Transform.ag" #-}- Map.empty- {-# LINE 2675 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 566, column 32)- _lhsOtypeSyns =- ({-# LINE 566 "Transform.ag" #-}- []- {-# LINE 2681 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 136, column 15)- _lhsOuseMap =- ({-# LINE 136 "Transform.ag" #-}- Map.empty- {-# LINE 2687 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 697, column 32)- _lhsOwrappers =- ({-# LINE 697 "Transform.ag" #-}- Set.empty- {-# LINE 2693 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2699 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 103 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2705 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Sem :: Pos ->- ClassContext ->- T_NontSet ->- T_Attrs ->- T_SemAlts ->- T_Elem -sem_Elem_Sem pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) (T_SemAlts alts_ ) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets ->- (let _altsOnts :: (Set NontermIdent)- _lhsOctxCollect :: ContextMap- _attrsOnts :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _namesOallFields :: DataTypes- _namesOallNonterminals :: (Set NontermIdent)- _namesOdefinedSets :: DefinedSets- _attrsOallFields :: DataTypes- _attrsOallNonterminals :: (Set NontermIdent)- _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _altsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _altsOallFields :: DataTypes- _namesIcollectedNames :: (Set Identifier)- _namesIerrors :: (Seq Error)- _namesInontSet :: (Set NontermIdent)- _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _attrsIerrors :: (Seq Error)- _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _altsIattrOrderCollect :: AttrOrderMap- _altsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _altsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _altsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _altsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _altsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _altsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _altsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _altsIerrors :: (Seq Error)- _altsIsemPragmasCollect :: PragmaMap- -- "Transform.ag"(line 170, column 10)- _altsOnts =- ({-# LINE 170 "Transform.ag" #-}- _namesInontSet- {-# LINE 2777 "Transform.hs" #-}- )- -- "Transform.ag"(line 839, column 7)- _lhsOctxCollect =- ({-# LINE 839 "Transform.ag" #-}- if null ctx_- then Map.empty- else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]- {-# LINE 2785 "Transform.hs" #-}- )- -- "Transform.ag"(line 884, column 10)- _attrsOnts =- ({-# LINE 884 "Transform.ag" #-}- _namesInontSet- {-# LINE 2791 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 780, column 55)- _lhsOattrOrderCollect =- ({-# LINE 780 "Transform.ag" #-}- _altsIattrOrderCollect- {-# LINE 2797 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 44, column 19)- _lhsOblocks =- ({-# LINE 44 "Transform.ag" #-}- Map.empty- {-# LINE 2803 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedArounds =- ({-# LINE 155 "Transform.ag" #-}- _altsIcollectedArounds- {-# LINE 2809 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedAugments =- ({-# LINE 154 "Transform.ag" #-}- _altsIcollectedAugments- {-# LINE 2815 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 93 "Transform.ag" #-}- Map.empty- {-# LINE 2821 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 124, column 28)- _lhsOcollectedFields =- ({-# LINE 124 "Transform.ag" #-}- []- {-# LINE 2827 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedInsts =- ({-# LINE 152 "Transform.ag" #-}- _altsIcollectedInsts- {-# LINE 2833 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedMerges =- ({-# LINE 156 "Transform.ag" #-}- _altsIcollectedMerges- {-# LINE 2839 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- _namesIcollectedNames- {-# LINE 2845 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 150, column 32)- _lhsOcollectedRules =- ({-# LINE 150 "Transform.ag" #-}- _altsIcollectedRules- {-# LINE 2851 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 84, column 50)- _lhsOcollectedSetNames =- ({-# LINE 84 "Transform.ag" #-}- Set.empty- {-# LINE 2857 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedSigs =- ({-# LINE 151 "Transform.ag" #-}- _altsIcollectedSigs- {-# LINE 2863 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedUniques =- ({-# LINE 153 "Transform.ag" #-}- _altsIcollectedUniques- {-# LINE 2869 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 860, column 33)- _lhsOderivings =- ({-# LINE 860 "Transform.ag" #-}- Map.empty- {-# LINE 2875 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- _namesIerrors Seq.>< _attrsIerrors Seq.>< _altsIerrors- {-# LINE 2881 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1041, column 37)- _lhsOmoduleDecl =- ({-# LINE 1041 "Transform.ag" #-}- mzero- {-# LINE 2887 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 812, column 37)- _lhsOparamsCollect =- ({-# LINE 812 "Transform.ag" #-}- Map.empty- {-# LINE 2893 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 706, column 34)- _lhsOpragmas =- ({-# LINE 706 "Transform.ag" #-}- id- {-# LINE 2899 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 752, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 752 "Transform.ag" #-}- _altsIsemPragmasCollect- {-# LINE 2905 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 566, column 32)- _lhsOtypeSyns =- ({-# LINE 566 "Transform.ag" #-}- []- {-# LINE 2911 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 136, column 15)- _lhsOuseMap =- ({-# LINE 136 "Transform.ag" #-}- _attrsIuseMap- {-# LINE 2917 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 697, column 32)- _lhsOwrappers =- ({-# LINE 697 "Transform.ag" #-}- Set.empty- {-# LINE 2923 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _attrsIattrDecls- {-# LINE 2929 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 103 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 2935 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 2941 "Transform.hs" #-}- )- -- copy rule (down)- _namesOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2947 "Transform.hs" #-}- )- -- copy rule (down)- _namesOdefinedSets =- ({-# LINE 106 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 2953 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 2959 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 2965 "Transform.hs" #-}- )- -- copy rule (down)- _attrsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 2971 "Transform.hs" #-}- )- -- copy rule (down)- _altsOallAttrDecls =- ({-# LINE 781 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 2977 "Transform.hs" #-}- )- -- copy rule (down)- _altsOallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 2983 "Transform.hs" #-}- )- ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =- names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =- attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts - ( _altsIattrOrderCollect,_altsIcollectedArounds,_altsIcollectedAugments,_altsIcollectedInsts,_altsIcollectedMerges,_altsIcollectedRules,_altsIcollectedSigs,_altsIcollectedUniques,_altsIerrors,_altsIsemPragmasCollect) =- alts_ _altsOallAttrDecls _altsOallFields _altsOnts - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Set :: Pos ->- NontermIdent ->- T_NontSet ->- T_Elem -sem_Elem_Set pos_ name_ (T_NontSet set_ ) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets ->- (let _lhsOcollectedSetNames :: (Set Identifier)- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _lhsOerrors :: (Seq Error)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _setOallFields :: DataTypes- _setOallNonterminals :: (Set NontermIdent)- _setOdefinedSets :: DefinedSets- _setIcollectedNames :: (Set Identifier)- _setIerrors :: (Seq Error)- _setInontSet :: (Set NontermIdent)- -- "Transform.ag"(line 522, column 10)- _lhsOcollectedSetNames =- ({-# LINE 522 "Transform.ag" #-}- Set.singleton name_- {-# LINE 3039 "Transform.hs" #-}- )- -- "Transform.ag"(line 629, column 13)- __tup3 =- ({-# LINE 629 "Transform.ag" #-}- let allUsedNames = Set.unions [ maybe (Set.singleton n)- snd- (Map.lookup n _lhsIdefSets)- | n <- Set.toList _setIcollectedNames- ]- (nontSet,e1) | Set.member name_ allUsedNames- = (Set.empty, Seq.singleton(CyclicSet name_))- | otherwise = (_setInontSet, Seq.empty)- (res, e2) = checkDuplicate DupSet name_ (nontSet,Set.insert name_ allUsedNames) _lhsIdefSets- in (res, e1 Seq.>< e2)- {-# LINE 3054 "Transform.hs" #-}- )- -- "Transform.ag"(line 629, column 13)- (_defSets2,_) =- ({-# LINE 629 "Transform.ag" #-}- __tup3- {-# LINE 3060 "Transform.hs" #-}- )- -- "Transform.ag"(line 629, column 13)- (_,_errs) =- ({-# LINE 629 "Transform.ag" #-}- __tup3- {-# LINE 3066 "Transform.hs" #-}- )- -- "Transform.ag"(line 639, column 9)- _lhsOdefSets =- ({-# LINE 639 "Transform.ag" #-}- _defSets2- {-# LINE 3072 "Transform.hs" #-}- )- -- "Transform.ag"(line 639, column 9)- _lhsOerrors =- ({-# LINE 640 "Transform.ag" #-}- _errs >< _setIerrors- {-# LINE 3078 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 780, column 55)- _lhsOattrOrderCollect =- ({-# LINE 780 "Transform.ag" #-}- Map.empty- {-# LINE 3084 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 44, column 19)- _lhsOblocks =- ({-# LINE 44 "Transform.ag" #-}- Map.empty- {-# LINE 3090 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedArounds =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 3096 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedAugments =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 3102 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 93 "Transform.ag" #-}- Map.empty- {-# LINE 3108 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 124, column 28)- _lhsOcollectedFields =- ({-# LINE 124 "Transform.ag" #-}- []- {-# LINE 3114 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedInsts =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 3120 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedMerges =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 3126 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- _setIcollectedNames- {-# LINE 3132 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 150, column 32)- _lhsOcollectedRules =- ({-# LINE 150 "Transform.ag" #-}- []- {-# LINE 3138 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedSigs =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 3144 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedUniques =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 3150 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 835, column 34)- _lhsOctxCollect =- ({-# LINE 835 "Transform.ag" #-}- Map.empty- {-# LINE 3156 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 860, column 33)- _lhsOderivings =- ({-# LINE 860 "Transform.ag" #-}- Map.empty- {-# LINE 3162 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1041, column 37)- _lhsOmoduleDecl =- ({-# LINE 1041 "Transform.ag" #-}- mzero- {-# LINE 3168 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 812, column 37)- _lhsOparamsCollect =- ({-# LINE 812 "Transform.ag" #-}- Map.empty- {-# LINE 3174 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 706, column 34)- _lhsOpragmas =- ({-# LINE 706 "Transform.ag" #-}- id- {-# LINE 3180 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 752, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 752 "Transform.ag" #-}- Map.empty- {-# LINE 3186 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 566, column 32)- _lhsOtypeSyns =- ({-# LINE 566 "Transform.ag" #-}- []- {-# LINE 3192 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 136, column 15)- _lhsOuseMap =- ({-# LINE 136 "Transform.ag" #-}- Map.empty- {-# LINE 3198 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 697, column 32)- _lhsOwrappers =- ({-# LINE 697 "Transform.ag" #-}- Set.empty- {-# LINE 3204 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3210 "Transform.hs" #-}- )- -- copy rule (down)- _setOallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 3216 "Transform.hs" #-}- )- -- copy rule (down)- _setOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 3222 "Transform.hs" #-}- )- -- copy rule (down)- _setOdefinedSets =- ({-# LINE 106 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 3228 "Transform.hs" #-}- )- ( _setIcollectedNames,_setIerrors,_setInontSet) =- set_ _setOallFields _setOallNonterminals _setOdefinedSets - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Txt :: Pos ->- Identifier ->- (Maybe NontermIdent) ->- ([String]) ->- T_Elem -sem_Elem_Txt pos_ name_ mbNt_ lines_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets ->- (let _lhsOblocks :: Blocks- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "Transform.ag"(line 179, column 10)- _blockInfo =- ({-# LINE 179 "Transform.ag" #-}- ( let nm = getName name_- in if nm == "imports"- then BlockImport- else if nm == "optpragmas"- then BlockPragma- else BlockOther- , mbNt_- )- {-# LINE 3282 "Transform.hs" #-}- )- -- "Transform.ag"(line 187, column 10)- _blockValue =- ({-# LINE 187 "Transform.ag" #-}- [(lines_, pos_)]- {-# LINE 3288 "Transform.hs" #-}- )- -- "Transform.ag"(line 188, column 10)- _lhsOblocks =- ({-# LINE 188 "Transform.ag" #-}- Map.singleton _blockInfo _blockValue- {-# LINE 3294 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 780, column 55)- _lhsOattrOrderCollect =- ({-# LINE 780 "Transform.ag" #-}- Map.empty- {-# LINE 3300 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedArounds =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 3306 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedAugments =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 3312 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 93 "Transform.ag" #-}- Map.empty- {-# LINE 3318 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 124, column 28)- _lhsOcollectedFields =- ({-# LINE 124 "Transform.ag" #-}- []- {-# LINE 3324 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedInsts =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 3330 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedMerges =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 3336 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 3342 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 150, column 32)- _lhsOcollectedRules =- ({-# LINE 150 "Transform.ag" #-}- []- {-# LINE 3348 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 84, column 50)- _lhsOcollectedSetNames =- ({-# LINE 84 "Transform.ag" #-}- Set.empty- {-# LINE 3354 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedSigs =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 3360 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedUniques =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 3366 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 835, column 34)- _lhsOctxCollect =- ({-# LINE 835 "Transform.ag" #-}- Map.empty- {-# LINE 3372 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 860, column 33)- _lhsOderivings =- ({-# LINE 860 "Transform.ag" #-}- Map.empty- {-# LINE 3378 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- Seq.empty- {-# LINE 3384 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1041, column 37)- _lhsOmoduleDecl =- ({-# LINE 1041 "Transform.ag" #-}- mzero- {-# LINE 3390 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 812, column 37)- _lhsOparamsCollect =- ({-# LINE 812 "Transform.ag" #-}- Map.empty- {-# LINE 3396 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 706, column 34)- _lhsOpragmas =- ({-# LINE 706 "Transform.ag" #-}- id- {-# LINE 3402 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 752, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 752 "Transform.ag" #-}- Map.empty- {-# LINE 3408 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 566, column 32)- _lhsOtypeSyns =- ({-# LINE 566 "Transform.ag" #-}- []- {-# LINE 3414 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 136, column 15)- _lhsOuseMap =- ({-# LINE 136 "Transform.ag" #-}- Map.empty- {-# LINE 3420 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 697, column 32)- _lhsOwrappers =- ({-# LINE 697 "Transform.ag" #-}- Set.empty- {-# LINE 3426 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3432 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 103 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 3438 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Type :: Pos ->- ClassContext ->- NontermIdent ->- ([Identifier]) ->- ComplexType ->- T_Elem -sem_Elem_Type pos_ ctx_ name_ params_ type_ =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets ->- (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedNames :: (Set Identifier)- _lhsOtypeSyns :: TypeSyns- _lhsOparamsCollect :: ParamMap- _lhsOctxCollect :: ContextMap- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- "Transform.ag"(line 241, column 10)- _lhsOcollectedFields =- ({-# LINE 241 "Transform.ag" #-}- map (\(x,y)->(name_, x, y)) _expanded- {-# LINE 3484 "Transform.hs" #-}- )- -- "Transform.ag"(line 525, column 11)- _lhsOcollectedNames =- ({-# LINE 525 "Transform.ag" #-}- Set.singleton name_- {-# LINE 3490 "Transform.hs" #-}- )- -- "Transform.ag"(line 579, column 11)- _expanded =- ({-# LINE 579 "Transform.ag" #-}- case _argType of- List tp -> [(Ident "Cons" pos_, [(Ident "hd" pos_, tp)- ,(Ident "tl" pos_, NT name_ (map getName params_))- ]- )- ,(Ident "Nil" pos_, [])- ]- Maybe tp -> [(Ident "Just" pos_, [(Ident "just" pos_, tp)- ]- )- ,(Ident "Nothing" pos_, [])- ]- Either tp1 tp2 -> [- (Ident "Left" pos_, [(Ident "left" pos_, tp1) ])- , (Ident "Right" pos_, [(Ident "right" pos_, tp2) ])- ]- Map tp1 tp2 -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, tp1)- , (Ident "val" pos_, tp2)- , (Ident "tl" pos_, NT name_ (map getName params_))- ])- , (Ident "Nil" pos_, [])- ]- IntMap tp -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, Haskell "Int")- , (Ident "val" pos_, tp)- , (Ident "tl" pos_, NT name_ (map getName params_))- ])- , (Ident "Nil" pos_, [])- ]- Tuple xs -> [(Ident "Tuple" pos_, xs)]- {-# LINE 3524 "Transform.hs" #-}- )- -- "Transform.ag"(line 608, column 11)- _argType =- ({-# LINE 608 "Transform.ag" #-}- case type_ of- Maybe tp -> Maybe ( makeType _lhsIallNonterminals tp)- Either tp1 tp2 -> Either ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2)- List tp -> List ( makeType _lhsIallNonterminals tp)- Tuple xs -> Tuple [(f,makeType _lhsIallNonterminals tp) | (f,tp) <- xs]- Map tp1 tp2 -> Map ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2)- IntMap tp -> IntMap ( makeType _lhsIallNonterminals tp)- {-# LINE 3536 "Transform.hs" #-}- )- -- "Transform.ag"(line 615, column 11)- _lhsOtypeSyns =- ({-# LINE 615 "Transform.ag" #-}- [(name_,_argType)]- {-# LINE 3542 "Transform.hs" #-}- )- -- "Transform.ag"(line 822, column 7)- _lhsOparamsCollect =- ({-# LINE 822 "Transform.ag" #-}- if null params_- then Map.empty- else Map.singleton name_ params_- {-# LINE 3550 "Transform.hs" #-}- )- -- "Transform.ag"(line 845, column 7)- _lhsOctxCollect =- ({-# LINE 845 "Transform.ag" #-}- if null ctx_- then Map.empty- else Map.singleton name_ ctx_- {-# LINE 3558 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 780, column 55)- _lhsOattrOrderCollect =- ({-# LINE 780 "Transform.ag" #-}- Map.empty- {-# LINE 3564 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 44, column 19)- _lhsOblocks =- ({-# LINE 44 "Transform.ag" #-}- Map.empty- {-# LINE 3570 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedArounds =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 3576 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedAugments =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 3582 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 93 "Transform.ag" #-}- Map.empty- {-# LINE 3588 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedInsts =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 3594 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedMerges =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 3600 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 150, column 32)- _lhsOcollectedRules =- ({-# LINE 150 "Transform.ag" #-}- []- {-# LINE 3606 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 84, column 50)- _lhsOcollectedSetNames =- ({-# LINE 84 "Transform.ag" #-}- Set.empty- {-# LINE 3612 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedSigs =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 3618 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedUniques =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 3624 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 860, column 33)- _lhsOderivings =- ({-# LINE 860 "Transform.ag" #-}- Map.empty- {-# LINE 3630 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- Seq.empty- {-# LINE 3636 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1041, column 37)- _lhsOmoduleDecl =- ({-# LINE 1041 "Transform.ag" #-}- mzero- {-# LINE 3642 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 706, column 34)- _lhsOpragmas =- ({-# LINE 706 "Transform.ag" #-}- id- {-# LINE 3648 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 752, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 752 "Transform.ag" #-}- Map.empty- {-# LINE 3654 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 136, column 15)- _lhsOuseMap =- ({-# LINE 136 "Transform.ag" #-}- Map.empty- {-# LINE 3660 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 697, column 32)- _lhsOwrappers =- ({-# LINE 697 "Transform.ag" #-}- Set.empty- {-# LINE 3666 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3672 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 103 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 3678 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elem_Wrapper :: Pos ->- T_NontSet ->- T_Elem -sem_Elem_Wrapper pos_ (T_NontSet set_ ) =- (T_Elem (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets ->- (let _lhsOwrappers :: (Set NontermIdent)- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _setOallFields :: DataTypes- _setOallNonterminals :: (Set NontermIdent)- _setOdefinedSets :: DefinedSets- _setIcollectedNames :: (Set Identifier)- _setIerrors :: (Seq Error)- _setInontSet :: (Set NontermIdent)- -- "Transform.ag"(line 700, column 13)- _lhsOwrappers =- ({-# LINE 700 "Transform.ag" #-}- _setInontSet- {-# LINE 3727 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 780, column 55)- _lhsOattrOrderCollect =- ({-# LINE 780 "Transform.ag" #-}- Map.empty- {-# LINE 3733 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 44, column 19)- _lhsOblocks =- ({-# LINE 44 "Transform.ag" #-}- Map.empty- {-# LINE 3739 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedArounds =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 3745 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedAugments =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 3751 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 93 "Transform.ag" #-}- Map.empty- {-# LINE 3757 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 124, column 28)- _lhsOcollectedFields =- ({-# LINE 124 "Transform.ag" #-}- []- {-# LINE 3763 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedInsts =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 3769 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedMerges =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 3775 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- _setIcollectedNames- {-# LINE 3781 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 150, column 32)- _lhsOcollectedRules =- ({-# LINE 150 "Transform.ag" #-}- []- {-# LINE 3787 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 84, column 50)- _lhsOcollectedSetNames =- ({-# LINE 84 "Transform.ag" #-}- Set.empty- {-# LINE 3793 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedSigs =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 3799 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedUniques =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 3805 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 835, column 34)- _lhsOctxCollect =- ({-# LINE 835 "Transform.ag" #-}- Map.empty- {-# LINE 3811 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 860, column 33)- _lhsOderivings =- ({-# LINE 860 "Transform.ag" #-}- Map.empty- {-# LINE 3817 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- _setIerrors- {-# LINE 3823 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1041, column 37)- _lhsOmoduleDecl =- ({-# LINE 1041 "Transform.ag" #-}- mzero- {-# LINE 3829 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 812, column 37)- _lhsOparamsCollect =- ({-# LINE 812 "Transform.ag" #-}- Map.empty- {-# LINE 3835 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 706, column 34)- _lhsOpragmas =- ({-# LINE 706 "Transform.ag" #-}- id- {-# LINE 3841 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 752, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 752 "Transform.ag" #-}- Map.empty- {-# LINE 3847 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 566, column 32)- _lhsOtypeSyns =- ({-# LINE 566 "Transform.ag" #-}- []- {-# LINE 3853 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 136, column 15)- _lhsOuseMap =- ({-# LINE 136 "Transform.ag" #-}- Map.empty- {-# LINE 3859 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 3865 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 103 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 3871 "Transform.hs" #-}- )- -- copy rule (down)- _setOallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 3877 "Transform.hs" #-}- )- -- copy rule (down)- _setOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 3883 "Transform.hs" #-}- )- -- copy rule (down)- _setOdefinedSets =- ({-# LINE 106 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 3889 "Transform.hs" #-}- )- ( _setIcollectedNames,_setIerrors,_setInontSet) =- set_ _setOallFields _setOallNonterminals _setOdefinedSets - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )--- Elems --------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allConstructors : Map NontermIdent (Set ConstructorIdent)- allFields : DataTypes- allNonterminals : Set NontermIdent- definedSets : DefinedSets- chained attributes:- attrDecls : Map NontermIdent (Attributes, Attributes)- defSets : Map Identifier (Set NontermIdent,Set Identifier)- synthesized attributes:- attrOrderCollect : AttrOrderMap- blocks : Blocks- collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]- collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]- collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)- collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]- collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]- collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]- collectedNames : Set Identifier- collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]- collectedSetNames : Set Identifier- collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]- collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]- ctxCollect : ContextMap- derivings : Derivings- errors : Seq Error- moduleDecl : Maybe (String,String,String)- paramsCollect : ParamMap- pragmas : Options -> Options- semPragmasCollect : PragmaMap- typeSyns : TypeSyns- useMap : Map NontermIdent (Map Identifier (String,String,String))- wrappers : Set NontermIdent- alternatives:- alternative Cons:- child hd : Elem - child tl : Elems - alternative Nil:--}--- cata-sem_Elems :: Elems ->- T_Elems -sem_Elems list =- (Prelude.foldr sem_Elems_Cons sem_Elems_Nil (Prelude.map sem_Elem list) )--- semantic domain-newtype T_Elems = T_Elems ((Map NontermIdent (Attributes, Attributes)) ->- (Map NontermIdent (Set ConstructorIdent)) ->- DataTypes ->- (Set NontermIdent) ->- (Map NontermIdent (Attributes, Attributes)) ->- (Map Identifier (Set NontermIdent,Set Identifier)) ->- DefinedSets ->- ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))-data Inh_Elems = Inh_Elems {allAttrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elems :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elems :: !(DataTypes),allNonterminals_Inh_Elems :: !((Set NontermIdent)),attrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elems :: !(DefinedSets)}-data Syn_Elems = Syn_Elems {attrDecls_Syn_Elems :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elems :: !(AttrOrderMap),blocks_Syn_Elems :: !(Blocks),collectedArounds_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elems :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elems :: !((Set Identifier)),collectedRules_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elems :: !((Set Identifier)),collectedSigs_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elems :: !(ContextMap),defSets_Syn_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elems :: !(Derivings),errors_Syn_Elems :: !((Seq Error)),moduleDecl_Syn_Elems :: !((Maybe (String,String,String))),paramsCollect_Syn_Elems :: !(ParamMap),pragmas_Syn_Elems :: !((Options -> Options)),semPragmasCollect_Syn_Elems :: !(PragmaMap),typeSyns_Syn_Elems :: !(TypeSyns),useMap_Syn_Elems :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elems :: !((Set NontermIdent))}-wrap_Elems :: T_Elems ->- Inh_Elems ->- Syn_Elems -wrap_Elems (T_Elems sem ) (Inh_Elems _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets ) =- (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets - in (Syn_Elems _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers ))-sem_Elems_Cons :: T_Elem ->- T_Elems ->- T_Elems -sem_Elems_Cons (T_Elem hd_ ) (T_Elems tl_ ) =- (T_Elems (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets ->- (let _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _hdOallFields :: DataTypes- _hdOallNonterminals :: (Set NontermIdent)- _hdOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _hdOdefinedSets :: DefinedSets- _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))- _tlOallFields :: DataTypes- _tlOallNonterminals :: (Set NontermIdent)- _tlOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _tlOdefinedSets :: DefinedSets- _hdIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdIattrOrderCollect :: AttrOrderMap- _hdIblocks :: Blocks- _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _hdIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _hdIcollectedNames :: (Set Identifier)- _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _hdIcollectedSetNames :: (Set Identifier)- _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _hdIctxCollect :: ContextMap- _hdIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _hdIderivings :: Derivings- _hdIerrors :: (Seq Error)- _hdImoduleDecl :: (Maybe (String,String,String))- _hdIparamsCollect :: ParamMap- _hdIpragmas :: (Options -> Options)- _hdIsemPragmasCollect :: PragmaMap- _hdItypeSyns :: TypeSyns- _hdIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _hdIwrappers :: (Set NontermIdent)- _tlIattrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlIattrOrderCollect :: AttrOrderMap- _tlIblocks :: Blocks- _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _tlIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _tlIcollectedNames :: (Set Identifier)- _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _tlIcollectedSetNames :: (Set Identifier)- _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _tlIctxCollect :: ContextMap- _tlIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- _tlIderivings :: Derivings- _tlIerrors :: (Seq Error)- _tlImoduleDecl :: (Maybe (String,String,String))- _tlIparamsCollect :: ParamMap- _tlIpragmas :: (Options -> Options)- _tlIsemPragmasCollect :: PragmaMap- _tlItypeSyns :: TypeSyns- _tlIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _tlIwrappers :: (Set NontermIdent)- -- use rule "Transform.ag"(line 780, column 55)- _lhsOattrOrderCollect =- ({-# LINE 780 "Transform.ag" #-}- _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect- {-# LINE 4062 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 44, column 19)- _lhsOblocks =- ({-# LINE 44 "Transform.ag" #-}- _hdIblocks `mapUnionWithPlusPlus` _tlIblocks- {-# LINE 4068 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedArounds =- ({-# LINE 155 "Transform.ag" #-}- _hdIcollectedArounds ++ _tlIcollectedArounds- {-# LINE 4074 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedAugments =- ({-# LINE 154 "Transform.ag" #-}- _hdIcollectedAugments ++ _tlIcollectedAugments- {-# LINE 4080 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 93 "Transform.ag" #-}- _hdIcollectedConstructorsMap `mapUnionWithSetUnion` _tlIcollectedConstructorsMap- {-# LINE 4086 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 124, column 28)- _lhsOcollectedFields =- ({-# LINE 124 "Transform.ag" #-}- _hdIcollectedFields ++ _tlIcollectedFields- {-# LINE 4092 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedInsts =- ({-# LINE 152 "Transform.ag" #-}- _hdIcollectedInsts ++ _tlIcollectedInsts- {-# LINE 4098 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedMerges =- ({-# LINE 156 "Transform.ag" #-}- _hdIcollectedMerges ++ _tlIcollectedMerges- {-# LINE 4104 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- _hdIcollectedNames `Set.union` _tlIcollectedNames- {-# LINE 4110 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 150, column 32)- _lhsOcollectedRules =- ({-# LINE 150 "Transform.ag" #-}- _hdIcollectedRules ++ _tlIcollectedRules- {-# LINE 4116 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 84, column 50)- _lhsOcollectedSetNames =- ({-# LINE 84 "Transform.ag" #-}- _hdIcollectedSetNames `Set.union` _tlIcollectedSetNames- {-# LINE 4122 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedSigs =- ({-# LINE 151 "Transform.ag" #-}- _hdIcollectedSigs ++ _tlIcollectedSigs- {-# LINE 4128 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedUniques =- ({-# LINE 153 "Transform.ag" #-}- _hdIcollectedUniques ++ _tlIcollectedUniques- {-# LINE 4134 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 835, column 34)- _lhsOctxCollect =- ({-# LINE 835 "Transform.ag" #-}- _hdIctxCollect `mergeCtx` _tlIctxCollect- {-# LINE 4140 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 860, column 33)- _lhsOderivings =- ({-# LINE 860 "Transform.ag" #-}- _hdIderivings `mergeDerivings` _tlIderivings- {-# LINE 4146 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 4152 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1041, column 37)- _lhsOmoduleDecl =- ({-# LINE 1041 "Transform.ag" #-}- _hdImoduleDecl `mplus` _tlImoduleDecl- {-# LINE 4158 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 812, column 37)- _lhsOparamsCollect =- ({-# LINE 812 "Transform.ag" #-}- _hdIparamsCollect `mergeParams` _tlIparamsCollect- {-# LINE 4164 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 706, column 34)- _lhsOpragmas =- ({-# LINE 706 "Transform.ag" #-}- _hdIpragmas . _tlIpragmas- {-# LINE 4170 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 752, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 752 "Transform.ag" #-}- _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect- {-# LINE 4176 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 566, column 32)- _lhsOtypeSyns =- ({-# LINE 566 "Transform.ag" #-}- _hdItypeSyns ++ _tlItypeSyns- {-# LINE 4182 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 136, column 15)- _lhsOuseMap =- ({-# LINE 136 "Transform.ag" #-}- _hdIuseMap `merge` _tlIuseMap- {-# LINE 4188 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 697, column 32)- _lhsOwrappers =- ({-# LINE 697 "Transform.ag" #-}- _hdIwrappers `Set.union` _tlIwrappers- {-# LINE 4194 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _tlIattrDecls- {-# LINE 4200 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOdefSets =- ({-# LINE 103 "Transform.ag" #-}- _tlIdefSets- {-# LINE 4206 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallAttrDecls =- ({-# LINE 781 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 4212 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallConstructors =- ({-# LINE 95 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 4218 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4224 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4230 "Transform.hs" #-}- )- -- copy rule (down)- _hdOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 4236 "Transform.hs" #-}- )- -- copy rule (down)- _hdOdefSets =- ({-# LINE 103 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 4242 "Transform.hs" #-}- )- -- copy rule (down)- _hdOdefinedSets =- ({-# LINE 106 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4248 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallAttrDecls =- ({-# LINE 781 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 4254 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallConstructors =- ({-# LINE 95 "Transform.ag" #-}- _lhsIallConstructors- {-# LINE 4260 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4266 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4272 "Transform.hs" #-}- )- -- copy rule (chain)- _tlOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _hdIattrDecls- {-# LINE 4278 "Transform.hs" #-}- )- -- copy rule (chain)- _tlOdefSets =- ({-# LINE 103 "Transform.ag" #-}- _hdIdefSets- {-# LINE 4284 "Transform.hs" #-}- )- -- copy rule (down)- _tlOdefinedSets =- ({-# LINE 106 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4290 "Transform.hs" #-}- )- ( _hdIattrDecls,_hdIattrOrderCollect,_hdIblocks,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedConstructorsMap,_hdIcollectedFields,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedNames,_hdIcollectedRules,_hdIcollectedSetNames,_hdIcollectedSigs,_hdIcollectedUniques,_hdIctxCollect,_hdIdefSets,_hdIderivings,_hdIerrors,_hdImoduleDecl,_hdIparamsCollect,_hdIpragmas,_hdIsemPragmasCollect,_hdItypeSyns,_hdIuseMap,_hdIwrappers) =- hd_ _hdOallAttrDecls _hdOallConstructors _hdOallFields _hdOallNonterminals _hdOattrDecls _hdOdefSets _hdOdefinedSets - ( _tlIattrDecls,_tlIattrOrderCollect,_tlIblocks,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedConstructorsMap,_tlIcollectedFields,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedNames,_tlIcollectedRules,_tlIcollectedSetNames,_tlIcollectedSigs,_tlIcollectedUniques,_tlIctxCollect,_tlIdefSets,_tlIderivings,_tlIerrors,_tlImoduleDecl,_tlIparamsCollect,_tlIpragmas,_tlIsemPragmasCollect,_tlItypeSyns,_tlIuseMap,_tlIwrappers) =- tl_ _tlOallAttrDecls _tlOallConstructors _tlOallFields _tlOallNonterminals _tlOattrDecls _tlOdefSets _tlOdefinedSets - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )-sem_Elems_Nil :: T_Elems -sem_Elems_Nil =- (T_Elems (\ _lhsIallAttrDecls- _lhsIallConstructors- _lhsIallFields- _lhsIallNonterminals- _lhsIattrDecls- _lhsIdefSets- _lhsIdefinedSets ->- (let _lhsOattrOrderCollect :: AttrOrderMap- _lhsOblocks :: Blocks- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))- _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedNames :: (Set Identifier)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSetNames :: (Set Identifier)- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOctxCollect :: ContextMap- _lhsOderivings :: Derivings- _lhsOerrors :: (Seq Error)- _lhsOmoduleDecl :: (Maybe (String,String,String))- _lhsOparamsCollect :: ParamMap- _lhsOpragmas :: (Options -> Options)- _lhsOsemPragmasCollect :: PragmaMap- _lhsOtypeSyns :: TypeSyns- _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))- _lhsOwrappers :: (Set NontermIdent)- _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))- _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))- -- use rule "Transform.ag"(line 780, column 55)- _lhsOattrOrderCollect =- ({-# LINE 780 "Transform.ag" #-}- Map.empty- {-# LINE 4335 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 44, column 19)- _lhsOblocks =- ({-# LINE 44 "Transform.ag" #-}- Map.empty- {-# LINE 4341 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedArounds =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 4347 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedAugments =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 4353 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 93, column 48)- _lhsOcollectedConstructorsMap =- ({-# LINE 93 "Transform.ag" #-}- Map.empty- {-# LINE 4359 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 124, column 28)- _lhsOcollectedFields =- ({-# LINE 124 "Transform.ag" #-}- []- {-# LINE 4365 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedInsts =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 4371 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedMerges =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 4377 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 4383 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 150, column 32)- _lhsOcollectedRules =- ({-# LINE 150 "Transform.ag" #-}- []- {-# LINE 4389 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 84, column 50)- _lhsOcollectedSetNames =- ({-# LINE 84 "Transform.ag" #-}- Set.empty- {-# LINE 4395 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedSigs =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 4401 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedUniques =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 4407 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 835, column 34)- _lhsOctxCollect =- ({-# LINE 835 "Transform.ag" #-}- Map.empty- {-# LINE 4413 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 860, column 33)- _lhsOderivings =- ({-# LINE 860 "Transform.ag" #-}- Map.empty- {-# LINE 4419 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- Seq.empty- {-# LINE 4425 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1041, column 37)- _lhsOmoduleDecl =- ({-# LINE 1041 "Transform.ag" #-}- mzero- {-# LINE 4431 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 812, column 37)- _lhsOparamsCollect =- ({-# LINE 812 "Transform.ag" #-}- Map.empty- {-# LINE 4437 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 706, column 34)- _lhsOpragmas =- ({-# LINE 706 "Transform.ag" #-}- id- {-# LINE 4443 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 752, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 752 "Transform.ag" #-}- Map.empty- {-# LINE 4449 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 566, column 32)- _lhsOtypeSyns =- ({-# LINE 566 "Transform.ag" #-}- []- {-# LINE 4455 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 136, column 15)- _lhsOuseMap =- ({-# LINE 136 "Transform.ag" #-}- Map.empty- {-# LINE 4461 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 697, column 32)- _lhsOwrappers =- ({-# LINE 697 "Transform.ag" #-}- Set.empty- {-# LINE 4467 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOattrDecls =- ({-# LINE 135 "Transform.ag" #-}- _lhsIattrDecls- {-# LINE 4473 "Transform.hs" #-}- )- -- copy rule (chain)- _lhsOdefSets =- ({-# LINE 103 "Transform.ag" #-}- _lhsIdefSets- {-# LINE 4479 "Transform.hs" #-}- )- in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )--- NontSet ------------------------------------------------------{-- visit 0:- inherited attributes:- allFields : DataTypes- allNonterminals : Set NontermIdent- definedSets : DefinedSets- synthesized attributes:- collectedNames : Set Identifier- errors : Seq Error- nontSet : Set NontermIdent- alternatives:- alternative All:- alternative Difference:- child set1 : NontSet - child set2 : NontSet - alternative Intersect:- child set1 : NontSet - child set2 : NontSet - alternative NamedSet:- child name : {NontermIdent}- visit 0:- local _tup4 : _- local nontSet : _- local errors : _- alternative Path:- child from : {NontermIdent}- child to : {NontermIdent}- alternative Union:- child set1 : NontSet - child set2 : NontSet --}--- cata-sem_NontSet :: NontSet ->- T_NontSet -sem_NontSet (All ) =- (sem_NontSet_All )-sem_NontSet (Difference _set1 _set2 ) =- (sem_NontSet_Difference (sem_NontSet _set1 ) (sem_NontSet _set2 ) )-sem_NontSet (Intersect _set1 _set2 ) =- (sem_NontSet_Intersect (sem_NontSet _set1 ) (sem_NontSet _set2 ) )-sem_NontSet (NamedSet _name ) =- (sem_NontSet_NamedSet _name )-sem_NontSet (Path _from _to ) =- (sem_NontSet_Path _from _to )-sem_NontSet (Union _set1 _set2 ) =- (sem_NontSet_Union (sem_NontSet _set1 ) (sem_NontSet _set2 ) )--- semantic domain-newtype T_NontSet = T_NontSet (DataTypes ->- (Set NontermIdent) ->- DefinedSets ->- ( (Set Identifier),(Seq Error),(Set NontermIdent)))-data Inh_NontSet = Inh_NontSet {allFields_Inh_NontSet :: !(DataTypes),allNonterminals_Inh_NontSet :: !((Set NontermIdent)),definedSets_Inh_NontSet :: !(DefinedSets)}-data Syn_NontSet = Syn_NontSet {collectedNames_Syn_NontSet :: !((Set Identifier)),errors_Syn_NontSet :: !((Seq Error)),nontSet_Syn_NontSet :: !((Set NontermIdent))}-wrap_NontSet :: T_NontSet ->- Inh_NontSet ->- Syn_NontSet -wrap_NontSet (T_NontSet sem ) (Inh_NontSet _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets ) =- (let ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet) = sem _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets - in (Syn_NontSet _lhsOcollectedNames _lhsOerrors _lhsOnontSet ))-sem_NontSet_All :: T_NontSet -sem_NontSet_All =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- -- "Transform.ag"(line 643, column 16)- _lhsOnontSet =- ({-# LINE 643 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4554 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 4560 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- Seq.empty- {-# LINE 4566 "Transform.hs" #-}- )- in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_Difference :: T_NontSet ->- T_NontSet ->- T_NontSet -sem_NontSet_Difference (T_NontSet set1_ ) (T_NontSet set2_ ) =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- _set1OallFields :: DataTypes- _set1OallNonterminals :: (Set NontermIdent)- _set1OdefinedSets :: DefinedSets- _set2OallFields :: DataTypes- _set2OallNonterminals :: (Set NontermIdent)- _set2OdefinedSets :: DefinedSets- _set1IcollectedNames :: (Set Identifier)- _set1Ierrors :: (Seq Error)- _set1InontSet :: (Set NontermIdent)- _set2IcollectedNames :: (Set Identifier)- _set2Ierrors :: (Seq Error)- _set2InontSet :: (Set NontermIdent)- -- "Transform.ag"(line 649, column 16)- _lhsOnontSet =- ({-# LINE 649 "Transform.ag" #-}- Set.difference _set1InontSet _set2InontSet- {-# LINE 4595 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- _set1IcollectedNames `Set.union` _set2IcollectedNames- {-# LINE 4601 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 4607 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4613 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4619 "Transform.hs" #-}- )- -- copy rule (down)- _set1OdefinedSets =- ({-# LINE 106 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4625 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4631 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4637 "Transform.hs" #-}- )- -- copy rule (down)- _set2OdefinedSets =- ({-# LINE 106 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4643 "Transform.hs" #-}- )- ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =- set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets - ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =- set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_Intersect :: T_NontSet ->- T_NontSet ->- T_NontSet -sem_NontSet_Intersect (T_NontSet set1_ ) (T_NontSet set2_ ) =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- _set1OallFields :: DataTypes- _set1OallNonterminals :: (Set NontermIdent)- _set1OdefinedSets :: DefinedSets- _set2OallFields :: DataTypes- _set2OallNonterminals :: (Set NontermIdent)- _set2OdefinedSets :: DefinedSets- _set1IcollectedNames :: (Set Identifier)- _set1Ierrors :: (Seq Error)- _set1InontSet :: (Set NontermIdent)- _set2IcollectedNames :: (Set Identifier)- _set2Ierrors :: (Seq Error)- _set2InontSet :: (Set NontermIdent)- -- "Transform.ag"(line 648, column 16)- _lhsOnontSet =- ({-# LINE 648 "Transform.ag" #-}- Set.intersection _set1InontSet _set2InontSet- {-# LINE 4676 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- _set1IcollectedNames `Set.union` _set2IcollectedNames- {-# LINE 4682 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 4688 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4694 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4700 "Transform.hs" #-}- )- -- copy rule (down)- _set1OdefinedSets =- ({-# LINE 106 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4706 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4712 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4718 "Transform.hs" #-}- )- -- copy rule (down)- _set2OdefinedSets =- ({-# LINE 106 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4724 "Transform.hs" #-}- )- ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =- set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets - ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =- set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_NamedSet :: NontermIdent ->- T_NontSet -sem_NontSet_NamedSet name_ =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- _lhsOnontSet :: (Set NontermIdent)- -- "Transform.ag"(line 528, column 14)- _lhsOcollectedNames =- ({-# LINE 528 "Transform.ag" #-}- Set.singleton name_- {-# LINE 4744 "Transform.hs" #-}- )- -- "Transform.ag"(line 644, column 20)- __tup4 =- ({-# LINE 644 "Transform.ag" #-}- case Map.lookup name_ _lhsIdefinedSets of- Nothing -> (Set.empty, Seq.singleton (UndefNont name_))- Just set -> (set, Seq.empty)- {-# LINE 4752 "Transform.hs" #-}- )- -- "Transform.ag"(line 644, column 20)- (_nontSet,_) =- ({-# LINE 644 "Transform.ag" #-}- __tup4- {-# LINE 4758 "Transform.hs" #-}- )- -- "Transform.ag"(line 644, column 20)- (_,_errors) =- ({-# LINE 644 "Transform.ag" #-}- __tup4- {-# LINE 4764 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- _errors- {-# LINE 4770 "Transform.hs" #-}- )- -- copy rule (from local)- _lhsOnontSet =- ({-# LINE 111 "Transform.ag" #-}- _nontSet- {-# LINE 4776 "Transform.hs" #-}- )- in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_Path :: NontermIdent ->- NontermIdent ->- T_NontSet -sem_NontSet_Path from_ to_ =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOerrors :: (Seq Error)- _lhsOcollectedNames :: (Set Identifier)- -- "Transform.ag"(line 650, column 16)- _lhsOnontSet =- ({-# LINE 650 "Transform.ag" #-}- let table = flattenDatas _lhsIallFields- in path table from_ to_- {-# LINE 4794 "Transform.hs" #-}- )- -- "Transform.ag"(line 652, column 16)- _lhsOerrors =- ({-# LINE 652 "Transform.ag" #-}- let check name | Set.member name _lhsIallNonterminals- = Seq.empty- | otherwise = Seq.singleton (UndefNont name)- in check from_ >< check to_- {-# LINE 4803 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- Set.empty- {-# LINE 4809 "Transform.hs" #-}- )- in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )-sem_NontSet_Union :: T_NontSet ->- T_NontSet ->- T_NontSet -sem_NontSet_Union (T_NontSet set1_ ) (T_NontSet set2_ ) =- (T_NontSet (\ _lhsIallFields- _lhsIallNonterminals- _lhsIdefinedSets ->- (let _lhsOnontSet :: (Set NontermIdent)- _lhsOcollectedNames :: (Set Identifier)- _lhsOerrors :: (Seq Error)- _set1OallFields :: DataTypes- _set1OallNonterminals :: (Set NontermIdent)- _set1OdefinedSets :: DefinedSets- _set2OallFields :: DataTypes- _set2OallNonterminals :: (Set NontermIdent)- _set2OdefinedSets :: DefinedSets- _set1IcollectedNames :: (Set Identifier)- _set1Ierrors :: (Seq Error)- _set1InontSet :: (Set NontermIdent)- _set2IcollectedNames :: (Set Identifier)- _set2Ierrors :: (Seq Error)- _set2InontSet :: (Set NontermIdent)- -- "Transform.ag"(line 647, column 16)- _lhsOnontSet =- ({-# LINE 647 "Transform.ag" #-}- Set.union _set1InontSet _set2InontSet- {-# LINE 4838 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 85, column 50)- _lhsOcollectedNames =- ({-# LINE 85 "Transform.ag" #-}- _set1IcollectedNames `Set.union` _set2IcollectedNames- {-# LINE 4844 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- _set1Ierrors Seq.>< _set2Ierrors- {-# LINE 4850 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4856 "Transform.hs" #-}- )- -- copy rule (down)- _set1OallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4862 "Transform.hs" #-}- )- -- copy rule (down)- _set1OdefinedSets =- ({-# LINE 106 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4868 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 4874 "Transform.hs" #-}- )- -- copy rule (down)- _set2OallNonterminals =- ({-# LINE 87 "Transform.ag" #-}- _lhsIallNonterminals- {-# LINE 4880 "Transform.hs" #-}- )- -- copy rule (down)- _set2OdefinedSets =- ({-# LINE 106 "Transform.ag" #-}- _lhsIdefinedSets- {-# LINE 4886 "Transform.hs" #-}- )- ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =- set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets - ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =- set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )--- Pattern ------------------------------------------------------{-- visit 0:- synthesized attributes:- copy : SELF - definedAttrs : [AttrName]- definedInsts : [Identifier]- patunder : [AttrName]->Pattern- stpos : Pos- alternatives:- alternative Alias:- child field : {Identifier}- child attr : {Identifier}- child pat : Pattern - child parts : Patterns - visit 0:- local copy : _- alternative Constr:- child name : {ConstructorIdent}- child pats : Patterns - visit 0:- local copy : _- alternative Irrefutable:- child pat : Pattern - visit 0:- local copy : _- alternative Product:- child pos : {Pos}- child pats : Patterns - visit 0:- local copy : _- alternative Underscore:- child pos : {Pos}- visit 0:- local copy : _--}--- cata-sem_Pattern :: Pattern ->- T_Pattern -sem_Pattern (Alias _field _attr _pat _parts ) =- (sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) )-sem_Pattern (Constr _name _pats ) =- (sem_Pattern_Constr _name (sem_Patterns _pats ) )-sem_Pattern (Irrefutable _pat ) =- (sem_Pattern_Irrefutable (sem_Pattern _pat ) )-sem_Pattern (Product _pos _pats ) =- (sem_Pattern_Product _pos (sem_Patterns _pats ) )-sem_Pattern (Underscore _pos ) =- (sem_Pattern_Underscore _pos )--- semantic domain-newtype T_Pattern = T_Pattern (( Pattern ,([AttrName]),([Identifier]),([AttrName]->Pattern),Pos))-data Inh_Pattern = Inh_Pattern {}-data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),definedAttrs_Syn_Pattern :: !(([AttrName])),definedInsts_Syn_Pattern :: !(([Identifier])),patunder_Syn_Pattern :: !(([AttrName]->Pattern)),stpos_Syn_Pattern :: !(Pos)}-wrap_Pattern :: T_Pattern ->- Inh_Pattern ->- Syn_Pattern -wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) =- (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos) = sem - in (Syn_Pattern _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder _lhsOstpos ))-sem_Pattern_Alias :: Identifier ->- Identifier ->- T_Pattern ->- T_Patterns ->- T_Pattern -sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) =- (T_Pattern (let _lhsOdefinedAttrs :: ([AttrName])- _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOdefinedInsts :: ([Identifier])- _lhsOstpos :: Pos- _lhsOcopy :: Pattern - _patIcopy :: Pattern - _patIdefinedAttrs :: ([AttrName])- _patIdefinedInsts :: ([Identifier])- _patIpatunder :: ([AttrName]->Pattern)- _patIstpos :: Pos- _partsIcopy :: Patterns - _partsIdefinedAttrs :: ([AttrName])- _partsIdefinedInsts :: ([Identifier])- _partsIpatunder :: ([AttrName]->Patterns)- -- "Transform.ag"(line 1017, column 11)- _lhsOdefinedAttrs =- ({-# LINE 1017 "Transform.ag" #-}- (field_, attr_) : _patIdefinedAttrs- {-# LINE 4976 "Transform.hs" #-}- )- -- "Transform.ag"(line 1018, column 11)- _lhsOpatunder =- ({-# LINE 1018 "Transform.ag" #-}- \us -> if ((field_,attr_) `elem` us) then Underscore noPos else _copy- {-# LINE 4982 "Transform.hs" #-}- )- -- "Transform.ag"(line 1019, column 11)- _lhsOdefinedInsts =- ({-# LINE 1019 "Transform.ag" #-}- (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts- {-# LINE 4988 "Transform.hs" #-}- )- -- "Transform.ag"(line 1034, column 16)- _lhsOstpos =- ({-# LINE 1034 "Transform.ag" #-}- getPos field_- {-# LINE 4994 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Alias field_ attr_ _patIcopy _partsIcopy- {-# LINE 5000 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5006 "Transform.hs" #-}- )- ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =- pat_ - ( _partsIcopy,_partsIdefinedAttrs,_partsIdefinedInsts,_partsIpatunder) =- parts_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )-sem_Pattern_Constr :: ConstructorIdent ->- T_Patterns ->- T_Pattern -sem_Pattern_Constr name_ (T_Patterns pats_ ) =- (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOstpos :: Pos- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Pattern - _patsIcopy :: Patterns - _patsIdefinedAttrs :: ([AttrName])- _patsIdefinedInsts :: ([Identifier])- _patsIpatunder :: ([AttrName]->Patterns)- -- "Transform.ag"(line 1021, column 12)- _lhsOpatunder =- ({-# LINE 1021 "Transform.ag" #-}- \us -> Constr name_ (_patsIpatunder us)- {-# LINE 5030 "Transform.hs" #-}- )- -- "Transform.ag"(line 1032, column 16)- _lhsOstpos =- ({-# LINE 1032 "Transform.ag" #-}- getPos name_- {-# LINE 5036 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1012, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1012 "Transform.ag" #-}- _patsIdefinedAttrs- {-# LINE 5042 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- _patsIdefinedInsts- {-# LINE 5048 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Constr name_ _patsIcopy- {-# LINE 5054 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5060 "Transform.hs" #-}- )- ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) =- pats_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )-sem_Pattern_Irrefutable :: T_Pattern ->- T_Pattern -sem_Pattern_Irrefutable (T_Pattern pat_ ) =- (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Pattern - _lhsOstpos :: Pos- _patIcopy :: Pattern - _patIdefinedAttrs :: ([AttrName])- _patIdefinedInsts :: ([Identifier])- _patIpatunder :: ([AttrName]->Pattern)- _patIstpos :: Pos- -- "Transform.ag"(line 1023, column 17)- _lhsOpatunder =- ({-# LINE 1023 "Transform.ag" #-}- \us -> Irrefutable (_patIpatunder us)- {-# LINE 5082 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1012, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1012 "Transform.ag" #-}- _patIdefinedAttrs- {-# LINE 5088 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- _patIdefinedInsts- {-# LINE 5094 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Irrefutable _patIcopy- {-# LINE 5100 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5106 "Transform.hs" #-}- )- -- copy rule (up)- _lhsOstpos =- ({-# LINE 1029 "Transform.ag" #-}- _patIstpos- {-# LINE 5112 "Transform.hs" #-}- )- ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =- pat_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )-sem_Pattern_Product :: Pos ->- T_Patterns ->- T_Pattern -sem_Pattern_Product pos_ (T_Patterns pats_ ) =- (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOstpos :: Pos- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Pattern - _patsIcopy :: Patterns - _patsIdefinedAttrs :: ([AttrName])- _patsIdefinedInsts :: ([Identifier])- _patsIpatunder :: ([AttrName]->Patterns)- -- "Transform.ag"(line 1022, column 13)- _lhsOpatunder =- ({-# LINE 1022 "Transform.ag" #-}- \us -> Product pos_ (_patsIpatunder us)- {-# LINE 5134 "Transform.hs" #-}- )- -- "Transform.ag"(line 1033, column 16)- _lhsOstpos =- ({-# LINE 1033 "Transform.ag" #-}- pos_- {-# LINE 5140 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1012, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1012 "Transform.ag" #-}- _patsIdefinedAttrs- {-# LINE 5146 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- _patsIdefinedInsts- {-# LINE 5152 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Product pos_ _patsIcopy- {-# LINE 5158 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5164 "Transform.hs" #-}- )- ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) =- pats_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )-sem_Pattern_Underscore :: Pos ->- T_Pattern -sem_Pattern_Underscore pos_ =- (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)- _lhsOstpos :: Pos- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Pattern - -- "Transform.ag"(line 1020, column 16)- _lhsOpatunder =- ({-# LINE 1020 "Transform.ag" #-}- \us -> _copy- {-# LINE 5181 "Transform.hs" #-}- )- -- "Transform.ag"(line 1035, column 16)- _lhsOstpos =- ({-# LINE 1035 "Transform.ag" #-}- pos_- {-# LINE 5187 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1012, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1012 "Transform.ag" #-}- []- {-# LINE 5193 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- []- {-# LINE 5199 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- Underscore pos_- {-# LINE 5205 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5211 "Transform.hs" #-}- )- in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )--- Patterns -----------------------------------------------------{-- visit 0:- synthesized attributes:- copy : SELF - definedAttrs : [AttrName]- definedInsts : [Identifier]- patunder : [AttrName]->Patterns- alternatives:- alternative Cons:- child hd : Pattern - child tl : Patterns - visit 0:- local copy : _- alternative Nil:- visit 0:- local copy : _--}--- cata-sem_Patterns :: Patterns ->- T_Patterns -sem_Patterns list =- (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) )--- semantic domain-newtype T_Patterns = T_Patterns (( Patterns ,([AttrName]),([Identifier]),([AttrName]->Patterns)))-data Inh_Patterns = Inh_Patterns {}-data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),definedAttrs_Syn_Patterns :: !(([AttrName])),definedInsts_Syn_Patterns :: !(([Identifier])),patunder_Syn_Patterns :: !(([AttrName]->Patterns))}-wrap_Patterns :: T_Patterns ->- Inh_Patterns ->- Syn_Patterns -wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) =- (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder) = sem - in (Syn_Patterns _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder ))-sem_Patterns_Cons :: T_Pattern ->- T_Patterns ->- T_Patterns -sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) =- (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns)- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Patterns - _hdIcopy :: Pattern - _hdIdefinedAttrs :: ([AttrName])- _hdIdefinedInsts :: ([Identifier])- _hdIpatunder :: ([AttrName]->Pattern)- _hdIstpos :: Pos- _tlIcopy :: Patterns - _tlIdefinedAttrs :: ([AttrName])- _tlIdefinedInsts :: ([Identifier])- _tlIpatunder :: ([AttrName]->Patterns)- -- "Transform.ag"(line 1027, column 10)- _lhsOpatunder =- ({-# LINE 1027 "Transform.ag" #-}- \us -> (_hdIpatunder us) : (_tlIpatunder us)- {-# LINE 5268 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1012, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1012 "Transform.ag" #-}- _hdIdefinedAttrs ++ _tlIdefinedAttrs- {-# LINE 5274 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- _hdIdefinedInsts ++ _tlIdefinedInsts- {-# LINE 5280 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- (:) _hdIcopy _tlIcopy- {-# LINE 5286 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5292 "Transform.hs" #-}- )- ( _hdIcopy,_hdIdefinedAttrs,_hdIdefinedInsts,_hdIpatunder,_hdIstpos) =- hd_ - ( _tlIcopy,_tlIdefinedAttrs,_tlIdefinedInsts,_tlIpatunder) =- tl_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) )-sem_Patterns_Nil :: T_Patterns -sem_Patterns_Nil =- (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns)- _lhsOdefinedAttrs :: ([AttrName])- _lhsOdefinedInsts :: ([Identifier])- _lhsOcopy :: Patterns - -- "Transform.ag"(line 1026, column 9)- _lhsOpatunder =- ({-# LINE 1026 "Transform.ag" #-}- \us -> []- {-# LINE 5309 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1012, column 42)- _lhsOdefinedAttrs =- ({-# LINE 1012 "Transform.ag" #-}- []- {-# LINE 5315 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- []- {-# LINE 5321 "Transform.hs" #-}- )- -- self rule- _copy =- ({-# LINE 23 "./Patterns.ag" #-}- []- {-# LINE 5327 "Transform.hs" #-}- )- -- self rule- _lhsOcopy =- ({-# LINE 23 "./Patterns.ag" #-}- _copy- {-# LINE 5333 "Transform.hs" #-}- )- in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) )--- SemAlt -------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allFields : DataTypes- nts : Set NontermIdent- synthesized attributes:- attrOrderCollect : AttrOrderMap- collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]- collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]- collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]- collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]- collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]- collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]- collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]- errors : Seq Error- semPragmasCollect : PragmaMap- alternatives:- alternative SemAlt:- child pos : {Pos}- child constructorSet : ConstructorSet - child rules : SemDefs - visit 0:- local pragmaNames : _- local attrOrders : _- local coninfo : _--}--- cata-sem_SemAlt :: SemAlt ->- T_SemAlt -sem_SemAlt (SemAlt _pos _constructorSet _rules ) =- (sem_SemAlt_SemAlt _pos (sem_ConstructorSet _constructorSet ) (sem_SemDefs _rules ) )--- semantic domain-newtype T_SemAlt = T_SemAlt ((Map NontermIdent (Attributes, Attributes)) ->- DataTypes ->- (Set NontermIdent) ->- ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap))-data Inh_SemAlt = Inh_SemAlt {allAttrDecls_Inh_SemAlt :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlt :: !(DataTypes),nts_Inh_SemAlt :: !((Set NontermIdent))}-data Syn_SemAlt = Syn_SemAlt {attrOrderCollect_Syn_SemAlt :: !(AttrOrderMap),collectedArounds_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlt :: !((Seq Error)),semPragmasCollect_Syn_SemAlt :: !(PragmaMap)}-wrap_SemAlt :: T_SemAlt ->- Inh_SemAlt ->- Syn_SemAlt -wrap_SemAlt (T_SemAlt sem ) (Inh_SemAlt _lhsIallAttrDecls _lhsIallFields _lhsInts ) =- (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts - in (Syn_SemAlt _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect ))-sem_SemAlt_SemAlt :: Pos ->- T_ConstructorSet ->- T_SemDefs ->- T_SemAlt -sem_SemAlt_SemAlt pos_ (T_ConstructorSet constructorSet_ ) (T_SemDefs rules_ ) =- (T_SemAlt (\ _lhsIallAttrDecls- _lhsIallFields- _lhsInts ->- (let _lhsOsemPragmasCollect :: PragmaMap- _lhsOattrOrderCollect :: AttrOrderMap- _lhsOerrors :: (Seq Error)- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _constructorSetIcollectedConstructorNames :: (Set ConstructorIdent)- _constructorSetIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))- _constructorSetIerrors :: (Seq Error)- _rulesIaroundInfos :: ([AroundInfo])- _rulesIaugmentInfos :: ([AugmentInfo])- _rulesIdefinedInsts :: ([Identifier])- _rulesImergeInfos :: ([MergeInfo])- _rulesIorderDepsCollect :: (Set Dependency)- _rulesIpragmaNamesCollect :: ([Identifier])- _rulesIruleInfos :: ([RuleInfo])- _rulesIsigInfos :: ([SigInfo])- _rulesIuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 756, column 7)- _pragmaNames =- ({-# LINE 756 "Transform.ag" #-}- Set.fromList _rulesIpragmaNamesCollect- {-# LINE 5416 "Transform.hs" #-}- )- -- "Transform.ag"(line 757, column 7)- _lhsOsemPragmasCollect =- ({-# LINE 757 "Transform.ag" #-}- foldr pragmaMapUnion Map.empty [ pragmaMapSingle nt con _pragmaNames- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5425 "Transform.hs" #-}- )- -- "Transform.ag"(line 785, column 7)- _attrOrders =- ({-# LINE 785 "Transform.ag" #-}- [ orderMapSingle nt con _rulesIorderDepsCollect- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5434 "Transform.hs" #-}- )- -- "Transform.ag"(line 791, column 7)- _lhsOattrOrderCollect =- ({-# LINE 791 "Transform.ag" #-}- foldr orderMapUnion Map.empty _attrOrders- {-# LINE 5440 "Transform.hs" #-}- )- -- "Transform.ag"(line 937, column 12)- _coninfo =- ({-# LINE 937 "Transform.ag" #-}- [ (nt, conset, conkeys)- | nt <- Set.toList _lhsInts- , let conmap = Map.findWithDefault Map.empty nt _lhsIallFields- , let conkeys = Set.fromList (Map.keys conmap)- , let conset = _constructorSetIconstructors conkeys- ]- {-# LINE 5451 "Transform.hs" #-}- )- -- "Transform.ag"(line 944, column 12)- _lhsOerrors =- ({-# LINE 944 "Transform.ag" #-}- Seq.fromList- [ UndefAlt nt con- | (nt, conset, conkeys) <- _coninfo- , con <- Set.toList (Set.difference conset conkeys)- ]- {-# LINE 5461 "Transform.hs" #-}- )- -- "Transform.ag"(line 949, column 12)- _lhsOcollectedRules =- ({-# LINE 949 "Transform.ag" #-}- [ (nt,con,r)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- , r <- _rulesIruleInfos- ]- {-# LINE 5471 "Transform.hs" #-}- )- -- "Transform.ag"(line 955, column 12)- _lhsOcollectedSigs =- ({-# LINE 955 "Transform.ag" #-}- [ (nt,con,ts)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- , ts <- _rulesIsigInfos- ]- {-# LINE 5481 "Transform.hs" #-}- )- -- "Transform.ag"(line 962, column 12)- _lhsOcollectedInsts =- ({-# LINE 962 "Transform.ag" #-}- [ (nt,con,_rulesIdefinedInsts)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5490 "Transform.hs" #-}- )- -- "Transform.ag"(line 968, column 12)- _lhsOcollectedUniques =- ({-# LINE 968 "Transform.ag" #-}- [ (nt,con,_rulesIuniqueInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5499 "Transform.hs" #-}- )- -- "Transform.ag"(line 974, column 12)- _lhsOcollectedAugments =- ({-# LINE 974 "Transform.ag" #-}- [ (nt, con, _rulesIaugmentInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5508 "Transform.hs" #-}- )- -- "Transform.ag"(line 980, column 12)- _lhsOcollectedArounds =- ({-# LINE 980 "Transform.ag" #-}- [ (nt, con, _rulesIaroundInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5517 "Transform.hs" #-}- )- -- "Transform.ag"(line 986, column 12)- _lhsOcollectedMerges =- ({-# LINE 986 "Transform.ag" #-}- [ (nt, con, _rulesImergeInfos)- | (nt, conset, _) <- _coninfo- , con <- Set.toList conset- ]- {-# LINE 5526 "Transform.hs" #-}- )- ( _constructorSetIcollectedConstructorNames,_constructorSetIconstructors,_constructorSetIerrors) =- constructorSet_ - ( _rulesIaroundInfos,_rulesIaugmentInfos,_rulesIdefinedInsts,_rulesImergeInfos,_rulesIorderDepsCollect,_rulesIpragmaNamesCollect,_rulesIruleInfos,_rulesIsigInfos,_rulesIuniqueInfos) =- rules_ - in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )--- SemAlts ------------------------------------------------------{-- visit 0:- inherited attributes:- allAttrDecls : Map NontermIdent (Attributes, Attributes)- allFields : DataTypes- nts : Set NontermIdent- synthesized attributes:- attrOrderCollect : AttrOrderMap- collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]- collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]- collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]- collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]- collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]- collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]- collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]- errors : Seq Error- semPragmasCollect : PragmaMap- alternatives:- alternative Cons:- child hd : SemAlt - child tl : SemAlts - alternative Nil:--}--- cata-sem_SemAlts :: SemAlts ->- T_SemAlts -sem_SemAlts list =- (Prelude.foldr sem_SemAlts_Cons sem_SemAlts_Nil (Prelude.map sem_SemAlt list) )--- semantic domain-newtype T_SemAlts = T_SemAlts ((Map NontermIdent (Attributes, Attributes)) ->- DataTypes ->- (Set NontermIdent) ->- ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap))-data Inh_SemAlts = Inh_SemAlts {allAttrDecls_Inh_SemAlts :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlts :: !(DataTypes),nts_Inh_SemAlts :: !((Set NontermIdent))}-data Syn_SemAlts = Syn_SemAlts {attrOrderCollect_Syn_SemAlts :: !(AttrOrderMap),collectedArounds_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlts :: !((Seq Error)),semPragmasCollect_Syn_SemAlts :: !(PragmaMap)}-wrap_SemAlts :: T_SemAlts ->- Inh_SemAlts ->- Syn_SemAlts -wrap_SemAlts (T_SemAlts sem ) (Inh_SemAlts _lhsIallAttrDecls _lhsIallFields _lhsInts ) =- (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts - in (Syn_SemAlts _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect ))-sem_SemAlts_Cons :: T_SemAlt ->- T_SemAlts ->- T_SemAlts -sem_SemAlts_Cons (T_SemAlt hd_ ) (T_SemAlts tl_ ) =- (T_SemAlts (\ _lhsIallAttrDecls- _lhsIallFields- _lhsInts ->- (let _lhsOattrOrderCollect :: AttrOrderMap- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOerrors :: (Seq Error)- _lhsOsemPragmasCollect :: PragmaMap- _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _hdOallFields :: DataTypes- _hdOnts :: (Set NontermIdent)- _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))- _tlOallFields :: DataTypes- _tlOnts :: (Set NontermIdent)- _hdIattrOrderCollect :: AttrOrderMap- _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _hdIerrors :: (Seq Error)- _hdIsemPragmasCollect :: PragmaMap- _tlIattrOrderCollect :: AttrOrderMap- _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _tlIerrors :: (Seq Error)- _tlIsemPragmasCollect :: PragmaMap- -- use rule "Transform.ag"(line 780, column 55)- _lhsOattrOrderCollect =- ({-# LINE 780 "Transform.ag" #-}- _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect- {-# LINE 5622 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedArounds =- ({-# LINE 155 "Transform.ag" #-}- _hdIcollectedArounds ++ _tlIcollectedArounds- {-# LINE 5628 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedAugments =- ({-# LINE 154 "Transform.ag" #-}- _hdIcollectedAugments ++ _tlIcollectedAugments- {-# LINE 5634 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedInsts =- ({-# LINE 152 "Transform.ag" #-}- _hdIcollectedInsts ++ _tlIcollectedInsts- {-# LINE 5640 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedMerges =- ({-# LINE 156 "Transform.ag" #-}- _hdIcollectedMerges ++ _tlIcollectedMerges- {-# LINE 5646 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 150, column 32)- _lhsOcollectedRules =- ({-# LINE 150 "Transform.ag" #-}- _hdIcollectedRules ++ _tlIcollectedRules- {-# LINE 5652 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedSigs =- ({-# LINE 151 "Transform.ag" #-}- _hdIcollectedSigs ++ _tlIcollectedSigs- {-# LINE 5658 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedUniques =- ({-# LINE 153 "Transform.ag" #-}- _hdIcollectedUniques ++ _tlIcollectedUniques- {-# LINE 5664 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- _hdIerrors Seq.>< _tlIerrors- {-# LINE 5670 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 752, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 752 "Transform.ag" #-}- _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect- {-# LINE 5676 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallAttrDecls =- ({-# LINE 781 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 5682 "Transform.hs" #-}- )- -- copy rule (down)- _hdOallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 5688 "Transform.hs" #-}- )- -- copy rule (down)- _hdOnts =- ({-# LINE 166 "Transform.ag" #-}- _lhsInts- {-# LINE 5694 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallAttrDecls =- ({-# LINE 781 "Transform.ag" #-}- _lhsIallAttrDecls- {-# LINE 5700 "Transform.hs" #-}- )- -- copy rule (down)- _tlOallFields =- ({-# LINE 127 "Transform.ag" #-}- _lhsIallFields- {-# LINE 5706 "Transform.hs" #-}- )- -- copy rule (down)- _tlOnts =- ({-# LINE 166 "Transform.ag" #-}- _lhsInts- {-# LINE 5712 "Transform.hs" #-}- )- ( _hdIattrOrderCollect,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedRules,_hdIcollectedSigs,_hdIcollectedUniques,_hdIerrors,_hdIsemPragmasCollect) =- hd_ _hdOallAttrDecls _hdOallFields _hdOnts - ( _tlIattrOrderCollect,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedRules,_tlIcollectedSigs,_tlIcollectedUniques,_tlIerrors,_tlIsemPragmasCollect) =- tl_ _tlOallAttrDecls _tlOallFields _tlOnts - in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )-sem_SemAlts_Nil :: T_SemAlts -sem_SemAlts_Nil =- (T_SemAlts (\ _lhsIallAttrDecls- _lhsIallFields- _lhsInts ->- (let _lhsOattrOrderCollect :: AttrOrderMap- _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])- _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])- _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])- _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])- _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])- _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])- _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])- _lhsOerrors :: (Seq Error)- _lhsOsemPragmasCollect :: PragmaMap- -- use rule "Transform.ag"(line 780, column 55)- _lhsOattrOrderCollect =- ({-# LINE 780 "Transform.ag" #-}- Map.empty- {-# LINE 5738 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 155, column 32)- _lhsOcollectedArounds =- ({-# LINE 155 "Transform.ag" #-}- []- {-# LINE 5744 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 154, column 32)- _lhsOcollectedAugments =- ({-# LINE 154 "Transform.ag" #-}- []- {-# LINE 5750 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 152, column 32)- _lhsOcollectedInsts =- ({-# LINE 152 "Transform.ag" #-}- []- {-# LINE 5756 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 156, column 32)- _lhsOcollectedMerges =- ({-# LINE 156 "Transform.ag" #-}- []- {-# LINE 5762 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 150, column 32)- _lhsOcollectedRules =- ({-# LINE 150 "Transform.ag" #-}- []- {-# LINE 5768 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 151, column 32)- _lhsOcollectedSigs =- ({-# LINE 151 "Transform.ag" #-}- []- {-# LINE 5774 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 153, column 32)- _lhsOcollectedUniques =- ({-# LINE 153 "Transform.ag" #-}- []- {-# LINE 5780 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 42, column 19)- _lhsOerrors =- ({-# LINE 42 "Transform.ag" #-}- Seq.empty- {-# LINE 5786 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 752, column 56)- _lhsOsemPragmasCollect =- ({-# LINE 752 "Transform.ag" #-}- Map.empty- {-# LINE 5792 "Transform.hs" #-}- )- in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )--- SemDef -------------------------------------------------------{-- visit 0:- synthesized attributes:- aroundInfos : [AroundInfo]- augmentInfos : [AugmentInfo]- definedInsts : [Identifier]- mergeInfos : [MergeInfo]- orderDepsCollect : Set Dependency- pragmaNamesCollect : [Identifier]- ruleInfos : [RuleInfo]- sigInfos : [SigInfo]- uniqueInfos : [UniqueInfo]- alternatives:- alternative AroundDef:- child ident : {Identifier}- child rhs : {Expression}- alternative AttrOrderBefore:- child before : {[Occurrence]}- child after : {[Occurrence]}- visit 0:- local dependency : _- alternative AugmentDef:- child ident : {Identifier}- child rhs : {Expression}- alternative Def:- child pos : {Pos}- child mbName : {Maybe Identifier}- child pattern : Pattern - child rhs : {Expression}- child owrt : {Bool}- alternative MergeDef:- child target : {Identifier}- child nt : {Identifier}- child sources : {[Identifier]}- child rhs : {Expression}- alternative SemPragma:- child names : {[NontermIdent]}- alternative TypeDef:- child ident : {Identifier}- child tp : {Type}- alternative UniqueDef:- child ident : {Identifier}- child ref : {Identifier}--}--- cata-sem_SemDef :: SemDef ->- T_SemDef -sem_SemDef (AroundDef _ident _rhs ) =- (sem_SemDef_AroundDef _ident _rhs )-sem_SemDef (AttrOrderBefore _before _after ) =- (sem_SemDef_AttrOrderBefore _before _after )-sem_SemDef (AugmentDef _ident _rhs ) =- (sem_SemDef_AugmentDef _ident _rhs )-sem_SemDef (Def _pos _mbName _pattern _rhs _owrt ) =- (sem_SemDef_Def _pos _mbName (sem_Pattern _pattern ) _rhs _owrt )-sem_SemDef (MergeDef _target _nt _sources _rhs ) =- (sem_SemDef_MergeDef _target _nt _sources _rhs )-sem_SemDef (SemPragma _names ) =- (sem_SemDef_SemPragma _names )-sem_SemDef (TypeDef _ident _tp ) =- (sem_SemDef_TypeDef _ident _tp )-sem_SemDef (UniqueDef _ident _ref ) =- (sem_SemDef_UniqueDef _ident _ref )--- semantic domain-newtype T_SemDef = T_SemDef (( ([AroundInfo]),([AugmentInfo]),([Identifier]),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo])))-data Inh_SemDef = Inh_SemDef {}-data Syn_SemDef = Syn_SemDef {aroundInfos_Syn_SemDef :: !(([AroundInfo])),augmentInfos_Syn_SemDef :: !(([AugmentInfo])),definedInsts_Syn_SemDef :: !(([Identifier])),mergeInfos_Syn_SemDef :: !(([MergeInfo])),orderDepsCollect_Syn_SemDef :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDef :: !(([Identifier])),ruleInfos_Syn_SemDef :: !(([RuleInfo])),sigInfos_Syn_SemDef :: !(([SigInfo])),uniqueInfos_Syn_SemDef :: !(([UniqueInfo]))}-wrap_SemDef :: T_SemDef ->- Inh_SemDef ->- Syn_SemDef -wrap_SemDef (T_SemDef sem ) (Inh_SemDef ) =- (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem - in (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos ))-sem_SemDef_AroundDef :: Identifier ->- Expression ->- T_SemDef -sem_SemDef_AroundDef ident_ rhs_ =- (T_SemDef (let _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 1005, column 17)- _lhsOaroundInfos =- ({-# LINE 1005 "Transform.ag" #-}- [ (ident_, rhs_) ]- {-# LINE 5886 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 930, column 40)- _lhsOaugmentInfos =- ({-# LINE 930 "Transform.ag" #-}- []- {-# LINE 5892 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- []- {-# LINE 5898 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 932, column 40)- _lhsOmergeInfos =- ({-# LINE 932 "Transform.ag" #-}- []- {-# LINE 5904 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 793, column 44)- _lhsOorderDepsCollect =- ({-# LINE 793 "Transform.ag" #-}- Set.empty- {-# LINE 5910 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 762, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 762 "Transform.ag" #-}- []- {-# LINE 5916 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 927, column 40)- _lhsOruleInfos =- ({-# LINE 927 "Transform.ag" #-}- []- {-# LINE 5922 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 928, column 40)- _lhsOsigInfos =- ({-# LINE 928 "Transform.ag" #-}- []- {-# LINE 5928 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 929, column 40)- _lhsOuniqueInfos =- ({-# LINE 929 "Transform.ag" #-}- []- {-# LINE 5934 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) )-sem_SemDef_AttrOrderBefore :: ([Occurrence]) ->- ([Occurrence]) ->- T_SemDef -sem_SemDef_AttrOrderBefore before_ after_ =- (T_SemDef (let _lhsOorderDepsCollect :: (Set Dependency)- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOmergeInfos :: ([MergeInfo])- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 797, column 7)- _dependency =- ({-# LINE 797 "Transform.ag" #-}- [ Dependency b a | b <- before_, a <- after_ ]- {-# LINE 5954 "Transform.hs" #-}- )- -- "Transform.ag"(line 798, column 7)- _lhsOorderDepsCollect =- ({-# LINE 798 "Transform.ag" #-}- Set.fromList _dependency- {-# LINE 5960 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 931, column 40)- _lhsOaroundInfos =- ({-# LINE 931 "Transform.ag" #-}- []- {-# LINE 5966 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 930, column 40)- _lhsOaugmentInfos =- ({-# LINE 930 "Transform.ag" #-}- []- {-# LINE 5972 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- []- {-# LINE 5978 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 932, column 40)- _lhsOmergeInfos =- ({-# LINE 932 "Transform.ag" #-}- []- {-# LINE 5984 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 762, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 762 "Transform.ag" #-}- []- {-# LINE 5990 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 927, column 40)- _lhsOruleInfos =- ({-# LINE 927 "Transform.ag" #-}- []- {-# LINE 5996 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 928, column 40)- _lhsOsigInfos =- ({-# LINE 928 "Transform.ag" #-}- []- {-# LINE 6002 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 929, column 40)- _lhsOuniqueInfos =- ({-# LINE 929 "Transform.ag" #-}- []- {-# LINE 6008 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) )-sem_SemDef_AugmentDef :: Identifier ->- Expression ->- T_SemDef -sem_SemDef_AugmentDef ident_ rhs_ =- (T_SemDef (let _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 1002, column 17)- _lhsOaugmentInfos =- ({-# LINE 1002 "Transform.ag" #-}- [ (ident_, rhs_) ]- {-# LINE 6028 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 931, column 40)- _lhsOaroundInfos =- ({-# LINE 931 "Transform.ag" #-}- []- {-# LINE 6034 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- []- {-# LINE 6040 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 932, column 40)- _lhsOmergeInfos =- ({-# LINE 932 "Transform.ag" #-}- []- {-# LINE 6046 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 793, column 44)- _lhsOorderDepsCollect =- ({-# LINE 793 "Transform.ag" #-}- Set.empty- {-# LINE 6052 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 762, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 762 "Transform.ag" #-}- []- {-# LINE 6058 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 927, column 40)- _lhsOruleInfos =- ({-# LINE 927 "Transform.ag" #-}- []- {-# LINE 6064 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 928, column 40)- _lhsOsigInfos =- ({-# LINE 928 "Transform.ag" #-}- []- {-# LINE 6070 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 929, column 40)- _lhsOuniqueInfos =- ({-# LINE 929 "Transform.ag" #-}- []- {-# LINE 6076 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) )-sem_SemDef_Def :: Pos ->- (Maybe Identifier) ->- T_Pattern ->- Expression ->- Bool ->- T_SemDef -sem_SemDef_Def pos_ mbName_ (T_Pattern pattern_ ) rhs_ owrt_ =- (T_SemDef (let _lhsOruleInfos :: ([RuleInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- _patternIcopy :: Pattern - _patternIdefinedAttrs :: ([AttrName])- _patternIdefinedInsts :: ([Identifier])- _patternIpatunder :: ([AttrName]->Pattern)- _patternIstpos :: Pos- -- "Transform.ag"(line 993, column 10)- _lhsOruleInfos =- ({-# LINE 993 "Transform.ag" #-}- [ (mbName_, _patternIpatunder, rhs_, _patternIdefinedAttrs, owrt_, show _patternIstpos) ]- {-# LINE 6104 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 931, column 40)- _lhsOaroundInfos =- ({-# LINE 931 "Transform.ag" #-}- []- {-# LINE 6110 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 930, column 40)- _lhsOaugmentInfos =- ({-# LINE 930 "Transform.ag" #-}- []- {-# LINE 6116 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- _patternIdefinedInsts- {-# LINE 6122 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 932, column 40)- _lhsOmergeInfos =- ({-# LINE 932 "Transform.ag" #-}- []- {-# LINE 6128 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 793, column 44)- _lhsOorderDepsCollect =- ({-# LINE 793 "Transform.ag" #-}- Set.empty- {-# LINE 6134 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 762, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 762 "Transform.ag" #-}- []- {-# LINE 6140 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 928, column 40)- _lhsOsigInfos =- ({-# LINE 928 "Transform.ag" #-}- []- {-# LINE 6146 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 929, column 40)- _lhsOuniqueInfos =- ({-# LINE 929 "Transform.ag" #-}- []- {-# LINE 6152 "Transform.hs" #-}- )- ( _patternIcopy,_patternIdefinedAttrs,_patternIdefinedInsts,_patternIpatunder,_patternIstpos) =- pattern_ - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) )-sem_SemDef_MergeDef :: Identifier ->- Identifier ->- ([Identifier]) ->- Expression ->- T_SemDef -sem_SemDef_MergeDef target_ nt_ sources_ rhs_ =- (T_SemDef (let _lhsOmergeInfos :: ([MergeInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 1008, column 17)- _lhsOmergeInfos =- ({-# LINE 1008 "Transform.ag" #-}- [ (target_, nt_, sources_, rhs_) ]- {-# LINE 6176 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 931, column 40)- _lhsOaroundInfos =- ({-# LINE 931 "Transform.ag" #-}- []- {-# LINE 6182 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 930, column 40)- _lhsOaugmentInfos =- ({-# LINE 930 "Transform.ag" #-}- []- {-# LINE 6188 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- []- {-# LINE 6194 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 793, column 44)- _lhsOorderDepsCollect =- ({-# LINE 793 "Transform.ag" #-}- Set.empty- {-# LINE 6200 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 762, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 762 "Transform.ag" #-}- []- {-# LINE 6206 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 927, column 40)- _lhsOruleInfos =- ({-# LINE 927 "Transform.ag" #-}- []- {-# LINE 6212 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 928, column 40)- _lhsOsigInfos =- ({-# LINE 928 "Transform.ag" #-}- []- {-# LINE 6218 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 929, column 40)- _lhsOuniqueInfos =- ({-# LINE 929 "Transform.ag" #-}- []- {-# LINE 6224 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) )-sem_SemDef_SemPragma :: ([NontermIdent]) ->- T_SemDef -sem_SemDef_SemPragma names_ =- (T_SemDef (let _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 766, column 7)- _lhsOpragmaNamesCollect =- ({-# LINE 766 "Transform.ag" #-}- names_- {-# LINE 6243 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 931, column 40)- _lhsOaroundInfos =- ({-# LINE 931 "Transform.ag" #-}- []- {-# LINE 6249 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 930, column 40)- _lhsOaugmentInfos =- ({-# LINE 930 "Transform.ag" #-}- []- {-# LINE 6255 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- []- {-# LINE 6261 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 932, column 40)- _lhsOmergeInfos =- ({-# LINE 932 "Transform.ag" #-}- []- {-# LINE 6267 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 793, column 44)- _lhsOorderDepsCollect =- ({-# LINE 793 "Transform.ag" #-}- Set.empty- {-# LINE 6273 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 927, column 40)- _lhsOruleInfos =- ({-# LINE 927 "Transform.ag" #-}- []- {-# LINE 6279 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 928, column 40)- _lhsOsigInfos =- ({-# LINE 928 "Transform.ag" #-}- []- {-# LINE 6285 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 929, column 40)- _lhsOuniqueInfos =- ({-# LINE 929 "Transform.ag" #-}- []- {-# LINE 6291 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) )-sem_SemDef_TypeDef :: Identifier ->- Type ->- T_SemDef -sem_SemDef_TypeDef ident_ tp_ =- (T_SemDef (let _lhsOsigInfos :: ([SigInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- "Transform.ag"(line 996, column 14)- _lhsOsigInfos =- ({-# LINE 996 "Transform.ag" #-}- [ (ident_, tp_) ]- {-# LINE 6311 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 931, column 40)- _lhsOaroundInfos =- ({-# LINE 931 "Transform.ag" #-}- []- {-# LINE 6317 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 930, column 40)- _lhsOaugmentInfos =- ({-# LINE 930 "Transform.ag" #-}- []- {-# LINE 6323 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- []- {-# LINE 6329 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 932, column 40)- _lhsOmergeInfos =- ({-# LINE 932 "Transform.ag" #-}- []- {-# LINE 6335 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 793, column 44)- _lhsOorderDepsCollect =- ({-# LINE 793 "Transform.ag" #-}- Set.empty- {-# LINE 6341 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 762, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 762 "Transform.ag" #-}- []- {-# LINE 6347 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 927, column 40)- _lhsOruleInfos =- ({-# LINE 927 "Transform.ag" #-}- []- {-# LINE 6353 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 929, column 40)- _lhsOuniqueInfos =- ({-# LINE 929 "Transform.ag" #-}- []- {-# LINE 6359 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) )-sem_SemDef_UniqueDef :: Identifier ->- Identifier ->- T_SemDef -sem_SemDef_UniqueDef ident_ ref_ =- (T_SemDef (let _lhsOuniqueInfos :: ([UniqueInfo])- _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- -- "Transform.ag"(line 999, column 16)- _lhsOuniqueInfos =- ({-# LINE 999 "Transform.ag" #-}- [ (ident_, ref_) ]- {-# LINE 6379 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 931, column 40)- _lhsOaroundInfos =- ({-# LINE 931 "Transform.ag" #-}- []- {-# LINE 6385 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 930, column 40)- _lhsOaugmentInfos =- ({-# LINE 930 "Transform.ag" #-}- []- {-# LINE 6391 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- []- {-# LINE 6397 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 932, column 40)- _lhsOmergeInfos =- ({-# LINE 932 "Transform.ag" #-}- []- {-# LINE 6403 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 793, column 44)- _lhsOorderDepsCollect =- ({-# LINE 793 "Transform.ag" #-}- Set.empty- {-# LINE 6409 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 762, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 762 "Transform.ag" #-}- []- {-# LINE 6415 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 927, column 40)- _lhsOruleInfos =- ({-# LINE 927 "Transform.ag" #-}- []- {-# LINE 6421 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 928, column 40)- _lhsOsigInfos =- ({-# LINE 928 "Transform.ag" #-}- []- {-# LINE 6427 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) )--- SemDefs ------------------------------------------------------{-- visit 0:- synthesized attributes:- aroundInfos : [AroundInfo]- augmentInfos : [AugmentInfo]- definedInsts : [Identifier]- mergeInfos : [MergeInfo]- orderDepsCollect : Set Dependency- pragmaNamesCollect : [Identifier]- ruleInfos : [RuleInfo]- sigInfos : [SigInfo]- uniqueInfos : [UniqueInfo]- alternatives:- alternative Cons:- child hd : SemDef - child tl : SemDefs - alternative Nil:--}--- cata-sem_SemDefs :: SemDefs ->- T_SemDefs -sem_SemDefs list =- (Prelude.foldr sem_SemDefs_Cons sem_SemDefs_Nil (Prelude.map sem_SemDef list) )--- semantic domain-newtype T_SemDefs = T_SemDefs (( ([AroundInfo]),([AugmentInfo]),([Identifier]),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo])))-data Inh_SemDefs = Inh_SemDefs {}-data Syn_SemDefs = Syn_SemDefs {aroundInfos_Syn_SemDefs :: !(([AroundInfo])),augmentInfos_Syn_SemDefs :: !(([AugmentInfo])),definedInsts_Syn_SemDefs :: !(([Identifier])),mergeInfos_Syn_SemDefs :: !(([MergeInfo])),orderDepsCollect_Syn_SemDefs :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDefs :: !(([Identifier])),ruleInfos_Syn_SemDefs :: !(([RuleInfo])),sigInfos_Syn_SemDefs :: !(([SigInfo])),uniqueInfos_Syn_SemDefs :: !(([UniqueInfo]))}-wrap_SemDefs :: T_SemDefs ->- Inh_SemDefs ->- Syn_SemDefs -wrap_SemDefs (T_SemDefs sem ) (Inh_SemDefs ) =- (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem - in (Syn_SemDefs _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos ))-sem_SemDefs_Cons :: T_SemDef ->- T_SemDefs ->- T_SemDefs -sem_SemDefs_Cons (T_SemDef hd_ ) (T_SemDefs tl_ ) =- (T_SemDefs (let _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- _hdIaroundInfos :: ([AroundInfo])- _hdIaugmentInfos :: ([AugmentInfo])- _hdIdefinedInsts :: ([Identifier])- _hdImergeInfos :: ([MergeInfo])- _hdIorderDepsCollect :: (Set Dependency)- _hdIpragmaNamesCollect :: ([Identifier])- _hdIruleInfos :: ([RuleInfo])- _hdIsigInfos :: ([SigInfo])- _hdIuniqueInfos :: ([UniqueInfo])- _tlIaroundInfos :: ([AroundInfo])- _tlIaugmentInfos :: ([AugmentInfo])- _tlIdefinedInsts :: ([Identifier])- _tlImergeInfos :: ([MergeInfo])- _tlIorderDepsCollect :: (Set Dependency)- _tlIpragmaNamesCollect :: ([Identifier])- _tlIruleInfos :: ([RuleInfo])- _tlIsigInfos :: ([SigInfo])- _tlIuniqueInfos :: ([UniqueInfo])- -- use rule "Transform.ag"(line 931, column 40)- _lhsOaroundInfos =- ({-# LINE 931 "Transform.ag" #-}- _hdIaroundInfos ++ _tlIaroundInfos- {-# LINE 6499 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 930, column 40)- _lhsOaugmentInfos =- ({-# LINE 930 "Transform.ag" #-}- _hdIaugmentInfos ++ _tlIaugmentInfos- {-# LINE 6505 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- _hdIdefinedInsts ++ _tlIdefinedInsts- {-# LINE 6511 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 932, column 40)- _lhsOmergeInfos =- ({-# LINE 932 "Transform.ag" #-}- _hdImergeInfos ++ _tlImergeInfos- {-# LINE 6517 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 793, column 44)- _lhsOorderDepsCollect =- ({-# LINE 793 "Transform.ag" #-}- _hdIorderDepsCollect `Set.union` _tlIorderDepsCollect- {-# LINE 6523 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 762, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 762 "Transform.ag" #-}- _hdIpragmaNamesCollect ++ _tlIpragmaNamesCollect- {-# LINE 6529 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 927, column 40)- _lhsOruleInfos =- ({-# LINE 927 "Transform.ag" #-}- _hdIruleInfos ++ _tlIruleInfos- {-# LINE 6535 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 928, column 40)- _lhsOsigInfos =- ({-# LINE 928 "Transform.ag" #-}- _hdIsigInfos ++ _tlIsigInfos- {-# LINE 6541 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 929, column 40)- _lhsOuniqueInfos =- ({-# LINE 929 "Transform.ag" #-}- _hdIuniqueInfos ++ _tlIuniqueInfos- {-# LINE 6547 "Transform.hs" #-}- )- ( _hdIaroundInfos,_hdIaugmentInfos,_hdIdefinedInsts,_hdImergeInfos,_hdIorderDepsCollect,_hdIpragmaNamesCollect,_hdIruleInfos,_hdIsigInfos,_hdIuniqueInfos) =- hd_ - ( _tlIaroundInfos,_tlIaugmentInfos,_tlIdefinedInsts,_tlImergeInfos,_tlIorderDepsCollect,_tlIpragmaNamesCollect,_tlIruleInfos,_tlIsigInfos,_tlIuniqueInfos) =- tl_ - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) )-sem_SemDefs_Nil :: T_SemDefs -sem_SemDefs_Nil =- (T_SemDefs (let _lhsOaroundInfos :: ([AroundInfo])- _lhsOaugmentInfos :: ([AugmentInfo])- _lhsOdefinedInsts :: ([Identifier])- _lhsOmergeInfos :: ([MergeInfo])- _lhsOorderDepsCollect :: (Set Dependency)- _lhsOpragmaNamesCollect :: ([Identifier])- _lhsOruleInfos :: ([RuleInfo])- _lhsOsigInfos :: ([SigInfo])- _lhsOuniqueInfos :: ([UniqueInfo])- -- use rule "Transform.ag"(line 931, column 40)- _lhsOaroundInfos =- ({-# LINE 931 "Transform.ag" #-}- []- {-# LINE 6569 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 930, column 40)- _lhsOaugmentInfos =- ({-# LINE 930 "Transform.ag" #-}- []- {-# LINE 6575 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 1011, column 55)- _lhsOdefinedInsts =- ({-# LINE 1011 "Transform.ag" #-}- []- {-# LINE 6581 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 932, column 40)- _lhsOmergeInfos =- ({-# LINE 932 "Transform.ag" #-}- []- {-# LINE 6587 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 793, column 44)- _lhsOorderDepsCollect =- ({-# LINE 793 "Transform.ag" #-}- Set.empty- {-# LINE 6593 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 762, column 46)- _lhsOpragmaNamesCollect =- ({-# LINE 762 "Transform.ag" #-}- []- {-# LINE 6599 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 927, column 40)- _lhsOruleInfos =- ({-# LINE 927 "Transform.ag" #-}- []- {-# LINE 6605 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 928, column 40)- _lhsOsigInfos =- ({-# LINE 928 "Transform.ag" #-}- []- {-# LINE 6611 "Transform.hs" #-}- )- -- use rule "Transform.ag"(line 929, column 40)- _lhsOuniqueInfos =- ({-# LINE 929 "Transform.ag" #-}- []- {-# LINE 6617 "Transform.hs" #-}- )- in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos)) )+-- UUAGC 0.9.36.2 (Transform.ag)+module Transform where+{-# LINE 8 "Transform.ag" #-}++import Control.Monad(mplus,mzero)+import List (partition, elem, nub,intersperse)+import Data.Maybe+import qualified Data.Map as Map+import Data.Map (Map)+import Data.Set as Set (Set, member, union, toList, fromList, empty, singleton, member, unions, size, fold, intersection, difference, insert)+import qualified Data.Sequence as Seq+import Data.Sequence(Seq, empty, (><),fromList)+import Data.Foldable(toList)+import UU.Scanner.Position(noPos)++import ConcreteSyntax+import AbstractSyntax+import ErrorMessages+import Patterns (Patterns(..),Pattern(..))+import Expression (Expression(..))+import HsToken++import Options+import CommonTypes+import RhsCheck+{-# LINE 29 "../src-derived/Transform.hs" #-}++{-# LINE 2 "./ConcreteSyntax.ag" #-}++import UU.Scanner.Position (Pos)+import Patterns (Pattern)+import Expression (Expression)+import CommonTypes+{-# LINE 37 "../src-derived/Transform.hs" #-}++{-# LINE 2 "./Patterns.ag" #-}++-- Patterns.ag imports+import UU.Scanner.Position(Pos)+import CommonTypes (ConstructorIdent,Identifier)+{-# LINE 44 "../src-derived/Transform.hs" #-}+{-# LINE 101 "Transform.ag" #-}+type DefinedSets = Map Identifier (Set NontermIdent) +{-# LINE 47 "../src-derived/Transform.hs" #-}++{-# LINE 121 "Transform.ag" #-}+type FieldMap = [(Identifier, Type)] +{-# LINE 51 "../src-derived/Transform.hs" #-}++{-# LINE 122 "Transform.ag" #-}+type DataTypes = Map.Map NontermIdent (Map.Map ConstructorIdent FieldMap) +{-# LINE 55 "../src-derived/Transform.hs" #-}++{-# LINE 142 "Transform.ag" #-}+type AttrName = (Identifier,Identifier) +{-# LINE 59 "../src-derived/Transform.hs" #-}++{-# LINE 143 "Transform.ag" #-}+type RuleInfo = (Maybe Identifier, [AttrName]->Pattern, Expression, [AttrName], Bool, String) +{-# LINE 63 "../src-derived/Transform.hs" #-}++{-# LINE 144 "Transform.ag" #-}+type SigInfo = (Identifier,Type) +{-# LINE 67 "../src-derived/Transform.hs" #-}++{-# LINE 145 "Transform.ag" #-}+type UniqueInfo = (Identifier,Identifier) +{-# LINE 71 "../src-derived/Transform.hs" #-}++{-# LINE 146 "Transform.ag" #-}+type AugmentInfo = (Identifier,Expression)+{-# LINE 75 "../src-derived/Transform.hs" #-}++{-# LINE 147 "Transform.ag" #-}+type AroundInfo = (Identifier,Expression)+{-# LINE 79 "../src-derived/Transform.hs" #-}++{-# LINE 148 "Transform.ag" #-}+type MergeInfo = (Identifier, Identifier, [Identifier], Expression)+{-# LINE 83 "../src-derived/Transform.hs" #-}++{-# LINE 202 "Transform.ag" #-}+++checkDuplicate :: (Identifier -> Identifier -> Error)+ -> Identifier -> val -> Map Identifier val -> (Map Identifier val,Seq Error)+checkDuplicate dupError key val m+ = case Map.lookupIndex key m of+ Just ix -> let (key',_) = Map.elemAt ix m+ in (m,Seq.singleton (dupError key key'))+ Nothing -> (Map.insert key val m,Seq.empty)++checkDuplicates :: (Identifier -> Identifier -> Error)+ -> [(Identifier, val)] -> Map Identifier val -> (Map Identifier val,Seq Error)+checkDuplicates dupError new m = foldErrors check m new+ where check = uncurry (checkDuplicate dupError)++foldErrors f e xs = foldl g (e,Seq.empty) xs+ where g ~(e,es) x = let (e',es') = f x e+ in (e', es >< es')+++checkForDuplicates :: (Identifier -> Identifier -> Error) -> [Identifier] -> [Error]+checkForDuplicates err [] = []+checkForDuplicates err (x:xs) = let (same,other) = List.partition (equalId x) xs+ in map (err x) same ++ checkForDuplicates err other++equalId :: Identifier -> Identifier -> Bool+equalId x y = getName x == getName y++{-# LINE 114 "../src-derived/Transform.hs" #-}++{-# LINE 338 "Transform.ag" #-}++type RulesAndErrors = ([Rule], Seq Error)+type SigsAndErrors = ([TypeSig], Seq Error)+type InstsAndErrors = ([(Identifier, Type)], Seq Error)+type UniquesAndErrors = (Map Identifier Identifier, Seq Error)+type AugmentsAndErrors = (Map Identifier [Expression], Seq Error)+type AroundsAndErrors = (Map Identifier [Expression], Seq Error)+type MergesAndErrors = (Map Identifier (Identifier, [Identifier], Expression), Seq Error)+type AttrOverwrite = Map AttrName Bool+type AccumRuleCheck = (RulesAndErrors, AttrOverwrite)+type AccumDefiCheck = (Seq Error, AttrOverwrite, [AttrName], [AttrName])++checkRules :: Map NontermIdent (Attributes, Attributes) -> Map NontermIdent (Map ConstructorIdent FieldMap) ->+ Map NontermIdent (Map ConstructorIdent [Identifier]) -> Map NontermIdent (Map ConstructorIdent [SigInfo]) ->+ Map NontermIdent (Map ConstructorIdent [MergeInfo]) ->+ NontermIdent -> ConstructorIdent -> [RuleInfo] -> RulesAndErrors+checkRules attributes fields allinsts allsigs allmerges nt con rs+ = let fieldmap :: FieldMap+ fieldmap = (_LHS,NT nt undefined) : (_LOC,NT undefined undefined) : (_INST, NT undefined undefined) : (_FIRST, NT undefined undefined) : (_LAST, NT undefined undefined)+ : Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fields)+ ++ mapMaybe (\instNm -> lookup instNm sigs >>= \tp -> return (instNm, tp)) (Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allinsts))+ -- merged children are not allowed to have any inherited attrs defined: do not include+ + sigs = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allsigs)++ hasAttrib f tp attr = Map.member attr (f (Map.findWithDefault (Map.empty,Map.empty) tp attributes))+ + checkRule :: RuleInfo -> AccumRuleCheck -> AccumRuleCheck+ checkRule (mbNm, pat,exp,as,owrt,str) ((r1,e1),m1) + = let (e2,m2,u2,b2) = foldr (checkDefi owrt) (e1,m1,[],[]) as+ in ( (Rule mbNm (pat u2) exp owrt str True : r1, e2), m2)++ checkDefi :: Bool -> AttrName -> AccumDefiCheck -> AccumDefiCheck+ checkDefi owrt fa@(field,attr) (e,m,u,bs)+ = case lookup field fieldmap+ of Just (NT tp _) -> + let tp' = maybe tp id (deforestedNt tp)+ in if field == _LOC || field == _INST || field == _FIRST || field == _LAST+ || hasAttrib (if getName field==getName _LHS then snd else fst) tp' attr+ then case Map.lookupIndex fa m of+ Just ix -> let ((_,attr2),b) = Map.elemAt ix m+ in if b && not (fa `elem` bs)+ then ( e, Map.insert fa owrt m, fa:u, fa:bs)+ else (((Seq.<|)) (DupRule nt con field attr2 attr) e, m, fa:u, bs)+ Nothing -> ( e, Map.insert fa owrt m, u, fa:bs)+ else (((Seq.<|)) (SuperfluousRule nt con field attr) e, m, fa:u, bs)+ _ -> (((Seq.<|)) (UndefChild nt con field) e, m, fa:u, bs )++ in fst (foldr checkRule (([],Seq.empty),Map.empty) rs)++checkRuleNames :: NontermIdent -> ConstructorIdent -> [RuleInfo] -> Seq Error+checkRuleNames nt con+ = fst . foldr checkRule (Seq.empty, Set.empty)+ where+ checkRule (Just nm,_,_,_,_,_) (errs, nms)+ | nm `Set.member` nms = (DupRuleName nt con nm Seq.<| errs, nms)+ | otherwise = (errs, Set.insert nm nms)+ checkRule (Nothing,_,_,_,_,_) inp = inp++checkSigs :: NontermIdent -> ConstructorIdent -> [SigInfo] -> SigsAndErrors+checkSigs nt con sis + = let checkSig (ide,typ) (sigs,errs)+ = if ide `elem` map (\(TypeSig n t)-> n) sigs+ then (sigs, ((Seq.<|)) (DupSig nt con ide) errs)+ -- else if not (ide `elem` locattrdefs)+ -- then (sigs, ((Seq.<|)) (SupSig nt con ide) errs)+ else (TypeSig ide typ:sigs, errs)+ in foldr checkSig ([],Seq.empty) sis++checkInsts :: Set NontermIdent -> Map NontermIdent (Map ConstructorIdent [SigInfo]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [Identifier] -> InstsAndErrors+checkInsts allNts sigMap fieldMap nt con+ = foldr (\inst (insts, errs) ->+ maybe (insts, Seq.singleton (MissingInstSig nt con inst) >< errs)+ (\info@(k, NT nm _) ->+ case findInst k insts of+ Just k' -> (insts, Seq.singleton (DupChild nt con k k') >< errs)+ Nothing -> case nm `Set.member` allNts of+ True -> (info : insts, errs)+ False | take 2 (getName nm) == "T_" -> let nm' = Ident (drop 2 (getName nm)) (getPos nm)+ in case nm' `Set.member` allNts of+ True -> (info : insts, errs)+ False -> (insts, Seq.singleton (UndefNont nm') >< errs)+ | otherwise -> (insts, Seq.singleton (UndefNont nm) >< errs)+ ) + $ findSig inst+ ) ([], Seq.empty)+ where+ sigs = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt sigMap)+ + findSig name+ = do tp@(NT _ _) <- lookup name sigs+ return (name, tp)+ + findInst _ [] = Nothing+ findInst k ((k', _): r)+ | k == k' = Just k'+ | otherwise = findInst k r++checkUniques :: Map NontermIdent (Attributes, Attributes) -> NontermIdent -> ConstructorIdent -> [UniqueInfo] -> UniquesAndErrors+checkUniques allAttrs nt con uniques+ = let checkUnique (ident,ref) (us,errs)+ = if ident `Map.member` us+ then (us, ((Seq.<|)) (DupUnique nt con ident) errs)+ else if Map.member ref inhs && Map.member ref syns+ then (Map.insert ident ref us, errs)+ else (us, ((Seq.<|)) (MissingUnique nt ref) errs)++ (inhs,syns) = Map.findWithDefault (Map.empty,Map.empty) nt allAttrs+ in foldr checkUnique (Map.empty, Seq.empty) uniques++checkAugments :: Map NontermIdent (Attributes, Attributes) -> NontermIdent -> ConstructorIdent -> [AugmentInfo] -> AugmentsAndErrors+checkAugments allAttrs nt con augments+ = let checkAugment (ident,expr) (as,errs)+ = if ident `Map.member` as+ then (Map.update (\vs -> Just (vs ++ [expr])) ident as, errs)+ else if Map.member ident syns+ then (Map.insert ident [expr] as, errs)+ else (as, ((Seq.<|)) (MissingSyn nt ident) errs)++ (inhs,syns) = Map.findWithDefault (Map.empty,Map.empty) nt allAttrs+ in foldr checkAugment (Map.empty, Seq.empty) augments++checkArounds :: Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [AroundInfo] -> AroundsAndErrors+checkArounds fieldMap nt con arounds+ = let checkAround (ident,expr) (as,errs)+ = if ident `Map.member` as+ then (Map.update (\vs -> Just (vs ++ [expr])) ident as, errs)+ else case lookup ident fields of+ Just (NT _ _) -> (Map.insert ident [expr] as, errs)+ _ -> (as, ((Seq.<|)) (UndefChild nt con ident) errs)+ fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fieldMap)+ in foldr checkAround (Map.empty, Seq.empty) arounds++checkMerges :: Set NontermIdent -> Map NontermIdent (Map ConstructorIdent [Identifier]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [MergeInfo] -> MergesAndErrors+checkMerges allNts allInsts fieldMap nt con merges+ = let checkMerge (target,nt,sources,expr) (m,errs)+ = let fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fieldMap)+ insts = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allInsts)+ allFields = insts ++ map fst fields -- note: sources of merge may not contain a target (for simplicity)+ in if target `Map.member` m -- check for duplicate with self+ then (m, DupChild nt con target (fst $ Map.elemAt (Map.findIndex target m) m) Seq.<| errs)+ else if target `elem` allFields+ then (m, DupChild nt con target (head $ filter (== target) allFields) Seq.<| errs)+ else let missing = filter (\s -> not (s `elem` allFields)) sources+ in if null missing+ then if nt `Set.member` allNts -- check if the nonterm is defined+ then (Map.insert target (nt, sources, expr) m, errs) -- all ok..+ else (m, UndefNont nt Seq.<| errs)+ else (m, (Seq.fromList $ map (UndefChild nt con) missing) Seq.>< errs)+ in foldr checkMerge (Map.empty, Seq.empty) merges++unionunionplusplus = Map.unionWith (Map.unionWith (++))+{-# LINE 269 "../src-derived/Transform.hs" #-}++{-# LINE 493 "Transform.ag" #-}++mkUniqueRules :: Options -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> Map NontermIdent (Attributes,Attributes) -> NontermIdent -> ConstructorIdent -> Map Identifier Identifier -> [Rule]+mkUniqueRules opts allFields allInsts allAttrDecls nt con usMap+ = map apply groups+ where+ fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allFields)+ ++ Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allInsts)+ -- may have duplicates++ groups = Map.assocs $ Map.foldrWithKey (\i r m -> Map.insertWith (++) r [i] m) Map.empty usMap+ apply (ref,us) = mkRule ref (findOutField ref) us+ findOutField ref = case [ chld | (chld,NT tp _) <- fields, tp `hasSyn` ref] of+ [] -> _LHS+ (x:_) -> x+ hasSyn tp ref = Map.member ref $ snd $ Map.findWithDefault (Map.empty,Map.empty) tp allAttrDecls+ mkRule ref outFld locAttrs+ = let pat = Product noPos (attr outFld ref : [attr _LOC u | u <- locAttrs ])+ rhs = Expression noPos $ wrap ref $ foldr gencase (finalout locAttrs) locAttrs+ -- [HsToken ("mkUniques" ++ show (length locAttrs) ++ " ") noPos, AGField _LHS ref noPos Nothing]+ in Rule Nothing pat rhs False "-- generated by the unique rule mechanism." False+ attr fld a = Alias fld a (Underscore noPos) []+ gencase nm outp+ = h ("case " ++ uniqueDispenser opts ++ " __cont of { (__cont, " ++ getName nm ++ ") -> ") ++ outp ++ h "}"+ h s = [HsToken s noPos]+ finalout us = h ("(__cont, " ++ concat (intersperse "," (map getName us)) ++ ")")+ wrap ref inp = h "case " ++ [AGField _LHS ref noPos Nothing] ++ h " of { __cont | __cont `seq` True -> " ++ inp ++ h "}"+{-# LINE 298 "../src-derived/Transform.hs" #-}++{-# LINE 687 "Transform.ag" #-}++flattenDatas :: DataTypes -> Map NontermIdent (Set NontermIdent)+flattenDatas ds = Map.map flatten ds+ where flatten cs = Set.fromList [ nt | (_,NT nt _) <- concatMap snd (Map.toList cs)]++reachableFrom :: Map NontermIdent (Set NontermIdent) -> Set NontermIdent -> Set NontermIdent+reachableFrom table nts = reach nts+ where reach nts = let nts' = Set.unions (nts : [ ns | nt <- Set.toList nts+ , let ns = Map.findWithDefault Set.empty nt table ])+ in if Set.size nts' > Set.size nts+ then reach nts'+ else nts+invert :: Map NontermIdent (Set NontermIdent) -> Map NontermIdent (Set NontermIdent)+invert m = foldr inv Map.empty (Map.toList m)+ where inv (x,ns) m = fold (\n m -> Map.insertWith Set.union n (Set.singleton x) m) m ns++path :: Map NontermIdent (Set NontermIdent) -> NontermIdent -> NontermIdent -> Set NontermIdent+path table from to = let children = Map.findWithDefault Set.empty from table+ forward = reachableFrom table children+ backward = reachableFrom (invert table)+ (Set.singleton to)+ in Set.intersection forward backward+{-# LINE 323 "../src-derived/Transform.hs" #-}++{-# LINE 797 "Transform.ag" #-}++pragmaMapUnion :: PragmaMap -> PragmaMap -> PragmaMap+pragmaMapUnion = Map.unionWith (Map.unionWith Set.union)++pragmaMapSingle :: NontermIdent -> ConstructorIdent -> Set Identifier -> PragmaMap+pragmaMapSingle nt con nms = Map.singleton nt (Map.singleton con nms)+{-# LINE 332 "../src-derived/Transform.hs" #-}++{-# LINE 829 "Transform.ag" #-}++orderMapUnion :: AttrOrderMap -> AttrOrderMap -> AttrOrderMap+orderMapUnion = Map.unionWith (Map.unionWith Set.union)++orderMapSingle :: NontermIdent -> ConstructorIdent -> Set Dependency -> AttrOrderMap+orderMapSingle nt con deps = Map.singleton nt (Map.singleton con deps)+{-# LINE 341 "../src-derived/Transform.hs" #-}++{-# LINE 855 "Transform.ag" #-}++mergeParams :: ParamMap -> ParamMap -> ParamMap+mergeParams = Map.unionWith (++)+{-# LINE 347 "../src-derived/Transform.hs" #-}++{-# LINE 878 "Transform.ag" #-}++mergeCtx :: ContextMap -> ContextMap -> ContextMap+mergeCtx+ = Map.unionWith nubconcat+ where nubconcat a b = nub (a ++ b)+{-# LINE 355 "../src-derived/Transform.hs" #-}++{-# LINE 891 "Transform.ag" #-}++mergeDerivings m1 m2 = foldr (\(n,cs) m -> Map.insertWith Set.union n cs m) m2 (Map.toList m1)+{-# LINE 360 "../src-derived/Transform.hs" #-}++{-# LINE 902 "Transform.ag" #-}++merge x y = foldr f y (Map.toList x)+ where f ~(k,v) m = Map.insertWith (Map.union) k v m+{-# LINE 366 "../src-derived/Transform.hs" #-}++{-# LINE 943 "Transform.ag" #-}++checkAttrs allFields nts inherited synthesized decls = foldErrors check decls nts where+ check nt decls | not (nt `Map.member` allFields) = (decls,Seq.singleton(UndefNont nt))+ | otherwise = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt decls+ (inh',einh) = checkDuplicates (DupInhAttr nt) inherited inh+ (syn',esyn) = checkDuplicates (DupSynAttr nt) synthesized syn+ in (Map.insert nt (inh',syn') decls,einh >< esyn)+{-# LINE 376 "../src-derived/Transform.hs" #-}++{-# LINE 954 "Transform.ag" #-}++addSelf name atMap = let (eInh,eSyn) = Map.findWithDefault(Map.empty,Map.empty) name atMap+ in Map.insert name (eInh, Map.insert (Ident "self" noPos) (NT _SELF []) eSyn)atMap+{-# LINE 382 "../src-derived/Transform.hs" #-}++{-# LINE 1095 "Transform.ag" #-}++makeType :: Set NontermIdent -> Type -> Type+makeType nts tp@(NT x _) | x == _SELF = tp+ | Set.member x nts = tp+ | otherwise = Haskell (typeToHaskellString Nothing [] tp)+makeType _ tp = tp+{-# LINE 391 "../src-derived/Transform.hs" #-}++{-# LINE 1102 "Transform.ag" #-}++constructGrammar :: Set NontermIdent+ -> ParamMap+ -> DataTypes+ -> Map NontermIdent (Attributes, Attributes)+ -> Map NontermIdent (Map Identifier (String, String, String))+ -> Derivings+ -> Set NontermIdent+ -> Map NontermIdent (Map ConstructorIdent [Rule])+ -> Map NontermIdent (Map ConstructorIdent [TypeSig])+ -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)])+ -> TypeSyns+ -> PragmaMap+ -> AttrOrderMap+ -> ContextMap+ -> UniqueMap+ -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))+ -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))+ -> Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))+ -> Grammar++constructGrammar nts ntParams gram attrs uses derivings wrappers allrules tsigs allinsts tsyns pragmaMap orderMap contextMap uniqueMap augmentsMap aroundsMap mergeMap =+ let gr = [ (nt,Map.toList alts) | (nt,alts) <- Map.toList gram]+ nonts = map nont gr+ nont (nt,alts) = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt attrs+ rmap = Map.findWithDefault Map.empty nt allrules+ tsmap = Map.findWithDefault Map.empty nt tsigs+ instsmap = Map.findWithDefault Map.empty nt allinsts+ params = Map.findWithDefault [] nt ntParams+ mergemap = Map.findWithDefault Map.empty nt mergeMap+ alt (con,flds) =+ let rules = maybe [] id (Map.lookup con rmap)+ tsigs = maybe [] id (Map.lookup con tsmap)+ insts = maybe [] id (Map.lookup con instsmap)+ merges = [ (n, NT t []) | (n, (t, _, _)) <- Map.assocs $ maybe Map.empty id (Map.lookup con mergemap) ]++ -- important: keep order of children+ cldrn = map child (flds ++ filter (not . existsAsField) insts ++ merges)+ child (nm, tp) =+ let tpI = if existsAsInst nm+ then fromJust $ lookup nm insts+ else tp+ (inh,syn) = case tpI of+ NT nt _ -> let nt' = maybe nt id (deforestedNt nt)+ in Map.findWithDefault (Map.empty,Map.empty) nt' attrs+ _ -> (Map.empty,Map.empty)+ virt = if existsAsInst nm+ then case lookup nm flds of+ Just tp' -> Just (Just tp')+ Nothing -> Just Nothing+ else if existsAsMerge nm+ then (Just Nothing)+ else Nothing+ in Child nm tpI inh syn virt+ existsAsInst nm = maybe False (const True) (lookup nm insts)+ existsAsField (nm,_) = maybe False (const True) (lookup nm flds)+ existsAsMerge nm = maybe False (const True) (lookup nm merges)+ in Production con cldrn rules tsigs+ in Nonterminal nt params inh syn (map alt alts)+ in Grammar tsyns uses derivings wrappers nonts pragmaMap orderMap ntParams contextMap uniqueMap augmentsMap aroundsMap mergeMap+{-# LINE 454 "../src-derived/Transform.hs" #-}++{-# LINE 1164 "Transform.ag" #-}++mapUnionWithSetUnion = Map.unionWith Set.union+mapUnionWithPlusPlus = Map.unionWith (++)+{-# LINE 460 "../src-derived/Transform.hs" #-}+-- AG ----------------------------------------------------------+{-+ visit 0:+ inherited attribute:+ options : Options+ synthesized attributes:+ blocks : Blocks+ errors : Seq Error+ moduleDecl : Maybe (String,String,String)+ output : Grammar+ pragmas : Options -> Options+ alternatives:+ alternative AG:+ child elems : Elems + visit 0:+ local allFields : _+ local allConstrs : _+ local allRules : _+ local allSigs : _+ local allInsts : _+ local allUniques : _+ local allAugments : _+ local allArounds : _+ local allMerges : _+ local augmentSigs : _+ local allRulesErrs : _+ local allNamesErrs : _+ local allSigsErrs : _+ local allInstsErrs : _+ local allUniquesErrs : _+ local allAugmentErrs : _+ local allAroundsErrs : _+ local allMergesErrs : _+ local checkedRulesPre : _+ local checkedSigs : _+ local checkedInsts : _+ local checkedUniques : _+ local checkedAugments : _+ local checkedArounds : _+ local checkedRules : _+ local checkedMerges : _+ local errs1 : _+ local errs2 : _+ local errs3 : _+ local errs4 : _+ local errs5 : _+ local errs6 : _+ local errs7 : _+ local errs8 : _+ local errs9 : _+ local errs10 : _+ local errs11 : _+ local allNonterminals : _+ local allAttrDecls : _+-}+-- cata+sem_AG :: AG ->+ T_AG +sem_AG (AG _elems ) =+ (sem_AG_AG (sem_Elems _elems ) )+-- semantic domain+newtype T_AG = T_AG (Options ->+ ( Blocks,(Seq Error),(Maybe (String,String,String)),Grammar,(Options -> Options)))+data Inh_AG = Inh_AG {options_Inh_AG :: !(Options)}+data Syn_AG = Syn_AG {blocks_Syn_AG :: !(Blocks),errors_Syn_AG :: !((Seq Error)),moduleDecl_Syn_AG :: !((Maybe (String,String,String))),output_Syn_AG :: !(Grammar),pragmas_Syn_AG :: !((Options -> Options))}+wrap_AG :: T_AG ->+ Inh_AG ->+ Syn_AG +wrap_AG (T_AG sem ) (Inh_AG _lhsIoptions ) =+ (let ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas) = sem _lhsIoptions + in (Syn_AG _lhsOblocks _lhsOerrors _lhsOmoduleDecl _lhsOoutput _lhsOpragmas ))+sem_AG_AG :: T_Elems ->+ T_AG +sem_AG_AG (T_Elems elems_ ) =+ (T_AG (\ _lhsIoptions ->+ (let _lhsOoutput :: Grammar+ _lhsOerrors :: (Seq Error)+ _elemsOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _elemsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _elemsOdefinedSets :: DefinedSets+ _elemsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOblocks :: Blocks+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOpragmas :: (Options -> Options)+ _elemsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _elemsOallFields :: DataTypes+ _elemsOallNonterminals :: (Set NontermIdent)+ _elemsOoptions :: Options+ _elemsIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _elemsIattrOrderCollect :: AttrOrderMap+ _elemsIblocks :: Blocks+ _elemsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _elemsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _elemsIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _elemsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _elemsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _elemsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _elemsIcollectedNames :: (Set Identifier)+ _elemsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _elemsIcollectedSetNames :: (Set Identifier)+ _elemsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _elemsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _elemsIctxCollect :: ContextMap+ _elemsIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _elemsIderivings :: Derivings+ _elemsIerrors :: (Seq Error)+ _elemsImoduleDecl :: (Maybe (String,String,String))+ _elemsIparamsCollect :: ParamMap+ _elemsIpragmas :: (Options -> Options)+ _elemsIsemPragmasCollect :: PragmaMap+ _elemsItypeSyns :: TypeSyns+ _elemsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _elemsIwrappers :: (Set NontermIdent)+ -- "Transform.ag"(line 52, column 8)+ _lhsOoutput =+ ({-# LINE 52 "Transform.ag" #-}+ constructGrammar _allNonterminals+ _elemsIparamsCollect+ _allFields+ _allAttrDecls+ _elemsIuseMap+ _elemsIderivings+ (if wrappers _lhsIoptions then _allNonterminals else _elemsIwrappers)+ _checkedRules+ _checkedSigs+ _checkedInsts+ _elemsItypeSyns+ _elemsIsemPragmasCollect+ _elemsIattrOrderCollect+ _elemsIctxCollect+ _checkedUniques+ _checkedAugments+ _checkedArounds+ _checkedMerges+ {-# LINE 595 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 253, column 10)+ _allFields =+ ({-# LINE 253 "Transform.ag" #-}+ let f (nt,con,fm) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con fm)+ in foldr f (Map.empty) _elemsIcollectedFields+ {-# LINE 602 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 256, column 10)+ _allConstrs =+ ({-# LINE 256 "Transform.ag" #-}+ let f (nt,con,_) = Map.insertWith (++) nt [con]+ in foldr f (Map.empty) _elemsIcollectedFields+ {-# LINE 609 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 259, column 10)+ _allRules =+ ({-# LINE 259 "Transform.ag" #-}+ let f (nt,con,r) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [r])+ in foldr f (Map.empty) _elemsIcollectedRules+ {-# LINE 616 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 262, column 10)+ _allSigs =+ ({-# LINE 262 "Transform.ag" #-}+ let f (nt,con,t) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [t])+ typeof nt r = Map.findWithDefault (Haskell "<unknown>") r $ fst $ Map.findWithDefault (Map.empty,Map.empty) nt _allAttrDecls+ in foldr f (Map.empty) ( _elemsIcollectedSigs+ ++ [ (nt, con, (ident,typeof nt ref)) | (nt, con, us) <- _elemsIcollectedUniques, (ident,ref) <- us ]+ )+ {-# LINE 626 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 268, column 10)+ _allInsts =+ ({-# LINE 268 "Transform.ag" #-}+ let f (nt,con,is) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con is)+ in foldr f (Map.empty) _elemsIcollectedInsts+ {-# LINE 633 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 271, column 10)+ _allUniques =+ ({-# LINE 271 "Transform.ag" #-}+ let f (nt,con,us) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con us)+ in foldr f (Map.empty) _elemsIcollectedUniques+ {-# LINE 640 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 273, column 10)+ _allAugments =+ ({-# LINE 273 "Transform.ag" #-}+ let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)+ in foldr f Map.empty _elemsIcollectedAugments+ {-# LINE 647 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 275, column 10)+ _allArounds =+ ({-# LINE 275 "Transform.ag" #-}+ let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)+ in foldr f Map.empty _elemsIcollectedArounds+ {-# LINE 654 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 277, column 10)+ _allMerges =+ ({-# LINE 277 "Transform.ag" #-}+ let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as)+ in foldr f Map.empty _elemsIcollectedMerges+ {-# LINE 661 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 280, column 10)+ _augmentSigs =+ ({-# LINE 280 "Transform.ag" #-}+ let gen mp = []+ in Map.map (Map.map gen) _allAugments+ {-# LINE 668 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 283, column 10)+ _allRulesErrs =+ ({-# LINE 283 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkRules _allAttrDecls _allFields _allInsts _allSigs _allMerges )) _allRules+ {-# LINE 674 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 284, column 10)+ _allNamesErrs =+ ({-# LINE 284 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . checkRuleNames) _allRules+ {-# LINE 680 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 285, column 10)+ _allSigsErrs =+ ({-# LINE 285 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkSigs )) _allSigs+ {-# LINE 686 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 286, column 10)+ _allInstsErrs =+ ({-# LINE 286 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkInsts _allNonterminals _allSigs _allFields )) _allInsts+ {-# LINE 692 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 287, column 10)+ _allUniquesErrs =+ ({-# LINE 287 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkUniques _allAttrDecls )) _allUniques+ {-# LINE 698 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 288, column 10)+ _allAugmentErrs =+ ({-# LINE 288 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkAugments _allAttrDecls )) _allAugments+ {-# LINE 704 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 289, column 10)+ _allAroundsErrs =+ ({-# LINE 289 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkArounds _allFields )) _allArounds+ {-# LINE 710 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 290, column 10)+ _allMergesErrs =+ ({-# LINE 290 "Transform.ag" #-}+ Map.mapWithKey (Map.mapWithKey . (checkMerges _allNonterminals _allInsts _allFields )) _allMerges+ {-# LINE 716 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 292, column 10)+ _checkedRulesPre =+ ({-# LINE 292 "Transform.ag" #-}+ Map.map (Map.map fst) _allRulesErrs+ {-# LINE 722 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 293, column 10)+ _checkedSigs =+ ({-# LINE 293 "Transform.ag" #-}+ Map.map (Map.map fst) _allSigsErrs `unionunionplusplus` _augmentSigs+ {-# LINE 728 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 294, column 10)+ _checkedInsts =+ ({-# LINE 294 "Transform.ag" #-}+ Map.map (Map.map fst) _allInstsErrs+ {-# LINE 734 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 295, column 10)+ _checkedUniques =+ ({-# LINE 295 "Transform.ag" #-}+ Map.map (Map.map fst) _allUniquesErrs+ {-# LINE 740 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 296, column 10)+ _checkedAugments =+ ({-# LINE 296 "Transform.ag" #-}+ Map.map (Map.map fst) _allAugmentErrs+ {-# LINE 746 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 297, column 10)+ _checkedArounds =+ ({-# LINE 297 "Transform.ag" #-}+ Map.map (Map.map fst) _allAroundsErrs+ {-# LINE 752 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 298, column 10)+ _checkedRules =+ ({-# LINE 298 "Transform.ag" #-}+ Map.unionWith (Map.unionWith (++)) _checkedRulesPre (Map.mapWithKey (Map.mapWithKey . (mkUniqueRules _lhsIoptions _allFields _checkedInsts _allAttrDecls )) _checkedUniques )+ {-# LINE 758 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 299, column 10)+ _checkedMerges =+ ({-# LINE 299 "Transform.ag" #-}+ Map.map (Map.map fst) _allMergesErrs+ {-# LINE 764 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 301, column 10)+ _errs1 =+ ({-# LINE 301 "Transform.ag" #-}+ let f = checkForDuplicates (DupSynonym)+ in Seq.fromList . f . map fst $ _elemsItypeSyns+ {-# LINE 771 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 304, column 10)+ _errs2 =+ ({-# LINE 304 "Transform.ag" #-}+ let g nt (con,fm) = checkForDuplicates (DupChild nt con) (map fst fm)+ f (nt,cfm) = concat . map (g nt) . Map.toList $ cfm+ in Seq.fromList . concat . map f . Map.toList $ _allFields+ {-# LINE 779 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 308, column 10)+ _errs3 =+ ({-# LINE 308 "Transform.ag" #-}+ let f (nt,cons) = checkForDuplicates (DupAlt nt) cons+ in Seq.empty+ {-# LINE 786 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 312, column 10)+ _errs4 =+ ({-# LINE 312 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allRulesErrs+ {-# LINE 793 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 315, column 10)+ _errs5 =+ ({-# LINE 315 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allSigsErrs+ {-# LINE 800 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 318, column 10)+ _errs6 =+ ({-# LINE 318 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allInstsErrs+ {-# LINE 807 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 321, column 10)+ _errs7 =+ ({-# LINE 321 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allUniquesErrs+ {-# LINE 814 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 324, column 10)+ _errs8 =+ ({-# LINE 324 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allAugmentErrs+ {-# LINE 821 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 327, column 10)+ _errs9 =+ ({-# LINE 327 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allAroundsErrs+ {-# LINE 828 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 330, column 10)+ _errs10 =+ ({-# LINE 330 "Transform.ag" #-}+ let f m s = Map.fold ((><)) s m+ in Map.fold f Seq.empty _allNamesErrs+ {-# LINE 835 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 333, column 10)+ _errs11 =+ ({-# LINE 333 "Transform.ag" #-}+ let f m s = Map.fold ((><) . snd) s m+ in Map.fold f Seq.empty _allMergesErrs+ {-# LINE 842 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 336, column 10)+ _lhsOerrors =+ ({-# LINE 336 "Transform.ag" #-}+ _elemsIerrors >< _errs1 >< _errs2 >< _errs3 >< _errs4 >< _errs5 >< _errs6 >< _errs7 >< _errs8 >< _errs9 >< _errs10 >< _errs11+ {-# LINE 848 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 560, column 10)+ _allNonterminals =+ ({-# LINE 560 "Transform.ag" #-}+ _elemsIcollectedNames `Set.difference` _elemsIcollectedSetNames+ {-# LINE 854 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 580, column 8)+ _elemsOallConstructors =+ ({-# LINE 580 "Transform.ag" #-}+ _elemsIcollectedConstructorsMap+ {-# LINE 860 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 653, column 8)+ _elemsOdefSets =+ ({-# LINE 653 "Transform.ag" #-}+ Map.fromList (map (\x->(x,(Set.singleton x, Set.empty))) (Set.toList _allNonterminals ))+ {-# LINE 866 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 654, column 8)+ _elemsOdefinedSets =+ ({-# LINE 654 "Transform.ag" #-}+ Map.map fst _elemsIdefSets+ {-# LINE 872 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 908, column 8)+ _elemsOattrDecls =+ ({-# LINE 908 "Transform.ag" #-}+ Map.empty+ {-# LINE 878 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 961, column 9)+ _allAttrDecls =+ ({-# LINE 961 "Transform.ag" #-}+ if withSelf _lhsIoptions+ then foldr addSelf _elemsIattrDecls (Set.toList _allNonterminals )+ else _elemsIattrDecls+ {-# LINE 886 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ _elemsIblocks+ {-# LINE 892 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1085, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1085 "Transform.ag" #-}+ _elemsImoduleDecl+ {-# LINE 898 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 735, column 34)+ _lhsOpragmas =+ ({-# LINE 735 "Transform.ag" #-}+ _elemsIpragmas+ {-# LINE 904 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _elemsOallAttrDecls =+ ({-# LINE 810 "Transform.ag" #-}+ _allAttrDecls+ {-# LINE 910 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _elemsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _allFields+ {-# LINE 916 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _elemsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _allNonterminals+ {-# LINE 922 "Transform.hs" #-}+ )+ -- copy rule (down)+ _elemsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 928 "Transform.hs" #-}+ )+ ( _elemsIattrDecls,_elemsIattrOrderCollect,_elemsIblocks,_elemsIcollectedArounds,_elemsIcollectedAugments,_elemsIcollectedConstructorsMap,_elemsIcollectedFields,_elemsIcollectedInsts,_elemsIcollectedMerges,_elemsIcollectedNames,_elemsIcollectedRules,_elemsIcollectedSetNames,_elemsIcollectedSigs,_elemsIcollectedUniques,_elemsIctxCollect,_elemsIdefSets,_elemsIderivings,_elemsIerrors,_elemsImoduleDecl,_elemsIparamsCollect,_elemsIpragmas,_elemsIsemPragmasCollect,_elemsItypeSyns,_elemsIuseMap,_elemsIwrappers) =+ elems_ _elemsOallAttrDecls _elemsOallConstructors _elemsOallFields _elemsOallNonterminals _elemsOattrDecls _elemsOdefSets _elemsOdefinedSets _elemsOoptions + in ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas))) )+-- Alt ---------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allConstructors : Map NontermIdent (Set ConstructorIdent)+ allNonterminals : Set NontermIdent+ nts : Set NontermIdent+ synthesized attributes:+ collectedConstructorNames : Set ConstructorIdent+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ alternatives:+ alternative Alt:+ child pos : {Pos}+ child names : ConstructorSet + child fields : {Fields}+-}+-- cata+sem_Alt :: Alt ->+ T_Alt +sem_Alt (Alt _pos _names _fields ) =+ (sem_Alt_Alt _pos (sem_ConstructorSet _names ) _fields )+-- semantic domain+newtype T_Alt = T_Alt ((Map NontermIdent (Set ConstructorIdent)) ->+ (Set NontermIdent) ->+ (Set NontermIdent) ->+ ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)])))+data Inh_Alt = Inh_Alt {allConstructors_Inh_Alt :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alt :: !((Set NontermIdent)),nts_Inh_Alt :: !((Set NontermIdent))}+data Syn_Alt = Syn_Alt {collectedConstructorNames_Syn_Alt :: !((Set ConstructorIdent)),collectedFields_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))}+wrap_Alt :: T_Alt ->+ Inh_Alt ->+ Syn_Alt +wrap_Alt (T_Alt sem ) (Inh_Alt _lhsIallConstructors _lhsIallNonterminals _lhsInts ) =+ (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts + in (Syn_Alt _lhsOcollectedConstructorNames _lhsOcollectedFields ))+sem_Alt_Alt :: Pos ->+ T_ConstructorSet ->+ Fields ->+ T_Alt +sem_Alt_Alt pos_ (T_ConstructorSet names_ ) fields_ =+ (T_Alt (\ _lhsIallConstructors+ _lhsIallNonterminals+ _lhsInts ->+ (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _namesIcollectedConstructorNames :: (Set ConstructorIdent)+ _namesIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _namesIerrors :: (Seq Error)+ -- "Transform.ag"(line 238, column 10)+ _lhsOcollectedFields =+ ({-# LINE 238 "Transform.ag" #-}+ let fieldTable =+ [ (attr, makeType _lhsIallNonterminals tp)+ | (attr, tp) <- fields_+ ]+ in [ (nt, con, fieldTable)+ | nt <- Set.toList _lhsInts+ , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors))+ ]+ {-# LINE 991 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ _namesIcollectedConstructorNames+ {-# LINE 997 "Transform.hs" #-}+ )+ ( _namesIcollectedConstructorNames,_namesIconstructors,_namesIerrors) =+ names_ + in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )+-- Alts --------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allConstructors : Map NontermIdent (Set ConstructorIdent)+ allNonterminals : Set NontermIdent+ nts : Set NontermIdent+ synthesized attributes:+ collectedConstructorNames : Set ConstructorIdent+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ alternatives:+ alternative Cons:+ child hd : Alt + child tl : Alts + alternative Nil:+-}+-- cata+sem_Alts :: Alts ->+ T_Alts +sem_Alts list =+ (Prelude.foldr sem_Alts_Cons sem_Alts_Nil (Prelude.map sem_Alt list) )+-- semantic domain+newtype T_Alts = T_Alts ((Map NontermIdent (Set ConstructorIdent)) ->+ (Set NontermIdent) ->+ (Set NontermIdent) ->+ ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)])))+data Inh_Alts = Inh_Alts {allConstructors_Inh_Alts :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alts :: !((Set NontermIdent)),nts_Inh_Alts :: !((Set NontermIdent))}+data Syn_Alts = Syn_Alts {collectedConstructorNames_Syn_Alts :: !((Set ConstructorIdent)),collectedFields_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))}+wrap_Alts :: T_Alts ->+ Inh_Alts ->+ Syn_Alts +wrap_Alts (T_Alts sem ) (Inh_Alts _lhsIallConstructors _lhsIallNonterminals _lhsInts ) =+ (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts + in (Syn_Alts _lhsOcollectedConstructorNames _lhsOcollectedFields ))+sem_Alts_Cons :: T_Alt ->+ T_Alts ->+ T_Alts +sem_Alts_Cons (T_Alt hd_ ) (T_Alts tl_ ) =+ (T_Alts (\ _lhsIallConstructors+ _lhsIallNonterminals+ _lhsInts ->+ (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _hdOallNonterminals :: (Set NontermIdent)+ _hdOnts :: (Set NontermIdent)+ _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _tlOallNonterminals :: (Set NontermIdent)+ _tlOnts :: (Set NontermIdent)+ _hdIcollectedConstructorNames :: (Set ConstructorIdent)+ _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _tlIcollectedConstructorNames :: (Set ConstructorIdent)+ _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ _hdIcollectedConstructorNames `Set.union` _tlIcollectedConstructorNames+ {-# LINE 1059 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ _hdIcollectedFields ++ _tlIcollectedFields+ {-# LINE 1065 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 1071 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1077 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOnts =+ ({-# LINE 167 "Transform.ag" #-}+ _lhsInts+ {-# LINE 1083 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 1089 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1095 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOnts =+ ({-# LINE 167 "Transform.ag" #-}+ _lhsInts+ {-# LINE 1101 "Transform.hs" #-}+ )+ ( _hdIcollectedConstructorNames,_hdIcollectedFields) =+ hd_ _hdOallConstructors _hdOallNonterminals _hdOnts + ( _tlIcollectedConstructorNames,_tlIcollectedFields) =+ tl_ _tlOallConstructors _tlOallNonterminals _tlOnts + in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )+sem_Alts_Nil :: T_Alts +sem_Alts_Nil =+ (T_Alts (\ _lhsIallConstructors+ _lhsIallNonterminals+ _lhsInts ->+ (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ Set.empty+ {-# LINE 1119 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 1125 "Transform.hs" #-}+ )+ in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) )+-- Attrs -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFields : DataTypes+ allNonterminals : Set NontermIdent+ nts : Set NontermIdent+ options : Options+ chained attribute:+ attrDecls : Map NontermIdent (Attributes, Attributes)+ synthesized attributes:+ errors : Seq Error+ useMap : Map NontermIdent (Map Identifier (String,String,String))+ alternatives:+ alternative Attrs:+ child pos : {Pos}+ child inh : {AttrNames}+ child chn : {AttrNames}+ child syn : {AttrNames}+ visit 0:+ local _tup1 : _+ local attrDecls : _+ local errors : _+ local _tup2 : _+ local inherited : _+ local synthesized : _+ local useMap : _+ local errors1 : _+-}+-- cata+sem_Attrs :: Attrs ->+ T_Attrs +sem_Attrs (Attrs _pos _inh _chn _syn ) =+ (sem_Attrs_Attrs _pos _inh _chn _syn )+-- semantic domain+newtype T_Attrs = T_Attrs (DataTypes ->+ (Set NontermIdent) ->+ (Map NontermIdent (Attributes, Attributes)) ->+ (Set NontermIdent) ->+ Options ->+ ( (Map NontermIdent (Attributes, Attributes)),(Seq Error),(Map NontermIdent (Map Identifier (String,String,String)))))+data Inh_Attrs = Inh_Attrs {allFields_Inh_Attrs :: !(DataTypes),allNonterminals_Inh_Attrs :: !((Set NontermIdent)),attrDecls_Inh_Attrs :: !((Map NontermIdent (Attributes, Attributes))),nts_Inh_Attrs :: !((Set NontermIdent)),options_Inh_Attrs :: !(Options)}+data Syn_Attrs = Syn_Attrs {attrDecls_Syn_Attrs :: !((Map NontermIdent (Attributes, Attributes))),errors_Syn_Attrs :: !((Seq Error)),useMap_Syn_Attrs :: !((Map NontermIdent (Map Identifier (String,String,String))))}+wrap_Attrs :: T_Attrs ->+ Inh_Attrs ->+ Syn_Attrs +wrap_Attrs (T_Attrs sem ) (Inh_Attrs _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts _lhsIoptions ) =+ (let ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap) = sem _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts _lhsIoptions + in (Syn_Attrs _lhsOattrDecls _lhsOerrors _lhsOuseMap ))+sem_Attrs_Attrs :: Pos ->+ AttrNames ->+ AttrNames ->+ AttrNames ->+ T_Attrs +sem_Attrs_Attrs pos_ inh_ chn_ syn_ =+ (T_Attrs (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsInts+ _lhsIoptions ->+ (let _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOerrors :: (Seq Error)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ -- "Transform.ag"(line 916, column 15)+ __tup1 =+ ({-# LINE 916 "Transform.ag" #-}+ checkAttrs _lhsIallFields (Set.toList _lhsInts) _inherited _synthesized _lhsIattrDecls+ {-# LINE 1195 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 916, column 15)+ (_attrDecls,_) =+ ({-# LINE 916 "Transform.ag" #-}+ __tup1+ {-# LINE 1201 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 916, column 15)+ (_,_errors) =+ ({-# LINE 916 "Transform.ag" #-}+ __tup1+ {-# LINE 1207 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 918, column 15)+ __tup2 =+ ({-# LINE 918 "Transform.ag" #-}+ let splitAttrs xs = unzip [ ((n,makeType _lhsIallNonterminals t),(n,ud))+ | (n,t,ud) <- xs+ ]+ (inh,_) = splitAttrs inh_+ (chn,uses1) = splitAttrs chn_+ (syn,uses2) = splitAttrs syn_+ isUse (n,(e1,e2,_)) = not (null e1 || null e2)+ in (inh++chn,chn++syn, Map.fromList (Prelude.filter isUse (uses1++uses2)))+ {-# LINE 1220 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 918, column 15)+ (_inherited,_,_) =+ ({-# LINE 918 "Transform.ag" #-}+ __tup2+ {-# LINE 1226 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 918, column 15)+ (_,_synthesized,_) =+ ({-# LINE 918 "Transform.ag" #-}+ __tup2+ {-# LINE 1232 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 918, column 15)+ (_,_,_useMap) =+ ({-# LINE 918 "Transform.ag" #-}+ __tup2+ {-# LINE 1238 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 926, column 11)+ _lhsOuseMap =+ ({-# LINE 926 "Transform.ag" #-}+ Map.fromList (zip (Set.toList _lhsInts) (repeat _useMap))+ {-# LINE 1244 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 928, column 11)+ _errors1 =+ ({-# LINE 928 "Transform.ag" #-}+ if checkParseTy _lhsIoptions+ then let attrs = inh_ ++ syn_ ++ chn_+ items = map (\(ident,tp,_) -> (getPos ident, tp)) attrs+ errs = map check items+ check (pos,Haskell s) =+ let exp = Expression pos tks+ tks = [tk]+ tk = HsToken s pos+ in Seq.fromList $ checkTy exp+ check _ = Seq.empty+ in foldr (Seq.><) Seq.empty errs+ else Seq.empty+ {-# LINE 1261 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 940, column 11)+ _lhsOerrors =+ ({-# LINE 940 "Transform.ag" #-}+ _errors Seq.>< _errors1+ {-# LINE 1267 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _attrDecls+ {-# LINE 1273 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap))) )+-- ConstructorSet ----------------------------------------------+{-+ visit 0:+ synthesized attributes:+ collectedConstructorNames : Set ConstructorIdent+ constructors : (Set ConstructorIdent->Set ConstructorIdent)+ errors : Seq Error+ alternatives:+ alternative CAll:+ alternative CDifference:+ child set1 : ConstructorSet + child set2 : ConstructorSet + alternative CName:+ child name : {ConstructorIdent}+ alternative CUnion:+ child set1 : ConstructorSet + child set2 : ConstructorSet +-}+-- cata+sem_ConstructorSet :: ConstructorSet ->+ T_ConstructorSet +sem_ConstructorSet (CAll ) =+ (sem_ConstructorSet_CAll )+sem_ConstructorSet (CDifference _set1 _set2 ) =+ (sem_ConstructorSet_CDifference (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) )+sem_ConstructorSet (CName _name ) =+ (sem_ConstructorSet_CName _name )+sem_ConstructorSet (CUnion _set1 _set2 ) =+ (sem_ConstructorSet_CUnion (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) )+-- semantic domain+newtype T_ConstructorSet = T_ConstructorSet (( (Set ConstructorIdent),((Set ConstructorIdent->Set ConstructorIdent)),(Seq Error)))+data Inh_ConstructorSet = Inh_ConstructorSet {}+data Syn_ConstructorSet = Syn_ConstructorSet {collectedConstructorNames_Syn_ConstructorSet :: !((Set ConstructorIdent)),constructors_Syn_ConstructorSet :: !(((Set ConstructorIdent->Set ConstructorIdent))),errors_Syn_ConstructorSet :: !((Seq Error))}+wrap_ConstructorSet :: T_ConstructorSet ->+ Inh_ConstructorSet ->+ Syn_ConstructorSet +wrap_ConstructorSet (T_ConstructorSet sem ) (Inh_ConstructorSet ) =+ (let ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors) = sem + in (Syn_ConstructorSet _lhsOcollectedConstructorNames _lhsOconstructors _lhsOerrors ))+sem_ConstructorSet_CAll :: T_ConstructorSet +sem_ConstructorSet_CAll =+ (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOerrors :: (Seq Error)+ -- "Transform.ag"(line 720, column 17)+ _lhsOconstructors =+ ({-# LINE 720 "Transform.ag" #-}+ \ds -> ds+ {-# LINE 1324 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ Set.empty+ {-# LINE 1330 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 1336 "Transform.hs" #-}+ )+ in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )+sem_ConstructorSet_CDifference :: T_ConstructorSet ->+ T_ConstructorSet ->+ T_ConstructorSet +sem_ConstructorSet_CDifference (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) =+ (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOerrors :: (Seq Error)+ _set1IcollectedConstructorNames :: (Set ConstructorIdent)+ _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _set1Ierrors :: (Seq Error)+ _set2IcollectedConstructorNames :: (Set ConstructorIdent)+ _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _set2Ierrors :: (Seq Error)+ -- "Transform.ag"(line 719, column 17)+ _lhsOconstructors =+ ({-# LINE 719 "Transform.ag" #-}+ \ds -> _set1Iconstructors ds `Set.difference` _set2Iconstructors ds+ {-# LINE 1356 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames+ {-# LINE 1362 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 1368 "Transform.hs" #-}+ )+ ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =+ set1_ + ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =+ set2_ + in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )+sem_ConstructorSet_CName :: ConstructorIdent ->+ T_ConstructorSet +sem_ConstructorSet_CName name_ =+ (T_ConstructorSet (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _lhsOerrors :: (Seq Error)+ -- "Transform.ag"(line 568, column 11)+ _lhsOcollectedConstructorNames =+ ({-# LINE 568 "Transform.ag" #-}+ Set.singleton name_+ {-# LINE 1385 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 717, column 17)+ _lhsOconstructors =+ ({-# LINE 717 "Transform.ag" #-}+ \ds -> Set.singleton name_+ {-# LINE 1391 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 1397 "Transform.hs" #-}+ )+ in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )+sem_ConstructorSet_CUnion :: T_ConstructorSet ->+ T_ConstructorSet ->+ T_ConstructorSet +sem_ConstructorSet_CUnion (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) =+ (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _lhsOcollectedConstructorNames :: (Set ConstructorIdent)+ _lhsOerrors :: (Seq Error)+ _set1IcollectedConstructorNames :: (Set ConstructorIdent)+ _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _set1Ierrors :: (Seq Error)+ _set2IcollectedConstructorNames :: (Set ConstructorIdent)+ _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _set2Ierrors :: (Seq Error)+ -- "Transform.ag"(line 718, column 17)+ _lhsOconstructors =+ ({-# LINE 718 "Transform.ag" #-}+ \ds -> _set1Iconstructors ds `Set.union` _set2Iconstructors ds+ {-# LINE 1417 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 93, column 62)+ _lhsOcollectedConstructorNames =+ ({-# LINE 93 "Transform.ag" #-}+ _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames+ {-# LINE 1423 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 1429 "Transform.hs" #-}+ )+ ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) =+ set1_ + ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) =+ set2_ + in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) )+-- Elem --------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allConstructors : Map NontermIdent (Set ConstructorIdent)+ allFields : DataTypes+ allNonterminals : Set NontermIdent+ definedSets : DefinedSets+ options : Options+ chained attributes:+ attrDecls : Map NontermIdent (Attributes, Attributes)+ defSets : Map Identifier (Set NontermIdent,Set Identifier)+ synthesized attributes:+ attrOrderCollect : AttrOrderMap+ blocks : Blocks+ collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]+ collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]+ collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]+ collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]+ collectedNames : Set Identifier+ collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]+ collectedSetNames : Set Identifier+ collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]+ collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]+ ctxCollect : ContextMap+ derivings : Derivings+ errors : Seq Error+ moduleDecl : Maybe (String,String,String)+ paramsCollect : ParamMap+ pragmas : Options -> Options+ semPragmasCollect : PragmaMap+ typeSyns : TypeSyns+ useMap : Map NontermIdent (Map Identifier (String,String,String))+ wrappers : Set NontermIdent+ alternatives:+ alternative Attr:+ child pos : {Pos}+ child ctx : {ClassContext}+ child names : NontSet + child attrs : Attrs + alternative Data:+ child pos : {Pos}+ child ctx : {ClassContext}+ child names : NontSet + child params : {[Identifier]}+ child attrs : Attrs + child alts : Alts + child ext : {Bool}+ alternative Deriving:+ child pos : {Pos}+ child set : NontSet + child classes : {[NontermIdent]}+ alternative Module:+ child pos : {Pos}+ child name : {String}+ child exports : {String}+ child imports : {String}+ alternative Pragma:+ child pos : {Pos}+ child names : {[NontermIdent]}+ alternative Sem:+ child pos : {Pos}+ child ctx : {ClassContext}+ child names : NontSet + child attrs : Attrs + child alts : SemAlts + alternative Set:+ child pos : {Pos}+ child name : {NontermIdent}+ child set : NontSet + visit 0:+ local _tup3 : _+ local defSets2 : _+ local errs : _+ alternative Txt:+ child pos : {Pos}+ child name : {Identifier}+ child mbNt : {Maybe NontermIdent}+ child lines : {[String]}+ visit 0:+ local blockInfo : _+ local blockValue : _+ alternative Type:+ child pos : {Pos}+ child ctx : {ClassContext}+ child name : {NontermIdent}+ child params : {[Identifier]}+ child type : {ComplexType}+ visit 0:+ local expanded : _+ local argType : _+ alternative Wrapper:+ child pos : {Pos}+ child set : NontSet +-}+-- cata+sem_Elem :: Elem ->+ T_Elem +sem_Elem (Attr _pos _ctx _names _attrs ) =+ (sem_Elem_Attr _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) )+sem_Elem (Data _pos _ctx _names _params _attrs _alts _ext ) =+ (sem_Elem_Data _pos _ctx (sem_NontSet _names ) _params (sem_Attrs _attrs ) (sem_Alts _alts ) _ext )+sem_Elem (Deriving _pos _set _classes ) =+ (sem_Elem_Deriving _pos (sem_NontSet _set ) _classes )+sem_Elem (Module _pos _name _exports _imports ) =+ (sem_Elem_Module _pos _name _exports _imports )+sem_Elem (Pragma _pos _names ) =+ (sem_Elem_Pragma _pos _names )+sem_Elem (Sem _pos _ctx _names _attrs _alts ) =+ (sem_Elem_Sem _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) (sem_SemAlts _alts ) )+sem_Elem (Set _pos _name _set ) =+ (sem_Elem_Set _pos _name (sem_NontSet _set ) )+sem_Elem (Txt _pos _name _mbNt _lines ) =+ (sem_Elem_Txt _pos _name _mbNt _lines )+sem_Elem (Type _pos _ctx _name _params _type ) =+ (sem_Elem_Type _pos _ctx _name _params _type )+sem_Elem (Wrapper _pos _set ) =+ (sem_Elem_Wrapper _pos (sem_NontSet _set ) )+-- semantic domain+newtype T_Elem = T_Elem ((Map NontermIdent (Attributes, Attributes)) ->+ (Map NontermIdent (Set ConstructorIdent)) ->+ DataTypes ->+ (Set NontermIdent) ->+ (Map NontermIdent (Attributes, Attributes)) ->+ (Map Identifier (Set NontermIdent,Set Identifier)) ->+ DefinedSets ->+ Options ->+ ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))+data Inh_Elem = Inh_Elem {allAttrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elem :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elem :: !(DataTypes),allNonterminals_Inh_Elem :: !((Set NontermIdent)),attrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elem :: !(DefinedSets),options_Inh_Elem :: !(Options)}+data Syn_Elem = Syn_Elem {attrDecls_Syn_Elem :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elem :: !(AttrOrderMap),blocks_Syn_Elem :: !(Blocks),collectedArounds_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elem :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elem :: !((Set Identifier)),collectedRules_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elem :: !((Set Identifier)),collectedSigs_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elem :: !(ContextMap),defSets_Syn_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elem :: !(Derivings),errors_Syn_Elem :: !((Seq Error)),moduleDecl_Syn_Elem :: !((Maybe (String,String,String))),paramsCollect_Syn_Elem :: !(ParamMap),pragmas_Syn_Elem :: !((Options -> Options)),semPragmasCollect_Syn_Elem :: !(PragmaMap),typeSyns_Syn_Elem :: !(TypeSyns),useMap_Syn_Elem :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elem :: !((Set NontermIdent))}+wrap_Elem :: T_Elem ->+ Inh_Elem ->+ Syn_Elem +wrap_Elem (T_Elem sem ) (Inh_Elem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions ) =+ (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions + in (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers ))+sem_Elem_Attr :: Pos ->+ ClassContext ->+ T_NontSet ->+ T_Attrs ->+ T_Elem +sem_Elem_Attr pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOctxCollect :: ContextMap+ _attrsOnts :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _namesOallFields :: DataTypes+ _namesOallNonterminals :: (Set NontermIdent)+ _namesOdefinedSets :: DefinedSets+ _attrsOallFields :: DataTypes+ _attrsOallNonterminals :: (Set NontermIdent)+ _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsOoptions :: Options+ _namesIcollectedNames :: (Set Identifier)+ _namesIerrors :: (Seq Error)+ _namesInontSet :: (Set NontermIdent)+ _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsIerrors :: (Seq Error)+ _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ -- "Transform.ag"(line 868, column 7)+ _lhsOctxCollect =+ ({-# LINE 868 "Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]+ {-# LINE 1634 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 912, column 10)+ _attrsOnts =+ ({-# LINE 912 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 1640 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 809, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 809 "Transform.ag" #-}+ Map.empty+ {-# LINE 1646 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 1652 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 1658 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 1664 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 1670 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 1676 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 1682 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 1688 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _namesIcollectedNames+ {-# LINE 1694 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 1700 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 1706 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 1712 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 1718 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 889, column 33)+ _lhsOderivings =+ ({-# LINE 889 "Transform.ag" #-}+ Map.empty+ {-# LINE 1724 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _namesIerrors Seq.>< _attrsIerrors+ {-# LINE 1730 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1085, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1085 "Transform.ag" #-}+ mzero+ {-# LINE 1736 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 841, column 37)+ _lhsOparamsCollect =+ ({-# LINE 841 "Transform.ag" #-}+ Map.empty+ {-# LINE 1742 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 735, column 34)+ _lhsOpragmas =+ ({-# LINE 735 "Transform.ag" #-}+ id+ {-# LINE 1748 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 781, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 781 "Transform.ag" #-}+ Map.empty+ {-# LINE 1754 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 1760 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ _attrsIuseMap+ {-# LINE 1766 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 726, column 32)+ _lhsOwrappers =+ ({-# LINE 726 "Transform.ag" #-}+ Set.empty+ {-# LINE 1772 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _attrsIattrDecls+ {-# LINE 1778 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 1784 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 1790 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1796 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 1802 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 1808 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 1814 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 1820 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 1826 "Transform.hs" #-}+ )+ ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =+ names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =+ attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Data :: Pos ->+ ClassContext ->+ T_NontSet ->+ ([Identifier]) ->+ T_Attrs ->+ T_Alts ->+ Bool ->+ T_Elem +sem_Elem_Data pos_ ctx_ (T_NontSet names_ ) params_ (T_Attrs attrs_ ) (T_Alts alts_ ) ext_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _altsOnts :: (Set NontermIdent)+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOparamsCollect :: ParamMap+ _lhsOctxCollect :: ContextMap+ _attrsOnts :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _namesOallFields :: DataTypes+ _namesOallNonterminals :: (Set NontermIdent)+ _namesOdefinedSets :: DefinedSets+ _attrsOallFields :: DataTypes+ _attrsOallNonterminals :: (Set NontermIdent)+ _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsOoptions :: Options+ _altsOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _altsOallNonterminals :: (Set NontermIdent)+ _namesIcollectedNames :: (Set Identifier)+ _namesIerrors :: (Seq Error)+ _namesInontSet :: (Set NontermIdent)+ _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsIerrors :: (Seq Error)+ _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _altsIcollectedConstructorNames :: (Set ConstructorIdent)+ _altsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ -- "Transform.ag"(line 170, column 10)+ _altsOnts =+ ({-# LINE 170 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 1898 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 574, column 11)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 574 "Transform.ag" #-}+ Map.fromList+ [ (n, _altsIcollectedConstructorNames)+ | n <- Set.toList _namesInontSet+ ]+ {-# LINE 1907 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 845, column 7)+ _lhsOparamsCollect =+ ({-# LINE 845 "Transform.ag" #-}+ if null params_+ then Map.empty+ else Map.fromList [(nt, params_) | nt <- Set.toList _namesInontSet]+ {-# LINE 1915 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 868, column 7)+ _lhsOctxCollect =+ ({-# LINE 868 "Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]+ {-# LINE 1923 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 911, column 10)+ _attrsOnts =+ ({-# LINE 911 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 1929 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 809, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 809 "Transform.ag" #-}+ Map.empty+ {-# LINE 1935 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 1941 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 1947 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 1953 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ _altsIcollectedFields+ {-# LINE 1959 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 1965 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 1971 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _namesIcollectedNames+ {-# LINE 1977 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 1983 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 1989 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 1995 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 2001 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 889, column 33)+ _lhsOderivings =+ ({-# LINE 889 "Transform.ag" #-}+ Map.empty+ {-# LINE 2007 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _namesIerrors Seq.>< _attrsIerrors+ {-# LINE 2013 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1085, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1085 "Transform.ag" #-}+ mzero+ {-# LINE 2019 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 735, column 34)+ _lhsOpragmas =+ ({-# LINE 735 "Transform.ag" #-}+ id+ {-# LINE 2025 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 781, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 781 "Transform.ag" #-}+ Map.empty+ {-# LINE 2031 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2037 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ _attrsIuseMap+ {-# LINE 2043 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 726, column 32)+ _lhsOwrappers =+ ({-# LINE 726 "Transform.ag" #-}+ Set.empty+ {-# LINE 2049 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _attrsIattrDecls+ {-# LINE 2055 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2061 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2067 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2073 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 2079 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2085 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2091 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2097 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 2103 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 2109 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2115 "Transform.hs" #-}+ )+ ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =+ names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =+ attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions + ( _altsIcollectedConstructorNames,_altsIcollectedFields) =+ alts_ _altsOallConstructors _altsOallNonterminals _altsOnts + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Deriving :: Pos ->+ T_NontSet ->+ ([NontermIdent]) ->+ T_Elem +sem_Elem_Deriving pos_ (T_NontSet set_ ) classes_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOderivings :: Derivings+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _setOallFields :: DataTypes+ _setOallNonterminals :: (Set NontermIdent)+ _setOdefinedSets :: DefinedSets+ _setIcollectedNames :: (Set Identifier)+ _setIerrors :: (Seq Error)+ _setInontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 896, column 14)+ _lhsOderivings =+ ({-# LINE 896 "Transform.ag" #-}+ Map.fromList [(nt,Set.fromList classes_) | nt <- Set.toList _setInontSet]+ {-# LINE 2172 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 809, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 809 "Transform.ag" #-}+ Map.empty+ {-# LINE 2178 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 2184 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 2190 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 2196 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 2202 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 2208 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 2214 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 2220 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _setIcollectedNames+ {-# LINE 2226 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 2232 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 2238 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 2244 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 2250 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 864, column 34)+ _lhsOctxCollect =+ ({-# LINE 864 "Transform.ag" #-}+ Map.empty+ {-# LINE 2256 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _setIerrors+ {-# LINE 2262 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1085, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1085 "Transform.ag" #-}+ mzero+ {-# LINE 2268 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 841, column 37)+ _lhsOparamsCollect =+ ({-# LINE 841 "Transform.ag" #-}+ Map.empty+ {-# LINE 2274 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 735, column 34)+ _lhsOpragmas =+ ({-# LINE 735 "Transform.ag" #-}+ id+ {-# LINE 2280 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 781, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 781 "Transform.ag" #-}+ Map.empty+ {-# LINE 2286 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2292 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 2298 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 726, column 32)+ _lhsOwrappers =+ ({-# LINE 726 "Transform.ag" #-}+ Set.empty+ {-# LINE 2304 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2310 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2316 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2322 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 2328 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 2334 "Transform.hs" #-}+ )+ ( _setIcollectedNames,_setIerrors,_setInontSet) =+ set_ _setOallFields _setOallNonterminals _setOdefinedSets + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Module :: Pos ->+ String ->+ String ->+ String ->+ T_Elem +sem_Elem_Module pos_ name_ exports_ imports_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "Transform.ag"(line 1089, column 7)+ _lhsOmoduleDecl =+ ({-# LINE 1089 "Transform.ag" #-}+ Just (name_, exports_, imports_)+ {-# LINE 2382 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 809, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 809 "Transform.ag" #-}+ Map.empty+ {-# LINE 2388 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 2394 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 2400 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 2406 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 2412 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 2418 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 2424 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 2430 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 2436 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 2442 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 2448 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 2454 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 2460 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 864, column 34)+ _lhsOctxCollect =+ ({-# LINE 864 "Transform.ag" #-}+ Map.empty+ {-# LINE 2466 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 889, column 33)+ _lhsOderivings =+ ({-# LINE 889 "Transform.ag" #-}+ Map.empty+ {-# LINE 2472 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 2478 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 841, column 37)+ _lhsOparamsCollect =+ ({-# LINE 841 "Transform.ag" #-}+ Map.empty+ {-# LINE 2484 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 735, column 34)+ _lhsOpragmas =+ ({-# LINE 735 "Transform.ag" #-}+ id+ {-# LINE 2490 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 781, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 781 "Transform.ag" #-}+ Map.empty+ {-# LINE 2496 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2502 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 2508 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 726, column 32)+ _lhsOwrappers =+ ({-# LINE 726 "Transform.ag" #-}+ Set.empty+ {-# LINE 2514 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2520 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2526 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Pragma :: Pos ->+ ([NontermIdent]) ->+ T_Elem +sem_Elem_Pragma pos_ names_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOpragmas :: (Options -> Options)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "Transform.ag"(line 738, column 13)+ _lhsOpragmas =+ ({-# LINE 738 "Transform.ag" #-}+ let mk n o = case getName n of+ "gencatas" -> o { folds = True }+ "nogencatas" -> o { folds = False }+ "gendatas" -> o { dataTypes = True }+ "nogendatas" -> o { dataTypes = False }+ "gensems" -> o { semfuns = True }+ "nogensems" -> o { semfuns = False }+ "gentypesigs" -> o { typeSigs = True }+ "nogentypesigs"-> o { typeSigs = False }+ "nocycle" -> o { withCycle = False }+ "cycle" -> o { withCycle = True }+ "nostrictdata" -> o { strictData = False }+ "strictdata" -> o { strictData = True }+ "nostrictcase" -> o { strictCases = False }+ "strictcase" -> o { strictCases = True }+ "strictercase" -> o { strictCases = True, stricterCases = True }+ "nostrictwrap" -> o { strictWrap = False }+ "strictwrap" -> o { strictWrap = True }+ "novisit" -> o { visit = False }+ "visit" -> o { visit = True }+ "nocase" -> o { cases = False }+ "case" -> o { cases = True }+ "noseq" -> o { withSeq = False }+ "seq" -> o { withSeq = True }+ "nounbox" -> o { unbox = False }+ "unbox" -> o { unbox = True }+ "bangpats" -> o { bangpats = True }+ "breadthfirst" -> o { breadthFirst = True }+ "breadthfirstStrict" -> o { breadthFirstStrict = True }+ "nooptimize" -> o { cases = False , visit = False }+ "optimize" -> o { cases = True , visit = True }+ "strictsem" -> o { strictSems = True }+ "gentraces" -> o { genTraces = True }+ "genusetraces" -> o { genUseTraces = True }+ "splitsems" -> o { splitSems = True }+ "gencostcentres" -> o { genCostCentres = True }+ "sepsemmods" -> o { sepSemMods = True }+ "genlinepragmas" -> o { genLinePragmas = True }+ "newtypes" -> o { newtypes = True }+ "nonewtypes" -> o { newtypes = False }+ _ -> o+ in \o -> foldr mk o names_+ {-# LINE 2611 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 809, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 809 "Transform.ag" #-}+ Map.empty+ {-# LINE 2617 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 2623 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 2629 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 2635 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 2641 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 2647 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 2653 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 2659 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 2665 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 2671 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 2677 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 2683 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 2689 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 864, column 34)+ _lhsOctxCollect =+ ({-# LINE 864 "Transform.ag" #-}+ Map.empty+ {-# LINE 2695 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 889, column 33)+ _lhsOderivings =+ ({-# LINE 889 "Transform.ag" #-}+ Map.empty+ {-# LINE 2701 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 2707 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1085, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1085 "Transform.ag" #-}+ mzero+ {-# LINE 2713 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 841, column 37)+ _lhsOparamsCollect =+ ({-# LINE 841 "Transform.ag" #-}+ Map.empty+ {-# LINE 2719 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 781, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 781 "Transform.ag" #-}+ Map.empty+ {-# LINE 2725 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2731 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 2737 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 726, column 32)+ _lhsOwrappers =+ ({-# LINE 726 "Transform.ag" #-}+ Set.empty+ {-# LINE 2743 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 2749 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2755 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Sem :: Pos ->+ ClassContext ->+ T_NontSet ->+ T_Attrs ->+ T_SemAlts ->+ T_Elem +sem_Elem_Sem pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) (T_SemAlts alts_ ) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _altsOnts :: (Set NontermIdent)+ _lhsOctxCollect :: ContextMap+ _attrsOnts :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _namesOallFields :: DataTypes+ _namesOallNonterminals :: (Set NontermIdent)+ _namesOdefinedSets :: DefinedSets+ _attrsOallFields :: DataTypes+ _attrsOallNonterminals :: (Set NontermIdent)+ _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsOoptions :: Options+ _altsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _altsOallFields :: DataTypes+ _altsOoptions :: Options+ _namesIcollectedNames :: (Set Identifier)+ _namesIerrors :: (Seq Error)+ _namesInontSet :: (Set NontermIdent)+ _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _attrsIerrors :: (Seq Error)+ _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _altsIattrOrderCollect :: AttrOrderMap+ _altsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _altsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _altsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _altsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _altsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _altsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _altsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _altsIerrors :: (Seq Error)+ _altsIsemPragmasCollect :: PragmaMap+ -- "Transform.ag"(line 171, column 10)+ _altsOnts =+ ({-# LINE 171 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 2830 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 868, column 7)+ _lhsOctxCollect =+ ({-# LINE 868 "Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet]+ {-# LINE 2838 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 913, column 10)+ _attrsOnts =+ ({-# LINE 913 "Transform.ag" #-}+ _namesInontSet+ {-# LINE 2844 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 809, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 809 "Transform.ag" #-}+ _altsIattrOrderCollect+ {-# LINE 2850 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 2856 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ _altsIcollectedArounds+ {-# LINE 2862 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ _altsIcollectedAugments+ {-# LINE 2868 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 2874 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 2880 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ _altsIcollectedInsts+ {-# LINE 2886 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ _altsIcollectedMerges+ {-# LINE 2892 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _namesIcollectedNames+ {-# LINE 2898 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ _altsIcollectedRules+ {-# LINE 2904 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 2910 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ _altsIcollectedSigs+ {-# LINE 2916 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ _altsIcollectedUniques+ {-# LINE 2922 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 889, column 33)+ _lhsOderivings =+ ({-# LINE 889 "Transform.ag" #-}+ Map.empty+ {-# LINE 2928 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _namesIerrors Seq.>< _attrsIerrors Seq.>< _altsIerrors+ {-# LINE 2934 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1085, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1085 "Transform.ag" #-}+ mzero+ {-# LINE 2940 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 841, column 37)+ _lhsOparamsCollect =+ ({-# LINE 841 "Transform.ag" #-}+ Map.empty+ {-# LINE 2946 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 735, column 34)+ _lhsOpragmas =+ ({-# LINE 735 "Transform.ag" #-}+ id+ {-# LINE 2952 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 781, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 781 "Transform.ag" #-}+ _altsIsemPragmasCollect+ {-# LINE 2958 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 2964 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ _attrsIuseMap+ {-# LINE 2970 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 726, column 32)+ _lhsOwrappers =+ ({-# LINE 726 "Transform.ag" #-}+ Set.empty+ {-# LINE 2976 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _attrsIattrDecls+ {-# LINE 2982 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 2988 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 2994 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 3000 "Transform.hs" #-}+ )+ -- copy rule (down)+ _namesOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 3006 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3012 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 3018 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3024 "Transform.hs" #-}+ )+ -- copy rule (down)+ _attrsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 3030 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOallAttrDecls =+ ({-# LINE 810 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 3036 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3042 "Transform.hs" #-}+ )+ -- copy rule (down)+ _altsOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 3048 "Transform.hs" #-}+ )+ ( _namesIcollectedNames,_namesIerrors,_namesInontSet) =+ names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) =+ attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions + ( _altsIattrOrderCollect,_altsIcollectedArounds,_altsIcollectedAugments,_altsIcollectedInsts,_altsIcollectedMerges,_altsIcollectedRules,_altsIcollectedSigs,_altsIcollectedUniques,_altsIerrors,_altsIsemPragmasCollect) =+ alts_ _altsOallAttrDecls _altsOallFields _altsOnts _altsOoptions + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Set :: Pos ->+ NontermIdent ->+ T_NontSet ->+ T_Elem +sem_Elem_Set pos_ name_ (T_NontSet set_ ) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _lhsOerrors :: (Seq Error)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _setOallFields :: DataTypes+ _setOallNonterminals :: (Set NontermIdent)+ _setOdefinedSets :: DefinedSets+ _setIcollectedNames :: (Set Identifier)+ _setIerrors :: (Seq Error)+ _setInontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 551, column 10)+ _lhsOcollectedSetNames =+ ({-# LINE 551 "Transform.ag" #-}+ Set.singleton name_+ {-# LINE 3105 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 658, column 13)+ __tup3 =+ ({-# LINE 658 "Transform.ag" #-}+ let allUsedNames = Set.unions [ maybe (Set.singleton n)+ snd+ (Map.lookup n _lhsIdefSets)+ | n <- Set.toList _setIcollectedNames+ ]+ (nontSet,e1) | Set.member name_ allUsedNames+ = (Set.empty, Seq.singleton(CyclicSet name_))+ | otherwise = (_setInontSet, Seq.empty)+ (res, e2) = checkDuplicate DupSet name_ (nontSet,Set.insert name_ allUsedNames) _lhsIdefSets+ in (res, e1 Seq.>< e2)+ {-# LINE 3120 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 658, column 13)+ (_defSets2,_) =+ ({-# LINE 658 "Transform.ag" #-}+ __tup3+ {-# LINE 3126 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 658, column 13)+ (_,_errs) =+ ({-# LINE 658 "Transform.ag" #-}+ __tup3+ {-# LINE 3132 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 668, column 9)+ _lhsOdefSets =+ ({-# LINE 668 "Transform.ag" #-}+ _defSets2+ {-# LINE 3138 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 668, column 9)+ _lhsOerrors =+ ({-# LINE 669 "Transform.ag" #-}+ _errs >< _setIerrors+ {-# LINE 3144 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 809, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 809 "Transform.ag" #-}+ Map.empty+ {-# LINE 3150 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 3156 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 3162 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 3168 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 3174 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 3180 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 3186 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 3192 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _setIcollectedNames+ {-# LINE 3198 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 3204 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 3210 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 3216 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 864, column 34)+ _lhsOctxCollect =+ ({-# LINE 864 "Transform.ag" #-}+ Map.empty+ {-# LINE 3222 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 889, column 33)+ _lhsOderivings =+ ({-# LINE 889 "Transform.ag" #-}+ Map.empty+ {-# LINE 3228 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1085, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1085 "Transform.ag" #-}+ mzero+ {-# LINE 3234 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 841, column 37)+ _lhsOparamsCollect =+ ({-# LINE 841 "Transform.ag" #-}+ Map.empty+ {-# LINE 3240 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 735, column 34)+ _lhsOpragmas =+ ({-# LINE 735 "Transform.ag" #-}+ id+ {-# LINE 3246 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 781, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 781 "Transform.ag" #-}+ Map.empty+ {-# LINE 3252 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 3258 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 3264 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 726, column 32)+ _lhsOwrappers =+ ({-# LINE 726 "Transform.ag" #-}+ Set.empty+ {-# LINE 3270 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3276 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3282 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 3288 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 3294 "Transform.hs" #-}+ )+ ( _setIcollectedNames,_setIerrors,_setInontSet) =+ set_ _setOallFields _setOallNonterminals _setOdefinedSets + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Txt :: Pos ->+ Identifier ->+ (Maybe NontermIdent) ->+ ([String]) ->+ T_Elem +sem_Elem_Txt pos_ name_ mbNt_ lines_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOblocks :: Blocks+ _lhsOerrors :: (Seq Error)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "Transform.ag"(line 180, column 10)+ _blockInfo =+ ({-# LINE 180 "Transform.ag" #-}+ ( let nm = getName name_+ in if nm == "imports"+ then BlockImport+ else if nm == "optpragmas"+ then BlockPragma+ else BlockOther+ , mbNt_+ )+ {-# LINE 3349 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 188, column 10)+ _blockValue =+ ({-# LINE 188 "Transform.ag" #-}+ [(lines_, pos_)]+ {-# LINE 3355 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 189, column 10)+ _lhsOblocks =+ ({-# LINE 189 "Transform.ag" #-}+ Map.singleton _blockInfo _blockValue+ {-# LINE 3361 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 190, column 10)+ _lhsOerrors =+ ({-# LINE 190 "Transform.ag" #-}+ if checkParseBlock _lhsIoptions+ then let exp = Expression pos_ tks+ tks = [tk]+ tk = HsToken (unlines lines_) pos_+ in Seq.fromList $ checkBlock $ exp+ else Seq.empty+ {-# LINE 3372 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 809, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 809 "Transform.ag" #-}+ Map.empty+ {-# LINE 3378 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 3384 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 3390 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 3396 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 3402 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 3408 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 3414 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 3420 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 3426 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 3432 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 3438 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 3444 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 864, column 34)+ _lhsOctxCollect =+ ({-# LINE 864 "Transform.ag" #-}+ Map.empty+ {-# LINE 3450 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 889, column 33)+ _lhsOderivings =+ ({-# LINE 889 "Transform.ag" #-}+ Map.empty+ {-# LINE 3456 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1085, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1085 "Transform.ag" #-}+ mzero+ {-# LINE 3462 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 841, column 37)+ _lhsOparamsCollect =+ ({-# LINE 841 "Transform.ag" #-}+ Map.empty+ {-# LINE 3468 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 735, column 34)+ _lhsOpragmas =+ ({-# LINE 735 "Transform.ag" #-}+ id+ {-# LINE 3474 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 781, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 781 "Transform.ag" #-}+ Map.empty+ {-# LINE 3480 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 3486 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 3492 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 726, column 32)+ _lhsOwrappers =+ ({-# LINE 726 "Transform.ag" #-}+ Set.empty+ {-# LINE 3498 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3504 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 3510 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Type :: Pos ->+ ClassContext ->+ NontermIdent ->+ ([Identifier]) ->+ ComplexType ->+ T_Elem +sem_Elem_Type pos_ ctx_ name_ params_ type_ =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOtypeSyns :: TypeSyns+ _lhsOparamsCollect :: ParamMap+ _lhsOctxCollect :: ContextMap+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- "Transform.ag"(line 248, column 10)+ _lhsOcollectedFields =+ ({-# LINE 248 "Transform.ag" #-}+ map (\(x,y)->(name_, x, y)) _expanded+ {-# LINE 3557 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 554, column 11)+ _lhsOcollectedNames =+ ({-# LINE 554 "Transform.ag" #-}+ Set.singleton name_+ {-# LINE 3563 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 608, column 11)+ _expanded =+ ({-# LINE 608 "Transform.ag" #-}+ case _argType of+ List tp -> [(Ident "Cons" pos_, [(Ident "hd" pos_, tp)+ ,(Ident "tl" pos_, NT name_ (map getName params_))+ ]+ )+ ,(Ident "Nil" pos_, [])+ ]+ Maybe tp -> [(Ident "Just" pos_, [(Ident "just" pos_, tp)+ ]+ )+ ,(Ident "Nothing" pos_, [])+ ]+ Either tp1 tp2 -> [+ (Ident "Left" pos_, [(Ident "left" pos_, tp1) ])+ , (Ident "Right" pos_, [(Ident "right" pos_, tp2) ])+ ]+ Map tp1 tp2 -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, tp1)+ , (Ident "val" pos_, tp2)+ , (Ident "tl" pos_, NT name_ (map getName params_))+ ])+ , (Ident "Nil" pos_, [])+ ]+ IntMap tp -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, Haskell "Int")+ , (Ident "val" pos_, tp)+ , (Ident "tl" pos_, NT name_ (map getName params_))+ ])+ , (Ident "Nil" pos_, [])+ ]+ Tuple xs -> [(Ident "Tuple" pos_, xs)]+ {-# LINE 3597 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 637, column 11)+ _argType =+ ({-# LINE 637 "Transform.ag" #-}+ case type_ of+ Maybe tp -> Maybe ( makeType _lhsIallNonterminals tp)+ Either tp1 tp2 -> Either ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2)+ List tp -> List ( makeType _lhsIallNonterminals tp)+ Tuple xs -> Tuple [(f,makeType _lhsIallNonterminals tp) | (f,tp) <- xs]+ Map tp1 tp2 -> Map ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2)+ IntMap tp -> IntMap ( makeType _lhsIallNonterminals tp)+ {-# LINE 3609 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 644, column 11)+ _lhsOtypeSyns =+ ({-# LINE 644 "Transform.ag" #-}+ [(name_,_argType)]+ {-# LINE 3615 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 851, column 7)+ _lhsOparamsCollect =+ ({-# LINE 851 "Transform.ag" #-}+ if null params_+ then Map.empty+ else Map.singleton name_ params_+ {-# LINE 3623 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 874, column 7)+ _lhsOctxCollect =+ ({-# LINE 874 "Transform.ag" #-}+ if null ctx_+ then Map.empty+ else Map.singleton name_ ctx_+ {-# LINE 3631 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 809, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 809 "Transform.ag" #-}+ Map.empty+ {-# LINE 3637 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 3643 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 3649 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 3655 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 3661 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 3667 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 3673 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 3679 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 3685 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 3691 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 3697 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 889, column 33)+ _lhsOderivings =+ ({-# LINE 889 "Transform.ag" #-}+ Map.empty+ {-# LINE 3703 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 3709 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1085, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1085 "Transform.ag" #-}+ mzero+ {-# LINE 3715 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 735, column 34)+ _lhsOpragmas =+ ({-# LINE 735 "Transform.ag" #-}+ id+ {-# LINE 3721 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 781, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 781 "Transform.ag" #-}+ Map.empty+ {-# LINE 3727 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 3733 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 726, column 32)+ _lhsOwrappers =+ ({-# LINE 726 "Transform.ag" #-}+ Set.empty+ {-# LINE 3739 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3745 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 3751 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elem_Wrapper :: Pos ->+ T_NontSet ->+ T_Elem +sem_Elem_Wrapper pos_ (T_NontSet set_ ) =+ (T_Elem (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _setOallFields :: DataTypes+ _setOallNonterminals :: (Set NontermIdent)+ _setOdefinedSets :: DefinedSets+ _setIcollectedNames :: (Set Identifier)+ _setIerrors :: (Seq Error)+ _setInontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 729, column 13)+ _lhsOwrappers =+ ({-# LINE 729 "Transform.ag" #-}+ _setInontSet+ {-# LINE 3801 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 809, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 809 "Transform.ag" #-}+ Map.empty+ {-# LINE 3807 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 3813 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 3819 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 3825 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 3831 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 3837 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 3843 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 3849 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _setIcollectedNames+ {-# LINE 3855 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 3861 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 3867 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 3873 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 3879 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 864, column 34)+ _lhsOctxCollect =+ ({-# LINE 864 "Transform.ag" #-}+ Map.empty+ {-# LINE 3885 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 889, column 33)+ _lhsOderivings =+ ({-# LINE 889 "Transform.ag" #-}+ Map.empty+ {-# LINE 3891 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _setIerrors+ {-# LINE 3897 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1085, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1085 "Transform.ag" #-}+ mzero+ {-# LINE 3903 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 841, column 37)+ _lhsOparamsCollect =+ ({-# LINE 841 "Transform.ag" #-}+ Map.empty+ {-# LINE 3909 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 735, column 34)+ _lhsOpragmas =+ ({-# LINE 735 "Transform.ag" #-}+ id+ {-# LINE 3915 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 781, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 781 "Transform.ag" #-}+ Map.empty+ {-# LINE 3921 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 3927 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 3933 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 3939 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 3945 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 3951 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 3957 "Transform.hs" #-}+ )+ -- copy rule (down)+ _setOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 3963 "Transform.hs" #-}+ )+ ( _setIcollectedNames,_setIerrors,_setInontSet) =+ set_ _setOallFields _setOallNonterminals _setOdefinedSets + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+-- Elems -------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allConstructors : Map NontermIdent (Set ConstructorIdent)+ allFields : DataTypes+ allNonterminals : Set NontermIdent+ definedSets : DefinedSets+ options : Options+ chained attributes:+ attrDecls : Map NontermIdent (Attributes, Attributes)+ defSets : Map Identifier (Set NontermIdent,Set Identifier)+ synthesized attributes:+ attrOrderCollect : AttrOrderMap+ blocks : Blocks+ collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]+ collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]+ collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent)+ collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)]+ collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]+ collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]+ collectedNames : Set Identifier+ collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]+ collectedSetNames : Set Identifier+ collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]+ collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]+ ctxCollect : ContextMap+ derivings : Derivings+ errors : Seq Error+ moduleDecl : Maybe (String,String,String)+ paramsCollect : ParamMap+ pragmas : Options -> Options+ semPragmasCollect : PragmaMap+ typeSyns : TypeSyns+ useMap : Map NontermIdent (Map Identifier (String,String,String))+ wrappers : Set NontermIdent+ alternatives:+ alternative Cons:+ child hd : Elem + child tl : Elems + alternative Nil:+-}+-- cata+sem_Elems :: Elems ->+ T_Elems +sem_Elems list =+ (Prelude.foldr sem_Elems_Cons sem_Elems_Nil (Prelude.map sem_Elem list) )+-- semantic domain+newtype T_Elems = T_Elems ((Map NontermIdent (Attributes, Attributes)) ->+ (Map NontermIdent (Set ConstructorIdent)) ->+ DataTypes ->+ (Set NontermIdent) ->+ (Map NontermIdent (Attributes, Attributes)) ->+ (Map Identifier (Set NontermIdent,Set Identifier)) ->+ DefinedSets ->+ Options ->+ ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent)))+data Inh_Elems = Inh_Elems {allAttrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elems :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elems :: !(DataTypes),allNonterminals_Inh_Elems :: !((Set NontermIdent)),attrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elems :: !(DefinedSets),options_Inh_Elems :: !(Options)}+data Syn_Elems = Syn_Elems {attrDecls_Syn_Elems :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elems :: !(AttrOrderMap),blocks_Syn_Elems :: !(Blocks),collectedArounds_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elems :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elems :: !((Set Identifier)),collectedRules_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elems :: !((Set Identifier)),collectedSigs_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elems :: !(ContextMap),defSets_Syn_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elems :: !(Derivings),errors_Syn_Elems :: !((Seq Error)),moduleDecl_Syn_Elems :: !((Maybe (String,String,String))),paramsCollect_Syn_Elems :: !(ParamMap),pragmas_Syn_Elems :: !((Options -> Options)),semPragmasCollect_Syn_Elems :: !(PragmaMap),typeSyns_Syn_Elems :: !(TypeSyns),useMap_Syn_Elems :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elems :: !((Set NontermIdent))}+wrap_Elems :: T_Elems ->+ Inh_Elems ->+ Syn_Elems +wrap_Elems (T_Elems sem ) (Inh_Elems _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions ) =+ (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions + in (Syn_Elems _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers ))+sem_Elems_Cons :: T_Elem ->+ T_Elems ->+ T_Elems +sem_Elems_Cons (T_Elem hd_ ) (T_Elems tl_ ) =+ (T_Elems (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _hdOallFields :: DataTypes+ _hdOallNonterminals :: (Set NontermIdent)+ _hdOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _hdOdefinedSets :: DefinedSets+ _hdOoptions :: Options+ _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent))+ _tlOallFields :: DataTypes+ _tlOallNonterminals :: (Set NontermIdent)+ _tlOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _tlOdefinedSets :: DefinedSets+ _tlOoptions :: Options+ _hdIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdIattrOrderCollect :: AttrOrderMap+ _hdIblocks :: Blocks+ _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _hdIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _hdIcollectedNames :: (Set Identifier)+ _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _hdIcollectedSetNames :: (Set Identifier)+ _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _hdIctxCollect :: ContextMap+ _hdIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _hdIderivings :: Derivings+ _hdIerrors :: (Seq Error)+ _hdImoduleDecl :: (Maybe (String,String,String))+ _hdIparamsCollect :: ParamMap+ _hdIpragmas :: (Options -> Options)+ _hdIsemPragmasCollect :: PragmaMap+ _hdItypeSyns :: TypeSyns+ _hdIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _hdIwrappers :: (Set NontermIdent)+ _tlIattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlIattrOrderCollect :: AttrOrderMap+ _tlIblocks :: Blocks+ _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _tlIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _tlIcollectedNames :: (Set Identifier)+ _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _tlIcollectedSetNames :: (Set Identifier)+ _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _tlIctxCollect :: ContextMap+ _tlIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ _tlIderivings :: Derivings+ _tlIerrors :: (Seq Error)+ _tlImoduleDecl :: (Maybe (String,String,String))+ _tlIparamsCollect :: ParamMap+ _tlIpragmas :: (Options -> Options)+ _tlIsemPragmasCollect :: PragmaMap+ _tlItypeSyns :: TypeSyns+ _tlIuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _tlIwrappers :: (Set NontermIdent)+ -- use rule "Transform.ag"(line 809, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 809 "Transform.ag" #-}+ _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect+ {-# LINE 4141 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ _hdIblocks `mapUnionWithPlusPlus` _tlIblocks+ {-# LINE 4147 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ _hdIcollectedArounds ++ _tlIcollectedArounds+ {-# LINE 4153 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ _hdIcollectedAugments ++ _tlIcollectedAugments+ {-# LINE 4159 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ _hdIcollectedConstructorsMap `mapUnionWithSetUnion` _tlIcollectedConstructorsMap+ {-# LINE 4165 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ _hdIcollectedFields ++ _tlIcollectedFields+ {-# LINE 4171 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ _hdIcollectedInsts ++ _tlIcollectedInsts+ {-# LINE 4177 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ _hdIcollectedMerges ++ _tlIcollectedMerges+ {-# LINE 4183 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _hdIcollectedNames `Set.union` _tlIcollectedNames+ {-# LINE 4189 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ _hdIcollectedRules ++ _tlIcollectedRules+ {-# LINE 4195 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ _hdIcollectedSetNames `Set.union` _tlIcollectedSetNames+ {-# LINE 4201 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ _hdIcollectedSigs ++ _tlIcollectedSigs+ {-# LINE 4207 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ _hdIcollectedUniques ++ _tlIcollectedUniques+ {-# LINE 4213 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 864, column 34)+ _lhsOctxCollect =+ ({-# LINE 864 "Transform.ag" #-}+ _hdIctxCollect `mergeCtx` _tlIctxCollect+ {-# LINE 4219 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 889, column 33)+ _lhsOderivings =+ ({-# LINE 889 "Transform.ag" #-}+ _hdIderivings `mergeDerivings` _tlIderivings+ {-# LINE 4225 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 4231 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1085, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1085 "Transform.ag" #-}+ _hdImoduleDecl `mplus` _tlImoduleDecl+ {-# LINE 4237 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 841, column 37)+ _lhsOparamsCollect =+ ({-# LINE 841 "Transform.ag" #-}+ _hdIparamsCollect `mergeParams` _tlIparamsCollect+ {-# LINE 4243 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 735, column 34)+ _lhsOpragmas =+ ({-# LINE 735 "Transform.ag" #-}+ _hdIpragmas . _tlIpragmas+ {-# LINE 4249 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 781, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 781 "Transform.ag" #-}+ _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect+ {-# LINE 4255 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ _hdItypeSyns ++ _tlItypeSyns+ {-# LINE 4261 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ _hdIuseMap `merge` _tlIuseMap+ {-# LINE 4267 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 726, column 32)+ _lhsOwrappers =+ ({-# LINE 726 "Transform.ag" #-}+ _hdIwrappers `Set.union` _tlIwrappers+ {-# LINE 4273 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _tlIattrDecls+ {-# LINE 4279 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _tlIdefSets+ {-# LINE 4285 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallAttrDecls =+ ({-# LINE 810 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 4291 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 4297 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4303 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4309 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 4315 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 4321 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4327 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 4333 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallAttrDecls =+ ({-# LINE 810 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 4339 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallConstructors =+ ({-# LINE 96 "Transform.ag" #-}+ _lhsIallConstructors+ {-# LINE 4345 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4351 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4357 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _tlOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _hdIattrDecls+ {-# LINE 4363 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _tlOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _hdIdefSets+ {-# LINE 4369 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4375 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 4381 "Transform.hs" #-}+ )+ ( _hdIattrDecls,_hdIattrOrderCollect,_hdIblocks,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedConstructorsMap,_hdIcollectedFields,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedNames,_hdIcollectedRules,_hdIcollectedSetNames,_hdIcollectedSigs,_hdIcollectedUniques,_hdIctxCollect,_hdIdefSets,_hdIderivings,_hdIerrors,_hdImoduleDecl,_hdIparamsCollect,_hdIpragmas,_hdIsemPragmasCollect,_hdItypeSyns,_hdIuseMap,_hdIwrappers) =+ hd_ _hdOallAttrDecls _hdOallConstructors _hdOallFields _hdOallNonterminals _hdOattrDecls _hdOdefSets _hdOdefinedSets _hdOoptions + ( _tlIattrDecls,_tlIattrOrderCollect,_tlIblocks,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedConstructorsMap,_tlIcollectedFields,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedNames,_tlIcollectedRules,_tlIcollectedSetNames,_tlIcollectedSigs,_tlIcollectedUniques,_tlIctxCollect,_tlIdefSets,_tlIderivings,_tlIerrors,_tlImoduleDecl,_tlIparamsCollect,_tlIpragmas,_tlIsemPragmasCollect,_tlItypeSyns,_tlIuseMap,_tlIwrappers) =+ tl_ _tlOallAttrDecls _tlOallConstructors _tlOallFields _tlOallNonterminals _tlOattrDecls _tlOdefSets _tlOdefinedSets _tlOoptions + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+sem_Elems_Nil :: T_Elems +sem_Elems_Nil =+ (T_Elems (\ _lhsIallAttrDecls+ _lhsIallConstructors+ _lhsIallFields+ _lhsIallNonterminals+ _lhsIattrDecls+ _lhsIdefSets+ _lhsIdefinedSets+ _lhsIoptions ->+ (let _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOblocks :: Blocks+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent))+ _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSetNames :: (Set Identifier)+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOctxCollect :: ContextMap+ _lhsOderivings :: Derivings+ _lhsOerrors :: (Seq Error)+ _lhsOmoduleDecl :: (Maybe (String,String,String))+ _lhsOparamsCollect :: ParamMap+ _lhsOpragmas :: (Options -> Options)+ _lhsOsemPragmasCollect :: PragmaMap+ _lhsOtypeSyns :: TypeSyns+ _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String)))+ _lhsOwrappers :: (Set NontermIdent)+ _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes))+ _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier))+ -- use rule "Transform.ag"(line 809, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 809 "Transform.ag" #-}+ Map.empty+ {-# LINE 4427 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 45, column 19)+ _lhsOblocks =+ ({-# LINE 45 "Transform.ag" #-}+ Map.empty+ {-# LINE 4433 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 4439 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 4445 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 94, column 48)+ _lhsOcollectedConstructorsMap =+ ({-# LINE 94 "Transform.ag" #-}+ Map.empty+ {-# LINE 4451 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 125, column 28)+ _lhsOcollectedFields =+ ({-# LINE 125 "Transform.ag" #-}+ []+ {-# LINE 4457 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 4463 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 4469 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 4475 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 4481 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 85, column 50)+ _lhsOcollectedSetNames =+ ({-# LINE 85 "Transform.ag" #-}+ Set.empty+ {-# LINE 4487 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 4493 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 4499 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 864, column 34)+ _lhsOctxCollect =+ ({-# LINE 864 "Transform.ag" #-}+ Map.empty+ {-# LINE 4505 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 889, column 33)+ _lhsOderivings =+ ({-# LINE 889 "Transform.ag" #-}+ Map.empty+ {-# LINE 4511 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 4517 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1085, column 37)+ _lhsOmoduleDecl =+ ({-# LINE 1085 "Transform.ag" #-}+ mzero+ {-# LINE 4523 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 841, column 37)+ _lhsOparamsCollect =+ ({-# LINE 841 "Transform.ag" #-}+ Map.empty+ {-# LINE 4529 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 735, column 34)+ _lhsOpragmas =+ ({-# LINE 735 "Transform.ag" #-}+ id+ {-# LINE 4535 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 781, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 781 "Transform.ag" #-}+ Map.empty+ {-# LINE 4541 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 595, column 32)+ _lhsOtypeSyns =+ ({-# LINE 595 "Transform.ag" #-}+ []+ {-# LINE 4547 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 137, column 15)+ _lhsOuseMap =+ ({-# LINE 137 "Transform.ag" #-}+ Map.empty+ {-# LINE 4553 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 726, column 32)+ _lhsOwrappers =+ ({-# LINE 726 "Transform.ag" #-}+ Set.empty+ {-# LINE 4559 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOattrDecls =+ ({-# LINE 136 "Transform.ag" #-}+ _lhsIattrDecls+ {-# LINE 4565 "Transform.hs" #-}+ )+ -- copy rule (chain)+ _lhsOdefSets =+ ({-# LINE 104 "Transform.ag" #-}+ _lhsIdefSets+ {-# LINE 4571 "Transform.hs" #-}+ )+ in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) )+-- NontSet -----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allFields : DataTypes+ allNonterminals : Set NontermIdent+ definedSets : DefinedSets+ synthesized attributes:+ collectedNames : Set Identifier+ errors : Seq Error+ nontSet : Set NontermIdent+ alternatives:+ alternative All:+ alternative Difference:+ child set1 : NontSet + child set2 : NontSet + alternative Intersect:+ child set1 : NontSet + child set2 : NontSet + alternative NamedSet:+ child name : {NontermIdent}+ visit 0:+ local _tup4 : _+ local nontSet : _+ local errors : _+ alternative Path:+ child from : {NontermIdent}+ child to : {NontermIdent}+ alternative Union:+ child set1 : NontSet + child set2 : NontSet +-}+-- cata+sem_NontSet :: NontSet ->+ T_NontSet +sem_NontSet (All ) =+ (sem_NontSet_All )+sem_NontSet (Difference _set1 _set2 ) =+ (sem_NontSet_Difference (sem_NontSet _set1 ) (sem_NontSet _set2 ) )+sem_NontSet (Intersect _set1 _set2 ) =+ (sem_NontSet_Intersect (sem_NontSet _set1 ) (sem_NontSet _set2 ) )+sem_NontSet (NamedSet _name ) =+ (sem_NontSet_NamedSet _name )+sem_NontSet (Path _from _to ) =+ (sem_NontSet_Path _from _to )+sem_NontSet (Union _set1 _set2 ) =+ (sem_NontSet_Union (sem_NontSet _set1 ) (sem_NontSet _set2 ) )+-- semantic domain+newtype T_NontSet = T_NontSet (DataTypes ->+ (Set NontermIdent) ->+ DefinedSets ->+ ( (Set Identifier),(Seq Error),(Set NontermIdent)))+data Inh_NontSet = Inh_NontSet {allFields_Inh_NontSet :: !(DataTypes),allNonterminals_Inh_NontSet :: !((Set NontermIdent)),definedSets_Inh_NontSet :: !(DefinedSets)}+data Syn_NontSet = Syn_NontSet {collectedNames_Syn_NontSet :: !((Set Identifier)),errors_Syn_NontSet :: !((Seq Error)),nontSet_Syn_NontSet :: !((Set NontermIdent))}+wrap_NontSet :: T_NontSet ->+ Inh_NontSet ->+ Syn_NontSet +wrap_NontSet (T_NontSet sem ) (Inh_NontSet _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets ) =+ (let ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet) = sem _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets + in (Syn_NontSet _lhsOcollectedNames _lhsOerrors _lhsOnontSet ))+sem_NontSet_All :: T_NontSet +sem_NontSet_All =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ -- "Transform.ag"(line 672, column 16)+ _lhsOnontSet =+ ({-# LINE 672 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4646 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 4652 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 4658 "Transform.hs" #-}+ )+ in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_Difference :: T_NontSet ->+ T_NontSet ->+ T_NontSet +sem_NontSet_Difference (T_NontSet set1_ ) (T_NontSet set2_ ) =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ _set1OallFields :: DataTypes+ _set1OallNonterminals :: (Set NontermIdent)+ _set1OdefinedSets :: DefinedSets+ _set2OallFields :: DataTypes+ _set2OallNonterminals :: (Set NontermIdent)+ _set2OdefinedSets :: DefinedSets+ _set1IcollectedNames :: (Set Identifier)+ _set1Ierrors :: (Seq Error)+ _set1InontSet :: (Set NontermIdent)+ _set2IcollectedNames :: (Set Identifier)+ _set2Ierrors :: (Seq Error)+ _set2InontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 678, column 16)+ _lhsOnontSet =+ ({-# LINE 678 "Transform.ag" #-}+ Set.difference _set1InontSet _set2InontSet+ {-# LINE 4687 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _set1IcollectedNames `Set.union` _set2IcollectedNames+ {-# LINE 4693 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 4699 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4705 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4711 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4717 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4723 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4729 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4735 "Transform.hs" #-}+ )+ ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =+ set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets + ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =+ set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_Intersect :: T_NontSet ->+ T_NontSet ->+ T_NontSet +sem_NontSet_Intersect (T_NontSet set1_ ) (T_NontSet set2_ ) =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ _set1OallFields :: DataTypes+ _set1OallNonterminals :: (Set NontermIdent)+ _set1OdefinedSets :: DefinedSets+ _set2OallFields :: DataTypes+ _set2OallNonterminals :: (Set NontermIdent)+ _set2OdefinedSets :: DefinedSets+ _set1IcollectedNames :: (Set Identifier)+ _set1Ierrors :: (Seq Error)+ _set1InontSet :: (Set NontermIdent)+ _set2IcollectedNames :: (Set Identifier)+ _set2Ierrors :: (Seq Error)+ _set2InontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 677, column 16)+ _lhsOnontSet =+ ({-# LINE 677 "Transform.ag" #-}+ Set.intersection _set1InontSet _set2InontSet+ {-# LINE 4768 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _set1IcollectedNames `Set.union` _set2IcollectedNames+ {-# LINE 4774 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 4780 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4786 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4792 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4798 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4804 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4810 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4816 "Transform.hs" #-}+ )+ ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =+ set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets + ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =+ set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_NamedSet :: NontermIdent ->+ T_NontSet +sem_NontSet_NamedSet name_ =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ _lhsOnontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 557, column 14)+ _lhsOcollectedNames =+ ({-# LINE 557 "Transform.ag" #-}+ Set.singleton name_+ {-# LINE 4836 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 673, column 20)+ __tup4 =+ ({-# LINE 673 "Transform.ag" #-}+ case Map.lookup name_ _lhsIdefinedSets of+ Nothing -> (Set.empty, Seq.singleton (UndefNont name_))+ Just set -> (set, Seq.empty)+ {-# LINE 4844 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 673, column 20)+ (_nontSet,_) =+ ({-# LINE 673 "Transform.ag" #-}+ __tup4+ {-# LINE 4850 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 673, column 20)+ (_,_errors) =+ ({-# LINE 673 "Transform.ag" #-}+ __tup4+ {-# LINE 4856 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _errors+ {-# LINE 4862 "Transform.hs" #-}+ )+ -- copy rule (from local)+ _lhsOnontSet =+ ({-# LINE 112 "Transform.ag" #-}+ _nontSet+ {-# LINE 4868 "Transform.hs" #-}+ )+ in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_Path :: NontermIdent ->+ NontermIdent ->+ T_NontSet +sem_NontSet_Path from_ to_ =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOerrors :: (Seq Error)+ _lhsOcollectedNames :: (Set Identifier)+ -- "Transform.ag"(line 679, column 16)+ _lhsOnontSet =+ ({-# LINE 679 "Transform.ag" #-}+ let table = flattenDatas _lhsIallFields+ in path table from_ to_+ {-# LINE 4886 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 681, column 16)+ _lhsOerrors =+ ({-# LINE 681 "Transform.ag" #-}+ let check name | Set.member name _lhsIallNonterminals+ = Seq.empty+ | otherwise = Seq.singleton (UndefNont name)+ in check from_ >< check to_+ {-# LINE 4895 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ Set.empty+ {-# LINE 4901 "Transform.hs" #-}+ )+ in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+sem_NontSet_Union :: T_NontSet ->+ T_NontSet ->+ T_NontSet +sem_NontSet_Union (T_NontSet set1_ ) (T_NontSet set2_ ) =+ (T_NontSet (\ _lhsIallFields+ _lhsIallNonterminals+ _lhsIdefinedSets ->+ (let _lhsOnontSet :: (Set NontermIdent)+ _lhsOcollectedNames :: (Set Identifier)+ _lhsOerrors :: (Seq Error)+ _set1OallFields :: DataTypes+ _set1OallNonterminals :: (Set NontermIdent)+ _set1OdefinedSets :: DefinedSets+ _set2OallFields :: DataTypes+ _set2OallNonterminals :: (Set NontermIdent)+ _set2OdefinedSets :: DefinedSets+ _set1IcollectedNames :: (Set Identifier)+ _set1Ierrors :: (Seq Error)+ _set1InontSet :: (Set NontermIdent)+ _set2IcollectedNames :: (Set Identifier)+ _set2Ierrors :: (Seq Error)+ _set2InontSet :: (Set NontermIdent)+ -- "Transform.ag"(line 676, column 16)+ _lhsOnontSet =+ ({-# LINE 676 "Transform.ag" #-}+ Set.union _set1InontSet _set2InontSet+ {-# LINE 4930 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 86, column 50)+ _lhsOcollectedNames =+ ({-# LINE 86 "Transform.ag" #-}+ _set1IcollectedNames `Set.union` _set2IcollectedNames+ {-# LINE 4936 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _set1Ierrors Seq.>< _set2Ierrors+ {-# LINE 4942 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4948 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4954 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set1OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4960 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 4966 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OallNonterminals =+ ({-# LINE 88 "Transform.ag" #-}+ _lhsIallNonterminals+ {-# LINE 4972 "Transform.hs" #-}+ )+ -- copy rule (down)+ _set2OdefinedSets =+ ({-# LINE 107 "Transform.ag" #-}+ _lhsIdefinedSets+ {-# LINE 4978 "Transform.hs" #-}+ )+ ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) =+ set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets + ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) =+ set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) )+-- Pattern -----------------------------------------------------+{-+ visit 0:+ synthesized attributes:+ copy : SELF + definedAttrs : [AttrName]+ definedInsts : [Identifier]+ patunder : [AttrName]->Pattern+ stpos : Pos+ alternatives:+ alternative Alias:+ child field : {Identifier}+ child attr : {Identifier}+ child pat : Pattern + child parts : Patterns + visit 0:+ local copy : _+ alternative Constr:+ child name : {ConstructorIdent}+ child pats : Patterns + visit 0:+ local copy : _+ alternative Irrefutable:+ child pat : Pattern + visit 0:+ local copy : _+ alternative Product:+ child pos : {Pos}+ child pats : Patterns + visit 0:+ local copy : _+ alternative Underscore:+ child pos : {Pos}+ visit 0:+ local copy : _+-}+-- cata+sem_Pattern :: Pattern ->+ T_Pattern +sem_Pattern (Alias _field _attr _pat _parts ) =+ (sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) )+sem_Pattern (Constr _name _pats ) =+ (sem_Pattern_Constr _name (sem_Patterns _pats ) )+sem_Pattern (Irrefutable _pat ) =+ (sem_Pattern_Irrefutable (sem_Pattern _pat ) )+sem_Pattern (Product _pos _pats ) =+ (sem_Pattern_Product _pos (sem_Patterns _pats ) )+sem_Pattern (Underscore _pos ) =+ (sem_Pattern_Underscore _pos )+-- semantic domain+newtype T_Pattern = T_Pattern (( Pattern ,([AttrName]),([Identifier]),([AttrName]->Pattern),Pos))+data Inh_Pattern = Inh_Pattern {}+data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),definedAttrs_Syn_Pattern :: !(([AttrName])),definedInsts_Syn_Pattern :: !(([Identifier])),patunder_Syn_Pattern :: !(([AttrName]->Pattern)),stpos_Syn_Pattern :: !(Pos)}+wrap_Pattern :: T_Pattern ->+ Inh_Pattern ->+ Syn_Pattern +wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) =+ (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos) = sem + in (Syn_Pattern _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder _lhsOstpos ))+sem_Pattern_Alias :: Identifier ->+ Identifier ->+ T_Pattern ->+ T_Patterns ->+ T_Pattern +sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) =+ (T_Pattern (let _lhsOdefinedAttrs :: ([AttrName])+ _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOstpos :: Pos+ _lhsOcopy :: Pattern + _patIcopy :: Pattern + _patIdefinedAttrs :: ([AttrName])+ _patIdefinedInsts :: ([Identifier])+ _patIpatunder :: ([AttrName]->Pattern)+ _patIstpos :: Pos+ _partsIcopy :: Patterns + _partsIdefinedAttrs :: ([AttrName])+ _partsIdefinedInsts :: ([Identifier])+ _partsIpatunder :: ([AttrName]->Patterns)+ -- "Transform.ag"(line 1061, column 11)+ _lhsOdefinedAttrs =+ ({-# LINE 1061 "Transform.ag" #-}+ (field_, attr_) : _patIdefinedAttrs+ {-# LINE 5068 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1062, column 11)+ _lhsOpatunder =+ ({-# LINE 1062 "Transform.ag" #-}+ \us -> if ((field_,attr_) `elem` us) then Underscore noPos else _copy+ {-# LINE 5074 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1063, column 11)+ _lhsOdefinedInsts =+ ({-# LINE 1063 "Transform.ag" #-}+ (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts+ {-# LINE 5080 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1078, column 16)+ _lhsOstpos =+ ({-# LINE 1078 "Transform.ag" #-}+ getPos field_+ {-# LINE 5086 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Alias field_ attr_ _patIcopy _partsIcopy+ {-# LINE 5092 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5098 "Transform.hs" #-}+ )+ ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =+ pat_ + ( _partsIcopy,_partsIdefinedAttrs,_partsIdefinedInsts,_partsIpatunder) =+ parts_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+sem_Pattern_Constr :: ConstructorIdent ->+ T_Patterns ->+ T_Pattern +sem_Pattern_Constr name_ (T_Patterns pats_ ) =+ (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOstpos :: Pos+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Pattern + _patsIcopy :: Patterns + _patsIdefinedAttrs :: ([AttrName])+ _patsIdefinedInsts :: ([Identifier])+ _patsIpatunder :: ([AttrName]->Patterns)+ -- "Transform.ag"(line 1065, column 12)+ _lhsOpatunder =+ ({-# LINE 1065 "Transform.ag" #-}+ \us -> Constr name_ (_patsIpatunder us)+ {-# LINE 5122 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1076, column 16)+ _lhsOstpos =+ ({-# LINE 1076 "Transform.ag" #-}+ getPos name_+ {-# LINE 5128 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1056, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1056 "Transform.ag" #-}+ _patsIdefinedAttrs+ {-# LINE 5134 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ _patsIdefinedInsts+ {-# LINE 5140 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Constr name_ _patsIcopy+ {-# LINE 5146 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5152 "Transform.hs" #-}+ )+ ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) =+ pats_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+sem_Pattern_Irrefutable :: T_Pattern ->+ T_Pattern +sem_Pattern_Irrefutable (T_Pattern pat_ ) =+ (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Pattern + _lhsOstpos :: Pos+ _patIcopy :: Pattern + _patIdefinedAttrs :: ([AttrName])+ _patIdefinedInsts :: ([Identifier])+ _patIpatunder :: ([AttrName]->Pattern)+ _patIstpos :: Pos+ -- "Transform.ag"(line 1067, column 17)+ _lhsOpatunder =+ ({-# LINE 1067 "Transform.ag" #-}+ \us -> Irrefutable (_patIpatunder us)+ {-# LINE 5174 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1056, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1056 "Transform.ag" #-}+ _patIdefinedAttrs+ {-# LINE 5180 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ _patIdefinedInsts+ {-# LINE 5186 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Irrefutable _patIcopy+ {-# LINE 5192 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5198 "Transform.hs" #-}+ )+ -- copy rule (up)+ _lhsOstpos =+ ({-# LINE 1073 "Transform.ag" #-}+ _patIstpos+ {-# LINE 5204 "Transform.hs" #-}+ )+ ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) =+ pat_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+sem_Pattern_Product :: Pos ->+ T_Patterns ->+ T_Pattern +sem_Pattern_Product pos_ (T_Patterns pats_ ) =+ (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOstpos :: Pos+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Pattern + _patsIcopy :: Patterns + _patsIdefinedAttrs :: ([AttrName])+ _patsIdefinedInsts :: ([Identifier])+ _patsIpatunder :: ([AttrName]->Patterns)+ -- "Transform.ag"(line 1066, column 13)+ _lhsOpatunder =+ ({-# LINE 1066 "Transform.ag" #-}+ \us -> Product pos_ (_patsIpatunder us)+ {-# LINE 5226 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1077, column 16)+ _lhsOstpos =+ ({-# LINE 1077 "Transform.ag" #-}+ pos_+ {-# LINE 5232 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1056, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1056 "Transform.ag" #-}+ _patsIdefinedAttrs+ {-# LINE 5238 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ _patsIdefinedInsts+ {-# LINE 5244 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Product pos_ _patsIcopy+ {-# LINE 5250 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5256 "Transform.hs" #-}+ )+ ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) =+ pats_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+sem_Pattern_Underscore :: Pos ->+ T_Pattern +sem_Pattern_Underscore pos_ =+ (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern)+ _lhsOstpos :: Pos+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Pattern + -- "Transform.ag"(line 1064, column 16)+ _lhsOpatunder =+ ({-# LINE 1064 "Transform.ag" #-}+ \us -> _copy+ {-# LINE 5273 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1079, column 16)+ _lhsOstpos =+ ({-# LINE 1079 "Transform.ag" #-}+ pos_+ {-# LINE 5279 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1056, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1056 "Transform.ag" #-}+ []+ {-# LINE 5285 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ []+ {-# LINE 5291 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ Underscore pos_+ {-# LINE 5297 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5303 "Transform.hs" #-}+ )+ in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) )+-- Patterns ----------------------------------------------------+{-+ visit 0:+ synthesized attributes:+ copy : SELF + definedAttrs : [AttrName]+ definedInsts : [Identifier]+ patunder : [AttrName]->Patterns+ alternatives:+ alternative Cons:+ child hd : Pattern + child tl : Patterns + visit 0:+ local copy : _+ alternative Nil:+ visit 0:+ local copy : _+-}+-- cata+sem_Patterns :: Patterns ->+ T_Patterns +sem_Patterns list =+ (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) )+-- semantic domain+newtype T_Patterns = T_Patterns (( Patterns ,([AttrName]),([Identifier]),([AttrName]->Patterns)))+data Inh_Patterns = Inh_Patterns {}+data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),definedAttrs_Syn_Patterns :: !(([AttrName])),definedInsts_Syn_Patterns :: !(([Identifier])),patunder_Syn_Patterns :: !(([AttrName]->Patterns))}+wrap_Patterns :: T_Patterns ->+ Inh_Patterns ->+ Syn_Patterns +wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) =+ (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder) = sem + in (Syn_Patterns _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder ))+sem_Patterns_Cons :: T_Pattern ->+ T_Patterns ->+ T_Patterns +sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) =+ (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns)+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Patterns + _hdIcopy :: Pattern + _hdIdefinedAttrs :: ([AttrName])+ _hdIdefinedInsts :: ([Identifier])+ _hdIpatunder :: ([AttrName]->Pattern)+ _hdIstpos :: Pos+ _tlIcopy :: Patterns + _tlIdefinedAttrs :: ([AttrName])+ _tlIdefinedInsts :: ([Identifier])+ _tlIpatunder :: ([AttrName]->Patterns)+ -- "Transform.ag"(line 1071, column 10)+ _lhsOpatunder =+ ({-# LINE 1071 "Transform.ag" #-}+ \us -> (_hdIpatunder us) : (_tlIpatunder us)+ {-# LINE 5360 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1056, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1056 "Transform.ag" #-}+ _hdIdefinedAttrs ++ _tlIdefinedAttrs+ {-# LINE 5366 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ _hdIdefinedInsts ++ _tlIdefinedInsts+ {-# LINE 5372 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ (:) _hdIcopy _tlIcopy+ {-# LINE 5378 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5384 "Transform.hs" #-}+ )+ ( _hdIcopy,_hdIdefinedAttrs,_hdIdefinedInsts,_hdIpatunder,_hdIstpos) =+ hd_ + ( _tlIcopy,_tlIdefinedAttrs,_tlIdefinedInsts,_tlIpatunder) =+ tl_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) )+sem_Patterns_Nil :: T_Patterns +sem_Patterns_Nil =+ (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns)+ _lhsOdefinedAttrs :: ([AttrName])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOcopy :: Patterns + -- "Transform.ag"(line 1070, column 9)+ _lhsOpatunder =+ ({-# LINE 1070 "Transform.ag" #-}+ \us -> []+ {-# LINE 5401 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1056, column 42)+ _lhsOdefinedAttrs =+ ({-# LINE 1056 "Transform.ag" #-}+ []+ {-# LINE 5407 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ []+ {-# LINE 5413 "Transform.hs" #-}+ )+ -- self rule+ _copy =+ ({-# LINE 23 "./Patterns.ag" #-}+ []+ {-# LINE 5419 "Transform.hs" #-}+ )+ -- self rule+ _lhsOcopy =+ ({-# LINE 23 "./Patterns.ag" #-}+ _copy+ {-# LINE 5425 "Transform.hs" #-}+ )+ in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) )+-- SemAlt ------------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allFields : DataTypes+ nts : Set NontermIdent+ options : Options+ synthesized attributes:+ attrOrderCollect : AttrOrderMap+ collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]+ collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]+ collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]+ collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]+ collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]+ collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]+ collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]+ errors : Seq Error+ semPragmasCollect : PragmaMap+ alternatives:+ alternative SemAlt:+ child pos : {Pos}+ child constructorSet : ConstructorSet + child rules : SemDefs + visit 0:+ local pragmaNames : _+ local attrOrders : _+ local coninfo : _+-}+-- cata+sem_SemAlt :: SemAlt ->+ T_SemAlt +sem_SemAlt (SemAlt _pos _constructorSet _rules ) =+ (sem_SemAlt_SemAlt _pos (sem_ConstructorSet _constructorSet ) (sem_SemDefs _rules ) )+-- semantic domain+newtype T_SemAlt = T_SemAlt ((Map NontermIdent (Attributes, Attributes)) ->+ DataTypes ->+ (Set NontermIdent) ->+ Options ->+ ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap))+data Inh_SemAlt = Inh_SemAlt {allAttrDecls_Inh_SemAlt :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlt :: !(DataTypes),nts_Inh_SemAlt :: !((Set NontermIdent)),options_Inh_SemAlt :: !(Options)}+data Syn_SemAlt = Syn_SemAlt {attrOrderCollect_Syn_SemAlt :: !(AttrOrderMap),collectedArounds_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlt :: !((Seq Error)),semPragmasCollect_Syn_SemAlt :: !(PragmaMap)}+wrap_SemAlt :: T_SemAlt ->+ Inh_SemAlt ->+ Syn_SemAlt +wrap_SemAlt (T_SemAlt sem ) (Inh_SemAlt _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions ) =+ (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions + in (Syn_SemAlt _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect ))+sem_SemAlt_SemAlt :: Pos ->+ T_ConstructorSet ->+ T_SemDefs ->+ T_SemAlt +sem_SemAlt_SemAlt pos_ (T_ConstructorSet constructorSet_ ) (T_SemDefs rules_ ) =+ (T_SemAlt (\ _lhsIallAttrDecls+ _lhsIallFields+ _lhsInts+ _lhsIoptions ->+ (let _lhsOsemPragmasCollect :: PragmaMap+ _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOerrors :: (Seq Error)+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _rulesOoptions :: Options+ _constructorSetIcollectedConstructorNames :: (Set ConstructorIdent)+ _constructorSetIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent))+ _constructorSetIerrors :: (Seq Error)+ _rulesIaroundInfos :: ([AroundInfo])+ _rulesIaugmentInfos :: ([AugmentInfo])+ _rulesIdefinedInsts :: ([Identifier])+ _rulesIerrors :: (Seq Error)+ _rulesImergeInfos :: ([MergeInfo])+ _rulesIorderDepsCollect :: (Set Dependency)+ _rulesIpragmaNamesCollect :: ([Identifier])+ _rulesIruleInfos :: ([RuleInfo])+ _rulesIsigInfos :: ([SigInfo])+ _rulesIuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 785, column 7)+ _pragmaNames =+ ({-# LINE 785 "Transform.ag" #-}+ Set.fromList _rulesIpragmaNamesCollect+ {-# LINE 5513 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 786, column 7)+ _lhsOsemPragmasCollect =+ ({-# LINE 786 "Transform.ag" #-}+ foldr pragmaMapUnion Map.empty [ pragmaMapSingle nt con _pragmaNames+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5522 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 814, column 7)+ _attrOrders =+ ({-# LINE 814 "Transform.ag" #-}+ [ orderMapSingle nt con _rulesIorderDepsCollect+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5531 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 820, column 7)+ _lhsOattrOrderCollect =+ ({-# LINE 820 "Transform.ag" #-}+ foldr orderMapUnion Map.empty _attrOrders+ {-# LINE 5537 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 980, column 12)+ _coninfo =+ ({-# LINE 980 "Transform.ag" #-}+ [ (nt, conset, conkeys)+ | nt <- Set.toList _lhsInts+ , let conmap = Map.findWithDefault Map.empty nt _lhsIallFields+ , let conkeys = Set.fromList (Map.keys conmap)+ , let conset = _constructorSetIconstructors conkeys+ ]+ {-# LINE 5548 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 987, column 12)+ _lhsOerrors =+ ({-# LINE 987 "Transform.ag" #-}+ Seq.fromList+ [ UndefAlt nt con+ | (nt, conset, conkeys) <- _coninfo+ , con <- Set.toList (Set.difference conset conkeys)+ ]+ Seq.>< _rulesIerrors+ {-# LINE 5559 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 993, column 12)+ _lhsOcollectedRules =+ ({-# LINE 993 "Transform.ag" #-}+ [ (nt,con,r)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ , r <- _rulesIruleInfos+ ]+ {-# LINE 5569 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 999, column 12)+ _lhsOcollectedSigs =+ ({-# LINE 999 "Transform.ag" #-}+ [ (nt,con,ts)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ , ts <- _rulesIsigInfos+ ]+ {-# LINE 5579 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1006, column 12)+ _lhsOcollectedInsts =+ ({-# LINE 1006 "Transform.ag" #-}+ [ (nt,con,_rulesIdefinedInsts)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5588 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1012, column 12)+ _lhsOcollectedUniques =+ ({-# LINE 1012 "Transform.ag" #-}+ [ (nt,con,_rulesIuniqueInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5597 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1018, column 12)+ _lhsOcollectedAugments =+ ({-# LINE 1018 "Transform.ag" #-}+ [ (nt, con, _rulesIaugmentInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5606 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1024, column 12)+ _lhsOcollectedArounds =+ ({-# LINE 1024 "Transform.ag" #-}+ [ (nt, con, _rulesIaroundInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5615 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1030, column 12)+ _lhsOcollectedMerges =+ ({-# LINE 1030 "Transform.ag" #-}+ [ (nt, con, _rulesImergeInfos)+ | (nt, conset, _) <- _coninfo+ , con <- Set.toList conset+ ]+ {-# LINE 5624 "Transform.hs" #-}+ )+ -- copy rule (down)+ _rulesOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 5630 "Transform.hs" #-}+ )+ ( _constructorSetIcollectedConstructorNames,_constructorSetIconstructors,_constructorSetIerrors) =+ constructorSet_ + ( _rulesIaroundInfos,_rulesIaugmentInfos,_rulesIdefinedInsts,_rulesIerrors,_rulesImergeInfos,_rulesIorderDepsCollect,_rulesIpragmaNamesCollect,_rulesIruleInfos,_rulesIsigInfos,_rulesIuniqueInfos) =+ rules_ _rulesOoptions + in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )+-- SemAlts -----------------------------------------------------+{-+ visit 0:+ inherited attributes:+ allAttrDecls : Map NontermIdent (Attributes, Attributes)+ allFields : DataTypes+ nts : Set NontermIdent+ options : Options+ synthesized attributes:+ attrOrderCollect : AttrOrderMap+ collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ]+ collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]+ collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ]+ collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ]+ collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)]+ collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ]+ collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]+ errors : Seq Error+ semPragmasCollect : PragmaMap+ alternatives:+ alternative Cons:+ child hd : SemAlt + child tl : SemAlts + alternative Nil:+-}+-- cata+sem_SemAlts :: SemAlts ->+ T_SemAlts +sem_SemAlts list =+ (Prelude.foldr sem_SemAlts_Cons sem_SemAlts_Nil (Prelude.map sem_SemAlt list) )+-- semantic domain+newtype T_SemAlts = T_SemAlts ((Map NontermIdent (Attributes, Attributes)) ->+ DataTypes ->+ (Set NontermIdent) ->+ Options ->+ ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap))+data Inh_SemAlts = Inh_SemAlts {allAttrDecls_Inh_SemAlts :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlts :: !(DataTypes),nts_Inh_SemAlts :: !((Set NontermIdent)),options_Inh_SemAlts :: !(Options)}+data Syn_SemAlts = Syn_SemAlts {attrOrderCollect_Syn_SemAlts :: !(AttrOrderMap),collectedArounds_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlts :: !((Seq Error)),semPragmasCollect_Syn_SemAlts :: !(PragmaMap)}+wrap_SemAlts :: T_SemAlts ->+ Inh_SemAlts ->+ Syn_SemAlts +wrap_SemAlts (T_SemAlts sem ) (Inh_SemAlts _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions ) =+ (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions + in (Syn_SemAlts _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect ))+sem_SemAlts_Cons :: T_SemAlt ->+ T_SemAlts ->+ T_SemAlts +sem_SemAlts_Cons (T_SemAlt hd_ ) (T_SemAlts tl_ ) =+ (T_SemAlts (\ _lhsIallAttrDecls+ _lhsIallFields+ _lhsInts+ _lhsIoptions ->+ (let _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOerrors :: (Seq Error)+ _lhsOsemPragmasCollect :: PragmaMap+ _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _hdOallFields :: DataTypes+ _hdOnts :: (Set NontermIdent)+ _hdOoptions :: Options+ _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes))+ _tlOallFields :: DataTypes+ _tlOnts :: (Set NontermIdent)+ _tlOoptions :: Options+ _hdIattrOrderCollect :: AttrOrderMap+ _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _hdIerrors :: (Seq Error)+ _hdIsemPragmasCollect :: PragmaMap+ _tlIattrOrderCollect :: AttrOrderMap+ _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _tlIerrors :: (Seq Error)+ _tlIsemPragmasCollect :: PragmaMap+ -- use rule "Transform.ag"(line 809, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 809 "Transform.ag" #-}+ _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect+ {-# LINE 5731 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ _hdIcollectedArounds ++ _tlIcollectedArounds+ {-# LINE 5737 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ _hdIcollectedAugments ++ _tlIcollectedAugments+ {-# LINE 5743 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ _hdIcollectedInsts ++ _tlIcollectedInsts+ {-# LINE 5749 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ _hdIcollectedMerges ++ _tlIcollectedMerges+ {-# LINE 5755 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ _hdIcollectedRules ++ _tlIcollectedRules+ {-# LINE 5761 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ _hdIcollectedSigs ++ _tlIcollectedSigs+ {-# LINE 5767 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ _hdIcollectedUniques ++ _tlIcollectedUniques+ {-# LINE 5773 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 5779 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 781, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 781 "Transform.ag" #-}+ _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect+ {-# LINE 5785 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallAttrDecls =+ ({-# LINE 810 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 5791 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 5797 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOnts =+ ({-# LINE 167 "Transform.ag" #-}+ _lhsInts+ {-# LINE 5803 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 5809 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallAttrDecls =+ ({-# LINE 810 "Transform.ag" #-}+ _lhsIallAttrDecls+ {-# LINE 5815 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOallFields =+ ({-# LINE 128 "Transform.ag" #-}+ _lhsIallFields+ {-# LINE 5821 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOnts =+ ({-# LINE 167 "Transform.ag" #-}+ _lhsInts+ {-# LINE 5827 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 5833 "Transform.hs" #-}+ )+ ( _hdIattrOrderCollect,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedRules,_hdIcollectedSigs,_hdIcollectedUniques,_hdIerrors,_hdIsemPragmasCollect) =+ hd_ _hdOallAttrDecls _hdOallFields _hdOnts _hdOoptions + ( _tlIattrOrderCollect,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedRules,_tlIcollectedSigs,_tlIcollectedUniques,_tlIerrors,_tlIsemPragmasCollect) =+ tl_ _tlOallAttrDecls _tlOallFields _tlOnts _tlOoptions + in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )+sem_SemAlts_Nil :: T_SemAlts +sem_SemAlts_Nil =+ (T_SemAlts (\ _lhsIallAttrDecls+ _lhsIallFields+ _lhsInts+ _lhsIoptions ->+ (let _lhsOattrOrderCollect :: AttrOrderMap+ _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])+ _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])+ _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ])+ _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])+ _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)])+ _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ])+ _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])+ _lhsOerrors :: (Seq Error)+ _lhsOsemPragmasCollect :: PragmaMap+ -- use rule "Transform.ag"(line 809, column 55)+ _lhsOattrOrderCollect =+ ({-# LINE 809 "Transform.ag" #-}+ Map.empty+ {-# LINE 5860 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 156, column 32)+ _lhsOcollectedArounds =+ ({-# LINE 156 "Transform.ag" #-}+ []+ {-# LINE 5866 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 155, column 32)+ _lhsOcollectedAugments =+ ({-# LINE 155 "Transform.ag" #-}+ []+ {-# LINE 5872 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 153, column 32)+ _lhsOcollectedInsts =+ ({-# LINE 153 "Transform.ag" #-}+ []+ {-# LINE 5878 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 157, column 32)+ _lhsOcollectedMerges =+ ({-# LINE 157 "Transform.ag" #-}+ []+ {-# LINE 5884 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 151, column 32)+ _lhsOcollectedRules =+ ({-# LINE 151 "Transform.ag" #-}+ []+ {-# LINE 5890 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 152, column 32)+ _lhsOcollectedSigs =+ ({-# LINE 152 "Transform.ag" #-}+ []+ {-# LINE 5896 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 154, column 32)+ _lhsOcollectedUniques =+ ({-# LINE 154 "Transform.ag" #-}+ []+ {-# LINE 5902 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 5908 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 781, column 56)+ _lhsOsemPragmasCollect =+ ({-# LINE 781 "Transform.ag" #-}+ Map.empty+ {-# LINE 5914 "Transform.hs" #-}+ )+ in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) )+-- SemDef ------------------------------------------------------+{-+ visit 0:+ inherited attribute:+ options : Options+ synthesized attributes:+ aroundInfos : [AroundInfo]+ augmentInfos : [AugmentInfo]+ definedInsts : [Identifier]+ errors : Seq Error+ mergeInfos : [MergeInfo]+ orderDepsCollect : Set Dependency+ pragmaNamesCollect : [Identifier]+ ruleInfos : [RuleInfo]+ sigInfos : [SigInfo]+ uniqueInfos : [UniqueInfo]+ alternatives:+ alternative AroundDef:+ child ident : {Identifier}+ child rhs : {Expression}+ alternative AttrOrderBefore:+ child before : {[Occurrence]}+ child after : {[Occurrence]}+ visit 0:+ local dependency : _+ alternative AugmentDef:+ child ident : {Identifier}+ child rhs : {Expression}+ alternative Def:+ child pos : {Pos}+ child mbName : {Maybe Identifier}+ child pattern : Pattern + child rhs : {Expression}+ child owrt : {Bool}+ alternative MergeDef:+ child target : {Identifier}+ child nt : {Identifier}+ child sources : {[Identifier]}+ child rhs : {Expression}+ alternative SemPragma:+ child names : {[NontermIdent]}+ alternative TypeDef:+ child pos : {Pos}+ child ident : {Identifier}+ child tp : {Type}+ alternative UniqueDef:+ child ident : {Identifier}+ child ref : {Identifier}+-}+-- cata+sem_SemDef :: SemDef ->+ T_SemDef +sem_SemDef (AroundDef _ident _rhs ) =+ (sem_SemDef_AroundDef _ident _rhs )+sem_SemDef (AttrOrderBefore _before _after ) =+ (sem_SemDef_AttrOrderBefore _before _after )+sem_SemDef (AugmentDef _ident _rhs ) =+ (sem_SemDef_AugmentDef _ident _rhs )+sem_SemDef (Def _pos _mbName _pattern _rhs _owrt ) =+ (sem_SemDef_Def _pos _mbName (sem_Pattern _pattern ) _rhs _owrt )+sem_SemDef (MergeDef _target _nt _sources _rhs ) =+ (sem_SemDef_MergeDef _target _nt _sources _rhs )+sem_SemDef (SemPragma _names ) =+ (sem_SemDef_SemPragma _names )+sem_SemDef (TypeDef _pos _ident _tp ) =+ (sem_SemDef_TypeDef _pos _ident _tp )+sem_SemDef (UniqueDef _ident _ref ) =+ (sem_SemDef_UniqueDef _ident _ref )+-- semantic domain+newtype T_SemDef = T_SemDef (Options ->+ ( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Seq Error),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo])))+data Inh_SemDef = Inh_SemDef {options_Inh_SemDef :: !(Options)}+data Syn_SemDef = Syn_SemDef {aroundInfos_Syn_SemDef :: !(([AroundInfo])),augmentInfos_Syn_SemDef :: !(([AugmentInfo])),definedInsts_Syn_SemDef :: !(([Identifier])),errors_Syn_SemDef :: !((Seq Error)),mergeInfos_Syn_SemDef :: !(([MergeInfo])),orderDepsCollect_Syn_SemDef :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDef :: !(([Identifier])),ruleInfos_Syn_SemDef :: !(([RuleInfo])),sigInfos_Syn_SemDef :: !(([SigInfo])),uniqueInfos_Syn_SemDef :: !(([UniqueInfo]))}+wrap_SemDef :: T_SemDef ->+ Inh_SemDef ->+ Syn_SemDef +wrap_SemDef (T_SemDef sem ) (Inh_SemDef _lhsIoptions ) =+ (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem _lhsIoptions + in (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos ))+sem_SemDef_AroundDef :: Identifier ->+ Expression ->+ T_SemDef +sem_SemDef_AroundDef ident_ rhs_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 1049, column 17)+ _lhsOaroundInfos =+ ({-# LINE 1049 "Transform.ag" #-}+ [ (ident_, rhs_) ]+ {-# LINE 6015 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 973, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 973 "Transform.ag" #-}+ []+ {-# LINE 6021 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ []+ {-# LINE 6027 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6033 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOmergeInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6039 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 822, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 822 "Transform.ag" #-}+ Set.empty+ {-# LINE 6045 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 791, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 791 "Transform.ag" #-}+ []+ {-# LINE 6051 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 970, column 40)+ _lhsOruleInfos =+ ({-# LINE 970 "Transform.ag" #-}+ []+ {-# LINE 6057 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 971, column 40)+ _lhsOsigInfos =+ ({-# LINE 971 "Transform.ag" #-}+ []+ {-# LINE 6063 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 972, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 972 "Transform.ag" #-}+ []+ {-# LINE 6069 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_AttrOrderBefore :: ([Occurrence]) ->+ ([Occurrence]) ->+ T_SemDef +sem_SemDef_AttrOrderBefore before_ after_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 826, column 7)+ _dependency =+ ({-# LINE 826 "Transform.ag" #-}+ [ Dependency b a | b <- before_, a <- after_ ]+ {-# LINE 6091 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 827, column 7)+ _lhsOorderDepsCollect =+ ({-# LINE 827 "Transform.ag" #-}+ Set.fromList _dependency+ {-# LINE 6097 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOaroundInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6103 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 973, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 973 "Transform.ag" #-}+ []+ {-# LINE 6109 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ []+ {-# LINE 6115 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6121 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOmergeInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6127 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 791, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 791 "Transform.ag" #-}+ []+ {-# LINE 6133 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 970, column 40)+ _lhsOruleInfos =+ ({-# LINE 970 "Transform.ag" #-}+ []+ {-# LINE 6139 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 971, column 40)+ _lhsOsigInfos =+ ({-# LINE 971 "Transform.ag" #-}+ []+ {-# LINE 6145 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 972, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 972 "Transform.ag" #-}+ []+ {-# LINE 6151 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_AugmentDef :: Identifier ->+ Expression ->+ T_SemDef +sem_SemDef_AugmentDef ident_ rhs_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 1046, column 17)+ _lhsOaugmentInfos =+ ({-# LINE 1046 "Transform.ag" #-}+ [ (ident_, rhs_) ]+ {-# LINE 6173 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOaroundInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6179 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ []+ {-# LINE 6185 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6191 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOmergeInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6197 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 822, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 822 "Transform.ag" #-}+ Set.empty+ {-# LINE 6203 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 791, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 791 "Transform.ag" #-}+ []+ {-# LINE 6209 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 970, column 40)+ _lhsOruleInfos =+ ({-# LINE 970 "Transform.ag" #-}+ []+ {-# LINE 6215 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 971, column 40)+ _lhsOsigInfos =+ ({-# LINE 971 "Transform.ag" #-}+ []+ {-# LINE 6221 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 972, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 972 "Transform.ag" #-}+ []+ {-# LINE 6227 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_Def :: Pos ->+ (Maybe Identifier) ->+ T_Pattern ->+ Expression ->+ Bool ->+ T_SemDef +sem_SemDef_Def pos_ mbName_ (T_Pattern pattern_ ) rhs_ owrt_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ _patternIcopy :: Pattern + _patternIdefinedAttrs :: ([AttrName])+ _patternIdefinedInsts :: ([Identifier])+ _patternIpatunder :: ([AttrName]->Pattern)+ _patternIstpos :: Pos+ -- "Transform.ag"(line 527, column 3)+ _lhsOerrors =+ ({-# LINE 527 "Transform.ag" #-}+ if checkParseRhs _lhsIoptions+ then Seq.fromList $ checkRhs rhs_+ else Seq.empty+ {-# LINE 6259 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1037, column 10)+ _lhsOruleInfos =+ ({-# LINE 1037 "Transform.ag" #-}+ [ (mbName_, _patternIpatunder, rhs_, _patternIdefinedAttrs, owrt_, show _patternIstpos) ]+ {-# LINE 6265 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOaroundInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6271 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 973, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 973 "Transform.ag" #-}+ []+ {-# LINE 6277 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ _patternIdefinedInsts+ {-# LINE 6283 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOmergeInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6289 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 822, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 822 "Transform.ag" #-}+ Set.empty+ {-# LINE 6295 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 791, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 791 "Transform.ag" #-}+ []+ {-# LINE 6301 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 971, column 40)+ _lhsOsigInfos =+ ({-# LINE 971 "Transform.ag" #-}+ []+ {-# LINE 6307 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 972, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 972 "Transform.ag" #-}+ []+ {-# LINE 6313 "Transform.hs" #-}+ )+ ( _patternIcopy,_patternIdefinedAttrs,_patternIdefinedInsts,_patternIpatunder,_patternIstpos) =+ pattern_ + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_MergeDef :: Identifier ->+ Identifier ->+ ([Identifier]) ->+ Expression ->+ T_SemDef +sem_SemDef_MergeDef target_ nt_ sources_ rhs_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 527, column 3)+ _lhsOerrors =+ ({-# LINE 527 "Transform.ag" #-}+ if checkParseRhs _lhsIoptions+ then Seq.fromList $ checkRhs rhs_+ else Seq.empty+ {-# LINE 6341 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1052, column 17)+ _lhsOmergeInfos =+ ({-# LINE 1052 "Transform.ag" #-}+ [ (target_, nt_, sources_, rhs_) ]+ {-# LINE 6347 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOaroundInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6353 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 973, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 973 "Transform.ag" #-}+ []+ {-# LINE 6359 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ []+ {-# LINE 6365 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 822, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 822 "Transform.ag" #-}+ Set.empty+ {-# LINE 6371 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 791, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 791 "Transform.ag" #-}+ []+ {-# LINE 6377 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 970, column 40)+ _lhsOruleInfos =+ ({-# LINE 970 "Transform.ag" #-}+ []+ {-# LINE 6383 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 971, column 40)+ _lhsOsigInfos =+ ({-# LINE 971 "Transform.ag" #-}+ []+ {-# LINE 6389 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 972, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 972 "Transform.ag" #-}+ []+ {-# LINE 6395 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_SemPragma :: ([NontermIdent]) ->+ T_SemDef +sem_SemDef_SemPragma names_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 795, column 7)+ _lhsOpragmaNamesCollect =+ ({-# LINE 795 "Transform.ag" #-}+ names_+ {-# LINE 6416 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOaroundInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6422 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 973, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 973 "Transform.ag" #-}+ []+ {-# LINE 6428 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ []+ {-# LINE 6434 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6440 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOmergeInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6446 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 822, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 822 "Transform.ag" #-}+ Set.empty+ {-# LINE 6452 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 970, column 40)+ _lhsOruleInfos =+ ({-# LINE 970 "Transform.ag" #-}+ []+ {-# LINE 6458 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 971, column 40)+ _lhsOsigInfos =+ ({-# LINE 971 "Transform.ag" #-}+ []+ {-# LINE 6464 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 972, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 972 "Transform.ag" #-}+ []+ {-# LINE 6470 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_TypeDef :: Pos ->+ Identifier ->+ Type ->+ T_SemDef +sem_SemDef_TypeDef pos_ ident_ tp_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOerrors :: (Seq Error)+ _lhsOsigInfos :: ([SigInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- "Transform.ag"(line 534, column 3)+ _lhsOerrors =+ ({-# LINE 534 "Transform.ag" #-}+ if checkParseTy _lhsIoptions+ then case tp_ of+ Haskell s -> let exp = Expression pos_ tks+ tks = [tk]+ tk = HsToken s pos_+ in Seq.fromList $ checkTy exp+ _ -> Seq.empty+ else Seq.empty+ {-# LINE 6500 "Transform.hs" #-}+ )+ -- "Transform.ag"(line 1040, column 14)+ _lhsOsigInfos =+ ({-# LINE 1040 "Transform.ag" #-}+ [ (ident_, tp_) ]+ {-# LINE 6506 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOaroundInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6512 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 973, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 973 "Transform.ag" #-}+ []+ {-# LINE 6518 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ []+ {-# LINE 6524 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOmergeInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6530 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 822, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 822 "Transform.ag" #-}+ Set.empty+ {-# LINE 6536 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 791, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 791 "Transform.ag" #-}+ []+ {-# LINE 6542 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 970, column 40)+ _lhsOruleInfos =+ ({-# LINE 970 "Transform.ag" #-}+ []+ {-# LINE 6548 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 972, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 972 "Transform.ag" #-}+ []+ {-# LINE 6554 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDef_UniqueDef :: Identifier ->+ Identifier ->+ T_SemDef +sem_SemDef_UniqueDef ident_ ref_ =+ (T_SemDef (\ _lhsIoptions ->+ (let _lhsOuniqueInfos :: ([UniqueInfo])+ _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ -- "Transform.ag"(line 1043, column 16)+ _lhsOuniqueInfos =+ ({-# LINE 1043 "Transform.ag" #-}+ [ (ident_, ref_) ]+ {-# LINE 6576 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOaroundInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6582 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 973, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 973 "Transform.ag" #-}+ []+ {-# LINE 6588 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ []+ {-# LINE 6594 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6600 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOmergeInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6606 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 822, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 822 "Transform.ag" #-}+ Set.empty+ {-# LINE 6612 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 791, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 791 "Transform.ag" #-}+ []+ {-# LINE 6618 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 970, column 40)+ _lhsOruleInfos =+ ({-# LINE 970 "Transform.ag" #-}+ []+ {-# LINE 6624 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 971, column 40)+ _lhsOsigInfos =+ ({-# LINE 971 "Transform.ag" #-}+ []+ {-# LINE 6630 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+-- SemDefs -----------------------------------------------------+{-+ visit 0:+ inherited attribute:+ options : Options+ synthesized attributes:+ aroundInfos : [AroundInfo]+ augmentInfos : [AugmentInfo]+ definedInsts : [Identifier]+ errors : Seq Error+ mergeInfos : [MergeInfo]+ orderDepsCollect : Set Dependency+ pragmaNamesCollect : [Identifier]+ ruleInfos : [RuleInfo]+ sigInfos : [SigInfo]+ uniqueInfos : [UniqueInfo]+ alternatives:+ alternative Cons:+ child hd : SemDef + child tl : SemDefs + alternative Nil:+-}+-- cata+sem_SemDefs :: SemDefs ->+ T_SemDefs +sem_SemDefs list =+ (Prelude.foldr sem_SemDefs_Cons sem_SemDefs_Nil (Prelude.map sem_SemDef list) )+-- semantic domain+newtype T_SemDefs = T_SemDefs (Options ->+ ( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Seq Error),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo])))+data Inh_SemDefs = Inh_SemDefs {options_Inh_SemDefs :: !(Options)}+data Syn_SemDefs = Syn_SemDefs {aroundInfos_Syn_SemDefs :: !(([AroundInfo])),augmentInfos_Syn_SemDefs :: !(([AugmentInfo])),definedInsts_Syn_SemDefs :: !(([Identifier])),errors_Syn_SemDefs :: !((Seq Error)),mergeInfos_Syn_SemDefs :: !(([MergeInfo])),orderDepsCollect_Syn_SemDefs :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDefs :: !(([Identifier])),ruleInfos_Syn_SemDefs :: !(([RuleInfo])),sigInfos_Syn_SemDefs :: !(([SigInfo])),uniqueInfos_Syn_SemDefs :: !(([UniqueInfo]))}+wrap_SemDefs :: T_SemDefs ->+ Inh_SemDefs ->+ Syn_SemDefs +wrap_SemDefs (T_SemDefs sem ) (Inh_SemDefs _lhsIoptions ) =+ (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem _lhsIoptions + in (Syn_SemDefs _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos ))+sem_SemDefs_Cons :: T_SemDef ->+ T_SemDefs ->+ T_SemDefs +sem_SemDefs_Cons (T_SemDef hd_ ) (T_SemDefs tl_ ) =+ (T_SemDefs (\ _lhsIoptions ->+ (let _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ _hdOoptions :: Options+ _tlOoptions :: Options+ _hdIaroundInfos :: ([AroundInfo])+ _hdIaugmentInfos :: ([AugmentInfo])+ _hdIdefinedInsts :: ([Identifier])+ _hdIerrors :: (Seq Error)+ _hdImergeInfos :: ([MergeInfo])+ _hdIorderDepsCollect :: (Set Dependency)+ _hdIpragmaNamesCollect :: ([Identifier])+ _hdIruleInfos :: ([RuleInfo])+ _hdIsigInfos :: ([SigInfo])+ _hdIuniqueInfos :: ([UniqueInfo])+ _tlIaroundInfos :: ([AroundInfo])+ _tlIaugmentInfos :: ([AugmentInfo])+ _tlIdefinedInsts :: ([Identifier])+ _tlIerrors :: (Seq Error)+ _tlImergeInfos :: ([MergeInfo])+ _tlIorderDepsCollect :: (Set Dependency)+ _tlIpragmaNamesCollect :: ([Identifier])+ _tlIruleInfos :: ([RuleInfo])+ _tlIsigInfos :: ([SigInfo])+ _tlIuniqueInfos :: ([UniqueInfo])+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOaroundInfos =+ ({-# LINE 974 "Transform.ag" #-}+ _hdIaroundInfos ++ _tlIaroundInfos+ {-# LINE 6712 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 973, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 973 "Transform.ag" #-}+ _hdIaugmentInfos ++ _tlIaugmentInfos+ {-# LINE 6718 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ _hdIdefinedInsts ++ _tlIdefinedInsts+ {-# LINE 6724 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ _hdIerrors Seq.>< _tlIerrors+ {-# LINE 6730 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOmergeInfos =+ ({-# LINE 975 "Transform.ag" #-}+ _hdImergeInfos ++ _tlImergeInfos+ {-# LINE 6736 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 822, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 822 "Transform.ag" #-}+ _hdIorderDepsCollect `Set.union` _tlIorderDepsCollect+ {-# LINE 6742 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 791, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 791 "Transform.ag" #-}+ _hdIpragmaNamesCollect ++ _tlIpragmaNamesCollect+ {-# LINE 6748 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 970, column 40)+ _lhsOruleInfos =+ ({-# LINE 970 "Transform.ag" #-}+ _hdIruleInfos ++ _tlIruleInfos+ {-# LINE 6754 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 971, column 40)+ _lhsOsigInfos =+ ({-# LINE 971 "Transform.ag" #-}+ _hdIsigInfos ++ _tlIsigInfos+ {-# LINE 6760 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 972, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 972 "Transform.ag" #-}+ _hdIuniqueInfos ++ _tlIuniqueInfos+ {-# LINE 6766 "Transform.hs" #-}+ )+ -- copy rule (down)+ _hdOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 6772 "Transform.hs" #-}+ )+ -- copy rule (down)+ _tlOoptions =+ ({-# LINE 39 "Transform.ag" #-}+ _lhsIoptions+ {-# LINE 6778 "Transform.hs" #-}+ )+ ( _hdIaroundInfos,_hdIaugmentInfos,_hdIdefinedInsts,_hdIerrors,_hdImergeInfos,_hdIorderDepsCollect,_hdIpragmaNamesCollect,_hdIruleInfos,_hdIsigInfos,_hdIuniqueInfos) =+ hd_ _hdOoptions + ( _tlIaroundInfos,_tlIaugmentInfos,_tlIdefinedInsts,_tlIerrors,_tlImergeInfos,_tlIorderDepsCollect,_tlIpragmaNamesCollect,_tlIruleInfos,_tlIsigInfos,_tlIuniqueInfos) =+ tl_ _tlOoptions + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )+sem_SemDefs_Nil :: T_SemDefs +sem_SemDefs_Nil =+ (T_SemDefs (\ _lhsIoptions ->+ (let _lhsOaroundInfos :: ([AroundInfo])+ _lhsOaugmentInfos :: ([AugmentInfo])+ _lhsOdefinedInsts :: ([Identifier])+ _lhsOerrors :: (Seq Error)+ _lhsOmergeInfos :: ([MergeInfo])+ _lhsOorderDepsCollect :: (Set Dependency)+ _lhsOpragmaNamesCollect :: ([Identifier])+ _lhsOruleInfos :: ([RuleInfo])+ _lhsOsigInfos :: ([SigInfo])+ _lhsOuniqueInfos :: ([UniqueInfo])+ -- use rule "Transform.ag"(line 974, column 40)+ _lhsOaroundInfos =+ ({-# LINE 974 "Transform.ag" #-}+ []+ {-# LINE 6802 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 973, column 40)+ _lhsOaugmentInfos =+ ({-# LINE 973 "Transform.ag" #-}+ []+ {-# LINE 6808 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 1055, column 55)+ _lhsOdefinedInsts =+ ({-# LINE 1055 "Transform.ag" #-}+ []+ {-# LINE 6814 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 43, column 19)+ _lhsOerrors =+ ({-# LINE 43 "Transform.ag" #-}+ Seq.empty+ {-# LINE 6820 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 975, column 40)+ _lhsOmergeInfos =+ ({-# LINE 975 "Transform.ag" #-}+ []+ {-# LINE 6826 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 822, column 44)+ _lhsOorderDepsCollect =+ ({-# LINE 822 "Transform.ag" #-}+ Set.empty+ {-# LINE 6832 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 791, column 46)+ _lhsOpragmaNamesCollect =+ ({-# LINE 791 "Transform.ag" #-}+ []+ {-# LINE 6838 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 970, column 40)+ _lhsOruleInfos =+ ({-# LINE 970 "Transform.ag" #-}+ []+ {-# LINE 6844 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 971, column 40)+ _lhsOsigInfos =+ ({-# LINE 971 "Transform.ag" #-}+ []+ {-# LINE 6850 "Transform.hs" #-}+ )+ -- use rule "Transform.ag"(line 972, column 40)+ _lhsOuniqueInfos =+ ({-# LINE 972 "Transform.ag" #-}+ []+ {-# LINE 6856 "Transform.hs" #-}+ )+ in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) )
src-derived/Visage.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (Visage.ag)+-- UUAGC 0.9.36.2 (Visage.ag) module Visage where {-# LINE 6 "Visage.ag" #-}
src-derived/VisagePatterns.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (VisagePatterns.ag)+-- UUAGC 0.9.36.2 (VisagePatterns.ag) module VisagePatterns where {-# LINE 2 "VisagePatterns.ag" #-}
src-derived/VisageSyntax.hs view
@@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (VisageSyntax.ag)+-- UUAGC 0.9.36.2 (VisageSyntax.ag) module VisageSyntax where {-# LINE 2 "VisageSyntax.ag" #-}
src/Ag.hs view
@@ -2,7 +2,7 @@ import System (getArgs, getProgName, exitFailure) import System.Console.GetOpt (usageInfo)-import List (isSuffixOf)+import List (isSuffixOf,nub) import Monad (zipWithM_) import Data.Maybe @@ -77,7 +77,7 @@ output4a = Pass4a.wrap_CGrammar (Pass4a.sem_CGrammar(Pass3.output_Syn_Grammar output3)) Pass4a.Inh_CGrammar {Pass4a.options_Inh_CGrammar = flags'} output5 = Pass5.wrap_Program (Pass5.sem_Program (Pass4.output_Syn_CGrammar output4)) Pass5.Inh_Program {Pass5.options_Inh_Program = flags', Pass5.pragmaBlocks_Inh_Program = pragmaBlocksTxt, Pass5.importBlocks_Inh_Program = importBlocksTxt, Pass5.textBlocks_Inh_Program = textBlocksDoc, Pass5.textBlockMap_Inh_Program = textBlockMap, Pass5.optionsLine_Inh_Program = optionsLine, Pass5.mainFile_Inh_Program = mainFile, Pass5.moduleHeader_Inh_Program = mkModuleHeader $ Pass1.moduleDecl_Syn_AG output1, Pass5.mainName_Inh_Program = mkMainName mainName $ Pass1.moduleDecl_Syn_AG output1} output5a = Pass5a.wrap_Program (Pass5a.sem_Program (Pass4.output_Syn_CGrammar output4)) Pass5a.Inh_Program { Pass5a.options_Inh_Program = flags', Pass5a.textBlockMap_Inh_Program = textBlockMap }- output6 = PrErr.wrap_Errors (PrErr.sem_Errors errorsToReport) PrErr.Inh_Errors {PrErr.options_Inh_Errors = flags'}+ output6 = PrErr.wrap_Errors (PrErr.sem_Errors errorsToReport) PrErr.Inh_Errors {PrErr.options_Inh_Errors = flags', PrErr.dups_Inh_Errors = [] } dump1 = GrammarDump.wrap_Grammar (GrammarDump.sem_Grammar grammar1 ) GrammarDump.Inh_Grammar dump2 = GrammarDump.wrap_Grammar (GrammarDump.sem_Grammar grammar2 ) GrammarDump.Inh_Grammar@@ -320,7 +320,7 @@ = do results <- mapM (depsAG flags (searchPath flags)) files let (fs, mesgs) = foldr combine ([],[]) results let errs = take (min 1 (wmaxerrs flags)) (map message2error mesgs)- let ppErrs = PrErr.wrap_Errors (PrErr.sem_Errors errs) PrErr.Inh_Errors {PrErr.options_Inh_Errors = flags}+ let ppErrs = PrErr.wrap_Errors (PrErr.sem_Errors errs) PrErr.Inh_Errors {PrErr.options_Inh_Errors = flags, PrErr.dups_Inh_Errors = []} if null errs then mapM_ putStrLn fs else do putStr . formatErrors $ PrErr.pp_Syn_Errors ppErrs
src/Options.hs view
@@ -63,6 +63,10 @@ , Option [] ["breadthfirst-strict"] (NoArg breadthfirstStrictOpt) "Experimental: outermost breadth-first evaluator is strict instead of lazy" , Option [] ["visitcode"] (NoArg visitorsOutputOpt) "Experimental: generate visitors code" , Option [] ["statistics"] (ReqArg statisticsOpt "FILE to append to") "Append statistics to FILE"+ , Option [] ["checkParseRhs"] (NoArg parseHsRhsOpt) "Parse RHS of rules with Haskell parser"+ , Option [] ["checkParseTys"] (NoArg parseHsTpOpt) "Parse types of attrs with Haskell parser"+ , Option [] ["checkParseBlocks"] (NoArg parseHsBlockOpt) "Parse blocks with Haskell parser"+ , Option [] ["checkParseHaskell"] (NoArg parseHsOpt) "Parse Haskell code (recognizer)" ] allc = "dcfsprm"@@ -123,6 +127,9 @@ , statsFile :: Maybe String , breadthFirst :: Bool , breadthFirstStrict :: Bool+ , checkParseRhs :: Bool+ , checkParseTy :: Bool+ , checkParseBlock :: Bool } deriving Show noOptions = Options { moduleName = NoName , dataTypes = False@@ -180,9 +187,11 @@ , statsFile = Nothing , breadthFirst = False , breadthFirstStrict = False+ , checkParseRhs = False+ , checkParseTy = False+ , checkParseBlock = False } - moduleOpt nm opts = opts{moduleName = maybe Default Name nm} dataOpt opts = opts{dataTypes = True} strictDataOpt opts = opts{strictData = True} @@ -238,6 +247,10 @@ statisticsOpt nm opts = opts { statsFile = Just nm } breadthfirstOpt opts = opts { breadthFirst = True } breadthfirstStrictOpt opts = opts { breadthFirstStrict = True }+parseHsRhsOpt opts = opts { checkParseRhs = True }+parseHsTpOpt opts = opts { checkParseTy = True }+parseHsBlockOpt opts = opts { checkParseBlock = True }+parseHsOpt = parseHsRhsOpt . parseHsTpOpt . parseHsBlockOpt outputOpt file opts = opts{outputFiles = file : outputFiles opts} searchPathOpt path opts = opts{searchPath = extract path ++ searchPath opts}
src/Parser.hs view
@@ -237,12 +237,12 @@ <|> (\ir a fld -> ir $ Alias fld a (Underscore noPos) []) <$> ((Irrefutable <$ pTilde) `opt` id) <*> pIdentifier pLocDecl :: AGParser SemDef- pLocDecl = pDot <**> (pIdentifier <**> (pTypeColon <**> ( (\tp _ ident _ -> TypeDef ident tp) <$> pLocType+ pLocDecl = pDot <**> (pIdentifier <**> (pTypeColon <**> ( (\(tp,pos) _ ident _ -> TypeDef pos ident tp) <$> pLocType <|> (\ref _ ident _ -> UniqueDef ident ref) <$ pUNIQUEREF <*> pIdentifier ))) pInstDecl :: AGParser SemDef- pInstDecl = (\ident tp -> TypeDef ident tp)+ pInstDecl = (\ident tp -> TypeDef (getPos ident) ident tp) <$ pDot <*> pIdentifier <* pTypeColon <*> pTypeNt pSemDefs :: AGParser SemDefs@@ -395,8 +395,9 @@ nl2sp '\r' = ' ' nl2sp x = x -pLocType = (Haskell . getName) <$> pIdentifierU- <|> Haskell <$> pCodescrap' <?> "a type"+pLocType :: AGParser (Type, Pos)+pLocType = (\u -> (Haskell $ getName u, getPos u)) <$> pIdentifierU+ <|> (\(s,p) -> (Haskell s,p)) <$> pCodescrap <?> "a type" pVar :: AGParser (Identifier -> (Identifier, Identifier)) pVar = (\att fld -> (fld,att)) <$> pIdentifier
+ src/RhsCheck.hs view
@@ -0,0 +1,65 @@+module RhsCheck(checkRhs,checkBlock,checkTy) where++import Language.Haskell.Exts+import ErrorMessages+import ConcreteSyntax+import Expression+import HsToken+import UU.Scanner.Position+import Debug.Trace++checkRhs,checkBlock,checkTy :: Expression -> Errors+checkRhs = check parseExpWithMode+checkBlock = check parseModuleWithMode+checkTy = check parseTypeWithMode++check :: (ParseMode -> String -> ParseResult a) -> Expression -> Errors+check p (Expression pos tks) = case res of+ ParseOk _ -> []+ ParseFailed loc msg -> trace (">>\n" ++ str ++ "\n" ++ msg ++ "<<") $+ let pos' = Pos (srcLine loc + line pos - 1) (srcColumn loc) (srcFilename loc)+ in [HsParseError pos' msg]+ where+ pos0 = Pos (line pos) 1 (file pos)+ str = toString pos0 tks+ res = p mode str+ mode = defaultParseMode { parseFilename = file pos, ignoreLanguagePragmas = False, extensions = exts+ , ignoreLinePragmas = False, fixities = baseFixities }++exts :: [Extension]+exts = glasgowExts++toString :: Pos -> HsTokens -> String+toString _ [] = ""+toString cPos (tk:tks) = move ++ current ++ next+ where+ tkPos = getPos tk+ move = addSpacing (line tkPos - line cPos) (column cPos) (column tkPos)+ current = fmt tk+ nPos = upd tkPos current+ next = toString nPos tks++getPos :: HsToken -> Pos+getPos (AGLocal _ pos _) = pos+getPos (AGField _ _ pos _) = pos+getPos (HsToken _ pos) = pos+getPos (CharToken _ pos) = pos+getPos (StrToken _ pos) = pos+getPos (Err _ pos) = pos++fmt :: HsToken -> String+fmt (AGLocal var _ _) = "_" ++ show var+fmt (AGField field attr _ _) = "_" ++ show field ++ "_" ++ show attr+fmt (HsToken val _) = val+fmt (CharToken val _) = show val+fmt (StrToken val _) = show val+fmt (Err val _) = val++upd :: Pos -> String -> Pos+upd p s = foldl adv p s++addSpacing :: Int -> Int -> Int -> String+addSpacing l c1 c2 = replicate l '\n' ++ replicate c ' '+ where+ c | l == 0 = c2 - c1+ | otherwise = c2 - 1
src/Version.hs view
@@ -1,4 +1,4 @@ module Version where banner :: String -banner = "Attribute Grammar compiler / HUT project. Version 0.9.36" +banner = "Attribute Grammar compiler / HUT project. Version 0.9.37.0"
uuagc.cabal view
@@ -1,7 +1,7 @@ cabal-version: >=1.2 build-type: Simple name: uuagc-version: 0.9.36+version: 0.9.37.0 license: GPL license-file: LICENSE maintainer: Arie Middelkoop <ariem@cs.uu.nl>@@ -24,11 +24,12 @@ build-depends: base < 4 if flag(compatibility2)- build-depends: base >= 3, base < 5, containers, directory, array+ build-depends: base >= 3, base < 5, containers >= 0.3, directory, array else build-depends: base < 3 - build-depends: haskell98, uulib>=0.9.12+ build-depends: haskell98, uulib>=0.9.12, mtl>=1.1.1.1+ build-depends: haskell-src-exts main-is: Ag.hs other-modules: Ag , CommonTypes@@ -75,11 +76,12 @@ , VisageSyntax , VisagePatterns , AG2AspectAG+ , RhsCheck extensions: TypeSynonymInstances, MultiParamTypeClasses hs-source-dirs: src, src-derived Library- build-depends: base >= 4, base < 5, Cabal, directory, process, uulib>=0.9.12, filepath+ build-depends: base >= 4, base < 5, Cabal>=1.8.0.6, directory, process, uulib>=0.9.12, filepath, mtl hs-source-dirs: cabal-plugin/src exposed-modules: Distribution.Simple.UUAGC other-modules: Distribution.Simple.UUAGC.UUAGC,
uuagc.cabal-for-ghc-6.6 view
@@ -1,5 +1,5 @@ name: uuagc-version: 0.9.36+version: 0.9.37.0 license: GPL license-file: LICENSE maintainer: Arie Middelkoop <ariem@cs.uu.nl>