diff --git a/cabal-plugin/src/Distribution/Simple/UUAGC/AbsSyn.hs b/cabal-plugin/src/Distribution/Simple/UUAGC/AbsSyn.hs --- a/cabal-plugin/src/Distribution/Simple/UUAGC/AbsSyn.hs +++ b/cabal-plugin/src/Distribution/Simple/UUAGC/AbsSyn.hs @@ -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 diff --git a/cabal-plugin/src/Distribution/Simple/UUAGC/Parser.hs b/cabal-plugin/src/Distribution/Simple/UUAGC/Parser.hs --- a/cabal-plugin/src/Distribution/Simple/UUAGC/Parser.hs +++ b/cabal-plugin/src/Distribution/Simple/UUAGC/Parser.hs @@ -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,[]) diff --git a/cabal-plugin/src/Distribution/Simple/UUAGC/UUAGC.hs b/cabal-plugin/src/Distribution/Simple/UUAGC/UUAGC.hs --- a/cabal-plugin/src/Distribution/Simple/UUAGC/UUAGC.hs +++ b/cabal-plugin/src/Distribution/Simple/UUAGC/UUAGC.hs @@ -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 diff --git a/src-derived/AG2AspectAG.hs b/src-derived/AG2AspectAG.hs --- a/src-derived/AG2AspectAG.hs +++ b/src-derived/AG2AspectAG.hs @@ -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 ----------------------------------------------------- diff --git a/src-derived/AbstractSyntax.hs b/src-derived/AbstractSyntax.hs --- a/src-derived/AbstractSyntax.hs +++ b/src-derived/AbstractSyntax.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (AbstractSyntax.ag) +-- UUAGC 0.9.36.2 (AbstractSyntax.ag) module AbstractSyntax where {-# LINE 2 "AbstractSyntax.ag" #-} diff --git a/src-derived/AbstractSyntaxDump.hs b/src-derived/AbstractSyntaxDump.hs --- a/src-derived/AbstractSyntaxDump.hs +++ b/src-derived/AbstractSyntaxDump.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (AbstractSyntaxDump.ag) +-- UUAGC 0.9.36.2 (AbstractSyntaxDump.ag) module AbstractSyntaxDump where {-# LINE 6 "AbstractSyntaxDump.ag" #-} diff --git a/src-derived/Code.hs b/src-derived/Code.hs --- a/src-derived/Code.hs +++ b/src-derived/Code.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (Code.ag) +-- UUAGC 0.9.36.2 (Code.ag) module Code where {-# LINE 2 "Code.ag" #-} diff --git a/src-derived/CodeSyntax.hs b/src-derived/CodeSyntax.hs --- a/src-derived/CodeSyntax.hs +++ b/src-derived/CodeSyntax.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (CodeSyntax.ag) +-- UUAGC 0.9.36.2 (CodeSyntax.ag) module CodeSyntax where {-# LINE 2 "CodeSyntax.ag" #-} diff --git a/src-derived/CodeSyntaxDump.hs b/src-derived/CodeSyntaxDump.hs --- a/src-derived/CodeSyntaxDump.hs +++ b/src-derived/CodeSyntaxDump.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (CodeSyntaxDump.ag) +-- UUAGC 0.9.36.2 (CodeSyntaxDump.ag) module CodeSyntaxDump where {-# LINE 5 "CodeSyntaxDump.ag" #-} diff --git a/src-derived/ConcreteSyntax.hs b/src-derived/ConcreteSyntax.hs --- a/src-derived/ConcreteSyntax.hs +++ b/src-derived/ConcreteSyntax.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.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 ----------------------------------------------------- {- diff --git a/src-derived/DeclBlocks.hs b/src-derived/DeclBlocks.hs --- a/src-derived/DeclBlocks.hs +++ b/src-derived/DeclBlocks.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (DeclBlocks.ag) +-- UUAGC 0.9.36.2 (DeclBlocks.ag) module DeclBlocks where {-# LINE 2 "DeclBlocks.ag" #-} diff --git a/src-derived/DefaultRules.hs b/src-derived/DefaultRules.hs --- a/src-derived/DefaultRules.hs +++ b/src-derived/DefaultRules.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.35 (DefaultRules.ag) +-- UUAGC 0.9.36.2 (DefaultRules.ag) module DefaultRules where {-# LINE 10 "DefaultRules.ag" #-} diff --git a/src-derived/Desugar.hs b/src-derived/Desugar.hs --- a/src-derived/Desugar.hs +++ b/src-derived/Desugar.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.35 (Desugar.ag) +-- UUAGC 0.9.36.2 (Desugar.ag) module Desugar where {-# LINE 13 "Desugar.ag" #-} diff --git a/src-derived/ErrorMessages.hs b/src-derived/ErrorMessages.hs --- a/src-derived/ErrorMessages.hs +++ b/src-derived/ErrorMessages.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.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])) diff --git a/src-derived/Expression.hs b/src-derived/Expression.hs --- a/src-derived/Expression.hs +++ b/src-derived/Expression.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (Expression.ag) +-- UUAGC 0.9.36.2 (Expression.ag) module Expression where {-# LINE 2 "Expression.ag" #-} diff --git a/src-derived/GenerateCode.hs b/src-derived/GenerateCode.hs --- a/src-derived/GenerateCode.hs +++ b/src-derived/GenerateCode.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (GenerateCode.ag) +-- UUAGC 0.9.36.2 (GenerateCode.ag) module GenerateCode where {-# LINE 9 "GenerateCode.ag" #-} diff --git a/src-derived/HsToken.hs b/src-derived/HsToken.hs --- a/src-derived/HsToken.hs +++ b/src-derived/HsToken.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (HsToken.ag) +-- UUAGC 0.9.36.2 (HsToken.ag) module HsToken where {-# LINE 2 "HsToken.ag" #-} diff --git a/src-derived/Interfaces.hs b/src-derived/Interfaces.hs --- a/src-derived/Interfaces.hs +++ b/src-derived/Interfaces.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (Interfaces.ag) +-- UUAGC 0.9.36.2 (Interfaces.ag) module Interfaces where {-# LINE 2 "Interfaces.ag" #-} diff --git a/src-derived/InterfacesRules.hs b/src-derived/InterfacesRules.hs --- a/src-derived/InterfacesRules.hs +++ b/src-derived/InterfacesRules.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.35 (InterfacesRules.lag) +-- UUAGC 0.9.36.2 (InterfacesRules.lag) module InterfacesRules where {-# LINE 10 "InterfacesRules.lag" #-} diff --git a/src-derived/Order.hs b/src-derived/Order.hs --- a/src-derived/Order.hs +++ b/src-derived/Order.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.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))) ) diff --git a/src-derived/Patterns.hs b/src-derived/Patterns.hs --- a/src-derived/Patterns.hs +++ b/src-derived/Patterns.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (Patterns.ag) +-- UUAGC 0.9.36.2 (Patterns.ag) module Patterns where {-# LINE 2 "Patterns.ag" #-} diff --git a/src-derived/PrintCode.hs b/src-derived/PrintCode.hs --- a/src-derived/PrintCode.hs +++ b/src-derived/PrintCode.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.35 (PrintCode.ag) +-- UUAGC 0.9.36.2 (PrintCode.ag) module PrintCode where {-# LINE 10 "PrintCode.ag" #-} diff --git a/src-derived/PrintErrorMessages.hs b/src-derived/PrintErrorMessages.hs --- a/src-derived/PrintErrorMessages.hs +++ b/src-derived/PrintErrorMessages.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.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|< 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))) ) diff --git a/src-derived/PrintOcamlCode.hs b/src-derived/PrintOcamlCode.hs --- a/src-derived/PrintOcamlCode.hs +++ b/src-derived/PrintOcamlCode.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.35 (PrintOcamlCode.ag) +-- UUAGC 0.9.36.2 (PrintOcamlCode.ag) module PrintOcamlCode where {-# LINE 10 "PrintOcamlCode.ag" #-} diff --git a/src-derived/PrintVisitCode.hs b/src-derived/PrintVisitCode.hs --- a/src-derived/PrintVisitCode.hs +++ b/src-derived/PrintVisitCode.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (PrintVisitCode.ag) +-- UUAGC 0.9.36.2 (PrintVisitCode.ag) module PrintVisitCode where {-# LINE 10 "PrintVisitCode.ag" #-} diff --git a/src-derived/SemHsTokens.hs b/src-derived/SemHsTokens.hs --- a/src-derived/SemHsTokens.hs +++ b/src-derived/SemHsTokens.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (SemHsTokens.ag) +-- UUAGC 0.9.36.2 (SemHsTokens.ag) module SemHsTokens where {-# LINE 4 "SemHsTokens.ag" #-} diff --git a/src-derived/TfmToVisage.hs b/src-derived/TfmToVisage.hs --- a/src-derived/TfmToVisage.hs +++ b/src-derived/TfmToVisage.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (TfmToVisage.ag) +-- UUAGC 0.9.36.2 (TfmToVisage.ag) module TfmToVisage where {-# LINE 8 "TfmToVisage.ag" #-} diff --git a/src-derived/Transform.hs b/src-derived/Transform.hs --- a/src-derived/Transform.hs +++ b/src-derived/Transform.hs @@ -1,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 "") 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 "") 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))) ) diff --git a/src-derived/Visage.hs b/src-derived/Visage.hs --- a/src-derived/Visage.hs +++ b/src-derived/Visage.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (Visage.ag) +-- UUAGC 0.9.36.2 (Visage.ag) module Visage where {-# LINE 6 "Visage.ag" #-} diff --git a/src-derived/VisagePatterns.hs b/src-derived/VisagePatterns.hs --- a/src-derived/VisagePatterns.hs +++ b/src-derived/VisagePatterns.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (VisagePatterns.ag) +-- UUAGC 0.9.36.2 (VisagePatterns.ag) module VisagePatterns where {-# LINE 2 "VisagePatterns.ag" #-} diff --git a/src-derived/VisageSyntax.hs b/src-derived/VisageSyntax.hs --- a/src-derived/VisageSyntax.hs +++ b/src-derived/VisageSyntax.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.35 (VisageSyntax.ag) +-- UUAGC 0.9.36.2 (VisageSyntax.ag) module VisageSyntax where {-# LINE 2 "VisageSyntax.ag" #-} diff --git a/src/Ag.hs b/src/Ag.hs --- a/src/Ag.hs +++ b/src/Ag.hs @@ -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 diff --git a/src/Options.hs b/src/Options.hs --- a/src/Options.hs +++ b/src/Options.hs @@ -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} diff --git a/src/Parser.hs b/src/Parser.hs --- a/src/Parser.hs +++ b/src/Parser.hs @@ -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 diff --git a/src/RhsCheck.hs b/src/RhsCheck.hs new file mode 100644 --- /dev/null +++ b/src/RhsCheck.hs @@ -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 diff --git a/src/Version.hs b/src/Version.hs --- a/src/Version.hs +++ b/src/Version.hs @@ -1,4 +1,4 @@ module Version where banner :: String -banner = "Attribute Grammar compiler / HUT project. Version 0.9.36" +banner = "Attribute Grammar compiler / HUT project. Version 0.9.37.0" diff --git a/uuagc.cabal b/uuagc.cabal --- a/uuagc.cabal +++ b/uuagc.cabal @@ -1,7 +1,7 @@ cabal-version: >=1.2 build-type: Simple name: uuagc -version: 0.9.36 +version: 0.9.37.0 license: GPL license-file: LICENSE maintainer: Arie Middelkoop @@ -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, diff --git a/uuagc.cabal-for-ghc-6.6 b/uuagc.cabal-for-ghc-6.6 --- a/uuagc.cabal-for-ghc-6.6 +++ b/uuagc.cabal-for-ghc-6.6 @@ -1,5 +1,5 @@ name: uuagc -version: 0.9.36 +version: 0.9.37.0 license: GPL license-file: LICENSE maintainer: Arie Middelkoop