diff --git a/glualint.cabal b/glualint.cabal --- a/glualint.cabal +++ b/glualint.cabal @@ -1,6 +1,6 @@ cabal-version: 3.0 name: glualint -version: 1.28.0 +version: 1.29.0 synopsis: Attempts to fix your syntax erroring Lua files. description: Linter for Lua, specifically the variant used in Garry's mod. @@ -26,14 +26,14 @@ library default-language: Haskell2010 build-depends: - , aeson >=2 && <3 - , base >=4.5 && <5 - , bytestring >=0.11 && <1 - , containers >=0.6 && <1 - , parsec >=3 && <4 - , pretty >=1.1 && <1.2 - , uuagc >=0.9.40.3 && <0.10 - , uuagc-cabal >=1.0.3.0 && <2 + , aeson >=2 && <3 + , base >=4.5 && <5 + , bytestring >=0.11 && <1 + , containers >=0.6 && <1 + , parsec >=3 && <4 + , pretty >=1.1 && <1.2 + , uuagc >=0.9.56 && <0.10 + , uuagc-cabal >=1.3.0.0 && <2 hs-source-dirs: src exposed-modules: @@ -41,8 +41,10 @@ GLua.AG.PrettyPrint GLua.AG.Token GLua.ASTInstances + GLua.EncodingOptions GLua.Lexer GLua.LineLimitParser + GLua.ParseError GLua.Parser GLua.Position GLua.TokenTypes @@ -55,11 +57,11 @@ ghc-options: -Wall -fno-warn-unused-do-bind other-extensions: - NoMonomorphismRestriction CPP FlexibleContexts FlexibleInstances MultiParamTypeClasses + NoMonomorphismRestriction Rank2Types TypeSynonymInstances @@ -111,11 +113,11 @@ autogen-modules: Paths_glualint other-extensions: - NoMonomorphismRestriction CPP FlexibleContexts FlexibleInstances MultiParamTypeClasses + NoMonomorphismRestriction Rank2Types TypeSynonymInstances @@ -134,5 +136,5 @@ , signal >=0.1 && <0.2 hs-source-dirs: app - ghc-options: -O3 -Wall + ghc-options: -O2 -Wall default-language: Haskell2010 diff --git a/src/GLua/AG/AST.hs b/src/GLua/AG/AST.hs --- a/src/GLua/AG/AST.hs +++ b/src/GLua/AG/AST.hs @@ -1,30 +1,28 @@ -{-# LANGUAGE DeriveGeneric #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} --- UUAGC 0.9.53.1 (src/GLua/AG/AST.ag) +-- UUAGC 0.9.56 (src/GLua/AG/AST.ag) module GLua.AG.AST where -{-# LINE 10 "src/GLua/AG/AST.ag" #-} +{-# LINE 9 "src/GLua/AG/AST.ag" #-} import GLua.AG.Token import GLua.Position import GLua.TokenTypes () -import GHC.Generics import Data.Aeson -{-# LINE 16 "src/GLua/AG/AST.hs" #-} +{-# LINE 14 "src/GLua/AG/AST.hs" #-} -- AReturn ----------------------------------------------------- data AReturn = AReturn (Region) (MExprList) | NoReturn - deriving ( Generic,Show) + deriving ( Show) -- AST --------------------------------------------------------- data AST = AST (([MToken])) (Block) - deriving ( Generic,Show) + deriving ( Show) -- Args -------------------------------------------------------- data Args = ListArgs (MExprList) | TableArg (FieldList) | StringArg (MToken) - deriving ( Generic,Show) + deriving ( Show) -- BinOp ------------------------------------------------------- data BinOp = AOr | AAnd @@ -41,10 +39,10 @@ | ADivide | AModulus | APower - deriving ( Eq,Generic,Ord,Show) + deriving ( Eq,Ord,Show) -- Block ------------------------------------------------------- data Block = Block (Region) (MStatList) (AReturn) - deriving ( Generic,Show) + deriving ( Show) -- Declaration ------------------------------------------------- type Declaration = ( PrefixExp,MaybeMExpr) -- Else -------------------------------------------------------- @@ -65,38 +63,38 @@ | ATableConstructor (FieldList) | BinOpExpr (BinOp) (MExpr) (MExpr) | UnOpExpr (UnOp) (MExpr) - deriving ( Generic,Show) + deriving ( Show) -- ExprSuffixList ---------------------------------------------- type ExprSuffixList = [PFExprSuffix] -- Field ------------------------------------------------------- data Field = ExprField (MExpr) (MExpr) (FieldSep) | NamedField (MToken) (MExpr) (FieldSep) | UnnamedField (MExpr) (FieldSep) - deriving ( Generic,Show) + deriving ( Show) -- FieldList --------------------------------------------------- type FieldList = [Field] -- FieldSep ---------------------------------------------------- data FieldSep = CommaSep | SemicolonSep | NoSep - deriving ( Eq,Generic,Show) + deriving ( Eq,Show) -- FuncName ---------------------------------------------------- data FuncName = FuncName (([MToken])) ((Maybe MToken)) - deriving ( Generic,Show) + deriving ( Show) -- MElse ------------------------------------------------------- data MElse = MElse (Region) (Block) - deriving ( Generic,Show) + deriving ( Show) -- MElseIf ----------------------------------------------------- data MElseIf = MElseIf (Region) (ElseIf) - deriving ( Generic,Show) + deriving ( Show) -- MExpr ------------------------------------------------------- data MExpr = MExpr (Region) (Expr) - deriving ( Generic,Show) + deriving ( Show) -- MExprList --------------------------------------------------- type MExprList = [MExpr] -- MStat ------------------------------------------------------- data MStat = MStat (Region) (Stat) - deriving ( Generic,Show) + deriving ( Show) -- MStatList --------------------------------------------------- type MStatList = [MStat] -- MaybeMExpr -------------------------------------------------- @@ -106,11 +104,11 @@ | MetaCall (MToken) (Args) | ExprIndex (MExpr) | DotIndex (MToken) - deriving ( Generic,Show) + deriving ( Show) -- PrefixExp --------------------------------------------------- data PrefixExp = PFVar (MToken) (ExprSuffixList) | ExprVar (MExpr) (ExprSuffixList) - deriving ( Generic,Show) + deriving ( Show) -- Stat -------------------------------------------------------- data Stat = Def (VarsList) | LocDef (VarsList) @@ -127,11 +125,11 @@ | AGFor (([MToken])) (MExprList) (Block) | AFunc (FuncName) (([MToken])) (Block) | ALocFunc (FuncName) (([MToken])) (Block) - deriving ( Generic,Show) + deriving ( Show) -- UnOp -------------------------------------------------------- data UnOp = UnMinus | ANot | AHash - deriving ( Generic,Show) + deriving ( Show) -- VarsList ---------------------------------------------------- type VarsList = [Declaration] diff --git a/src/GLua/AG/PrettyPrint.hs b/src/GLua/AG/PrettyPrint.hs --- a/src/GLua/AG/PrettyPrint.hs +++ b/src/GLua/AG/PrettyPrint.hs @@ -1,8780 +1,8763 @@ -{-# LANGUAGE DeriveGeneric #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} --- UUAGC 0.9.53.1 (src/GLua/AG/PrettyPrint.ag) -module GLua.AG.PrettyPrint where - -{-# LINE 10 "src/GLua/AG/AST.ag" #-} - -import GLua.AG.Token -import GLua.Position -import GLua.TokenTypes () -import GHC.Generics -import Data.Aeson -{-# LINE 16 "src/GLua/AG/PrettyPrint.hs" #-} - -{-# LINE 4 "src/GLua/AG/PrettyPrint.ag" #-} - -import Prelude hiding ((<>)) -import Data.List (foldl', isInfixOf) -import GLua.AG.AST -import GLua.Position -import Text.PrettyPrint hiding (parens, brackets, braces) -import GLua.TokenTypes -import Data.Maybe -import Text.Parsec -import Text.Parsec.Error -import Debug.Trace -{-# LINE 30 "src/GLua/AG/PrettyPrint.hs" #-} -{-# LINE 19 "src/GLua/AG/PrettyPrint.ag" #-} - - -tok :: MToken -> Doc -tok (MToken _ t) = zeroWidthText . show $ t - -printList :: (a -> Doc) -> String -> [a] -> Doc -printList _ _ [] = empty -printList f sep' (e : es) = (f e) <> g es - where - g [] = empty - g (e' : es') = zeroWidthText sep' <> (f e') <> g es' - -data IsEmpty = IsEmpty | NonEmpty - -fromEmpty :: IsEmpty -> Bool -fromEmpty IsEmpty = True -fromEmpty NonEmpty = False - -toEmpty :: Bool -> IsEmpty -toEmpty b = if b then IsEmpty else NonEmpty - -data PrettyPrintConfig = PPConfig { - spaceAfterParens :: Bool, - spaceAfterBrackets :: Bool, - spaceAfterBraces :: Bool, - spaceEmptyParens :: Bool, - spaceEmptyBraces :: Bool, - spaceAfterLabel :: Bool, - spaceBeforeComma :: Bool, - spaceAfterComma :: Bool, - semicolons :: Bool, - cStyle :: Bool, - removeRedundantParens :: Bool, - minimizeParens :: Bool, - assumeOperatorAssociativity :: Bool, - indentation :: String -} - -defaultPPConfig :: PrettyPrintConfig -defaultPPConfig = PPConfig { - spaceAfterParens = False, - spaceAfterBrackets = False, - spaceAfterBraces = False, - spaceEmptyParens = False, - spaceEmptyBraces = False, - spaceAfterLabel = False, - spaceBeforeComma = False, - spaceAfterComma = True, - semicolons = False, - cStyle = False, - removeRedundantParens = True, - assumeOperatorAssociativity = True, - minimizeParens = False, - indentation = " " -} - -metaDoc :: Maybe MToken -> Doc -metaDoc (Just m) = zchr ':' <> tok m -metaDoc Nothing = empty - -printVarList :: [(PrefixExp, Maybe MExpr)] -> Doc -printVarList vars = - printList pp_prefixexp ", " (map fst vars) - <-> zchr '=' - <-> printList pp_mexpr ", " (catMaybes . map snd $ vars) - -printStats :: [MStat] -> Int -> Doc -printStats [] _ = empty -printStats (x : xs) i = nest (i * 4) (pp_mstat x i) $+$ printStats xs i - -printElIfs :: [(MExpr, Block)] -> Int -> Doc -printElIfs [] _ = empty -printElIfs ((e, b) : es) i = - zeroWidthText "elseif" - <-> pp_mexpr e - <-> zeroWidthText "then" - $+$ pp_block b i - $+$ printElIfs es i - -printEls :: Maybe Block -> Int -> Doc -printEls Nothing _ = empty -printEls (Just b) i = zeroWidthText "else" $+$ pp_block b i - - -renderPos :: LineColPos -> String -renderPos (LineColPos l c _) = "line " ++ show (succ l) ++ ", column " ++ show (succ c) - -renderRegion :: Region -> String -renderRegion (Region l r) = renderPos l ++ " - " ++ renderPos r - -renderSourcePos :: SourcePos -> String -renderSourcePos sp = - "line " - ++ (show . succ . sourceLine $ sp) - ++ ", column " - ++ (show . succ . sourceColumn $ sp) - -getMStatPos :: MStat -> String -getMStatPos (MStat p _) = renderRegion p - -getAReturnPos :: AReturn -> String -getAReturnPos (AReturn p _) = renderRegion p -getAReturnPos NoReturn = "" - -getMExprPos :: MExpr -> String -getMExprPos (MExpr p _) = renderRegion p - -renderPSError :: ParseError -> String -renderPSError ps = - map replNL - . showErrorMessages - "or" - "unknown parse error" - "expecting" - "unexpected" - "end of input" - . errorMessages - $ ps - where - replNL '\n' = ' ' - replNL c = c - --- | Render comments on multiple lines -renderMLComments :: PrettyPrintConfig -> Int -> [MToken] -> Doc -renderMLComments conf ind toks = - foldl' ($+$) empty . map (indent conf ind . tok . convertComment conf) $ toks - --- | Render comments, and prefer having them on a single line. It may not print comments on the same --- line if that would cause a syntax error (e.g. a multiline comment after a single line comment) -renderSLComments :: PrettyPrintConfig -> Int -> [MToken] -> Doc -renderSLComments conf ind toks = foldl' combine empty . map (convertComment conf) $ toks - where - combine :: Doc -> MToken -> Doc - combine acc mt@(MToken _pos t) = - case t of - -- Block comments after single line comments cannot be printed on the same line, as that - -- would cause a syntax error, e.g. in this case: - - -- foo = { -- single line comment - -- --[[multiline - -- comment - -- ]] - -- } - -- Make sure in these cases the comment is printed on a new line, rather than on the - -- same line - DashBlockComment _depth comment | '\n' `elem` comment -> - acc $+$ (indent conf ind $ tok mt) - SlashBlockComment comment | '\n' `elem` comment -> - acc $+$ (indent conf ind $ tok mt) - _ -> acc <-> tok mt - -convertComment :: PrettyPrintConfig -> MToken -> MToken -convertComment conf (MToken p t) = MToken p $ convert' t - where - convert' :: Token -> Token - convert' = if cStyle conf then cComment else luaComment - - luaComment :: Token -> Token - luaComment (SlashComment s) = DashComment s - luaComment (SlashBlockComment s) = DashBlockComment (lastBracket s) s - luaComment t' = t' - - -- converting /*]*/ would end up in --[[]]] when plainly converted - -- Deepen the block comment by 1 if that's the case - lastBracket :: String -> Int - lastBracket [] = 0 - lastBracket s = if last s == ']' then 1 else 0 - - cComment :: Token -> Token - cComment (DashComment s) = SlashComment s - cComment (DashBlockComment _ s) = SlashBlockComment s - cComment t' = t' - -indent :: PrettyPrintConfig -> Int -> Doc -> Doc -indent conf n = (<>) $ zeroWidthText (concat . replicate n $ indentation conf) - -parens :: PrettyPrintConfig -> IsEmpty -> Doc -> Doc -parens conf ie doc = zchr '(' `sep'` doc `sep'` zchr ')' - where - sep' :: Doc -> Doc -> Doc - sep' = - if spaceAfterParens conf && (not (fromEmpty ie) || spaceEmptyParens conf) - then (<->) - else (<>) - -brackets :: PrettyPrintConfig -> Doc -> Doc -brackets conf doc = zchr '[' `sep'` doc `sep'` zchr ']' - where - sep' :: Doc -> Doc -> Doc - sep' = if spaceAfterBrackets conf then (<->) else (<>) - -braces :: PrettyPrintConfig -> IsEmpty -> Doc -> Doc -braces conf ie doc = zchr '{' `sep'` doc `sep'` zchr '}' - where - sep' :: Doc -> Doc -> Doc - sep' = - if spaceAfterBraces conf && (not (fromEmpty ie) || spaceEmptyBraces conf) - then (<->) - else (<>) - --- Zero width char -zchr :: Char -> Doc -zchr c = zeroWidthText [c] - --- Zero width <+> -infixl 6 <-> -(<->) :: Doc -> Doc -> Doc -a <-> b | a == empty = b - | b == empty = a - | otherwise = a <> zchr ' ' <> b - --- Operator levels, where level 1 is the lowest level, and level 8 is the highest one --- See http://www.lua.org/manual/5.2/manual.html#3.4.7 -data OperatorLevel - -- At the top level, there is no assigned operator level yet. This serves as a bottom value. - = TopLevelExpression - | OperatorLevel1 - | OperatorLevel2 - | OperatorLevel3 - | OperatorLevel4 - | OperatorLevel5 - | OperatorLevel6 - | OperatorLevel7 - | OperatorLevel8 - deriving (Eq, Ord) - --- | Returns true when any of the comments contain the string "format: multiline" -commentsForceMultiline :: [MToken] -> Bool -commentsForceMultiline commentTokens = any containsFormatMultiline commentTokens - where - containsFormatMultiline :: MToken -> Bool - containsFormatMultiline (MToken _pos t) = case t of - DashComment comment -> stringForcesFormat comment - DashBlockComment _ comment -> stringForcesFormat comment - SlashComment comment -> stringForcesFormat comment - SlashBlockComment comment -> stringForcesFormat comment - _ -> False - - stringForcesFormat :: String -> Bool - stringForcesFormat s = "format: multiline" `isInfixOf` s - -{-# LINE 273 "src/GLua/AG/PrettyPrint.hs" #-} - -{-# LINE 1227 "src/GLua/AG/PrettyPrint.ag" #-} - - -pp_block :: Block -> Int -> Doc -pp_block p i = pretty_Syn_Block (wrap_Block (sem_Block p) (emptyInh_Block {indent_Inh_Block = i})) - -pp_mstat :: MStat -> Int -> Doc -pp_mstat p i = pretty_Syn_MStat (wrap_MStat (sem_MStat p) emptyInh_MStat {indent_Inh_MStat = i}) - -pp_prefixexp :: PrefixExp -> Doc -pp_prefixexp p = pretty_Syn_PrefixExp (wrap_PrefixExp (sem_PrefixExp p) emptyInh_PrefixExp) - -pp_pfexprsuffix :: PFExprSuffix -> Doc -pp_pfexprsuffix p = - pretty_Syn_PFExprSuffix (wrap_PFExprSuffix (sem_PFExprSuffix p) emptyInh_PFExprSuffix) - -pp_field :: Field -> Doc -pp_field p = pretty_Syn_Field (wrap_Field (sem_Field p) emptyInh_Field) - -pp_mexpr :: MExpr -> Doc -pp_mexpr p = pretty_Syn_MExpr (wrap_MExpr (sem_MExpr p) emptyInh_MExpr) - -prettyprint :: AST -> String -prettyprint p = render $ pretty_Syn_AST (wrap_AST (sem_AST p) emptyInh_AST) - -prettyprintConf :: PrettyPrintConfig -> AST -> String -prettyprintConf conf p = - render $ pretty_Syn_AST (wrap_AST (sem_AST p) emptyInh_AST {ppconf_Inh_AST = conf}) - -renderBlock :: Block -> String -renderBlock p = render $ pretty_Syn_Block (wrap_Block (sem_Block p) emptyInh_Block) - -renderStat :: Stat -> String -renderStat p = render $ pretty_Syn_Stat (wrap_Stat (sem_Stat p) emptyInh_Stat) - -renderMStat :: MStat -> String -renderMStat p = render $ pretty_Syn_MStat (wrap_MStat (sem_MStat p) emptyInh_MStat) - -renderAReturn :: AReturn -> String -renderAReturn p = render $ pretty_Syn_AReturn (wrap_AReturn (sem_AReturn p) emptyInh_AReturn) - -renderFuncName :: FuncName -> String -renderFuncName p = render $ pretty_Syn_FuncName (wrap_FuncName (sem_FuncName p) emptyInh_FuncName) - -renderPrefixExp :: PrefixExp -> String -renderPrefixExp p = - render $ pretty_Syn_PrefixExp (wrap_PrefixExp (sem_PrefixExp p) emptyInh_PrefixExp) - -renderExpr :: Expr -> String -renderExpr p = render $ pretty_Syn_Expr (wrap_Expr (sem_Expr p) emptyInh_Expr) - -renderMExpr :: MExpr -> String -renderMExpr p = render $ pretty_Syn_MExpr (wrap_MExpr (sem_MExpr p) emptyInh_MExpr) - -renderArgs :: Args -> String -renderArgs p = render $ pretty_Syn_Args (wrap_Args (sem_Args p) emptyInh_Args) - -renderField :: Field -> String -renderField p = render $ pretty_Syn_Field (wrap_Field (sem_Field p) emptyInh_Field) - -emptyInh_Field :: Inh_Field -emptyInh_Field = - Inh_Field - { comments_Inh_Field = [] - , forceMultiline_Inh_Field = False - , indent_Inh_Field = 0 - , ppconf_Inh_Field = defaultPPConfig - } - -emptyInh_Args :: Inh_Args -emptyInh_Args = - Inh_Args - { comments_Inh_Args = [] - , forceMultiline_Inh_Args = False - , indent_Inh_Args = 0 - , ppconf_Inh_Args = defaultPPConfig - } - -emptyInh_MExpr :: Inh_MExpr -emptyInh_MExpr = - Inh_MExpr - { comments_Inh_MExpr = [] - , forceMultiline_Inh_MExpr = False - , indent_Inh_MExpr = 0 - , parentOperatorAssociative_Inh_MExpr = True - , parentOperatorPrecedence_Inh_MExpr = TopLevelExpression - , ppconf_Inh_MExpr = defaultPPConfig - } - -emptyInh_Expr :: Inh_Expr -emptyInh_Expr = - Inh_Expr - { comments_Inh_Expr = [] - , forceMultiline_Inh_Expr = False - , indent_Inh_Expr = 0 - , parentOperatorAssociative_Inh_Expr = True - , parentOperatorPrecedence_Inh_Expr = TopLevelExpression - , ppconf_Inh_Expr = defaultPPConfig - , statRegion_Inh_Expr = emptyRg - } - -emptyInh_PrefixExp :: Inh_PrefixExp -emptyInh_PrefixExp = - Inh_PrefixExp - { comments_Inh_PrefixExp = [] - , forceMultiline_Inh_PrefixExp = False - , indent_Inh_PrefixExp = 0 - , parentOperatorAssociative_Inh_PrefixExp = True - , parentOperatorPrecedence_Inh_PrefixExp = TopLevelExpression - , ppconf_Inh_PrefixExp = defaultPPConfig - } - -emptyInh_FuncName :: Inh_FuncName -emptyInh_FuncName = - Inh_FuncName - { comments_Inh_FuncName = [] - , indent_Inh_FuncName = 0 - , ppconf_Inh_FuncName = defaultPPConfig - } - -emptyInh_AReturn :: Inh_AReturn -emptyInh_AReturn = - Inh_AReturn - { comments_Inh_AReturn = [] - , forceMultiline_Inh_AReturn = False - , indent_Inh_AReturn = 0 - , ppconf_Inh_AReturn = defaultPPConfig - } - -emptyInh_MStat :: Inh_MStat -emptyInh_MStat = - Inh_MStat - { comments_Inh_MStat = [] - , forceMultiline_Inh_MStat = False - , indent_Inh_MStat = 0 - , isLastStatement_Inh_MStat = False - , ppconf_Inh_MStat = defaultPPConfig - , wouldBeAmbiguousWithoutSemicolon_Inh_MStat = False - } - -emptyInh_Stat :: Inh_Stat -emptyInh_Stat = - Inh_Stat - { comments_Inh_Stat = [] - , forceMultiline_Inh_Stat = False - , indent_Inh_Stat = 0 - , isLastStatement_Inh_Stat = False - , ppconf_Inh_Stat = defaultPPConfig - , statRegion_Inh_Stat = emptyRg - , wouldBeAmbiguousWithoutSemicolon_Inh_Stat = False - } - -emptyInh_Block :: Inh_Block -emptyInh_Block = - Inh_Block - { comments_Inh_Block = [] - , forceMultiline_Inh_Block = False - , indent_Inh_Block = 0 - , ppconf_Inh_Block = defaultPPConfig - , statRegion_Inh_Block = emptyRg - } - -emptyInh_AST :: Inh_AST -emptyInh_AST = - Inh_AST - { indent_Inh_AST = 0 - , ppconf_Inh_AST = defaultPPConfig - } - -emptyInh_PFExprSuffix :: Inh_PFExprSuffix -emptyInh_PFExprSuffix = - Inh_PFExprSuffix - { comments_Inh_PFExprSuffix = [] - , forceMultiline_Inh_PFExprSuffix = False - , indent_Inh_PFExprSuffix = 0 - , ppconf_Inh_PFExprSuffix = defaultPPConfig - } - -{-# LINE 453 "src/GLua/AG/PrettyPrint.hs" #-} --- AReturn ----------------------------------------------------- --- cata -sem_AReturn :: AReturn -> - T_AReturn -sem_AReturn (AReturn _pos _values) = - (sem_AReturn_AReturn _pos (sem_MExprList _values)) -sem_AReturn (NoReturn) = - (sem_AReturn_NoReturn) --- semantic domain -type T_AReturn = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - ( ([MToken]),AReturn,Bool,Doc,Int) -data Inh_AReturn = Inh_AReturn {comments_Inh_AReturn :: ([MToken]),forceMultiline_Inh_AReturn :: Bool,indent_Inh_AReturn :: Int,ppconf_Inh_AReturn :: PrettyPrintConfig} -data Syn_AReturn = Syn_AReturn {comments_Syn_AReturn :: ([MToken]),copy_Syn_AReturn :: AReturn,isMultiline_Syn_AReturn :: Bool,pretty_Syn_AReturn :: Doc,statementCount_Syn_AReturn :: Int} -wrap_AReturn :: T_AReturn -> - Inh_AReturn -> - Syn_AReturn -wrap_AReturn sem (Inh_AReturn _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf - in (Syn_AReturn _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty _lhsOstatementCount)) -sem_AReturn_AReturn :: Region -> - T_MExprList -> - T_AReturn -sem_AReturn_AReturn pos_ values_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _valuesOcomments :: ([MToken]) - _lhsOcomments :: ([MToken]) - _valuesOforceMultiline :: Bool - _valuesOsomeElementsInListAreMultiline :: Bool - _lhsOstatementCount :: Int - _lhsOcopy :: AReturn - _valuesOindent :: Int - _valuesOppconf :: PrettyPrintConfig - _valuesIcomments :: ([MToken]) - _valuesIcopy :: MExprList - _valuesIisAssociative :: Bool - _valuesIisLast :: Bool - _valuesIisMultiline :: Bool - _valuesIpos :: Region - _valuesIprecedence :: OperatorLevel - _valuesIpretty :: Doc - _valuesIstartsWithNewline :: Bool - _lhsOpretty = - ({-# LINE 884 "src/GLua/AG/PrettyPrint.ag" #-} - renderMLComments _lhsIppconf _lhsIindent (fst _commentsBefore ) - $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "return") - `_sep ` _valuesIpretty - <> _semicolon - <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter ) - {-# LINE 510 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 890 "src/GLua/AG/PrettyPrint.ag" #-} - _valuesIisMultiline - || not (null $ fst _commentsBefore ) - || not (null $ fst _commentsAfter ) - {-# LINE 517 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _sep = - ({-# LINE 894 "src/GLua/AG/PrettyPrint.ag" #-} - if _valuesIstartsWithNewline then (<>) else (<->) - {-# LINE 522 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _semicolon = - ({-# LINE 895 "src/GLua/AG/PrettyPrint.ag" #-} - if semicolons _lhsIppconf then zchr ';' else empty - {-# LINE 527 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsBefore = - ({-# LINE 896 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos _) -> pos `before` pos_) _lhsIcomments - {-# LINE 532 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valuesOcomments = - ({-# LINE 897 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsBefore - {-# LINE 537 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsAfter = - ({-# LINE 898 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos _) -> pos `beforeOrOnLine` (rgOr _valuesIpos pos_)) _valuesIcomments - {-# LINE 542 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 900 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsAfter - {-# LINE 547 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valuesOforceMultiline = - ({-# LINE 904 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 552 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valuesOsomeElementsInListAreMultiline = - ({-# LINE 905 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 557 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstatementCount = - ({-# LINE 906 "src/GLua/AG/PrettyPrint.ag" #-} - 1 - {-# LINE 562 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AReturn pos_ _valuesIcopy - {-# LINE 567 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 572 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valuesOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 577 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valuesOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 582 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _valuesIcomments,_valuesIcopy,_valuesIisAssociative,_valuesIisLast,_valuesIisMultiline,_valuesIpos,_valuesIprecedence,_valuesIpretty,_valuesIstartsWithNewline) = - values_ _valuesOcomments _valuesOforceMultiline _valuesOindent _valuesOppconf _valuesOsomeElementsInListAreMultiline - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount))) -sem_AReturn_NoReturn :: T_AReturn -sem_AReturn_NoReturn = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOstatementCount :: Int - _lhsOisMultiline :: Bool - _lhsOcopy :: AReturn - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 908 "src/GLua/AG/PrettyPrint.ag" #-} - empty - {-# LINE 601 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstatementCount = - ({-# LINE 909 "src/GLua/AG/PrettyPrint.ag" #-} - 0 - {-# LINE 606 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 910 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 611 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - NoReturn - {-# LINE 616 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 621 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 626 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount))) --- AST --------------------------------------------------------- --- cata -sem_AST :: AST -> - T_AST -sem_AST (AST _comments _chunk) = - (sem_AST_AST _comments (sem_Block _chunk)) --- semantic domain -type T_AST = Int -> - PrettyPrintConfig -> - ( AST,Bool,Doc) -data Inh_AST = Inh_AST {indent_Inh_AST :: Int,ppconf_Inh_AST :: PrettyPrintConfig} -data Syn_AST = Syn_AST {copy_Syn_AST :: AST,isMultiline_Syn_AST :: Bool,pretty_Syn_AST :: Doc} -wrap_AST :: T_AST -> - Inh_AST -> - Syn_AST -wrap_AST sem (Inh_AST _lhsIindent _lhsIppconf) = - (let ( _lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIindent _lhsIppconf - in (Syn_AST _lhsOcopy _lhsOisMultiline _lhsOpretty)) -sem_AST_AST :: ([MToken]) -> - T_Block -> - T_AST -sem_AST_AST comments_ chunk_ = - (\ _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _chunkOcomments :: ([MToken]) - _chunkOstatRegion :: Region - _chunkOforceMultiline :: Bool - _lhsOcopy :: AST - _chunkOindent :: Int - _chunkOppconf :: PrettyPrintConfig - _chunkIcomments :: ([MToken]) - _chunkIcopy :: Block - _chunkIisMultiline :: Bool - _chunkIpos :: Region - _chunkIpretty :: Doc - _chunkIstatementCount :: Int - _lhsOpretty = - ({-# LINE 639 "src/GLua/AG/PrettyPrint.ag" #-} - _chunkIpretty $+$ _prettyComments - {-# LINE 670 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 640 "src/GLua/AG/PrettyPrint.ag" #-} - _chunkIisMultiline - {-# LINE 675 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _prettyComments = - ({-# LINE 641 "src/GLua/AG/PrettyPrint.ag" #-} - renderMLComments _lhsIppconf _lhsIindent _chunkIcomments - {-# LINE 680 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _chunkOcomments = - ({-# LINE 642 "src/GLua/AG/PrettyPrint.ag" #-} - comments_ - {-# LINE 685 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _chunkOstatRegion = - ({-# LINE 643 "src/GLua/AG/PrettyPrint.ag" #-} - emptyRg - {-# LINE 690 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _chunkOforceMultiline = - ({-# LINE 644 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 695 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AST comments_ _chunkIcopy - {-# LINE 700 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 705 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _chunkOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 710 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _chunkOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 715 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _chunkIcomments,_chunkIcopy,_chunkIisMultiline,_chunkIpos,_chunkIpretty,_chunkIstatementCount) = - chunk_ _chunkOcomments _chunkOforceMultiline _chunkOindent _chunkOppconf _chunkOstatRegion - in ( _lhsOcopy,_lhsOisMultiline,_lhsOpretty))) --- Args -------------------------------------------------------- --- cata -sem_Args :: Args -> - T_Args -sem_Args (ListArgs _args) = - (sem_Args_ListArgs (sem_MExprList _args)) -sem_Args (TableArg _arg) = - (sem_Args_TableArg (sem_FieldList _arg)) -sem_Args (StringArg _arg) = - (sem_Args_StringArg _arg) --- semantic domain -type T_Args = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - ( ([MToken]),Args,Bool,Doc) -data Inh_Args = Inh_Args {comments_Inh_Args :: ([MToken]),forceMultiline_Inh_Args :: Bool,indent_Inh_Args :: Int,ppconf_Inh_Args :: PrettyPrintConfig} -data Syn_Args = Syn_Args {comments_Syn_Args :: ([MToken]),copy_Syn_Args :: Args,isMultiline_Syn_Args :: Bool,pretty_Syn_Args :: Doc} -wrap_Args :: T_Args -> - Inh_Args -> - Syn_Args -wrap_Args sem (Inh_Args _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf - in (Syn_Args _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty)) -sem_Args_ListArgs :: T_MExprList -> - T_Args -sem_Args_ListArgs args_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _argsOindent :: Int - _argsOsomeElementsInListAreMultiline :: Bool - _lhsOcopy :: Args - _lhsOcomments :: ([MToken]) - _argsOcomments :: ([MToken]) - _argsOforceMultiline :: Bool - _argsOppconf :: PrettyPrintConfig - _argsIcomments :: ([MToken]) - _argsIcopy :: MExprList - _argsIisAssociative :: Bool - _argsIisLast :: Bool - _argsIisMultiline :: Bool - _argsIpos :: Region - _argsIprecedence :: OperatorLevel - _argsIpretty :: Doc - _argsIstartsWithNewline :: Bool - _lhsOpretty = - ({-# LINE 1083 "src/GLua/AG/PrettyPrint.ag" #-} - if _lhsIforceMultiline then - zchr '(' $+$ - _argsIpretty $+$ - indent _lhsIppconf _lhsIindent (zchr ')') - else - parens _lhsIppconf _emptyParams _argsIpretty - {-# LINE 777 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1090 "src/GLua/AG/PrettyPrint.ag" #-} - _argsIisMultiline - {-# LINE 782 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _emptyParams = - ({-# LINE 1091 "src/GLua/AG/PrettyPrint.ag" #-} - toEmpty $ null _argsIcopy - {-# LINE 787 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argsOindent = - ({-# LINE 1092 "src/GLua/AG/PrettyPrint.ag" #-} - if _lhsIforceMultiline then _lhsIindent + 1 else _lhsIindent - {-# LINE 792 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argsOsomeElementsInListAreMultiline = - ({-# LINE 1093 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 797 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ListArgs _argsIcopy - {-# LINE 802 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 807 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _argsIcomments - {-# LINE 812 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 817 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argsOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 822 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argsOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 827 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _argsIcomments,_argsIcopy,_argsIisAssociative,_argsIisLast,_argsIisMultiline,_argsIpos,_argsIprecedence,_argsIpretty,_argsIstartsWithNewline) = - args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf _argsOsomeElementsInListAreMultiline - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty))) -sem_Args_TableArg :: T_FieldList -> - T_Args -sem_Args_TableArg arg_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _argOindent :: Int - _argOsomeElementsInListAreMultiline :: Bool - _lhsOcopy :: Args - _lhsOcomments :: ([MToken]) - _argOcomments :: ([MToken]) - _argOforceMultiline :: Bool - _argOppconf :: PrettyPrintConfig - _argIcomments :: ([MToken]) - _argIcopy :: FieldList - _argIisMultiline :: Bool - _argIisNil :: Bool - _argIpretty :: Doc - _lhsOpretty = - ({-# LINE 1095 "src/GLua/AG/PrettyPrint.ag" #-} - if _argIisMultiline then _prettyMulti else _prettySingle - {-# LINE 856 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1096 "src/GLua/AG/PrettyPrint.ag" #-} - _argIisMultiline - {-# LINE 861 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _prettyMulti = - ({-# LINE 1097 "src/GLua/AG/PrettyPrint.ag" #-} - zchr '{' $+$ _argIpretty $+$ indent _lhsIppconf _lhsIindent (zchr '}') - {-# LINE 866 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _prettySingle = - ({-# LINE 1098 "src/GLua/AG/PrettyPrint.ag" #-} - braces _lhsIppconf _emptyContents _argIpretty - {-# LINE 871 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _emptyContents = - ({-# LINE 1099 "src/GLua/AG/PrettyPrint.ag" #-} - toEmpty $ null _argIcopy - {-# LINE 876 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argOindent = - ({-# LINE 1100 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent + (if _argIisMultiline then 1 else 0) - {-# LINE 881 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argOsomeElementsInListAreMultiline = - ({-# LINE 1101 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 886 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - TableArg _argIcopy - {-# LINE 891 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 896 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _argIcomments - {-# LINE 901 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 906 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 911 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 916 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _argIcomments,_argIcopy,_argIisMultiline,_argIisNil,_argIpretty) = - arg_ _argOcomments _argOforceMultiline _argOindent _argOppconf _argOsomeElementsInListAreMultiline - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty))) -sem_Args_StringArg :: MToken -> - T_Args -sem_Args_StringArg arg_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOcopy :: Args - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1103 "src/GLua/AG/PrettyPrint.ag" #-} - tok arg_ - {-# LINE 935 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1104 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 940 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - StringArg arg_ - {-# LINE 945 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 950 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 955 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty))) --- BinOp ------------------------------------------------------- --- cata -sem_BinOp :: BinOp -> - T_BinOp -sem_BinOp (AOr) = - (sem_BinOp_AOr) -sem_BinOp (AAnd) = - (sem_BinOp_AAnd) -sem_BinOp (ALT) = - (sem_BinOp_ALT) -sem_BinOp (AGT) = - (sem_BinOp_AGT) -sem_BinOp (ALEQ) = - (sem_BinOp_ALEQ) -sem_BinOp (AGEQ) = - (sem_BinOp_AGEQ) -sem_BinOp (ANEq) = - (sem_BinOp_ANEq) -sem_BinOp (AEq) = - (sem_BinOp_AEq) -sem_BinOp (AConcatenate) = - (sem_BinOp_AConcatenate) -sem_BinOp (APlus) = - (sem_BinOp_APlus) -sem_BinOp (BinMinus) = - (sem_BinOp_BinMinus) -sem_BinOp (AMultiply) = - (sem_BinOp_AMultiply) -sem_BinOp (ADivide) = - (sem_BinOp_ADivide) -sem_BinOp (AModulus) = - (sem_BinOp_AModulus) -sem_BinOp (APower) = - (sem_BinOp_APower) --- semantic domain -type T_BinOp = ([MToken]) -> - Int -> - PrettyPrintConfig -> - ( ([MToken]),BinOp,Bool,Bool,OperatorLevel,Doc) -data Inh_BinOp = Inh_BinOp {comments_Inh_BinOp :: ([MToken]),indent_Inh_BinOp :: Int,ppconf_Inh_BinOp :: PrettyPrintConfig} -data Syn_BinOp = Syn_BinOp {comments_Syn_BinOp :: ([MToken]),copy_Syn_BinOp :: BinOp,isAssociative_Syn_BinOp :: Bool,isMultiline_Syn_BinOp :: Bool,precedence_Syn_BinOp :: OperatorLevel,pretty_Syn_BinOp :: Doc} -wrap_BinOp :: T_BinOp -> - Inh_BinOp -> - Syn_BinOp -wrap_BinOp sem (Inh_BinOp _lhsIcomments _lhsIindent _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf - in (Syn_BinOp _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty)) -sem_BinOp_AOr :: T_BinOp -sem_BinOp_AOr = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1211 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText (if cStyle _lhsIppconf then "||" else "or") - {-# LINE 1019 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1212 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1024 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1213 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel1 - {-# LINE 1029 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1214 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 1034 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AOr - {-# LINE 1039 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1044 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1049 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_BinOp_AAnd :: T_BinOp -sem_BinOp_AAnd = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1206 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText (if cStyle _lhsIppconf then "&&" else "and") - {-# LINE 1066 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1207 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1071 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1208 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel2 - {-# LINE 1076 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1209 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 1081 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AAnd - {-# LINE 1086 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1091 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1096 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_BinOp_ALT :: T_BinOp -sem_BinOp_ALT = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1176 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "<" - {-# LINE 1113 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1177 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1118 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1178 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel3 - {-# LINE 1123 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1179 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 1128 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ALT - {-# LINE 1133 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1138 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1143 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_BinOp_AGT :: T_BinOp -sem_BinOp_AGT = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1186 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText ">" - {-# LINE 1160 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1187 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1165 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1188 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel3 - {-# LINE 1170 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1189 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 1175 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AGT - {-# LINE 1180 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1185 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1190 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_BinOp_ALEQ :: T_BinOp -sem_BinOp_ALEQ = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1181 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "<=" - {-# LINE 1207 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1182 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1212 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1183 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel3 - {-# LINE 1217 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1184 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 1222 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ALEQ - {-# LINE 1227 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1232 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1237 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_BinOp_AGEQ :: T_BinOp -sem_BinOp_AGEQ = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1191 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText ">=" - {-# LINE 1254 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1192 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1259 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1193 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel3 - {-# LINE 1264 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1194 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 1269 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AGEQ - {-# LINE 1274 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1279 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1284 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_BinOp_ANEq :: T_BinOp -sem_BinOp_ANEq = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1201 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText (if cStyle _lhsIppconf then "!=" else "~=") - {-# LINE 1301 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1202 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1306 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1203 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel3 - {-# LINE 1311 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1204 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 1316 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ANEq - {-# LINE 1321 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1326 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1331 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_BinOp_AEq :: T_BinOp -sem_BinOp_AEq = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1196 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "==" - {-# LINE 1348 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1197 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1353 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1198 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel3 - {-# LINE 1358 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1199 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 1363 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AEq - {-# LINE 1368 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1373 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1378 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_BinOp_AConcatenate :: T_BinOp -sem_BinOp_AConcatenate = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1171 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText ".." - {-# LINE 1395 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1172 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1400 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1173 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel4 - {-# LINE 1405 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1174 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 1410 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AConcatenate - {-# LINE 1415 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1420 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1425 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_BinOp_APlus :: T_BinOp -sem_BinOp_APlus = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1141 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "+" - {-# LINE 1442 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1142 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1447 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1143 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel5 - {-# LINE 1452 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1144 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 1457 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - APlus - {-# LINE 1462 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1467 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1472 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_BinOp_BinMinus :: T_BinOp -sem_BinOp_BinMinus = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1146 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "-" - {-# LINE 1489 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1147 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1494 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1148 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel5 - {-# LINE 1499 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1149 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1504 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - BinMinus - {-# LINE 1509 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1514 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1519 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_BinOp_AMultiply :: T_BinOp -sem_BinOp_AMultiply = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1151 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "*" - {-# LINE 1536 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1152 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1541 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1153 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel6 - {-# LINE 1546 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1154 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 1551 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AMultiply - {-# LINE 1556 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1561 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1566 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_BinOp_ADivide :: T_BinOp -sem_BinOp_ADivide = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1156 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "/" - {-# LINE 1583 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1157 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1588 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1158 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel6 - {-# LINE 1593 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1159 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1598 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ADivide - {-# LINE 1603 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1608 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1613 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_BinOp_AModulus :: T_BinOp -sem_BinOp_AModulus = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1161 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "%" - {-# LINE 1630 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1162 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1635 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1163 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel6 - {-# LINE 1640 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1164 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1645 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AModulus - {-# LINE 1650 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1655 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1660 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_BinOp_APower :: T_BinOp -sem_BinOp_APower = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOcopy :: BinOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1166 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "^" - {-# LINE 1677 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1167 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1682 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1168 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 1687 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 1169 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 1692 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - APower - {-# LINE 1697 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1702 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1707 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) --- Block ------------------------------------------------------- --- cata -sem_Block :: Block -> - T_Block -sem_Block (Block _pos _stats _ret) = - (sem_Block_Block _pos (sem_MStatList _stats) (sem_AReturn _ret)) --- semantic domain -type T_Block = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - Region -> - ( ([MToken]),Block,Bool,Region,Doc,Int) -data Inh_Block = Inh_Block {comments_Inh_Block :: ([MToken]),forceMultiline_Inh_Block :: Bool,indent_Inh_Block :: Int,ppconf_Inh_Block :: PrettyPrintConfig,statRegion_Inh_Block :: Region} -data Syn_Block = Syn_Block {comments_Syn_Block :: ([MToken]),copy_Syn_Block :: Block,isMultiline_Syn_Block :: Bool,pos_Syn_Block :: Region,pretty_Syn_Block :: Doc,statementCount_Syn_Block :: Int} -wrap_Block :: T_Block -> - Inh_Block -> - Syn_Block -wrap_Block sem (Inh_Block _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion - in (Syn_Block _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty _lhsOstatementCount)) -sem_Block_Block :: Region -> - T_MStatList -> - T_AReturn -> - T_Block -sem_Block_Block pos_ stats_ ret_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOpos :: Region - _lhsOcomments :: ([MToken]) - _lhsOstatementCount :: Int - _lhsOcopy :: Block - _lhsOisMultiline :: Bool - _statsOcomments :: ([MToken]) - _statsOforceMultiline :: Bool - _statsOindent :: Int - _statsOppconf :: PrettyPrintConfig - _statsOstatRegion :: Region - _retOcomments :: ([MToken]) - _retOforceMultiline :: Bool - _retOindent :: Int - _retOppconf :: PrettyPrintConfig - _statsIcomments :: ([MToken]) - _statsIcopy :: MStatList - _statsIisLast :: Bool - _statsIisMultiline :: Bool - _statsIpretty :: Doc - _statsIstartsWithExprPrefixExpression :: Bool - _statsIstatementCount :: Int - _retIcomments :: ([MToken]) - _retIcopy :: AReturn - _retIisMultiline :: Bool - _retIpretty :: Doc - _retIstatementCount :: Int - _lhsOpretty = - ({-# LINE 648 "src/GLua/AG/PrettyPrint.ag" #-} - if _isMultiline - then _statsIpretty $+$ _retIpretty $+$ _prettyCommentsAfter - else _statsIpretty <-> _retIpretty - {-# LINE 1773 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpos = - ({-# LINE 652 "src/GLua/AG/PrettyPrint.ag" #-} - pos_ - {-# LINE 1778 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _statementCount = - ({-# LINE 653 "src/GLua/AG/PrettyPrint.ag" #-} - _statsIstatementCount + _retIstatementCount - {-# LINE 1783 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _isMultiline = - ({-# LINE 654 "src/GLua/AG/PrettyPrint.ag" #-} - _statsIisMultiline || _retIisMultiline || _statementCount > 1 || not (null $ fst $ _commentsAfter ) - {-# LINE 1788 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsAfter = - ({-# LINE 655 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos _) -> pos `beforeEnd` pos_) _retIcomments - {-# LINE 1793 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _prettyCommentsAfter = - ({-# LINE 656 "src/GLua/AG/PrettyPrint.ag" #-} - renderMLComments _lhsIppconf _lhsIindent $ fst _commentsAfter - {-# LINE 1798 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 657 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsAfter - {-# LINE 1803 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstatementCount = - ({-# LINE 329 "src/GLua/AG/PrettyPrint.ag" #-} - _statementCount - {-# LINE 1808 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - Block pos_ _statsIcopy _retIcopy - {-# LINE 1813 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1818 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-} - _isMultiline - {-# LINE 1823 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _statsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 1828 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _statsOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 1833 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _statsOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 1838 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _statsOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 1843 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _statsOstatRegion = - ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIstatRegion - {-# LINE 1848 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _retOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _statsIcomments - {-# LINE 1853 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _retOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 1858 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _retOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 1863 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _retOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 1868 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _statsIcomments,_statsIcopy,_statsIisLast,_statsIisMultiline,_statsIpretty,_statsIstartsWithExprPrefixExpression,_statsIstatementCount) = - stats_ _statsOcomments _statsOforceMultiline _statsOindent _statsOppconf _statsOstatRegion - ( _retIcomments,_retIcopy,_retIisMultiline,_retIpretty,_retIstatementCount) = - ret_ _retOcomments _retOforceMultiline _retOindent _retOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstatementCount))) --- Declaration ------------------------------------------------- --- cata -sem_Declaration :: Declaration -> - T_Declaration -sem_Declaration ( x1,x2) = - (sem_Declaration_Tuple (sem_PrefixExp x1) (sem_MaybeMExpr x2)) --- semantic domain -type T_Declaration = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - ( ([MToken]),Declaration,Bool,Doc,Bool,Bool,Doc,Bool,Doc) -data Inh_Declaration = Inh_Declaration {comments_Inh_Declaration :: ([MToken]),forceMultiline_Inh_Declaration :: Bool,indent_Inh_Declaration :: Int,ppconf_Inh_Declaration :: PrettyPrintConfig} -data Syn_Declaration = Syn_Declaration {comments_Syn_Declaration :: ([MToken]),copy_Syn_Declaration :: Declaration,endsWithPrefixExpression_Syn_Declaration :: Bool,exprPretty_Syn_Declaration :: Doc,isDefined_Syn_Declaration :: Bool,isMultiline_Syn_Declaration :: Bool,pretty_Syn_Declaration :: Doc,startsWithExprPrefixExpression_Syn_Declaration :: Bool,varPretty_Syn_Declaration :: Doc} -wrap_Declaration :: T_Declaration -> - Inh_Declaration -> - Syn_Declaration -wrap_Declaration sem (Inh_Declaration _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf - in (Syn_Declaration _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOexprPretty _lhsOisDefined _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOvarPretty)) -sem_Declaration_Tuple :: T_PrefixExp -> - T_MaybeMExpr -> - T_Declaration -sem_Declaration_Tuple x1_ x2_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOvarPretty :: Doc - _lhsOexprPretty :: Doc - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _x1OparentOperatorPrecedence :: OperatorLevel - _x1OparentOperatorAssociative :: Bool - _lhsOisDefined :: Bool - _lhsOcopy :: Declaration - _lhsOcomments :: ([MToken]) - _lhsOpretty :: Doc - _x1Ocomments :: ([MToken]) - _x1OforceMultiline :: Bool - _x1Oindent :: Int - _x1Oppconf :: PrettyPrintConfig - _x2Ocomments :: ([MToken]) - _x2OforceMultiline :: Bool - _x2Oindent :: Int - _x2Oppconf :: PrettyPrintConfig - _x1Icomments :: ([MToken]) - _x1Icopy :: PrefixExp - _x1IisAssociative :: Bool - _x1IisLiteral :: Bool - _x1IisMultiline :: Bool - _x1Iprecedence :: OperatorLevel - _x1Ipretty :: Doc - _x1IstartsWithExprPrefixExpression :: Bool - _x2Icomments :: ([MToken]) - _x2Icopy :: MaybeMExpr - _x2IendsWithPrefixExpression :: Bool - _x2IisAssociative :: Bool - _x2IisDefined :: Bool - _x2IisMultiline :: Bool - _x2Iprecedence :: OperatorLevel - _x2Ipretty :: Doc - _lhsOvarPretty = - ({-# LINE 540 "src/GLua/AG/PrettyPrint.ag" #-} - _x1Ipretty - {-# LINE 1941 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOexprPretty = - ({-# LINE 541 "src/GLua/AG/PrettyPrint.ag" #-} - _x2Ipretty - {-# LINE 1946 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 542 "src/GLua/AG/PrettyPrint.ag" #-} - _x1IstartsWithExprPrefixExpression - {-# LINE 1951 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 543 "src/GLua/AG/PrettyPrint.ag" #-} - _x2IendsWithPrefixExpression - {-# LINE 1956 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 544 "src/GLua/AG/PrettyPrint.ag" #-} - _x1IisMultiline || _x2IisMultiline - {-# LINE 1961 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x1OparentOperatorPrecedence = - ({-# LINE 545 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 1966 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x1OparentOperatorAssociative = - ({-# LINE 546 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 1971 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisDefined = - ({-# LINE 291 "src/GLua/AG/PrettyPrint.ag" #-} - _x2IisDefined - {-# LINE 1976 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - (_x1Icopy,_x2Icopy) - {-# LINE 1981 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 1986 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _x2Icomments - {-# LINE 1991 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpretty = - ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-} - _x2Ipretty - {-# LINE 1996 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x1Ocomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 2001 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x1OforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 2006 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x1Oindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 2011 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x1Oppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 2016 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x2Ocomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _x1Icomments - {-# LINE 2021 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x2OforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 2026 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x2Oindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 2031 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x2Oppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 2036 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _x1Icomments,_x1Icopy,_x1IisAssociative,_x1IisLiteral,_x1IisMultiline,_x1Iprecedence,_x1Ipretty,_x1IstartsWithExprPrefixExpression) = - x1_ _x1Ocomments _x1OforceMultiline _x1Oindent _x1OparentOperatorAssociative _x1OparentOperatorPrecedence _x1Oppconf - ( _x2Icomments,_x2Icopy,_x2IendsWithPrefixExpression,_x2IisAssociative,_x2IisDefined,_x2IisMultiline,_x2Iprecedence,_x2Ipretty) = - x2_ _x2Ocomments _x2OforceMultiline _x2Oindent _x2Oppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty))) --- Else -------------------------------------------------------- --- cata -sem_Else :: Else -> - T_Else -sem_Else (Prelude.Just x) = - (sem_Else_Just (sem_MElse x)) -sem_Else Prelude.Nothing = - sem_Else_Nothing --- semantic domain -type T_Else = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - Region -> - ( ([MToken]),Else,Bool,Bool,Region,Doc) -data Inh_Else = Inh_Else {comments_Inh_Else :: ([MToken]),forceMultiline_Inh_Else :: Bool,indent_Inh_Else :: Int,ppconf_Inh_Else :: PrettyPrintConfig,statRegion_Inh_Else :: Region} -data Syn_Else = Syn_Else {comments_Syn_Else :: ([MToken]),copy_Syn_Else :: Else,elsesExist_Syn_Else :: Bool,isMultiline_Syn_Else :: Bool,pos_Syn_Else :: Region,pretty_Syn_Else :: Doc} -wrap_Else :: T_Else -> - Inh_Else -> - Syn_Else -wrap_Else sem (Inh_Else _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion - in (Syn_Else _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty)) -sem_Else_Just :: T_MElse -> - T_Else -sem_Else_Just just_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOelsesExist :: Bool - _lhsOisMultiline :: Bool - _lhsOcopy :: Else - _lhsOcomments :: ([MToken]) - _lhsOpos :: Region - _lhsOpretty :: Doc - _justOcomments :: ([MToken]) - _justOforceMultiline :: Bool - _justOindent :: Int - _justOppconf :: PrettyPrintConfig - _justOstatRegion :: Region - _justIcomments :: ([MToken]) - _justIcopy :: MElse - _justIelsesExist :: Bool - _justIisMultiline :: Bool - _justIpos :: Region - _justIpretty :: Doc - _lhsOelsesExist = - ({-# LINE 610 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 2094 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 611 "src/GLua/AG/PrettyPrint.ag" #-} - _justIisMultiline - {-# LINE 2099 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - Just _justIcopy - {-# LINE 2104 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 2109 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _justIcomments - {-# LINE 2114 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpos = - ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-} - _justIpos - {-# LINE 2119 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpretty = - ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-} - _justIpretty - {-# LINE 2124 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _justOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 2129 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _justOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 2134 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _justOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 2139 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _justOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 2144 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _justOstatRegion = - ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIstatRegion - {-# LINE 2149 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _justIcomments,_justIcopy,_justIelsesExist,_justIisMultiline,_justIpos,_justIpretty) = - just_ _justOcomments _justOforceMultiline _justOindent _justOppconf _justOstatRegion - in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty))) -sem_Else_Nothing :: T_Else -sem_Else_Nothing = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOpos :: Region - _lhsOisMultiline :: Bool - _lhsOelsesExist :: Bool - _lhsOcopy :: Else - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 613 "src/GLua/AG/PrettyPrint.ag" #-} - empty - {-# LINE 2170 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpos = - ({-# LINE 614 "src/GLua/AG/PrettyPrint.ag" #-} - emptyRg - {-# LINE 2175 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 615 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2180 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOelsesExist = - ({-# LINE 332 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2185 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - Nothing - {-# LINE 2190 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 2195 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 2200 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty))) --- ElseIf ------------------------------------------------------ --- cata -sem_ElseIf :: ElseIf -> - T_ElseIf -sem_ElseIf ( x1,x2) = - (sem_ElseIf_Tuple (sem_MExpr x1) (sem_Block x2)) --- semantic domain -type T_ElseIf = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - ( ([MToken]),ElseIf,Bool,Doc) -data Inh_ElseIf = Inh_ElseIf {comments_Inh_ElseIf :: ([MToken]),forceMultiline_Inh_ElseIf :: Bool,indent_Inh_ElseIf :: Int,ppconf_Inh_ElseIf :: PrettyPrintConfig} -data Syn_ElseIf = Syn_ElseIf {comments_Syn_ElseIf :: ([MToken]),copy_Syn_ElseIf :: ElseIf,isMultiline_Syn_ElseIf :: Bool,pretty_Syn_ElseIf :: Doc} -wrap_ElseIf :: T_ElseIf -> - Inh_ElseIf -> - Syn_ElseIf -wrap_ElseIf sem (Inh_ElseIf _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf - in (Syn_ElseIf _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty)) -sem_ElseIf_Tuple :: T_MExpr -> - T_Block -> - T_ElseIf -sem_ElseIf_Tuple x1_ x2_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _x2Oindent :: Int - _x2OstatRegion :: Region - _x1OparentOperatorPrecedence :: OperatorLevel - _x1OparentOperatorAssociative :: Bool - _lhsOcopy :: ElseIf - _lhsOcomments :: ([MToken]) - _x1Ocomments :: ([MToken]) - _x1OforceMultiline :: Bool - _x1Oindent :: Int - _x1Oppconf :: PrettyPrintConfig - _x2Ocomments :: ([MToken]) - _x2OforceMultiline :: Bool - _x2Oppconf :: PrettyPrintConfig - _x1Icomments :: ([MToken]) - _x1Icopy :: MExpr - _x1IendsWithPrefixExpression :: Bool - _x1IisAssociative :: Bool - _x1IisLiteral :: Bool - _x1IisMultiline :: Bool - _x1Ipos :: Region - _x1Iprecedence :: OperatorLevel - _x1Ipretty :: Doc - _x2Icomments :: ([MToken]) - _x2Icopy :: Block - _x2IisMultiline :: Bool - _x2Ipos :: Region - _x2Ipretty :: Doc - _x2IstatementCount :: Int - _lhsOpretty = - ({-# LINE 585 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "elseif" <-> _x1Ipretty <-> zeroWidthText "then" $+$ _x2Ipretty - {-# LINE 2264 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 586 "src/GLua/AG/PrettyPrint.ag" #-} - _x1IisMultiline || _x2IisMultiline - {-# LINE 2269 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x2Oindent = - ({-# LINE 587 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent + 1 - {-# LINE 2274 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x2OstatRegion = - ({-# LINE 588 "src/GLua/AG/PrettyPrint.ag" #-} - emptyRg - {-# LINE 2279 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x1OparentOperatorPrecedence = - ({-# LINE 589 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 2284 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x1OparentOperatorAssociative = - ({-# LINE 590 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 2289 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - (_x1Icopy,_x2Icopy) - {-# LINE 2294 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 2299 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _x2Icomments - {-# LINE 2304 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x1Ocomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 2309 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x1OforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 2314 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x1Oindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 2319 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x1Oppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 2324 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x2Ocomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _x1Icomments - {-# LINE 2329 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x2OforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 2334 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _x2Oppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 2339 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _x1Icomments,_x1Icopy,_x1IendsWithPrefixExpression,_x1IisAssociative,_x1IisLiteral,_x1IisMultiline,_x1Ipos,_x1Iprecedence,_x1Ipretty) = - x1_ _x1Ocomments _x1OforceMultiline _x1Oindent _x1OparentOperatorAssociative _x1OparentOperatorPrecedence _x1Oppconf - ( _x2Icomments,_x2Icopy,_x2IisMultiline,_x2Ipos,_x2Ipretty,_x2IstatementCount) = - x2_ _x2Ocomments _x2OforceMultiline _x2Oindent _x2Oppconf _x2OstatRegion - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty))) --- ElseIfList -------------------------------------------------- --- cata -sem_ElseIfList :: ElseIfList -> - T_ElseIfList -sem_ElseIfList list = - (Prelude.foldr sem_ElseIfList_Cons sem_ElseIfList_Nil (Prelude.map sem_MElseIf list)) --- semantic domain -type T_ElseIfList = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - ( ([MToken]),ElseIfList,Bool,Bool,Region,Doc) -data Inh_ElseIfList = Inh_ElseIfList {comments_Inh_ElseIfList :: ([MToken]),forceMultiline_Inh_ElseIfList :: Bool,indent_Inh_ElseIfList :: Int,ppconf_Inh_ElseIfList :: PrettyPrintConfig} -data Syn_ElseIfList = Syn_ElseIfList {comments_Syn_ElseIfList :: ([MToken]),copy_Syn_ElseIfList :: ElseIfList,elsesExist_Syn_ElseIfList :: Bool,isMultiline_Syn_ElseIfList :: Bool,pos_Syn_ElseIfList :: Region,pretty_Syn_ElseIfList :: Doc} -wrap_ElseIfList :: T_ElseIfList -> - Inh_ElseIfList -> - Syn_ElseIfList -wrap_ElseIfList sem (Inh_ElseIfList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf - in (Syn_ElseIfList _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty)) -sem_ElseIfList_Cons :: T_MElseIf -> - T_ElseIfList -> - T_ElseIfList -sem_ElseIfList_Cons hd_ tl_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOelsesExist :: Bool - _lhsOpos :: Region - _lhsOisMultiline :: Bool - _lhsOcopy :: ElseIfList - _lhsOcomments :: ([MToken]) - _hdOcomments :: ([MToken]) - _hdOforceMultiline :: Bool - _hdOindent :: Int - _hdOppconf :: PrettyPrintConfig - _tlOcomments :: ([MToken]) - _tlOforceMultiline :: Bool - _tlOindent :: Int - _tlOppconf :: PrettyPrintConfig - _hdIcomments :: ([MToken]) - _hdIcopy :: MElseIf - _hdIisMultiline :: Bool - _hdIpos :: Region - _hdIpretty :: Doc - _tlIcomments :: ([MToken]) - _tlIcopy :: ElseIfList - _tlIelsesExist :: Bool - _tlIisMultiline :: Bool - _tlIpos :: Region - _tlIpretty :: Doc - _lhsOpretty = - ({-# LINE 599 "src/GLua/AG/PrettyPrint.ag" #-} - indent _lhsIppconf _lhsIindent _hdIpretty $+$ _tlIpretty - {-# LINE 2402 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOelsesExist = - ({-# LINE 600 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 2407 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpos = - ({-# LINE 601 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIpos - {-# LINE 2412 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 602 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIisMultiline || _tlIisMultiline - {-# LINE 2417 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 2422 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 2427 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _tlIcomments - {-# LINE 2432 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 2437 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 2442 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 2447 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 2452 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIcomments - {-# LINE 2457 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 2462 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 2467 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 2472 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _hdIcomments,_hdIcopy,_hdIisMultiline,_hdIpos,_hdIpretty) = - hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf - ( _tlIcomments,_tlIcopy,_tlIelsesExist,_tlIisMultiline,_tlIpos,_tlIpretty) = - tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty))) -sem_ElseIfList_Nil :: T_ElseIfList -sem_ElseIfList_Nil = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOpos :: Region - _lhsOisMultiline :: Bool - _lhsOelsesExist :: Bool - _lhsOcopy :: ElseIfList - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 604 "src/GLua/AG/PrettyPrint.ag" #-} - empty - {-# LINE 2494 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpos = - ({-# LINE 605 "src/GLua/AG/PrettyPrint.ag" #-} - emptyRg - {-# LINE 2499 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 606 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2504 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOelsesExist = - ({-# LINE 332 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2509 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - [] - {-# LINE 2514 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 2519 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 2524 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty))) --- Expr -------------------------------------------------------- --- cata -sem_Expr :: Expr -> - T_Expr -sem_Expr (ANil) = - (sem_Expr_ANil) -sem_Expr (AFalse) = - (sem_Expr_AFalse) -sem_Expr (ATrue) = - (sem_Expr_ATrue) -sem_Expr (ANumber _num) = - (sem_Expr_ANumber _num) -sem_Expr (AString _str) = - (sem_Expr_AString _str) -sem_Expr (AVarArg) = - (sem_Expr_AVarArg) -sem_Expr (AnonymousFunc _pars _body) = - (sem_Expr_AnonymousFunc _pars (sem_Block _body)) -sem_Expr (APrefixExpr _pexpr) = - (sem_Expr_APrefixExpr (sem_PrefixExp _pexpr)) -sem_Expr (ATableConstructor _fields) = - (sem_Expr_ATableConstructor (sem_FieldList _fields)) -sem_Expr (BinOpExpr _op _left _right) = - (sem_Expr_BinOpExpr (sem_BinOp _op) (sem_MExpr _left) (sem_MExpr _right)) -sem_Expr (UnOpExpr _op _right) = - (sem_Expr_UnOpExpr (sem_UnOp _op) (sem_MExpr _right)) --- semantic domain -type T_Expr = ([MToken]) -> - Bool -> - Int -> - Bool -> - OperatorLevel -> - PrettyPrintConfig -> - Region -> - ( ([MToken]),Expr,Bool,Bool,Bool,Bool,OperatorLevel,Doc) -data Inh_Expr = Inh_Expr {comments_Inh_Expr :: ([MToken]),forceMultiline_Inh_Expr :: Bool,indent_Inh_Expr :: Int,parentOperatorAssociative_Inh_Expr :: Bool,parentOperatorPrecedence_Inh_Expr :: OperatorLevel,ppconf_Inh_Expr :: PrettyPrintConfig,statRegion_Inh_Expr :: Region} -data Syn_Expr = Syn_Expr {comments_Syn_Expr :: ([MToken]),copy_Syn_Expr :: Expr,endsWithPrefixExpression_Syn_Expr :: Bool,isAssociative_Syn_Expr :: Bool,isLiteral_Syn_Expr :: Bool,isMultiline_Syn_Expr :: Bool,precedence_Syn_Expr :: OperatorLevel,pretty_Syn_Expr :: Doc} -wrap_Expr :: T_Expr -> - Inh_Expr -> - Syn_Expr -wrap_Expr sem (Inh_Expr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf _lhsIstatRegion) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf _lhsIstatRegion - in (Syn_Expr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOprecedence _lhsOpretty)) -sem_Expr_ANil :: T_Expr -sem_Expr_ANil = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIparentOperatorAssociative - _lhsIparentOperatorPrecedence - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOisLiteral :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: Expr - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1000 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "nil" - {-# LINE 2590 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLiteral = - ({-# LINE 1001 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 2595 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 1002 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2600 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1003 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2605 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2610 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 2615 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ANil - {-# LINE 2620 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 2625 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 2630 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_Expr_AFalse :: T_Expr -sem_Expr_AFalse = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIparentOperatorAssociative - _lhsIparentOperatorPrecedence - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOisLiteral :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: Expr - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1005 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "false" - {-# LINE 2653 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLiteral = - ({-# LINE 1006 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 2658 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 1007 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2663 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1008 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2668 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2673 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 2678 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AFalse - {-# LINE 2683 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 2688 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 2693 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_Expr_ATrue :: T_Expr -sem_Expr_ATrue = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIparentOperatorAssociative - _lhsIparentOperatorPrecedence - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOisLiteral :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: Expr - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1010 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "true" - {-# LINE 2716 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLiteral = - ({-# LINE 1011 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 2721 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 1012 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2726 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1013 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2731 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2736 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 2741 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ATrue - {-# LINE 2746 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 2751 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 2756 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_Expr_ANumber :: String -> - T_Expr -sem_Expr_ANumber num_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIparentOperatorAssociative - _lhsIparentOperatorPrecedence - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOisLiteral :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: Expr - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1015 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText num_ - {-# LINE 2780 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLiteral = - ({-# LINE 1016 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 2785 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 1017 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2790 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1018 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2795 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2800 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 2805 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ANumber num_ - {-# LINE 2810 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 2815 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 2820 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_Expr_AString :: MToken -> - T_Expr -sem_Expr_AString str_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIparentOperatorAssociative - _lhsIparentOperatorPrecedence - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOisLiteral :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: Expr - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1020 "src/GLua/AG/PrettyPrint.ag" #-} - tok str_ - {-# LINE 2844 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLiteral = - ({-# LINE 1021 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 2849 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 1022 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2854 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1023 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2859 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2864 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 2869 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AString str_ - {-# LINE 2874 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 2879 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 2884 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_Expr_AVarArg :: T_Expr -sem_Expr_AVarArg = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIparentOperatorAssociative - _lhsIparentOperatorPrecedence - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOisLiteral :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: Expr - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1025 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "..." - {-# LINE 2907 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLiteral = - ({-# LINE 1026 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 2912 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 1027 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2917 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1028 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2922 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2927 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 2932 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AVarArg - {-# LINE 2937 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 2942 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 2947 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_Expr_AnonymousFunc :: ([MToken]) -> - T_Block -> - T_Expr -sem_Expr_AnonymousFunc pars_ body_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIparentOperatorAssociative - _lhsIparentOperatorPrecedence - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOendsWithPrefixExpression :: Bool - _bodyOindent :: Int - _lhsOpretty :: Doc - _lhsOisAssociative :: Bool - _lhsOisLiteral :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: Expr - _lhsOcomments :: ([MToken]) - _lhsOisMultiline :: Bool - _bodyOcomments :: ([MToken]) - _bodyOforceMultiline :: Bool - _bodyOppconf :: PrettyPrintConfig - _bodyOstatRegion :: Region - _bodyIcomments :: ([MToken]) - _bodyIcopy :: Block - _bodyIisMultiline :: Bool - _bodyIpos :: Region - _bodyIpretty :: Doc - _bodyIstatementCount :: Int - _isMultiline = - ({-# LINE 1030 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline || _bodyIisMultiline - {-# LINE 2983 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 1031 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 2988 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _singleLinePretty = - ({-# LINE 1032 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "function" - <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) pars_) - <-> _bodyIpretty - <-> zeroWidthText "end" - {-# LINE 2996 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _multilinePretty = - ({-# LINE 1037 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "function" - <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) pars_) - $+$ _bodyIpretty - $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") - {-# LINE 3004 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _comma = - ({-# LINE 1042 "src/GLua/AG/PrettyPrint.ag" #-} - (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) - <> zchr ',' - <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty) - {-# LINE 3011 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _emptyParams = - ({-# LINE 1046 "src/GLua/AG/PrettyPrint.ag" #-} - toEmpty $ null pars_ - {-# LINE 3016 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOindent = - ({-# LINE 1047 "src/GLua/AG/PrettyPrint.ag" #-} - if _isMultiline then _lhsIindent + 1 else 0 - {-# LINE 3021 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpretty = - ({-# LINE 1048 "src/GLua/AG/PrettyPrint.ag" #-} - if _isMultiline then _multilinePretty else _singleLinePretty - {-# LINE 3026 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 3031 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLiteral = - ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 3036 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 3041 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AnonymousFunc pars_ _bodyIcopy - {-# LINE 3046 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 3051 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _bodyIcomments - {-# LINE 3056 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-} - _isMultiline - {-# LINE 3061 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 3066 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 3071 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 3076 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOstatRegion = - ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIstatRegion - {-# LINE 3081 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = - body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_Expr_APrefixExpr :: T_PrefixExp -> - T_Expr -sem_Expr_APrefixExpr pexpr_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIparentOperatorAssociative - _lhsIparentOperatorPrecedence - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOisLiteral :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: Expr - _lhsOcomments :: ([MToken]) - _pexprOcomments :: ([MToken]) - _pexprOforceMultiline :: Bool - _pexprOindent :: Int - _pexprOparentOperatorAssociative :: Bool - _pexprOparentOperatorPrecedence :: OperatorLevel - _pexprOppconf :: PrettyPrintConfig - _pexprIcomments :: ([MToken]) - _pexprIcopy :: PrefixExp - _pexprIisAssociative :: Bool - _pexprIisLiteral :: Bool - _pexprIisMultiline :: Bool - _pexprIprecedence :: OperatorLevel - _pexprIpretty :: Doc - _pexprIstartsWithExprPrefixExpression :: Bool - _lhsOpretty = - ({-# LINE 1050 "src/GLua/AG/PrettyPrint.ag" #-} - _pexprIpretty - {-# LINE 3121 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 1051 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 3126 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1052 "src/GLua/AG/PrettyPrint.ag" #-} - _pexprIisMultiline - {-# LINE 3131 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - _pexprIisAssociative - {-# LINE 3136 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLiteral = - ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-} - _pexprIisLiteral - {-# LINE 3141 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - _pexprIprecedence - {-# LINE 3146 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - APrefixExpr _pexprIcopy - {-# LINE 3151 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 3156 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _pexprIcomments - {-# LINE 3161 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _pexprOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 3166 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _pexprOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 3171 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _pexprOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 3176 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _pexprOparentOperatorAssociative = - ({-# LINE 275 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIparentOperatorAssociative - {-# LINE 3181 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _pexprOparentOperatorPrecedence = - ({-# LINE 274 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIparentOperatorPrecedence - {-# LINE 3186 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _pexprOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 3191 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _pexprIcomments,_pexprIcopy,_pexprIisAssociative,_pexprIisLiteral,_pexprIisMultiline,_pexprIprecedence,_pexprIpretty,_pexprIstartsWithExprPrefixExpression) = - pexpr_ _pexprOcomments _pexprOforceMultiline _pexprOindent _pexprOparentOperatorAssociative _pexprOparentOperatorPrecedence _pexprOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_Expr_ATableConstructor :: T_FieldList -> - T_Expr -sem_Expr_ATableConstructor fields_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIparentOperatorAssociative - _lhsIparentOperatorPrecedence - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOisLiteral :: Bool - _lhsOendsWithPrefixExpression :: Bool - _fieldsOindent :: Int - _fieldsOsomeElementsInListAreMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: Expr - _lhsOcomments :: ([MToken]) - _lhsOisMultiline :: Bool - _fieldsOcomments :: ([MToken]) - _fieldsOforceMultiline :: Bool - _fieldsOppconf :: PrettyPrintConfig - _fieldsIcomments :: ([MToken]) - _fieldsIcopy :: FieldList - _fieldsIisMultiline :: Bool - _fieldsIisNil :: Bool - _fieldsIpretty :: Doc - _lhsOpretty = - ({-# LINE 1054 "src/GLua/AG/PrettyPrint.ag" #-} - if _isMultiline then _prettyMulti else _prettySingle - {-# LINE 3227 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _isMultiline = - ({-# LINE 1055 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline || _fieldsIisMultiline - {-# LINE 3232 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLiteral = - ({-# LINE 1056 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 3237 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 1057 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 3242 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _prettyMulti = - ({-# LINE 1058 "src/GLua/AG/PrettyPrint.ag" #-} - zchr '{' $+$ _fieldsIpretty $+$ indent _lhsIppconf _lhsIindent (zchr '}') - {-# LINE 3247 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _prettySingle = - ({-# LINE 1059 "src/GLua/AG/PrettyPrint.ag" #-} - braces _lhsIppconf _emptyContents _fieldsIpretty - {-# LINE 3252 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _emptyContents = - ({-# LINE 1060 "src/GLua/AG/PrettyPrint.ag" #-} - toEmpty $ null _fieldsIcopy - {-# LINE 3257 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _fieldsOindent = - ({-# LINE 1061 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent + (if _fieldsIisMultiline then 1 else 0) - {-# LINE 3262 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _fieldsOsomeElementsInListAreMultiline = - ({-# LINE 1062 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 3267 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 3272 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 3277 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ATableConstructor _fieldsIcopy - {-# LINE 3282 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 3287 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _fieldsIcomments - {-# LINE 3292 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-} - _isMultiline - {-# LINE 3297 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _fieldsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 3302 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _fieldsOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 3307 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _fieldsOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 3312 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _fieldsIcomments,_fieldsIcopy,_fieldsIisMultiline,_fieldsIisNil,_fieldsIpretty) = - fields_ _fieldsOcomments _fieldsOforceMultiline _fieldsOindent _fieldsOppconf _fieldsOsomeElementsInListAreMultiline - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_Expr_BinOpExpr :: T_BinOp -> - T_MExpr -> - T_MExpr -> - T_Expr -sem_Expr_BinOpExpr op_ left_ right_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIparentOperatorAssociative - _lhsIparentOperatorPrecedence - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOendsWithPrefixExpression :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOisMultiline :: Bool - _leftOparentOperatorPrecedence :: OperatorLevel - _rightOparentOperatorPrecedence :: OperatorLevel - _leftOparentOperatorAssociative :: Bool - _rightOparentOperatorAssociative :: Bool - _lhsOisAssociative :: Bool - _lhsOisLiteral :: Bool - _lhsOcopy :: Expr - _lhsOcomments :: ([MToken]) - _opOcomments :: ([MToken]) - _opOindent :: Int - _opOppconf :: PrettyPrintConfig - _leftOcomments :: ([MToken]) - _leftOforceMultiline :: Bool - _leftOindent :: Int - _leftOppconf :: PrettyPrintConfig - _rightOcomments :: ([MToken]) - _rightOforceMultiline :: Bool - _rightOindent :: Int - _rightOppconf :: PrettyPrintConfig - _opIcomments :: ([MToken]) - _opIcopy :: BinOp - _opIisAssociative :: Bool - _opIisMultiline :: Bool - _opIprecedence :: OperatorLevel - _opIpretty :: Doc - _leftIcomments :: ([MToken]) - _leftIcopy :: MExpr - _leftIendsWithPrefixExpression :: Bool - _leftIisAssociative :: Bool - _leftIisLiteral :: Bool - _leftIisMultiline :: Bool - _leftIpos :: Region - _leftIprecedence :: OperatorLevel - _leftIpretty :: Doc - _rightIcomments :: ([MToken]) - _rightIcopy :: MExpr - _rightIendsWithPrefixExpression :: Bool - _rightIisAssociative :: Bool - _rightIisLiteral :: Bool - _rightIisMultiline :: Bool - _rightIpos :: Region - _rightIprecedence :: OperatorLevel - _rightIpretty :: Doc - _lhsOpretty = - ({-# LINE 1064 "src/GLua/AG/PrettyPrint.ag" #-} - _leftIpretty <-> _opIpretty <-> _rightIpretty - {-# LINE 3379 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 1065 "src/GLua/AG/PrettyPrint.ag" #-} - _rightIendsWithPrefixExpression - {-# LINE 3384 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1068 "src/GLua/AG/PrettyPrint.ag" #-} - min _opIprecedence $ min _leftIprecedence _rightIprecedence - {-# LINE 3389 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1069 "src/GLua/AG/PrettyPrint.ag" #-} - _leftIisMultiline || _rightIisMultiline - {-# LINE 3394 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _leftOparentOperatorPrecedence = - ({-# LINE 1070 "src/GLua/AG/PrettyPrint.ag" #-} - _opIprecedence - {-# LINE 3399 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _rightOparentOperatorPrecedence = - ({-# LINE 1071 "src/GLua/AG/PrettyPrint.ag" #-} - _opIprecedence - {-# LINE 3404 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _leftOparentOperatorAssociative = - ({-# LINE 1072 "src/GLua/AG/PrettyPrint.ag" #-} - _opIisAssociative - {-# LINE 3409 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _rightOparentOperatorAssociative = - ({-# LINE 1073 "src/GLua/AG/PrettyPrint.ag" #-} - _opIisAssociative - {-# LINE 3414 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - _opIisAssociative && _leftIisAssociative && _rightIisAssociative - {-# LINE 3419 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLiteral = - ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-} - ((\_ _ -> False) _leftIisLiteral _rightIisLiteral) - {-# LINE 3424 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - BinOpExpr _opIcopy _leftIcopy _rightIcopy - {-# LINE 3429 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 3434 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _rightIcomments - {-# LINE 3439 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _opOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 3444 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _opOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 3449 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _opOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 3454 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _leftOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _opIcomments - {-# LINE 3459 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _leftOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 3464 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _leftOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 3469 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _leftOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 3474 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _rightOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _leftIcomments - {-# LINE 3479 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _rightOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 3484 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _rightOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 3489 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _rightOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 3494 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _opIcomments,_opIcopy,_opIisAssociative,_opIisMultiline,_opIprecedence,_opIpretty) = - op_ _opOcomments _opOindent _opOppconf - ( _leftIcomments,_leftIcopy,_leftIendsWithPrefixExpression,_leftIisAssociative,_leftIisLiteral,_leftIisMultiline,_leftIpos,_leftIprecedence,_leftIpretty) = - left_ _leftOcomments _leftOforceMultiline _leftOindent _leftOparentOperatorAssociative _leftOparentOperatorPrecedence _leftOppconf - ( _rightIcomments,_rightIcopy,_rightIendsWithPrefixExpression,_rightIisAssociative,_rightIisLiteral,_rightIisMultiline,_rightIpos,_rightIprecedence,_rightIpretty) = - right_ _rightOcomments _rightOforceMultiline _rightOindent _rightOparentOperatorAssociative _rightOparentOperatorPrecedence _rightOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_Expr_UnOpExpr :: T_UnOp -> - T_MExpr -> - T_Expr -sem_Expr_UnOpExpr op_ right_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIparentOperatorAssociative - _lhsIparentOperatorPrecedence - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOprecedence :: OperatorLevel - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _rightOparentOperatorPrecedence :: OperatorLevel - _lhsOisAssociative :: Bool - _lhsOisLiteral :: Bool - _lhsOcopy :: Expr - _lhsOcomments :: ([MToken]) - _opOcomments :: ([MToken]) - _opOindent :: Int - _opOppconf :: PrettyPrintConfig - _rightOcomments :: ([MToken]) - _rightOforceMultiline :: Bool - _rightOindent :: Int - _rightOparentOperatorAssociative :: Bool - _rightOppconf :: PrettyPrintConfig - _opIcomments :: ([MToken]) - _opIcopy :: UnOp - _opIisMultiline :: Bool - _opIpretty :: Doc - _rightIcomments :: ([MToken]) - _rightIcopy :: MExpr - _rightIendsWithPrefixExpression :: Bool - _rightIisAssociative :: Bool - _rightIisLiteral :: Bool - _rightIisMultiline :: Bool - _rightIpos :: Region - _rightIprecedence :: OperatorLevel - _rightIpretty :: Doc - _lhsOpretty = - ({-# LINE 1075 "src/GLua/AG/PrettyPrint.ag" #-} - _opIpretty <> _rightIpretty - {-# LINE 3547 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 1076 "src/GLua/AG/PrettyPrint.ag" #-} - min _rightIprecedence OperatorLevel7 - {-# LINE 3552 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 1077 "src/GLua/AG/PrettyPrint.ag" #-} - _rightIendsWithPrefixExpression - {-# LINE 3557 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1078 "src/GLua/AG/PrettyPrint.ag" #-} - _opIisMultiline || _rightIisMultiline - {-# LINE 3562 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _rightOparentOperatorPrecedence = - ({-# LINE 1079 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel7 - {-# LINE 3567 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - _rightIisAssociative - {-# LINE 3572 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLiteral = - ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-} - _rightIisLiteral - {-# LINE 3577 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - UnOpExpr _opIcopy _rightIcopy - {-# LINE 3582 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 3587 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _rightIcomments - {-# LINE 3592 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _opOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 3597 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _opOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 3602 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _opOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 3607 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _rightOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _opIcomments - {-# LINE 3612 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _rightOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 3617 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _rightOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 3622 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _rightOparentOperatorAssociative = - ({-# LINE 275 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIparentOperatorAssociative - {-# LINE 3627 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _rightOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 3632 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _opIcomments,_opIcopy,_opIisMultiline,_opIpretty) = - op_ _opOcomments _opOindent _opOppconf - ( _rightIcomments,_rightIcopy,_rightIendsWithPrefixExpression,_rightIisAssociative,_rightIisLiteral,_rightIisMultiline,_rightIpos,_rightIprecedence,_rightIpretty) = - right_ _rightOcomments _rightOforceMultiline _rightOindent _rightOparentOperatorAssociative _rightOparentOperatorPrecedence _rightOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) --- ExprSuffixList ---------------------------------------------- --- cata -sem_ExprSuffixList :: ExprSuffixList -> - T_ExprSuffixList -sem_ExprSuffixList list = - (Prelude.foldr sem_ExprSuffixList_Cons sem_ExprSuffixList_Nil (Prelude.map sem_PFExprSuffix list)) --- semantic domain -type T_ExprSuffixList = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - ( ([MToken]),ExprSuffixList,Bool,Bool,OperatorLevel,Doc) -data Inh_ExprSuffixList = Inh_ExprSuffixList {comments_Inh_ExprSuffixList :: ([MToken]),forceMultiline_Inh_ExprSuffixList :: Bool,indent_Inh_ExprSuffixList :: Int,ppconf_Inh_ExprSuffixList :: PrettyPrintConfig} -data Syn_ExprSuffixList = Syn_ExprSuffixList {comments_Syn_ExprSuffixList :: ([MToken]),copy_Syn_ExprSuffixList :: ExprSuffixList,isAssociative_Syn_ExprSuffixList :: Bool,isMultiline_Syn_ExprSuffixList :: Bool,precedence_Syn_ExprSuffixList :: OperatorLevel,pretty_Syn_ExprSuffixList :: Doc} -wrap_ExprSuffixList :: T_ExprSuffixList -> - Inh_ExprSuffixList -> - Syn_ExprSuffixList -wrap_ExprSuffixList sem (Inh_ExprSuffixList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf - in (Syn_ExprSuffixList _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty)) -sem_ExprSuffixList_Cons :: T_PFExprSuffix -> - T_ExprSuffixList -> - T_ExprSuffixList -sem_ExprSuffixList_Cons hd_ tl_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: ExprSuffixList - _lhsOcomments :: ([MToken]) - _hdOcomments :: ([MToken]) - _hdOforceMultiline :: Bool - _hdOindent :: Int - _hdOppconf :: PrettyPrintConfig - _tlOcomments :: ([MToken]) - _tlOforceMultiline :: Bool - _tlOindent :: Int - _tlOppconf :: PrettyPrintConfig - _hdIcomments :: ([MToken]) - _hdIcopy :: PFExprSuffix - _hdIisAssociative :: Bool - _hdIisMultiline :: Bool - _hdIprecedence :: OperatorLevel - _hdIpretty :: Doc - _tlIcomments :: ([MToken]) - _tlIcopy :: ExprSuffixList - _tlIisAssociative :: Bool - _tlIisMultiline :: Bool - _tlIprecedence :: OperatorLevel - _tlIpretty :: Doc - _lhsOpretty = - ({-# LINE 632 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIpretty <> _tlIpretty - {-# LINE 3696 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 633 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIisMultiline || _tlIisMultiline - {-# LINE 3701 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIisAssociative && _tlIisAssociative - {-# LINE 3706 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - (min _hdIprecedence _tlIprecedence) - {-# LINE 3711 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 3716 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 3721 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _tlIcomments - {-# LINE 3726 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 3731 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 3736 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 3741 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 3746 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIcomments - {-# LINE 3751 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 3756 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 3761 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 3766 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _hdIcomments,_hdIcopy,_hdIisAssociative,_hdIisMultiline,_hdIprecedence,_hdIpretty) = - hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf - ( _tlIcomments,_tlIcopy,_tlIisAssociative,_tlIisMultiline,_tlIprecedence,_tlIpretty) = - tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_ExprSuffixList_Nil :: T_ExprSuffixList -sem_ExprSuffixList_Nil = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: ExprSuffixList - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 635 "src/GLua/AG/PrettyPrint.ag" #-} - empty - {-# LINE 3788 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 636 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 3793 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 3798 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 3803 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - [] - {-# LINE 3808 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 3813 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 3818 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) --- Field ------------------------------------------------------- --- cata -sem_Field :: Field -> - T_Field -sem_Field (ExprField _key _value _sep) = - (sem_Field_ExprField (sem_MExpr _key) (sem_MExpr _value) (sem_FieldSep _sep)) -sem_Field (NamedField _key _value _sep) = - (sem_Field_NamedField _key (sem_MExpr _value) (sem_FieldSep _sep)) -sem_Field (UnnamedField _value _sep) = - (sem_Field_UnnamedField (sem_MExpr _value) (sem_FieldSep _sep)) --- semantic domain -type T_Field = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - ( ([MToken]),Field,Bool,Bool,Region,Doc) -data Inh_Field = Inh_Field {comments_Inh_Field :: ([MToken]),forceMultiline_Inh_Field :: Bool,indent_Inh_Field :: Int,ppconf_Inh_Field :: PrettyPrintConfig} -data Syn_Field = Syn_Field {comments_Syn_Field :: ([MToken]),copy_Syn_Field :: Field,isMultiline_Syn_Field :: Bool,isSemiColon_Syn_Field :: Bool,pos_Syn_Field :: Region,pretty_Syn_Field :: Doc} -wrap_Field :: T_Field -> - Inh_Field -> - Syn_Field -wrap_Field sem (Inh_Field _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf - in (Syn_Field _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOisSemiColon _lhsOpos _lhsOpretty)) -sem_Field_ExprField :: T_MExpr -> - T_MExpr -> - T_FieldSep -> - T_Field -sem_Field_ExprField key_ value_ sep_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _keyOparentOperatorPrecedence :: OperatorLevel - _keyOparentOperatorAssociative :: Bool - _valueOparentOperatorPrecedence :: OperatorLevel - _valueOparentOperatorAssociative :: Bool - _lhsOisSemiColon :: Bool - _lhsOcopy :: Field - _lhsOcomments :: ([MToken]) - _lhsOpos :: Region - _keyOcomments :: ([MToken]) - _keyOforceMultiline :: Bool - _keyOindent :: Int - _keyOppconf :: PrettyPrintConfig - _valueOcomments :: ([MToken]) - _valueOforceMultiline :: Bool - _valueOindent :: Int - _valueOppconf :: PrettyPrintConfig - _sepOindent :: Int - _sepOppconf :: PrettyPrintConfig - _keyIcomments :: ([MToken]) - _keyIcopy :: MExpr - _keyIendsWithPrefixExpression :: Bool - _keyIisAssociative :: Bool - _keyIisLiteral :: Bool - _keyIisMultiline :: Bool - _keyIpos :: Region - _keyIprecedence :: OperatorLevel - _keyIpretty :: Doc - _valueIcomments :: ([MToken]) - _valueIcopy :: MExpr - _valueIendsWithPrefixExpression :: Bool - _valueIisAssociative :: Bool - _valueIisLiteral :: Bool - _valueIisMultiline :: Bool - _valueIpos :: Region - _valueIprecedence :: OperatorLevel - _valueIpretty :: Doc - _sepIcopy :: FieldSep - _sepIisMultiline :: Bool - _sepIisSemiColon :: Bool - _sepIpretty :: Doc - _lhsOpretty = - ({-# LINE 1108 "src/GLua/AG/PrettyPrint.ag" #-} - brackets _lhsIppconf _keyIpretty <-> zchr '=' <-> _valueIpretty <> _sepIpretty - {-# LINE 3899 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1109 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 3904 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _keyOparentOperatorPrecedence = - ({-# LINE 1110 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 3909 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _keyOparentOperatorAssociative = - ({-# LINE 1111 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 3914 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOparentOperatorPrecedence = - ({-# LINE 1112 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 3919 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOparentOperatorAssociative = - ({-# LINE 1113 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 3924 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisSemiColon = - ({-# LINE 326 "src/GLua/AG/PrettyPrint.ag" #-} - _sepIisSemiColon - {-# LINE 3929 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ExprField _keyIcopy _valueIcopy _sepIcopy - {-# LINE 3934 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 3939 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _valueIcomments - {-# LINE 3944 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpos = - ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-} - _valueIpos - {-# LINE 3949 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _keyOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 3954 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _keyOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 3959 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _keyOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 3964 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _keyOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 3969 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _keyIcomments - {-# LINE 3974 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 3979 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 3984 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 3989 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _sepOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 3994 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _sepOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 3999 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _keyIcomments,_keyIcopy,_keyIendsWithPrefixExpression,_keyIisAssociative,_keyIisLiteral,_keyIisMultiline,_keyIpos,_keyIprecedence,_keyIpretty) = - key_ _keyOcomments _keyOforceMultiline _keyOindent _keyOparentOperatorAssociative _keyOparentOperatorPrecedence _keyOppconf - ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) = - value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf - ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) = - sep_ _sepOindent _sepOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty))) -sem_Field_NamedField :: MToken -> - T_MExpr -> - T_FieldSep -> - T_Field -sem_Field_NamedField key_ value_ sep_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _valueOparentOperatorPrecedence :: OperatorLevel - _valueOparentOperatorAssociative :: Bool - _lhsOisSemiColon :: Bool - _lhsOcopy :: Field - _lhsOcomments :: ([MToken]) - _lhsOpos :: Region - _valueOcomments :: ([MToken]) - _valueOforceMultiline :: Bool - _valueOindent :: Int - _valueOppconf :: PrettyPrintConfig - _sepOindent :: Int - _sepOppconf :: PrettyPrintConfig - _valueIcomments :: ([MToken]) - _valueIcopy :: MExpr - _valueIendsWithPrefixExpression :: Bool - _valueIisAssociative :: Bool - _valueIisLiteral :: Bool - _valueIisMultiline :: Bool - _valueIpos :: Region - _valueIprecedence :: OperatorLevel - _valueIpretty :: Doc - _sepIcopy :: FieldSep - _sepIisMultiline :: Bool - _sepIisSemiColon :: Bool - _sepIpretty :: Doc - _lhsOpretty = - ({-# LINE 1115 "src/GLua/AG/PrettyPrint.ag" #-} - tok key_ <-> zchr '=' <-> _valueIpretty <> _sepIpretty - {-# LINE 4047 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1116 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 4052 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOparentOperatorPrecedence = - ({-# LINE 1117 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 4057 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOparentOperatorAssociative = - ({-# LINE 1118 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 4062 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisSemiColon = - ({-# LINE 326 "src/GLua/AG/PrettyPrint.ag" #-} - _sepIisSemiColon - {-# LINE 4067 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - NamedField key_ _valueIcopy _sepIcopy - {-# LINE 4072 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 4077 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _valueIcomments - {-# LINE 4082 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpos = - ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-} - _valueIpos - {-# LINE 4087 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 4092 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 4097 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 4102 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 4107 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _sepOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 4112 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _sepOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 4117 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) = - value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf - ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) = - sep_ _sepOindent _sepOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty))) -sem_Field_UnnamedField :: T_MExpr -> - T_FieldSep -> - T_Field -sem_Field_UnnamedField value_ sep_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _valueOparentOperatorPrecedence :: OperatorLevel - _valueOparentOperatorAssociative :: Bool - _lhsOisSemiColon :: Bool - _lhsOcopy :: Field - _lhsOcomments :: ([MToken]) - _lhsOpos :: Region - _valueOcomments :: ([MToken]) - _valueOforceMultiline :: Bool - _valueOindent :: Int - _valueOppconf :: PrettyPrintConfig - _sepOindent :: Int - _sepOppconf :: PrettyPrintConfig - _valueIcomments :: ([MToken]) - _valueIcopy :: MExpr - _valueIendsWithPrefixExpression :: Bool - _valueIisAssociative :: Bool - _valueIisLiteral :: Bool - _valueIisMultiline :: Bool - _valueIpos :: Region - _valueIprecedence :: OperatorLevel - _valueIpretty :: Doc - _sepIcopy :: FieldSep - _sepIisMultiline :: Bool - _sepIisSemiColon :: Bool - _sepIpretty :: Doc - _lhsOpretty = - ({-# LINE 1120 "src/GLua/AG/PrettyPrint.ag" #-} - _valueIpretty <> _sepIpretty - {-# LINE 4162 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1121 "src/GLua/AG/PrettyPrint.ag" #-} - _valueIisMultiline || _sepIisMultiline - {-# LINE 4167 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOparentOperatorPrecedence = - ({-# LINE 1122 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 4172 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOparentOperatorAssociative = - ({-# LINE 1123 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 4177 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisSemiColon = - ({-# LINE 326 "src/GLua/AG/PrettyPrint.ag" #-} - _sepIisSemiColon - {-# LINE 4182 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - UnnamedField _valueIcopy _sepIcopy - {-# LINE 4187 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 4192 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _valueIcomments - {-# LINE 4197 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpos = - ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-} - _valueIpos - {-# LINE 4202 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 4207 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 4212 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 4217 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valueOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 4222 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _sepOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 4227 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _sepOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 4232 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) = - value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf - ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) = - sep_ _sepOindent _sepOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty))) --- FieldList --------------------------------------------------- --- cata -sem_FieldList :: FieldList -> - T_FieldList -sem_FieldList list = - (Prelude.foldr sem_FieldList_Cons sem_FieldList_Nil (Prelude.map sem_Field list)) --- semantic domain -type T_FieldList = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - Bool -> - ( ([MToken]),FieldList,Bool,Bool,Doc) -data Inh_FieldList = Inh_FieldList {comments_Inh_FieldList :: ([MToken]),forceMultiline_Inh_FieldList :: Bool,indent_Inh_FieldList :: Int,ppconf_Inh_FieldList :: PrettyPrintConfig,someElementsInListAreMultiline_Inh_FieldList :: Bool} -data Syn_FieldList = Syn_FieldList {comments_Syn_FieldList :: ([MToken]),copy_Syn_FieldList :: FieldList,isMultiline_Syn_FieldList :: Bool,isNil_Syn_FieldList :: Bool,pretty_Syn_FieldList :: Doc} -wrap_FieldList :: T_FieldList -> - Inh_FieldList -> - Syn_FieldList -wrap_FieldList sem (Inh_FieldList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline - in (Syn_FieldList _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOisNil _lhsOpretty)) -sem_FieldList_Cons :: T_Field -> - T_FieldList -> - T_FieldList -sem_FieldList_Cons hd_ tl_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf - _lhsIsomeElementsInListAreMultiline -> - (let _lhsOpretty :: Doc - _lhsOisNil :: Bool - _tlOsomeElementsInListAreMultiline :: Bool - _hdOcomments :: ([MToken]) - _tlOcomments :: ([MToken]) - _lhsOcomments :: ([MToken]) - _lhsOcopy :: FieldList - _lhsOisMultiline :: Bool - _hdOforceMultiline :: Bool - _hdOindent :: Int - _hdOppconf :: PrettyPrintConfig - _tlOforceMultiline :: Bool - _tlOindent :: Int - _tlOppconf :: PrettyPrintConfig - _hdIcomments :: ([MToken]) - _hdIcopy :: Field - _hdIisMultiline :: Bool - _hdIisSemiColon :: Bool - _hdIpos :: Region - _hdIpretty :: Doc - _tlIcomments :: ([MToken]) - _tlIcopy :: FieldList - _tlIisMultiline :: Bool - _tlIisNil :: Bool - _tlIpretty :: Doc - _lhsOpretty = - ({-# LINE 486 "src/GLua/AG/PrettyPrint.ag" #-} - if _isMultiline - then renderMLComments _lhsIppconf _lhsIindent (fst _commentsBefore ) - $+$ indent _lhsIppconf _lhsIindent _hdIpretty - <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter ) - $+$ _tlIpretty - else _hdIpretty - `_optionalSpaceAfterSep ` _tlIpretty - {-# LINE 4303 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisNil = - ({-# LINE 494 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 4308 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _optionalSpaceAfterSep = - ({-# LINE 496 "src/GLua/AG/PrettyPrint.ag" #-} - if spaceAfterComma _lhsIppconf then (<->) else (<>) - {-# LINE 4313 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _isMultiline = - ({-# LINE 498 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - || _hdIisMultiline - || _tlIisMultiline - || _lhsIsomeElementsInListAreMultiline - || not (null $ fst _commentsBefore ) - || not (null $ fst _commentsAfter ) - {-# LINE 4323 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOsomeElementsInListAreMultiline = - ({-# LINE 506 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIsomeElementsInListAreMultiline - || _hdIisMultiline - || not (null $ fst _commentsBefore ) - || not (null $ fst _commentsAfter ) - {-# LINE 4331 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsBefore = - ({-# LINE 512 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos _) -> pos `before` _hdIpos) _lhsIcomments - {-# LINE 4336 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOcomments = - ({-# LINE 513 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsBefore - {-# LINE 4341 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsAfter = - ({-# LINE 514 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos _) -> pos `beforeOrOnLine` _hdIpos) _hdIcomments - {-# LINE 4346 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOcomments = - ({-# LINE 516 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsAfter - {-# LINE 4351 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 517 "src/GLua/AG/PrettyPrint.ag" #-} - _tlIcomments - {-# LINE 4356 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 4361 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 4366 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-} - _isMultiline - {-# LINE 4371 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 4376 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 4381 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 4386 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 4391 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 4396 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 4401 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _hdIcomments,_hdIcopy,_hdIisMultiline,_hdIisSemiColon,_hdIpos,_hdIpretty) = - hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf - ( _tlIcomments,_tlIcopy,_tlIisMultiline,_tlIisNil,_tlIpretty) = - tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOsomeElementsInListAreMultiline - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty))) -sem_FieldList_Nil :: T_FieldList -sem_FieldList_Nil = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf - _lhsIsomeElementsInListAreMultiline -> - (let _lhsOpretty :: Doc - _lhsOisNil :: Bool - _lhsOisMultiline :: Bool - _lhsOcopy :: FieldList - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 520 "src/GLua/AG/PrettyPrint.ag" #-} - empty - {-# LINE 4423 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisNil = - ({-# LINE 521 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 4428 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 522 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 4433 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - [] - {-# LINE 4438 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 4443 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 4448 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty))) --- FieldSep ---------------------------------------------------- --- cata -sem_FieldSep :: FieldSep -> - T_FieldSep -sem_FieldSep (CommaSep) = - (sem_FieldSep_CommaSep) -sem_FieldSep (SemicolonSep) = - (sem_FieldSep_SemicolonSep) -sem_FieldSep (NoSep) = - (sem_FieldSep_NoSep) --- semantic domain -type T_FieldSep = Int -> - PrettyPrintConfig -> - ( FieldSep,Bool,Bool,Doc) -data Inh_FieldSep = Inh_FieldSep {indent_Inh_FieldSep :: Int,ppconf_Inh_FieldSep :: PrettyPrintConfig} -data Syn_FieldSep = Syn_FieldSep {copy_Syn_FieldSep :: FieldSep,isMultiline_Syn_FieldSep :: Bool,isSemiColon_Syn_FieldSep :: Bool,pretty_Syn_FieldSep :: Doc} -wrap_FieldSep :: T_FieldSep -> - Inh_FieldSep -> - Syn_FieldSep -wrap_FieldSep sem (Inh_FieldSep _lhsIindent _lhsIppconf) = - (let ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty) = sem _lhsIindent _lhsIppconf - in (Syn_FieldSep _lhsOcopy _lhsOisMultiline _lhsOisSemiColon _lhsOpretty)) -sem_FieldSep_CommaSep :: T_FieldSep -sem_FieldSep_CommaSep = - (\ _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOisSemiColon :: Bool - _lhsOcopy :: FieldSep - _lhsOpretty = - ({-# LINE 1127 "src/GLua/AG/PrettyPrint.ag" #-} - (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) <> zchr ',' - {-# LINE 4484 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1128 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 4489 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisSemiColon = - ({-# LINE 326 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 4494 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - CommaSep - {-# LINE 4499 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 4504 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty))) -sem_FieldSep_SemicolonSep :: T_FieldSep -sem_FieldSep_SemicolonSep = - (\ _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisSemiColon :: Bool - _lhsOisMultiline :: Bool - _lhsOcopy :: FieldSep - _lhsOpretty = - ({-# LINE 1130 "src/GLua/AG/PrettyPrint.ag" #-} - (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) <> zchr ';' - {-# LINE 4518 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisSemiColon = - ({-# LINE 1131 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 4523 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1134 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 4528 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - SemicolonSep - {-# LINE 4533 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 4538 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty))) -sem_FieldSep_NoSep :: T_FieldSep -sem_FieldSep_NoSep = - (\ _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOisSemiColon :: Bool - _lhsOcopy :: FieldSep - _lhsOpretty = - ({-# LINE 1136 "src/GLua/AG/PrettyPrint.ag" #-} - empty - {-# LINE 4552 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1137 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 4557 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisSemiColon = - ({-# LINE 326 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 4562 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - NoSep - {-# LINE 4567 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 4572 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty))) --- FuncName ---------------------------------------------------- --- cata -sem_FuncName :: FuncName -> - T_FuncName -sem_FuncName (FuncName _names _meta) = - (sem_FuncName_FuncName _names _meta) --- semantic domain -type T_FuncName = ([MToken]) -> - Int -> - PrettyPrintConfig -> - ( ([MToken]),FuncName,Bool,Region,Doc) -data Inh_FuncName = Inh_FuncName {comments_Inh_FuncName :: ([MToken]),indent_Inh_FuncName :: Int,ppconf_Inh_FuncName :: PrettyPrintConfig} -data Syn_FuncName = Syn_FuncName {comments_Syn_FuncName :: ([MToken]),copy_Syn_FuncName :: FuncName,isMultiline_Syn_FuncName :: Bool,pos_Syn_FuncName :: Region,pretty_Syn_FuncName :: Doc} -wrap_FuncName :: T_FuncName -> - Inh_FuncName -> - Syn_FuncName -wrap_FuncName sem (Inh_FuncName _lhsIcomments _lhsIindent _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf - in (Syn_FuncName _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty)) -sem_FuncName_FuncName :: ([MToken]) -> - (Maybe MToken) -> - T_FuncName -sem_FuncName_FuncName names_ meta_ = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOpos :: Region - _lhsOcopy :: FuncName - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 914 "src/GLua/AG/PrettyPrint.ag" #-} - printList tok "." names_ <> metaDoc meta_ - {-# LINE 4609 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 915 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 4614 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpos = - ({-# LINE 916 "src/GLua/AG/PrettyPrint.ag" #-} - case meta_ of - Nothing -> _namesPos - Just name -> rgOr _namesPos (mpos name) - {-# LINE 4621 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _namesPos = - ({-# LINE 920 "src/GLua/AG/PrettyPrint.ag" #-} - foldl1 rgOr $ map mpos names_ - {-# LINE 4626 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - FuncName names_ meta_ - {-# LINE 4631 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 4636 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 4641 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty))) --- MElse ------------------------------------------------------- --- cata -sem_MElse :: MElse -> - T_MElse -sem_MElse (MElse _pos _body) = - (sem_MElse_MElse _pos (sem_Block _body)) --- semantic domain -type T_MElse = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - Region -> - ( ([MToken]),MElse,Bool,Bool,Region,Doc) -data Inh_MElse = Inh_MElse {comments_Inh_MElse :: ([MToken]),forceMultiline_Inh_MElse :: Bool,indent_Inh_MElse :: Int,ppconf_Inh_MElse :: PrettyPrintConfig,statRegion_Inh_MElse :: Region} -data Syn_MElse = Syn_MElse {comments_Syn_MElse :: ([MToken]),copy_Syn_MElse :: MElse,elsesExist_Syn_MElse :: Bool,isMultiline_Syn_MElse :: Bool,pos_Syn_MElse :: Region,pretty_Syn_MElse :: Doc} -wrap_MElse :: T_MElse -> - Inh_MElse -> - Syn_MElse -wrap_MElse sem (Inh_MElse _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion - in (Syn_MElse _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty)) -sem_MElse_MElse :: Region -> - T_Block -> - T_MElse -sem_MElse_MElse pos_ body_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _bodyOindent :: Int - _lhsOpos :: Region - _bodyOcomments :: ([MToken]) - _lhsOelsesExist :: Bool - _lhsOcopy :: MElse - _lhsOcomments :: ([MToken]) - _bodyOforceMultiline :: Bool - _bodyOppconf :: PrettyPrintConfig - _bodyOstatRegion :: Region - _bodyIcomments :: ([MToken]) - _bodyIcopy :: Block - _bodyIisMultiline :: Bool - _bodyIpos :: Region - _bodyIpretty :: Doc - _bodyIstatementCount :: Int - _lhsOpretty = - ({-# LINE 619 "src/GLua/AG/PrettyPrint.ag" #-} - indent _lhsIppconf _lhsIindent (zeroWidthText "else") - <-> _prettyCommentsAfter - $+$ _bodyIpretty - {-# LINE 4696 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 623 "src/GLua/AG/PrettyPrint.ag" #-} - _bodyIisMultiline - {-# LINE 4701 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOindent = - ({-# LINE 624 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent + 1 - {-# LINE 4706 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _prettyCommentsAfter = - ({-# LINE 625 "src/GLua/AG/PrettyPrint.ag" #-} - renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter ) - {-# LINE 4711 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsAfter = - ({-# LINE 626 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos _) -> pos `beforeOrOnLine` pos_) _lhsIcomments - {-# LINE 4716 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpos = - ({-# LINE 627 "src/GLua/AG/PrettyPrint.ag" #-} - pos_ - {-# LINE 4721 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOcomments = - ({-# LINE 628 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsAfter - {-# LINE 4726 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOelsesExist = - ({-# LINE 332 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 4731 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - MElse pos_ _bodyIcopy - {-# LINE 4736 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 4741 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _bodyIcomments - {-# LINE 4746 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 4751 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 4756 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOstatRegion = - ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIstatRegion - {-# LINE 4761 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = - body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion - in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty))) --- MElseIf ----------------------------------------------------- --- cata -sem_MElseIf :: MElseIf -> - T_MElseIf -sem_MElseIf (MElseIf _pos _elif) = - (sem_MElseIf_MElseIf _pos (sem_ElseIf _elif)) --- semantic domain -type T_MElseIf = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - ( ([MToken]),MElseIf,Bool,Region,Doc) -data Inh_MElseIf = Inh_MElseIf {comments_Inh_MElseIf :: ([MToken]),forceMultiline_Inh_MElseIf :: Bool,indent_Inh_MElseIf :: Int,ppconf_Inh_MElseIf :: PrettyPrintConfig} -data Syn_MElseIf = Syn_MElseIf {comments_Syn_MElseIf :: ([MToken]),copy_Syn_MElseIf :: MElseIf,isMultiline_Syn_MElseIf :: Bool,pos_Syn_MElseIf :: Region,pretty_Syn_MElseIf :: Doc} -wrap_MElseIf :: T_MElseIf -> - Inh_MElseIf -> - Syn_MElseIf -wrap_MElseIf sem (Inh_MElseIf _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf - in (Syn_MElseIf _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty)) -sem_MElseIf_MElseIf :: Region -> - T_ElseIf -> - T_MElseIf -sem_MElseIf_MElseIf pos_ elif_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpos :: Region - _lhsOisMultiline :: Bool - _lhsOcopy :: MElseIf - _lhsOcomments :: ([MToken]) - _lhsOpretty :: Doc - _elifOcomments :: ([MToken]) - _elifOforceMultiline :: Bool - _elifOindent :: Int - _elifOppconf :: PrettyPrintConfig - _elifIcomments :: ([MToken]) - _elifIcopy :: ElseIf - _elifIisMultiline :: Bool - _elifIpretty :: Doc - _lhsOpos = - ({-# LINE 594 "src/GLua/AG/PrettyPrint.ag" #-} - pos_ - {-# LINE 4810 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 595 "src/GLua/AG/PrettyPrint.ag" #-} - _elifIisMultiline - {-# LINE 4815 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - MElseIf pos_ _elifIcopy - {-# LINE 4820 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 4825 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _elifIcomments - {-# LINE 4830 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpretty = - ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-} - _elifIpretty - {-# LINE 4835 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _elifOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 4840 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _elifOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 4845 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _elifOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 4850 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _elifOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 4855 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _elifIcomments,_elifIcopy,_elifIisMultiline,_elifIpretty) = - elif_ _elifOcomments _elifOforceMultiline _elifOindent _elifOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty))) --- MExpr ------------------------------------------------------- --- cata -sem_MExpr :: MExpr -> - T_MExpr -sem_MExpr (MExpr _pos _expr) = - (sem_MExpr_MExpr _pos (sem_Expr _expr)) --- semantic domain -type T_MExpr = ([MToken]) -> - Bool -> - Int -> - Bool -> - OperatorLevel -> - PrettyPrintConfig -> - ( ([MToken]),MExpr,Bool,Bool,Bool,Bool,Region,OperatorLevel,Doc) -data Inh_MExpr = Inh_MExpr {comments_Inh_MExpr :: ([MToken]),forceMultiline_Inh_MExpr :: Bool,indent_Inh_MExpr :: Int,parentOperatorAssociative_Inh_MExpr :: Bool,parentOperatorPrecedence_Inh_MExpr :: OperatorLevel,ppconf_Inh_MExpr :: PrettyPrintConfig} -data Syn_MExpr = Syn_MExpr {comments_Syn_MExpr :: ([MToken]),copy_Syn_MExpr :: MExpr,endsWithPrefixExpression_Syn_MExpr :: Bool,isAssociative_Syn_MExpr :: Bool,isLiteral_Syn_MExpr :: Bool,isMultiline_Syn_MExpr :: Bool,pos_Syn_MExpr :: Region,precedence_Syn_MExpr :: OperatorLevel,pretty_Syn_MExpr :: Doc} -wrap_MExpr :: T_MExpr -> - Inh_MExpr -> - Syn_MExpr -wrap_MExpr sem (Inh_MExpr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf - in (Syn_MExpr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOpos _lhsOprecedence _lhsOpretty)) -sem_MExpr_MExpr :: Region -> - T_Expr -> - T_MExpr -sem_MExpr_MExpr pos_ expr_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIparentOperatorAssociative - _lhsIparentOperatorPrecedence - _lhsIppconf -> - (let _lhsOpos :: Region - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _exprOstatRegion :: Region - _lhsOisAssociative :: Bool - _lhsOisLiteral :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: MExpr - _lhsOcomments :: ([MToken]) - _lhsOpretty :: Doc - _exprOcomments :: ([MToken]) - _exprOforceMultiline :: Bool - _exprOindent :: Int - _exprOparentOperatorAssociative :: Bool - _exprOparentOperatorPrecedence :: OperatorLevel - _exprOppconf :: PrettyPrintConfig - _exprIcomments :: ([MToken]) - _exprIcopy :: Expr - _exprIendsWithPrefixExpression :: Bool - _exprIisAssociative :: Bool - _exprIisLiteral :: Bool - _exprIisMultiline :: Bool - _exprIprecedence :: OperatorLevel - _exprIpretty :: Doc - _lhsOpos = - ({-# LINE 993 "src/GLua/AG/PrettyPrint.ag" #-} - pos_ - {-# LINE 4919 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 994 "src/GLua/AG/PrettyPrint.ag" #-} - _exprIendsWithPrefixExpression - {-# LINE 4924 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 995 "src/GLua/AG/PrettyPrint.ag" #-} - _exprIisMultiline - {-# LINE 4929 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _exprOstatRegion = - ({-# LINE 996 "src/GLua/AG/PrettyPrint.ag" #-} - pos_ - {-# LINE 4934 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - _exprIisAssociative - {-# LINE 4939 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLiteral = - ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-} - _exprIisLiteral - {-# LINE 4944 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - _exprIprecedence - {-# LINE 4949 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - MExpr pos_ _exprIcopy - {-# LINE 4954 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 4959 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _exprIcomments - {-# LINE 4964 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpretty = - ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-} - _exprIpretty - {-# LINE 4969 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _exprOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 4974 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _exprOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 4979 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _exprOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 4984 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _exprOparentOperatorAssociative = - ({-# LINE 275 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIparentOperatorAssociative - {-# LINE 4989 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _exprOparentOperatorPrecedence = - ({-# LINE 274 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIparentOperatorPrecedence - {-# LINE 4994 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _exprOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 4999 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _exprIcomments,_exprIcopy,_exprIendsWithPrefixExpression,_exprIisAssociative,_exprIisLiteral,_exprIisMultiline,_exprIprecedence,_exprIpretty) = - expr_ _exprOcomments _exprOforceMultiline _exprOindent _exprOparentOperatorAssociative _exprOparentOperatorPrecedence _exprOppconf _exprOstatRegion - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty))) --- MExprList --------------------------------------------------- --- cata -sem_MExprList :: MExprList -> - T_MExprList -sem_MExprList list = - (Prelude.foldr sem_MExprList_Cons sem_MExprList_Nil (Prelude.map sem_MExpr list)) --- semantic domain -type T_MExprList = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - Bool -> - ( ([MToken]),MExprList,Bool,Bool,Bool,Region,OperatorLevel,Doc,Bool) -data Inh_MExprList = Inh_MExprList {comments_Inh_MExprList :: ([MToken]),forceMultiline_Inh_MExprList :: Bool,indent_Inh_MExprList :: Int,ppconf_Inh_MExprList :: PrettyPrintConfig,someElementsInListAreMultiline_Inh_MExprList :: Bool} -data Syn_MExprList = Syn_MExprList {comments_Syn_MExprList :: ([MToken]),copy_Syn_MExprList :: MExprList,isAssociative_Syn_MExprList :: Bool,isLast_Syn_MExprList :: Bool,isMultiline_Syn_MExprList :: Bool,pos_Syn_MExprList :: Region,precedence_Syn_MExprList :: OperatorLevel,pretty_Syn_MExprList :: Doc,startsWithNewline_Syn_MExprList :: Bool} -wrap_MExprList :: T_MExprList -> - Inh_MExprList -> - Syn_MExprList -wrap_MExprList sem (Inh_MExprList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithNewline) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline - in (Syn_MExprList _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisLast _lhsOisMultiline _lhsOpos _lhsOprecedence _lhsOpretty _lhsOstartsWithNewline)) -sem_MExprList_Cons :: T_MExpr -> - T_MExprList -> - T_MExprList -sem_MExprList_Cons hd_ tl_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf - _lhsIsomeElementsInListAreMultiline -> - (let _lhsOpretty :: Doc - _hdOcomments :: ([MToken]) - _tlOcomments :: ([MToken]) - _lhsOcomments :: ([MToken]) - _lhsOpos :: Region - _lhsOisLast :: Bool - _hdOparentOperatorPrecedence :: OperatorLevel - _hdOparentOperatorAssociative :: Bool - _tlOsomeElementsInListAreMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: MExprList - _lhsOisMultiline :: Bool - _lhsOstartsWithNewline :: Bool - _hdOforceMultiline :: Bool - _hdOindent :: Int - _hdOppconf :: PrettyPrintConfig - _tlOforceMultiline :: Bool - _tlOindent :: Int - _tlOppconf :: PrettyPrintConfig - _hdIcomments :: ([MToken]) - _hdIcopy :: MExpr - _hdIendsWithPrefixExpression :: Bool - _hdIisAssociative :: Bool - _hdIisLiteral :: Bool - _hdIisMultiline :: Bool - _hdIpos :: Region - _hdIprecedence :: OperatorLevel - _hdIpretty :: Doc - _tlIcomments :: ([MToken]) - _tlIcopy :: MExprList - _tlIisAssociative :: Bool - _tlIisLast :: Bool - _tlIisMultiline :: Bool - _tlIpos :: Region - _tlIprecedence :: OperatorLevel - _tlIpretty :: Doc - _tlIstartsWithNewline :: Bool - _lhsOpretty = - ({-# LINE 422 "src/GLua/AG/PrettyPrint.ag" #-} - if _lhsIforceMultiline then _prettyForcedMultiline else _prettyNotForcedMultiline - {-# LINE 5075 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _prettyNotForcedMultiline = - ({-# LINE 423 "src/GLua/AG/PrettyPrint.ag" #-} - (if _startsWithNewline then - zchr '\n' <> - renderMLComments _lhsIppconf (_lhsIindent + 1) (fst _commentsBeforeLine ) $+$ - indent _lhsIppconf (_lhsIindent + 1) _hdIpretty - else - _hdIpretty) - <> _comma - <> (if (not $ null $ fst _commentsAfter ) then - renderSLComments _lhsIppconf (_lhsIindent + 1) (fst _commentsAfter ) $+$ - indent _lhsIppconf (_lhsIindent + 1) _tlIpretty - else - _tlIpretty) - {-# LINE 5091 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _prettyForcedMultiline = - ({-# LINE 438 "src/GLua/AG/PrettyPrint.ag" #-} - renderMLComments _lhsIppconf _lhsIindent (fst _commentsBeforeLine ) - $+$ indent _lhsIppconf (_lhsIindent) _hdIpretty - <> _comma - <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter ) - $+$ _tlIpretty - {-# LINE 5100 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _comma = - ({-# LINE 444 "src/GLua/AG/PrettyPrint.ag" #-} - if _tlIisLast then - empty - else - (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) - <> zchr ',' - <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty) - {-# LINE 5110 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _startsWithNewline = - ({-# LINE 452 "src/GLua/AG/PrettyPrint.ag" #-} - not $ null $ fst _commentsBeforeLine - {-# LINE 5115 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsBeforeLine = - ({-# LINE 453 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos' _) -> pos' `before` _hdIpos) _lhsIcomments - {-# LINE 5120 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOcomments = - ({-# LINE 454 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsBeforeLine - {-# LINE 5125 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsAfter = - ({-# LINE 455 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos' _) -> pos' `before` _tlIpos) _hdIcomments - {-# LINE 5130 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOcomments = - ({-# LINE 456 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsAfter - {-# LINE 5135 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 457 "src/GLua/AG/PrettyPrint.ag" #-} - _tlIcomments - {-# LINE 5140 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpos = - ({-# LINE 459 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIpos - {-# LINE 5145 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLast = - ({-# LINE 460 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 5150 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOparentOperatorPrecedence = - ({-# LINE 461 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 5155 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOparentOperatorAssociative = - ({-# LINE 462 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 5160 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _isMultiline = - ({-# LINE 463 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - || not (null $ fst _commentsBeforeLine ) - || not (null $ fst _commentsAfter ) - || _lhsIsomeElementsInListAreMultiline - || _hdIisMultiline - || _tlIisMultiline - {-# LINE 5170 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOsomeElementsInListAreMultiline = - ({-# LINE 471 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIsomeElementsInListAreMultiline - || _hdIisMultiline - || not (null $ fst _commentsBeforeLine ) - || not (null $ fst _commentsAfter ) - {-# LINE 5178 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIisAssociative && _tlIisAssociative - {-# LINE 5183 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - (min _hdIprecedence _tlIprecedence) - {-# LINE 5188 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 5193 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 5198 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-} - _isMultiline - {-# LINE 5203 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithNewline = - ({-# LINE 299 "src/GLua/AG/PrettyPrint.ag" #-} - _startsWithNewline - {-# LINE 5208 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 5213 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 5218 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 5223 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 5228 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 5233 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 5238 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIisAssociative,_hdIisLiteral,_hdIisMultiline,_hdIpos,_hdIprecedence,_hdIpretty) = - hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOparentOperatorAssociative _hdOparentOperatorPrecedence _hdOppconf - ( _tlIcomments,_tlIcopy,_tlIisAssociative,_tlIisLast,_tlIisMultiline,_tlIpos,_tlIprecedence,_tlIpretty,_tlIstartsWithNewline) = - tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOsomeElementsInListAreMultiline - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithNewline))) -sem_MExprList_Nil :: T_MExprList -sem_MExprList_Nil = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf - _lhsIsomeElementsInListAreMultiline -> - (let _lhsOpretty :: Doc - _lhsOpos :: Region - _lhsOisMultiline :: Bool - _lhsOisLast :: Bool - _lhsOstartsWithNewline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: MExprList - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 478 "src/GLua/AG/PrettyPrint.ag" #-} - empty - {-# LINE 5264 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpos = - ({-# LINE 479 "src/GLua/AG/PrettyPrint.ag" #-} - emptyRg - {-# LINE 5269 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 480 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 5274 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLast = - ({-# LINE 481 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 5279 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithNewline = - ({-# LINE 482 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 5284 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 5289 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 5294 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - [] - {-# LINE 5299 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 5304 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 5309 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithNewline))) --- MStat ------------------------------------------------------- --- cata -sem_MStat :: MStat -> - T_MStat -sem_MStat (MStat _pos _stat) = - (sem_MStat_MStat _pos (sem_Stat _stat)) --- semantic domain -type T_MStat = ([MToken]) -> - Bool -> - Int -> - Bool -> - PrettyPrintConfig -> - Bool -> - ( ([MToken]),MStat,Bool,Bool,Region,Doc,Bool,Int) -data Inh_MStat = Inh_MStat {comments_Inh_MStat :: ([MToken]),forceMultiline_Inh_MStat :: Bool,indent_Inh_MStat :: Int,isLastStatement_Inh_MStat :: Bool,ppconf_Inh_MStat :: PrettyPrintConfig,wouldBeAmbiguousWithoutSemicolon_Inh_MStat :: Bool} -data Syn_MStat = Syn_MStat {comments_Syn_MStat :: ([MToken]),copy_Syn_MStat :: MStat,endsWithPrefixExpression_Syn_MStat :: Bool,isMultiline_Syn_MStat :: Bool,pos_Syn_MStat :: Region,pretty_Syn_MStat :: Doc,startsWithExprPrefixExpression_Syn_MStat :: Bool,statementCount_Syn_MStat :: Int} -wrap_MStat :: T_MStat -> - Inh_MStat -> - Syn_MStat -wrap_MStat sem (Inh_MStat _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIwouldBeAmbiguousWithoutSemicolon) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIwouldBeAmbiguousWithoutSemicolon - in (Syn_MStat _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisMultiline _lhsOpos _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOstatementCount)) -sem_MStat_MStat :: Region -> - T_Stat -> - T_MStat -sem_MStat_MStat pos_ stat_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOpos :: Region - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _statOstatRegion :: Region - _statOwouldBeAmbiguousWithoutSemicolon :: Bool - _lhsOstatementCount :: Int - _lhsOcopy :: MStat - _lhsOcomments :: ([MToken]) - _lhsOpretty :: Doc - _statOcomments :: ([MToken]) - _statOforceMultiline :: Bool - _statOindent :: Int - _statOisLastStatement :: Bool - _statOppconf :: PrettyPrintConfig - _statIcomments :: ([MToken]) - _statIcopy :: Stat - _statIendsWithPrefixExpression :: Bool - _statIisMultiline :: Bool - _statIpretty :: Doc - _statIstartsWithExprPrefixExpression :: Bool - _lhsOpos = - ({-# LINE 413 "src/GLua/AG/PrettyPrint.ag" #-} - pos_ - {-# LINE 5368 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 414 "src/GLua/AG/PrettyPrint.ag" #-} - _statIstartsWithExprPrefixExpression - {-# LINE 5373 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 415 "src/GLua/AG/PrettyPrint.ag" #-} - _statIendsWithPrefixExpression - {-# LINE 5378 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 416 "src/GLua/AG/PrettyPrint.ag" #-} - _statIisMultiline - {-# LINE 5383 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _statOstatRegion = - ({-# LINE 417 "src/GLua/AG/PrettyPrint.ag" #-} - pos_ - {-# LINE 5388 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _statOwouldBeAmbiguousWithoutSemicolon = - ({-# LINE 418 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIwouldBeAmbiguousWithoutSemicolon - {-# LINE 5393 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstatementCount = - ({-# LINE 329 "src/GLua/AG/PrettyPrint.ag" #-} - 1 - {-# LINE 5398 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - MStat pos_ _statIcopy - {-# LINE 5403 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 5408 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _statIcomments - {-# LINE 5413 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpretty = - ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-} - _statIpretty - {-# LINE 5418 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _statOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 5423 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _statOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 5428 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _statOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 5433 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _statOisLastStatement = - ({-# LINE 312 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIisLastStatement - {-# LINE 5438 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _statOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 5443 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _statIcomments,_statIcopy,_statIendsWithPrefixExpression,_statIisMultiline,_statIpretty,_statIstartsWithExprPrefixExpression) = - stat_ _statOcomments _statOforceMultiline _statOindent _statOisLastStatement _statOppconf _statOstatRegion _statOwouldBeAmbiguousWithoutSemicolon - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount))) --- MStatList --------------------------------------------------- --- cata -sem_MStatList :: MStatList -> - T_MStatList -sem_MStatList list = - (Prelude.foldr sem_MStatList_Cons sem_MStatList_Nil (Prelude.map sem_MStat list)) --- semantic domain -type T_MStatList = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - Region -> - ( ([MToken]),MStatList,Bool,Bool,Doc,Bool,Int) -data Inh_MStatList = Inh_MStatList {comments_Inh_MStatList :: ([MToken]),forceMultiline_Inh_MStatList :: Bool,indent_Inh_MStatList :: Int,ppconf_Inh_MStatList :: PrettyPrintConfig,statRegion_Inh_MStatList :: Region} -data Syn_MStatList = Syn_MStatList {comments_Syn_MStatList :: ([MToken]),copy_Syn_MStatList :: MStatList,isLast_Syn_MStatList :: Bool,isMultiline_Syn_MStatList :: Bool,pretty_Syn_MStatList :: Doc,startsWithExprPrefixExpression_Syn_MStatList :: Bool,statementCount_Syn_MStatList :: Int} -wrap_MStatList :: T_MStatList -> - Inh_MStatList -> - Syn_MStatList -wrap_MStatList sem (Inh_MStatList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion - in (Syn_MStatList _lhsOcomments _lhsOcopy _lhsOisLast _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOstatementCount)) -sem_MStatList_Cons :: T_MStat -> - T_MStatList -> - T_MStatList -sem_MStatList_Cons hd_ tl_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOisLast :: Bool - _hdOcomments :: ([MToken]) - _tlOcomments :: ([MToken]) - _lhsOcomments :: ([MToken]) - _hdOisLastStatement :: Bool - _hdOwouldBeAmbiguousWithoutSemicolon :: Bool - _hdOforceMultiline :: Bool - _lhsOstatementCount :: Int - _lhsOcopy :: MStatList - _lhsOisMultiline :: Bool - _hdOindent :: Int - _hdOppconf :: PrettyPrintConfig - _tlOforceMultiline :: Bool - _tlOindent :: Int - _tlOppconf :: PrettyPrintConfig - _tlOstatRegion :: Region - _hdIcomments :: ([MToken]) - _hdIcopy :: MStat - _hdIendsWithPrefixExpression :: Bool - _hdIisMultiline :: Bool - _hdIpos :: Region - _hdIpretty :: Doc - _hdIstartsWithExprPrefixExpression :: Bool - _hdIstatementCount :: Int - _tlIcomments :: ([MToken]) - _tlIcopy :: MStatList - _tlIisLast :: Bool - _tlIisMultiline :: Bool - _tlIpretty :: Doc - _tlIstartsWithExprPrefixExpression :: Bool - _tlIstatementCount :: Int - _lhsOpretty = - ({-# LINE 372 "src/GLua/AG/PrettyPrint.ag" #-} - renderMLComments _lhsIppconf _lhsIindent (fst _commentsBeforeLine ) - $+$ indent _lhsIppconf _lhsIindent _hdIpretty - <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter ) - <> _addNewline - $+$ _tlIpretty - {-# LINE 5518 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 378 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIstartsWithExprPrefixExpression - {-# LINE 5523 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLast = - ({-# LINE 379 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 5528 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _isMultiline = - ({-# LINE 381 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIisMultiline - || _tlIisMultiline - || not (null $ fst _commentsBeforeLine ) - || not (null $ fst _commentsAfter ) - {-# LINE 5536 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _addNewline = - ({-# LINE 386 "src/GLua/AG/PrettyPrint.ag" #-} - if not _tlIisLast && _hdIisMultiline then zchr '\n' else empty - {-# LINE 5541 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsBeforeLine = - ({-# LINE 389 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos' _) -> pos' `before` _hdIpos) _lhsIcomments - {-# LINE 5546 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOcomments = - ({-# LINE 390 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsBeforeLine - {-# LINE 5551 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsAfter = - ({-# LINE 391 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos' _) -> pos' `beforeOrOnLine` _hdIpos) _hdIcomments - {-# LINE 5556 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOcomments = - ({-# LINE 392 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsAfter - {-# LINE 5561 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 393 "src/GLua/AG/PrettyPrint.ag" #-} - _tlIcomments - {-# LINE 5566 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOisLastStatement = - ({-# LINE 395 "src/GLua/AG/PrettyPrint.ag" #-} - _tlIisLast - {-# LINE 5571 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOwouldBeAmbiguousWithoutSemicolon = - ({-# LINE 401 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIendsWithPrefixExpression && _tlIstartsWithExprPrefixExpression - {-# LINE 5576 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOforceMultiline = - ({-# LINE 403 "src/GLua/AG/PrettyPrint.ag" #-} - commentsForceMultiline $ fst _commentsBeforeLine - {-# LINE 5581 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstatementCount = - ({-# LINE 329 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIstatementCount + _tlIstatementCount - {-# LINE 5586 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 5591 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 5596 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-} - _isMultiline - {-# LINE 5601 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 5606 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 5611 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 5616 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 5621 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 5626 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOstatRegion = - ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIstatRegion - {-# LINE 5631 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIisMultiline,_hdIpos,_hdIpretty,_hdIstartsWithExprPrefixExpression,_hdIstatementCount) = - hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOisLastStatement _hdOppconf _hdOwouldBeAmbiguousWithoutSemicolon - ( _tlIcomments,_tlIcopy,_tlIisLast,_tlIisMultiline,_tlIpretty,_tlIstartsWithExprPrefixExpression,_tlIstatementCount) = - tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOstatRegion - in ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount))) -sem_MStatList_Nil :: T_MStatList -sem_MStatList_Nil = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf - _lhsIstatRegion -> - (let _lhsOpretty :: Doc - _lhsOstatementCount :: Int - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOisLast :: Bool - _lhsOcopy :: MStatList - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 405 "src/GLua/AG/PrettyPrint.ag" #-} - empty - {-# LINE 5655 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstatementCount = - ({-# LINE 406 "src/GLua/AG/PrettyPrint.ag" #-} - 0 - {-# LINE 5660 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 407 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 5665 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 408 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 5670 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLast = - ({-# LINE 409 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 5675 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - [] - {-# LINE 5680 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 5685 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 5690 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount))) --- MaybeMExpr -------------------------------------------------- --- cata -sem_MaybeMExpr :: MaybeMExpr -> - T_MaybeMExpr -sem_MaybeMExpr (Prelude.Just x) = - (sem_MaybeMExpr_Just (sem_MExpr x)) -sem_MaybeMExpr Prelude.Nothing = - sem_MaybeMExpr_Nothing --- semantic domain -type T_MaybeMExpr = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - ( ([MToken]),MaybeMExpr,Bool,Bool,Bool,Bool,OperatorLevel,Doc) -data Inh_MaybeMExpr = Inh_MaybeMExpr {comments_Inh_MaybeMExpr :: ([MToken]),forceMultiline_Inh_MaybeMExpr :: Bool,indent_Inh_MaybeMExpr :: Int,ppconf_Inh_MaybeMExpr :: PrettyPrintConfig} -data Syn_MaybeMExpr = Syn_MaybeMExpr {comments_Syn_MaybeMExpr :: ([MToken]),copy_Syn_MaybeMExpr :: MaybeMExpr,endsWithPrefixExpression_Syn_MaybeMExpr :: Bool,isAssociative_Syn_MaybeMExpr :: Bool,isDefined_Syn_MaybeMExpr :: Bool,isMultiline_Syn_MaybeMExpr :: Bool,precedence_Syn_MaybeMExpr :: OperatorLevel,pretty_Syn_MaybeMExpr :: Doc} -wrap_MaybeMExpr :: T_MaybeMExpr -> - Inh_MaybeMExpr -> - Syn_MaybeMExpr -wrap_MaybeMExpr sem (Inh_MaybeMExpr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf - in (Syn_MaybeMExpr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisDefined _lhsOisMultiline _lhsOprecedence _lhsOpretty)) -sem_MaybeMExpr_Just :: T_MExpr -> - T_MaybeMExpr -sem_MaybeMExpr_Just just_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisDefined :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _justOparentOperatorPrecedence :: OperatorLevel - _justOparentOperatorAssociative :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: MaybeMExpr - _lhsOcomments :: ([MToken]) - _justOcomments :: ([MToken]) - _justOforceMultiline :: Bool - _justOindent :: Int - _justOppconf :: PrettyPrintConfig - _justIcomments :: ([MToken]) - _justIcopy :: MExpr - _justIendsWithPrefixExpression :: Bool - _justIisAssociative :: Bool - _justIisLiteral :: Bool - _justIisMultiline :: Bool - _justIpos :: Region - _justIprecedence :: OperatorLevel - _justIpretty :: Doc - _lhsOpretty = - ({-# LINE 526 "src/GLua/AG/PrettyPrint.ag" #-} - _justIpretty - {-# LINE 5748 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisDefined = - ({-# LINE 527 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 5753 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 528 "src/GLua/AG/PrettyPrint.ag" #-} - _justIendsWithPrefixExpression - {-# LINE 5758 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 529 "src/GLua/AG/PrettyPrint.ag" #-} - _justIisMultiline - {-# LINE 5763 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _justOparentOperatorPrecedence = - ({-# LINE 530 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 5768 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _justOparentOperatorAssociative = - ({-# LINE 531 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 5773 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - _justIisAssociative - {-# LINE 5778 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - _justIprecedence - {-# LINE 5783 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - Just _justIcopy - {-# LINE 5788 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 5793 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _justIcomments - {-# LINE 5798 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _justOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 5803 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _justOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 5808 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _justOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 5813 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _justOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 5818 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _justIcomments,_justIcopy,_justIendsWithPrefixExpression,_justIisAssociative,_justIisLiteral,_justIisMultiline,_justIpos,_justIprecedence,_justIpretty) = - just_ _justOcomments _justOforceMultiline _justOindent _justOparentOperatorAssociative _justOparentOperatorPrecedence _justOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_MaybeMExpr_Nothing :: T_MaybeMExpr -sem_MaybeMExpr_Nothing = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisDefined :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: MaybeMExpr - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 533 "src/GLua/AG/PrettyPrint.ag" #-} - empty - {-# LINE 5840 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisDefined = - ({-# LINE 534 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 5845 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 535 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 5850 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 536 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 5855 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 5860 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 5865 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - Nothing - {-# LINE 5870 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 5875 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 5880 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) --- PFExprSuffix ------------------------------------------------ --- cata -sem_PFExprSuffix :: PFExprSuffix -> - T_PFExprSuffix -sem_PFExprSuffix (Call _args) = - (sem_PFExprSuffix_Call (sem_Args _args)) -sem_PFExprSuffix (MetaCall _fn _args) = - (sem_PFExprSuffix_MetaCall _fn (sem_Args _args)) -sem_PFExprSuffix (ExprIndex _index) = - (sem_PFExprSuffix_ExprIndex (sem_MExpr _index)) -sem_PFExprSuffix (DotIndex _index) = - (sem_PFExprSuffix_DotIndex _index) --- semantic domain -type T_PFExprSuffix = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - ( ([MToken]),PFExprSuffix,Bool,Bool,OperatorLevel,Doc) -data Inh_PFExprSuffix = Inh_PFExprSuffix {comments_Inh_PFExprSuffix :: ([MToken]),forceMultiline_Inh_PFExprSuffix :: Bool,indent_Inh_PFExprSuffix :: Int,ppconf_Inh_PFExprSuffix :: PrettyPrintConfig} -data Syn_PFExprSuffix = Syn_PFExprSuffix {comments_Syn_PFExprSuffix :: ([MToken]),copy_Syn_PFExprSuffix :: PFExprSuffix,isAssociative_Syn_PFExprSuffix :: Bool,isMultiline_Syn_PFExprSuffix :: Bool,precedence_Syn_PFExprSuffix :: OperatorLevel,pretty_Syn_PFExprSuffix :: Doc} -wrap_PFExprSuffix :: T_PFExprSuffix -> - Inh_PFExprSuffix -> - Syn_PFExprSuffix -wrap_PFExprSuffix sem (Inh_PFExprSuffix _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf - in (Syn_PFExprSuffix _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty)) -sem_PFExprSuffix_Call :: T_Args -> - T_PFExprSuffix -sem_PFExprSuffix_Call args_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: PFExprSuffix - _lhsOcomments :: ([MToken]) - _argsOcomments :: ([MToken]) - _argsOforceMultiline :: Bool - _argsOindent :: Int - _argsOppconf :: PrettyPrintConfig - _argsIcomments :: ([MToken]) - _argsIcopy :: Args - _argsIisMultiline :: Bool - _argsIpretty :: Doc - _lhsOpretty = - ({-# LINE 977 "src/GLua/AG/PrettyPrint.ag" #-} - _argsIpretty - {-# LINE 5933 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 978 "src/GLua/AG/PrettyPrint.ag" #-} - _argsIisMultiline - {-# LINE 5938 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 5943 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 5948 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - Call _argsIcopy - {-# LINE 5953 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 5958 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _argsIcomments - {-# LINE 5963 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 5968 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argsOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 5973 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argsOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 5978 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argsOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 5983 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _argsIcomments,_argsIcopy,_argsIisMultiline,_argsIpretty) = - args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_PFExprSuffix_MetaCall :: MToken -> - T_Args -> - T_PFExprSuffix -sem_PFExprSuffix_MetaCall fn_ args_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: PFExprSuffix - _lhsOcomments :: ([MToken]) - _argsOcomments :: ([MToken]) - _argsOforceMultiline :: Bool - _argsOindent :: Int - _argsOppconf :: PrettyPrintConfig - _argsIcomments :: ([MToken]) - _argsIcopy :: Args - _argsIisMultiline :: Bool - _argsIpretty :: Doc - _lhsOpretty = - ({-# LINE 980 "src/GLua/AG/PrettyPrint.ag" #-} - zchr ':' <> tok fn_ <> _argsIpretty - {-# LINE 6013 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 981 "src/GLua/AG/PrettyPrint.ag" #-} - _argsIisMultiline - {-# LINE 6018 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6023 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 6028 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - MetaCall fn_ _argsIcopy - {-# LINE 6033 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 6038 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _argsIcomments - {-# LINE 6043 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 6048 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argsOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 6053 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argsOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 6058 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _argsOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 6063 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _argsIcomments,_argsIcopy,_argsIisMultiline,_argsIpretty) = - args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_PFExprSuffix_ExprIndex :: T_MExpr -> - T_PFExprSuffix -sem_PFExprSuffix_ExprIndex index_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _indexOparentOperatorPrecedence :: OperatorLevel - _indexOparentOperatorAssociative :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: PFExprSuffix - _lhsOcomments :: ([MToken]) - _indexOcomments :: ([MToken]) - _indexOforceMultiline :: Bool - _indexOindent :: Int - _indexOppconf :: PrettyPrintConfig - _indexIcomments :: ([MToken]) - _indexIcopy :: MExpr - _indexIendsWithPrefixExpression :: Bool - _indexIisAssociative :: Bool - _indexIisLiteral :: Bool - _indexIisMultiline :: Bool - _indexIpos :: Region - _indexIprecedence :: OperatorLevel - _indexIpretty :: Doc - _lhsOpretty = - ({-# LINE 983 "src/GLua/AG/PrettyPrint.ag" #-} - brackets _lhsIppconf _indexIpretty - {-# LINE 6099 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 984 "src/GLua/AG/PrettyPrint.ag" #-} - _indexIisMultiline - {-# LINE 6104 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _indexOparentOperatorPrecedence = - ({-# LINE 985 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 6109 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _indexOparentOperatorAssociative = - ({-# LINE 986 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 6114 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - _indexIisAssociative - {-# LINE 6119 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - _indexIprecedence - {-# LINE 6124 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ExprIndex _indexIcopy - {-# LINE 6129 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 6134 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _indexIcomments - {-# LINE 6139 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _indexOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 6144 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _indexOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 6149 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _indexOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 6154 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _indexOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 6159 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _indexIcomments,_indexIcopy,_indexIendsWithPrefixExpression,_indexIisAssociative,_indexIisLiteral,_indexIisMultiline,_indexIpos,_indexIprecedence,_indexIpretty) = - index_ _indexOcomments _indexOforceMultiline _indexOindent _indexOparentOperatorAssociative _indexOparentOperatorPrecedence _indexOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) -sem_PFExprSuffix_DotIndex :: MToken -> - T_PFExprSuffix -sem_PFExprSuffix_DotIndex index_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: PFExprSuffix - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 988 "src/GLua/AG/PrettyPrint.ag" #-} - zchr '.' <> tok index_ - {-# LINE 6180 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 989 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6185 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6190 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - OperatorLevel8 - {-# LINE 6195 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - DotIndex index_ - {-# LINE 6200 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 6205 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 6210 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) --- PrefixExp --------------------------------------------------- --- cata -sem_PrefixExp :: PrefixExp -> - T_PrefixExp -sem_PrefixExp (PFVar _name _suffixes) = - (sem_PrefixExp_PFVar _name (sem_ExprSuffixList _suffixes)) -sem_PrefixExp (ExprVar _expr _suffixes) = - (sem_PrefixExp_ExprVar (sem_MExpr _expr) (sem_ExprSuffixList _suffixes)) --- semantic domain -type T_PrefixExp = ([MToken]) -> - Bool -> - Int -> - Bool -> - OperatorLevel -> - PrettyPrintConfig -> - ( ([MToken]),PrefixExp,Bool,Bool,Bool,OperatorLevel,Doc,Bool) -data Inh_PrefixExp = Inh_PrefixExp {comments_Inh_PrefixExp :: ([MToken]),forceMultiline_Inh_PrefixExp :: Bool,indent_Inh_PrefixExp :: Int,parentOperatorAssociative_Inh_PrefixExp :: Bool,parentOperatorPrecedence_Inh_PrefixExp :: OperatorLevel,ppconf_Inh_PrefixExp :: PrettyPrintConfig} -data Syn_PrefixExp = Syn_PrefixExp {comments_Syn_PrefixExp :: ([MToken]),copy_Syn_PrefixExp :: PrefixExp,isAssociative_Syn_PrefixExp :: Bool,isLiteral_Syn_PrefixExp :: Bool,isMultiline_Syn_PrefixExp :: Bool,precedence_Syn_PrefixExp :: OperatorLevel,pretty_Syn_PrefixExp :: Doc,startsWithExprPrefixExpression_Syn_PrefixExp :: Bool} -wrap_PrefixExp :: T_PrefixExp -> - Inh_PrefixExp -> - Syn_PrefixExp -wrap_PrefixExp sem (Inh_PrefixExp _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf - in (Syn_PrefixExp _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOprecedence _lhsOpretty _lhsOstartsWithExprPrefixExpression)) -sem_PrefixExp_PFVar :: MToken -> - T_ExprSuffixList -> - T_PrefixExp -sem_PrefixExp_PFVar name_ suffixes_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIparentOperatorAssociative - _lhsIparentOperatorPrecedence - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisLiteral :: Bool - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOprecedence :: OperatorLevel - _lhsOcopy :: PrefixExp - _lhsOcomments :: ([MToken]) - _suffixesOcomments :: ([MToken]) - _suffixesOforceMultiline :: Bool - _suffixesOindent :: Int - _suffixesOppconf :: PrettyPrintConfig - _suffixesIcomments :: ([MToken]) - _suffixesIcopy :: ExprSuffixList - _suffixesIisAssociative :: Bool - _suffixesIisMultiline :: Bool - _suffixesIprecedence :: OperatorLevel - _suffixesIpretty :: Doc - _lhsOpretty = - ({-# LINE 924 "src/GLua/AG/PrettyPrint.ag" #-} - tok name_ <> _suffixesIpretty - {-# LINE 6268 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLiteral = - ({-# LINE 925 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6273 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 926 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6278 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 927 "src/GLua/AG/PrettyPrint.ag" #-} - _suffixesIisMultiline - {-# LINE 6283 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - _suffixesIisAssociative - {-# LINE 6288 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-} - _suffixesIprecedence - {-# LINE 6293 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - PFVar name_ _suffixesIcopy - {-# LINE 6298 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 6303 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _suffixesIcomments - {-# LINE 6308 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _suffixesOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 6313 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _suffixesOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 6318 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _suffixesOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 6323 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _suffixesOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 6328 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _suffixesIcomments,_suffixesIcopy,_suffixesIisAssociative,_suffixesIisMultiline,_suffixesIprecedence,_suffixesIpretty) = - suffixes_ _suffixesOcomments _suffixesOforceMultiline _suffixesOindent _suffixesOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_PrefixExp_ExprVar :: T_MExpr -> - T_ExprSuffixList -> - T_PrefixExp -sem_PrefixExp_ExprVar expr_ suffixes_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIparentOperatorAssociative - _lhsIparentOperatorPrecedence - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOprecedence :: OperatorLevel - _lhsOisLiteral :: Bool - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOisAssociative :: Bool - _lhsOcopy :: PrefixExp - _lhsOcomments :: ([MToken]) - _exprOcomments :: ([MToken]) - _exprOforceMultiline :: Bool - _exprOindent :: Int - _exprOparentOperatorAssociative :: Bool - _exprOparentOperatorPrecedence :: OperatorLevel - _exprOppconf :: PrettyPrintConfig - _suffixesOcomments :: ([MToken]) - _suffixesOforceMultiline :: Bool - _suffixesOindent :: Int - _suffixesOppconf :: PrettyPrintConfig - _exprIcomments :: ([MToken]) - _exprIcopy :: MExpr - _exprIendsWithPrefixExpression :: Bool - _exprIisAssociative :: Bool - _exprIisLiteral :: Bool - _exprIisMultiline :: Bool - _exprIpos :: Region - _exprIprecedence :: OperatorLevel - _exprIpretty :: Doc - _suffixesIcomments :: ([MToken]) - _suffixesIcopy :: ExprSuffixList - _suffixesIisAssociative :: Bool - _suffixesIisMultiline :: Bool - _suffixesIprecedence :: OperatorLevel - _suffixesIpretty :: Doc - _lhsOpretty = - ({-# LINE 929 "src/GLua/AG/PrettyPrint.ag" #-} - (if _noparens then _exprIpretty else parens _lhsIppconf NonEmpty _exprIpretty) - <> _suffixesIpretty - {-# LINE 6380 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOprecedence = - ({-# LINE 932 "src/GLua/AG/PrettyPrint.ag" #-} - if _noparens then _exprIprecedence else OperatorLevel8 - {-# LINE 6385 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLiteral = - ({-# LINE 933 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6390 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 934 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 6395 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 935 "src/GLua/AG/PrettyPrint.ag" #-} - _exprIisMultiline || _suffixesIisMultiline - {-# LINE 6400 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _containsParenthesizedExpr = - ({-# LINE 939 "src/GLua/AG/PrettyPrint.ag" #-} - case _exprIcopy of - MExpr _ (APrefixExpr (ExprVar (MExpr _ AVarArg) _)) -> False - MExpr _ (APrefixExpr _) -> True - _ -> False - {-# LINE 6408 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _noparens = - ({-# LINE 945 "src/GLua/AG/PrettyPrint.ag" #-} - (removeRedundantParens _lhsIppconf || minimizeParens _lhsIppconf) - && (_containsParenthesizedExpr - || (_lhsIparentOperatorPrecedence == TopLevelExpression || _exprIisLiteral) - && length _suffixesIcopy == 0 - ) - || (minimizeParens _lhsIppconf && length _suffixesIcopy == 0 - && ( _lhsIparentOperatorPrecedence < _exprIprecedence - || assumeOperatorAssociativity _lhsIppconf - && _lhsIparentOperatorPrecedence == _exprIprecedence - && _lhsIparentOperatorAssociative - ) - ) - {-# LINE 6424 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisAssociative = - ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} - _exprIisAssociative && _suffixesIisAssociative - {-# LINE 6429 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ExprVar _exprIcopy _suffixesIcopy - {-# LINE 6434 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 6439 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _suffixesIcomments - {-# LINE 6444 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _exprOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 6449 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _exprOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 6454 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _exprOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 6459 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _exprOparentOperatorAssociative = - ({-# LINE 275 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIparentOperatorAssociative - {-# LINE 6464 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _exprOparentOperatorPrecedence = - ({-# LINE 274 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIparentOperatorPrecedence - {-# LINE 6469 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _exprOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 6474 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _suffixesOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _exprIcomments - {-# LINE 6479 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _suffixesOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 6484 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _suffixesOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 6489 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _suffixesOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 6494 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _exprIcomments,_exprIcopy,_exprIendsWithPrefixExpression,_exprIisAssociative,_exprIisLiteral,_exprIisMultiline,_exprIpos,_exprIprecedence,_exprIpretty) = - expr_ _exprOcomments _exprOforceMultiline _exprOindent _exprOparentOperatorAssociative _exprOparentOperatorPrecedence _exprOppconf - ( _suffixesIcomments,_suffixesIcopy,_suffixesIisAssociative,_suffixesIisMultiline,_suffixesIprecedence,_suffixesIpretty) = - suffixes_ _suffixesOcomments _suffixesOforceMultiline _suffixesOindent _suffixesOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) --- Stat -------------------------------------------------------- --- cata -sem_Stat :: Stat -> - T_Stat -sem_Stat (Def _vars) = - (sem_Stat_Def (sem_VarsList _vars)) -sem_Stat (LocDef _vars) = - (sem_Stat_LocDef (sem_VarsList _vars)) -sem_Stat (AFuncCall _fn) = - (sem_Stat_AFuncCall (sem_PrefixExp _fn)) -sem_Stat (ALabel _lbl) = - (sem_Stat_ALabel _lbl) -sem_Stat (ABreak) = - (sem_Stat_ABreak) -sem_Stat (AContinue) = - (sem_Stat_AContinue) -sem_Stat (AGoto _lbl) = - (sem_Stat_AGoto _lbl) -sem_Stat (ADo _body) = - (sem_Stat_ADo (sem_Block _body)) -sem_Stat (AWhile _cond _body) = - (sem_Stat_AWhile (sem_MExpr _cond) (sem_Block _body)) -sem_Stat (ARepeat _body _cond) = - (sem_Stat_ARepeat (sem_Block _body) (sem_MExpr _cond)) -sem_Stat (AIf _cond _body _elifs _els) = - (sem_Stat_AIf (sem_MExpr _cond) (sem_Block _body) (sem_ElseIfList _elifs) (sem_Else _els)) -sem_Stat (ANFor _var _val _to _step _body) = - (sem_Stat_ANFor _var (sem_MExpr _val) (sem_MExpr _to) (sem_MExpr _step) (sem_Block _body)) -sem_Stat (AGFor _vars _vals _body) = - (sem_Stat_AGFor _vars (sem_MExprList _vals) (sem_Block _body)) -sem_Stat (AFunc _name _args _body) = - (sem_Stat_AFunc (sem_FuncName _name) _args (sem_Block _body)) -sem_Stat (ALocFunc _name _args _body) = - (sem_Stat_ALocFunc (sem_FuncName _name) _args (sem_Block _body)) --- semantic domain -type T_Stat = ([MToken]) -> - Bool -> - Int -> - Bool -> - PrettyPrintConfig -> - Region -> - Bool -> - ( ([MToken]),Stat,Bool,Bool,Doc,Bool) -data Inh_Stat = Inh_Stat {comments_Inh_Stat :: ([MToken]),forceMultiline_Inh_Stat :: Bool,indent_Inh_Stat :: Int,isLastStatement_Inh_Stat :: Bool,ppconf_Inh_Stat :: PrettyPrintConfig,statRegion_Inh_Stat :: Region,wouldBeAmbiguousWithoutSemicolon_Inh_Stat :: Bool} -data Syn_Stat = Syn_Stat {comments_Syn_Stat :: ([MToken]),copy_Syn_Stat :: Stat,endsWithPrefixExpression_Syn_Stat :: Bool,isMultiline_Syn_Stat :: Bool,pretty_Syn_Stat :: Doc,startsWithExprPrefixExpression_Syn_Stat :: Bool} -wrap_Stat :: T_Stat -> - Inh_Stat -> - Syn_Stat -wrap_Stat sem (Inh_Stat _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIstatRegion _lhsIwouldBeAmbiguousWithoutSemicolon) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIstatRegion _lhsIwouldBeAmbiguousWithoutSemicolon - in (Syn_Stat _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression)) -sem_Stat_Def :: T_VarsList -> - T_Stat -sem_Stat_Def vars_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOpretty :: Doc - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _varsOcomments :: ([MToken]) - _varsOforceMultiline :: Bool - _varsOindent :: Int - _varsOppconf :: PrettyPrintConfig - _varsIcomments :: ([MToken]) - _varsIcopy :: VarsList - _varsIendsWithPrefixExpression :: Bool - _varsIexprPretty :: Doc - _varsIisDefined :: Bool - _varsIisLast :: Bool - _varsIisMultiline :: Bool - _varsIpretty :: Doc - _varsIstartsWithExprPrefixExpression :: Bool - _varsIvarPretty :: Doc - _lhsOpretty = - ({-# LINE 661 "src/GLua/AG/PrettyPrint.ag" #-} - _varsIpretty <> _semicolon - {-# LINE 6585 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 662 "src/GLua/AG/PrettyPrint.ag" #-} - _varsIstartsWithExprPrefixExpression - {-# LINE 6590 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 663 "src/GLua/AG/PrettyPrint.ag" #-} - _varsIendsWithPrefixExpression - {-# LINE 6595 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 664 "src/GLua/AG/PrettyPrint.ag" #-} - _varsIisMultiline - {-# LINE 6600 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _semicolon = - ({-# LINE 665 "src/GLua/AG/PrettyPrint.ag" #-} - if semicolons _lhsIppconf || _lhsIwouldBeAmbiguousWithoutSemicolon - then zchr ';' - else empty - {-# LINE 6607 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - Def _varsIcopy - {-# LINE 6612 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 6617 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _varsIcomments - {-# LINE 6622 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _varsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 6627 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _varsOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 6632 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _varsOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 6637 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _varsOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 6642 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _varsIcomments,_varsIcopy,_varsIendsWithPrefixExpression,_varsIexprPretty,_varsIisDefined,_varsIisLast,_varsIisMultiline,_varsIpretty,_varsIstartsWithExprPrefixExpression,_varsIvarPretty) = - vars_ _varsOcomments _varsOforceMultiline _varsOindent _varsOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_Stat_LocDef :: T_VarsList -> - T_Stat -sem_Stat_LocDef vars_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOpretty :: Doc - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _varsOcomments :: ([MToken]) - _varsOforceMultiline :: Bool - _varsOindent :: Int - _varsOppconf :: PrettyPrintConfig - _varsIcomments :: ([MToken]) - _varsIcopy :: VarsList - _varsIendsWithPrefixExpression :: Bool - _varsIexprPretty :: Doc - _varsIisDefined :: Bool - _varsIisLast :: Bool - _varsIisMultiline :: Bool - _varsIpretty :: Doc - _varsIstartsWithExprPrefixExpression :: Bool - _varsIvarPretty :: Doc - _lhsOpretty = - ({-# LINE 670 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "local" <-> _varsIpretty <> _semicolon - {-# LINE 6680 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 671 "src/GLua/AG/PrettyPrint.ag" #-} - _varsIstartsWithExprPrefixExpression - {-# LINE 6685 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 672 "src/GLua/AG/PrettyPrint.ag" #-} - _varsIendsWithPrefixExpression - {-# LINE 6690 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 673 "src/GLua/AG/PrettyPrint.ag" #-} - _varsIisMultiline - {-# LINE 6695 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _semicolon = - ({-# LINE 674 "src/GLua/AG/PrettyPrint.ag" #-} - if semicolons _lhsIppconf || _lhsIwouldBeAmbiguousWithoutSemicolon - then zchr ';' - else empty - {-# LINE 6702 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - LocDef _varsIcopy - {-# LINE 6707 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 6712 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _varsIcomments - {-# LINE 6717 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _varsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 6722 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _varsOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 6727 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _varsOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 6732 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _varsOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 6737 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _varsIcomments,_varsIcopy,_varsIendsWithPrefixExpression,_varsIexprPretty,_varsIisDefined,_varsIisLast,_varsIisMultiline,_varsIpretty,_varsIstartsWithExprPrefixExpression,_varsIvarPretty) = - vars_ _varsOcomments _varsOforceMultiline _varsOindent _varsOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_Stat_AFuncCall :: T_PrefixExp -> - T_Stat -sem_Stat_AFuncCall fn_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _fnOparentOperatorPrecedence :: OperatorLevel - _fnOparentOperatorAssociative :: Bool - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _fnOcomments :: ([MToken]) - _fnOforceMultiline :: Bool - _fnOindent :: Int - _fnOppconf :: PrettyPrintConfig - _fnIcomments :: ([MToken]) - _fnIcopy :: PrefixExp - _fnIisAssociative :: Bool - _fnIisLiteral :: Bool - _fnIisMultiline :: Bool - _fnIprecedence :: OperatorLevel - _fnIpretty :: Doc - _fnIstartsWithExprPrefixExpression :: Bool - _lhsOpretty = - ({-# LINE 679 "src/GLua/AG/PrettyPrint.ag" #-} - _fnIpretty <> _semicolon - {-# LINE 6775 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 680 "src/GLua/AG/PrettyPrint.ag" #-} - _fnIisMultiline - {-# LINE 6780 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _semicolon = - ({-# LINE 681 "src/GLua/AG/PrettyPrint.ag" #-} - if semicolons _lhsIppconf then zchr ';' else empty - {-# LINE 6785 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 682 "src/GLua/AG/PrettyPrint.ag" #-} - _fnIstartsWithExprPrefixExpression - {-# LINE 6790 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 683 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 6795 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _fnOparentOperatorPrecedence = - ({-# LINE 684 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 6800 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _fnOparentOperatorAssociative = - ({-# LINE 685 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 6805 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AFuncCall _fnIcopy - {-# LINE 6810 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 6815 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _fnIcomments - {-# LINE 6820 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _fnOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 6825 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _fnOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 6830 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _fnOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 6835 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _fnOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 6840 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _fnIcomments,_fnIcopy,_fnIisAssociative,_fnIisLiteral,_fnIisMultiline,_fnIprecedence,_fnIpretty,_fnIstartsWithExprPrefixExpression) = - fn_ _fnOcomments _fnOforceMultiline _fnOindent _fnOparentOperatorAssociative _fnOparentOperatorPrecedence _fnOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_Stat_ALabel :: MToken -> - T_Stat -sem_Stat_ALabel lbl_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOpretty :: Doc - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 687 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "::" - <> _whitespace - <> tok lbl_ - <> _whitespace - <> zeroWidthText "::" - {-# LINE 6868 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 693 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6873 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 694 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6878 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 695 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6883 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _whitespace = - ({-# LINE 696 "src/GLua/AG/PrettyPrint.ag" #-} - if spaceAfterLabel _lhsIppconf then zeroWidthText " " else empty - {-# LINE 6888 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ALabel lbl_ - {-# LINE 6893 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 6898 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 6903 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_Stat_ABreak :: T_Stat -sem_Stat_ABreak = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOpretty :: Doc - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 698 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "break" <> _semicolon - {-# LINE 6924 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 699 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6929 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 700 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6934 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 701 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6939 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _semicolon = - ({-# LINE 702 "src/GLua/AG/PrettyPrint.ag" #-} - if semicolons _lhsIppconf then zchr ';' else empty - {-# LINE 6944 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ABreak - {-# LINE 6949 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 6954 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 6959 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_Stat_AContinue :: T_Stat -sem_Stat_AContinue = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOpretty :: Doc - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 704 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "continue" <> _semicolon - {-# LINE 6980 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 705 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6985 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 706 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6990 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 707 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 6995 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _semicolon = - ({-# LINE 708 "src/GLua/AG/PrettyPrint.ag" #-} - if semicolons _lhsIppconf then zchr ';' else empty - {-# LINE 7000 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AContinue - {-# LINE 7005 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 7010 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 7015 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_Stat_AGoto :: MToken -> - T_Stat -sem_Stat_AGoto lbl_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOpretty :: Doc - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 710 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "goto" <-> tok lbl_ <> _semicolon - {-# LINE 7037 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 711 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 7042 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 712 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 7047 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 713 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 7052 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _semicolon = - ({-# LINE 714 "src/GLua/AG/PrettyPrint.ag" #-} - if semicolons _lhsIppconf then zchr ';' else empty - {-# LINE 7057 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AGoto lbl_ - {-# LINE 7062 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 7067 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 7072 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_Stat_ADo :: T_Block -> - T_Stat -sem_Stat_ADo body_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOisMultiline :: Bool - _lhsOpretty :: Doc - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _bodyOindent :: Int - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _bodyOcomments :: ([MToken]) - _bodyOforceMultiline :: Bool - _bodyOppconf :: PrettyPrintConfig - _bodyOstatRegion :: Region - _bodyIcomments :: ([MToken]) - _bodyIcopy :: Block - _bodyIisMultiline :: Bool - _bodyIpos :: Region - _bodyIpretty :: Doc - _bodyIstatementCount :: Int - _lhsOisMultiline = - ({-# LINE 716 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 7105 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpretty = - ({-# LINE 717 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "do" - $+$ _bodyIpretty - $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") - {-# LINE 7112 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 721 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 7117 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 722 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 7122 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOindent = - ({-# LINE 723 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent + 1 - {-# LINE 7127 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ADo _bodyIcopy - {-# LINE 7132 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 7137 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _bodyIcomments - {-# LINE 7142 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 7147 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 7152 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 7157 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOstatRegion = - ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIstatRegion - {-# LINE 7162 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = - body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_Stat_AWhile :: T_MExpr -> - T_Block -> - T_Stat -sem_Stat_AWhile cond_ body_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOisMultiline :: Bool - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _condOparentOperatorPrecedence :: OperatorLevel - _condOparentOperatorAssociative :: Bool - _lhsOpretty :: Doc - _bodyOindent :: Int - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _condOcomments :: ([MToken]) - _condOforceMultiline :: Bool - _condOindent :: Int - _condOppconf :: PrettyPrintConfig - _bodyOcomments :: ([MToken]) - _bodyOforceMultiline :: Bool - _bodyOppconf :: PrettyPrintConfig - _bodyOstatRegion :: Region - _condIcomments :: ([MToken]) - _condIcopy :: MExpr - _condIendsWithPrefixExpression :: Bool - _condIisAssociative :: Bool - _condIisLiteral :: Bool - _condIisMultiline :: Bool - _condIpos :: Region - _condIprecedence :: OperatorLevel - _condIpretty :: Doc - _bodyIcomments :: ([MToken]) - _bodyIcopy :: Block - _bodyIisMultiline :: Bool - _bodyIpos :: Region - _bodyIpretty :: Doc - _bodyIstatementCount :: Int - _lhsOisMultiline = - ({-# LINE 725 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 7213 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 726 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 7218 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 727 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 7223 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOparentOperatorPrecedence = - ({-# LINE 728 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 7228 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOparentOperatorAssociative = - ({-# LINE 729 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 7233 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpretty = - ({-# LINE 730 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "while" - <-> _condIpretty - <-> zeroWidthText "do" - $+$ _bodyIpretty - $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") - {-# LINE 7242 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOindent = - ({-# LINE 736 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent + 1 - {-# LINE 7247 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AWhile _condIcopy _bodyIcopy - {-# LINE 7252 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 7257 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _bodyIcomments - {-# LINE 7262 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 7267 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 7272 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 7277 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 7282 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _condIcomments - {-# LINE 7287 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 7292 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 7297 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOstatRegion = - ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIstatRegion - {-# LINE 7302 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) = - cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf - ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = - body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_Stat_ARepeat :: T_Block -> - T_MExpr -> - T_Stat -sem_Stat_ARepeat body_ cond_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOpretty :: Doc - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _bodyOindent :: Int - _condOparentOperatorPrecedence :: OperatorLevel - _condOparentOperatorAssociative :: Bool - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _bodyOcomments :: ([MToken]) - _bodyOforceMultiline :: Bool - _bodyOppconf :: PrettyPrintConfig - _bodyOstatRegion :: Region - _condOcomments :: ([MToken]) - _condOforceMultiline :: Bool - _condOindent :: Int - _condOppconf :: PrettyPrintConfig - _bodyIcomments :: ([MToken]) - _bodyIcopy :: Block - _bodyIisMultiline :: Bool - _bodyIpos :: Region - _bodyIpretty :: Doc - _bodyIstatementCount :: Int - _condIcomments :: ([MToken]) - _condIcopy :: MExpr - _condIendsWithPrefixExpression :: Bool - _condIisAssociative :: Bool - _condIisLiteral :: Bool - _condIisMultiline :: Bool - _condIpos :: Region - _condIprecedence :: OperatorLevel - _condIpretty :: Doc - _lhsOpretty = - ({-# LINE 738 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "repeat" - $+$ _bodyIpretty - $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "until" <-> _condIpretty) - {-# LINE 7357 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 742 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 7362 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 743 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 7367 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 744 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 7372 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOindent = - ({-# LINE 745 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent + 1 - {-# LINE 7377 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOparentOperatorPrecedence = - ({-# LINE 746 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 7382 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOparentOperatorAssociative = - ({-# LINE 747 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 7387 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ARepeat _bodyIcopy _condIcopy - {-# LINE 7392 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 7397 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _condIcomments - {-# LINE 7402 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 7407 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 7412 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 7417 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOstatRegion = - ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIstatRegion - {-# LINE 7422 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _bodyIcomments - {-# LINE 7427 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 7432 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 7437 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 7442 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = - body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion - ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) = - cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_Stat_AIf :: T_MExpr -> - T_Block -> - T_ElseIfList -> - T_Else -> - T_Stat -sem_Stat_AIf cond_ body_ elifs_ els_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _condOcomments :: ([MToken]) - _condOparentOperatorPrecedence :: OperatorLevel - _condOparentOperatorAssociative :: Bool - _bodyOindent :: Int - _bodyOstatRegion :: Region - _lhsOpretty :: Doc - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _lhsOisMultiline :: Bool - _condOforceMultiline :: Bool - _condOindent :: Int - _condOppconf :: PrettyPrintConfig - _bodyOcomments :: ([MToken]) - _bodyOforceMultiline :: Bool - _bodyOppconf :: PrettyPrintConfig - _elifsOcomments :: ([MToken]) - _elifsOforceMultiline :: Bool - _elifsOindent :: Int - _elifsOppconf :: PrettyPrintConfig - _elsOcomments :: ([MToken]) - _elsOforceMultiline :: Bool - _elsOindent :: Int - _elsOppconf :: PrettyPrintConfig - _elsOstatRegion :: Region - _condIcomments :: ([MToken]) - _condIcopy :: MExpr - _condIendsWithPrefixExpression :: Bool - _condIisAssociative :: Bool - _condIisLiteral :: Bool - _condIisMultiline :: Bool - _condIpos :: Region - _condIprecedence :: OperatorLevel - _condIpretty :: Doc - _bodyIcomments :: ([MToken]) - _bodyIcopy :: Block - _bodyIisMultiline :: Bool - _bodyIpos :: Region - _bodyIpretty :: Doc - _bodyIstatementCount :: Int - _elifsIcomments :: ([MToken]) - _elifsIcopy :: ElseIfList - _elifsIelsesExist :: Bool - _elifsIisMultiline :: Bool - _elifsIpos :: Region - _elifsIpretty :: Doc - _elsIcomments :: ([MToken]) - _elsIcopy :: Else - _elsIelsesExist :: Bool - _elsIisMultiline :: Bool - _elsIpos :: Region - _elsIpretty :: Doc - _isMultiline = - ({-# LINE 749 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - || _condIisMultiline - || _bodyIisMultiline - || _elifsIelsesExist - || _elsIelsesExist - || not (null $ fst _commentsAfterThen ) - {-# LINE 7523 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 756 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 7528 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 757 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 7533 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _singleLinePretty = - ({-# LINE 758 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "if" - <-> _condIpretty - <-> zeroWidthText "then" - <-> _bodyIpretty - <-> zeroWidthText "end" - <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterThen ) - {-# LINE 7543 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _multilinePretty = - ({-# LINE 765 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "if" - <-> _condIpretty - <-> zeroWidthText "then" - <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterThen ) - $+$ _bodyIpretty - $+$ _elifsIpretty - $+$ _elsIpretty - $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") - {-# LINE 7555 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsAfterThen = - ({-# LINE 775 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos _) -> pos `beforeOrOnLine` _bodyIpos) _lhsIcomments - {-# LINE 7560 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOcomments = - ({-# LINE 777 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsAfterThen - {-# LINE 7565 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOparentOperatorPrecedence = - ({-# LINE 779 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 7570 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOparentOperatorAssociative = - ({-# LINE 780 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 7575 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOindent = - ({-# LINE 781 "src/GLua/AG/PrettyPrint.ag" #-} - if _isMultiline then _lhsIindent + 1 else 0 - {-# LINE 7580 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOstatRegion = - ({-# LINE 782 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIstatRegion `upto` _elifsIpos `upto` _elsIpos - {-# LINE 7585 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpretty = - ({-# LINE 783 "src/GLua/AG/PrettyPrint.ag" #-} - if _isMultiline then _multilinePretty else _singleLinePretty - {-# LINE 7590 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AIf _condIcopy _bodyIcopy _elifsIcopy _elsIcopy - {-# LINE 7595 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 7600 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _elsIcomments - {-# LINE 7605 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-} - _isMultiline - {-# LINE 7610 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 7615 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 7620 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _condOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 7625 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _condIcomments - {-# LINE 7630 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 7635 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 7640 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _elifsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _bodyIcomments - {-# LINE 7645 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _elifsOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 7650 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _elifsOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 7655 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _elifsOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 7660 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _elsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _elifsIcomments - {-# LINE 7665 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _elsOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 7670 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _elsOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 7675 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _elsOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 7680 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _elsOstatRegion = - ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIstatRegion - {-# LINE 7685 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) = - cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf - ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = - body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion - ( _elifsIcomments,_elifsIcopy,_elifsIelsesExist,_elifsIisMultiline,_elifsIpos,_elifsIpretty) = - elifs_ _elifsOcomments _elifsOforceMultiline _elifsOindent _elifsOppconf - ( _elsIcomments,_elsIcopy,_elsIelsesExist,_elsIisMultiline,_elsIpos,_elsIpretty) = - els_ _elsOcomments _elsOforceMultiline _elsOindent _elsOppconf _elsOstatRegion - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_Stat_ANFor :: MToken -> - T_MExpr -> - T_MExpr -> - T_MExpr -> - T_Block -> - T_Stat -sem_Stat_ANFor var_ val_ to_ step_ body_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOisMultiline :: Bool - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOpretty :: Doc - _valOcomments :: ([MToken]) - _valOparentOperatorPrecedence :: OperatorLevel - _valOparentOperatorAssociative :: Bool - _toOparentOperatorPrecedence :: OperatorLevel - _toOparentOperatorAssociative :: Bool - _stepOparentOperatorPrecedence :: OperatorLevel - _stepOparentOperatorAssociative :: Bool - _bodyOindent :: Int - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _valOforceMultiline :: Bool - _valOindent :: Int - _valOppconf :: PrettyPrintConfig - _toOcomments :: ([MToken]) - _toOforceMultiline :: Bool - _toOindent :: Int - _toOppconf :: PrettyPrintConfig - _stepOcomments :: ([MToken]) - _stepOforceMultiline :: Bool - _stepOindent :: Int - _stepOppconf :: PrettyPrintConfig - _bodyOcomments :: ([MToken]) - _bodyOforceMultiline :: Bool - _bodyOppconf :: PrettyPrintConfig - _bodyOstatRegion :: Region - _valIcomments :: ([MToken]) - _valIcopy :: MExpr - _valIendsWithPrefixExpression :: Bool - _valIisAssociative :: Bool - _valIisLiteral :: Bool - _valIisMultiline :: Bool - _valIpos :: Region - _valIprecedence :: OperatorLevel - _valIpretty :: Doc - _toIcomments :: ([MToken]) - _toIcopy :: MExpr - _toIendsWithPrefixExpression :: Bool - _toIisAssociative :: Bool - _toIisLiteral :: Bool - _toIisMultiline :: Bool - _toIpos :: Region - _toIprecedence :: OperatorLevel - _toIpretty :: Doc - _stepIcomments :: ([MToken]) - _stepIcopy :: MExpr - _stepIendsWithPrefixExpression :: Bool - _stepIisAssociative :: Bool - _stepIisLiteral :: Bool - _stepIisMultiline :: Bool - _stepIpos :: Region - _stepIprecedence :: OperatorLevel - _stepIpretty :: Doc - _bodyIcomments :: ([MToken]) - _bodyIcopy :: Block - _bodyIisMultiline :: Bool - _bodyIpos :: Region - _bodyIpretty :: Doc - _bodyIstatementCount :: Int - _lhsOisMultiline = - ({-# LINE 785 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 7775 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 786 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 7780 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 787 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 7785 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _step = - ({-# LINE 788 "src/GLua/AG/PrettyPrint.ag" #-} - case _stepIcopy of - MExpr _ (ANumber "1") -> empty - _ -> _comma <> _stepIpretty - {-# LINE 7792 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpretty = - ({-# LINE 791 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "for" - <-> tok var_ - <-> zchr '=' - <-> _valIpretty - <> _comma - <> _toIpretty - <> _step - <-> zeroWidthText "do" - <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFor ) - $+$ _bodyIpretty - $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") - {-# LINE 7807 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _comma = - ({-# LINE 803 "src/GLua/AG/PrettyPrint.ag" #-} - (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) - <> zchr ',' - <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty) - {-# LINE 7814 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsAfterFor = - ({-# LINE 807 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos _) -> pos `beforeOrOnLine` mpos var_) _lhsIcomments - {-# LINE 7819 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valOcomments = - ({-# LINE 809 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsAfterFor - {-# LINE 7824 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valOparentOperatorPrecedence = - ({-# LINE 810 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 7829 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valOparentOperatorAssociative = - ({-# LINE 811 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 7834 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _toOparentOperatorPrecedence = - ({-# LINE 812 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 7839 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _toOparentOperatorAssociative = - ({-# LINE 813 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 7844 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _stepOparentOperatorPrecedence = - ({-# LINE 814 "src/GLua/AG/PrettyPrint.ag" #-} - TopLevelExpression - {-# LINE 7849 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _stepOparentOperatorAssociative = - ({-# LINE 815 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 7854 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOindent = - ({-# LINE 816 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent + 1 - {-# LINE 7859 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ANFor var_ _valIcopy _toIcopy _stepIcopy _bodyIcopy - {-# LINE 7864 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 7869 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _bodyIcomments - {-# LINE 7874 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 7879 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 7884 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 7889 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _toOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _valIcomments - {-# LINE 7894 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _toOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 7899 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _toOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 7904 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _toOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 7909 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _stepOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _toIcomments - {-# LINE 7914 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _stepOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 7919 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _stepOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 7924 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _stepOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 7929 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _stepIcomments - {-# LINE 7934 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 7939 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 7944 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOstatRegion = - ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIstatRegion - {-# LINE 7949 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _valIcomments,_valIcopy,_valIendsWithPrefixExpression,_valIisAssociative,_valIisLiteral,_valIisMultiline,_valIpos,_valIprecedence,_valIpretty) = - val_ _valOcomments _valOforceMultiline _valOindent _valOparentOperatorAssociative _valOparentOperatorPrecedence _valOppconf - ( _toIcomments,_toIcopy,_toIendsWithPrefixExpression,_toIisAssociative,_toIisLiteral,_toIisMultiline,_toIpos,_toIprecedence,_toIpretty) = - to_ _toOcomments _toOforceMultiline _toOindent _toOparentOperatorAssociative _toOparentOperatorPrecedence _toOppconf - ( _stepIcomments,_stepIcopy,_stepIendsWithPrefixExpression,_stepIisAssociative,_stepIisLiteral,_stepIisMultiline,_stepIpos,_stepIprecedence,_stepIpretty) = - step_ _stepOcomments _stepOforceMultiline _stepOindent _stepOparentOperatorAssociative _stepOparentOperatorPrecedence _stepOppconf - ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = - body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_Stat_AGFor :: ([MToken]) -> - T_MExprList -> - T_Block -> - T_Stat -sem_Stat_AGFor vars_ vals_ body_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOisMultiline :: Bool - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOpretty :: Doc - _bodyOindent :: Int - _valsOcomments :: ([MToken]) - _valsOforceMultiline :: Bool - _valsOsomeElementsInListAreMultiline :: Bool - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _valsOindent :: Int - _valsOppconf :: PrettyPrintConfig - _bodyOcomments :: ([MToken]) - _bodyOforceMultiline :: Bool - _bodyOppconf :: PrettyPrintConfig - _bodyOstatRegion :: Region - _valsIcomments :: ([MToken]) - _valsIcopy :: MExprList - _valsIisAssociative :: Bool - _valsIisLast :: Bool - _valsIisMultiline :: Bool - _valsIpos :: Region - _valsIprecedence :: OperatorLevel - _valsIpretty :: Doc - _valsIstartsWithNewline :: Bool - _bodyIcomments :: ([MToken]) - _bodyIcopy :: Block - _bodyIisMultiline :: Bool - _bodyIpos :: Region - _bodyIpretty :: Doc - _bodyIstatementCount :: Int - _lhsOisMultiline = - ({-# LINE 818 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 8006 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 819 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8011 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 820 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8016 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpretty = - ({-# LINE 821 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "for" - <-> printList tok (render _comma ) vars_ - <-> zeroWidthText "in" - <-> _valsIpretty - <-> zeroWidthText "do" - <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFor ) - $+$ _bodyIpretty - $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") - {-# LINE 8028 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOindent = - ({-# LINE 830 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent + 1 - {-# LINE 8033 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _comma = - ({-# LINE 831 "src/GLua/AG/PrettyPrint.ag" #-} - (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) - <> zchr ',' - <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty) - {-# LINE 8040 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsAfterFor = - ({-# LINE 835 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos _) -> pos `beforeOrOnLine` mpos (head vars_)) _lhsIcomments - {-# LINE 8045 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valsOcomments = - ({-# LINE 837 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsAfterFor - {-# LINE 8050 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valsOforceMultiline = - ({-# LINE 839 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8055 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valsOsomeElementsInListAreMultiline = - ({-# LINE 840 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8060 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AGFor vars_ _valsIcopy _bodyIcopy - {-# LINE 8065 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 8070 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _bodyIcomments - {-# LINE 8075 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valsOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 8080 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _valsOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 8085 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _valsIcomments - {-# LINE 8090 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 8095 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 8100 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOstatRegion = - ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIstatRegion - {-# LINE 8105 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _valsIcomments,_valsIcopy,_valsIisAssociative,_valsIisLast,_valsIisMultiline,_valsIpos,_valsIprecedence,_valsIpretty,_valsIstartsWithNewline) = - vals_ _valsOcomments _valsOforceMultiline _valsOindent _valsOppconf _valsOsomeElementsInListAreMultiline - ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = - body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_Stat_AFunc :: T_FuncName -> - ([MToken]) -> - T_Block -> - T_Stat -sem_Stat_AFunc name_ args_ body_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOisMultiline :: Bool - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOpretty :: Doc - _nameOcomments :: ([MToken]) - _bodyOindent :: Int - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _nameOindent :: Int - _nameOppconf :: PrettyPrintConfig - _bodyOcomments :: ([MToken]) - _bodyOforceMultiline :: Bool - _bodyOppconf :: PrettyPrintConfig - _bodyOstatRegion :: Region - _nameIcomments :: ([MToken]) - _nameIcopy :: FuncName - _nameIisMultiline :: Bool - _nameIpos :: Region - _nameIpretty :: Doc - _bodyIcomments :: ([MToken]) - _bodyIcopy :: Block - _bodyIisMultiline :: Bool - _bodyIpos :: Region - _bodyIpretty :: Doc - _bodyIstatementCount :: Int - _lhsOisMultiline = - ({-# LINE 842 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 8152 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 843 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8157 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 844 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8162 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpretty = - ({-# LINE 845 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "function" - <-> _nameIpretty - <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) args_) - <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFunc ) - $+$ _bodyIpretty - $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") - {-# LINE 8172 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsAfterFunc = - ({-# LINE 852 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos _) -> pos `beforeOrOnLine` _nameIpos) _lhsIcomments - {-# LINE 8177 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _nameOcomments = - ({-# LINE 854 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsAfterFunc - {-# LINE 8182 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _emptyParams = - ({-# LINE 855 "src/GLua/AG/PrettyPrint.ag" #-} - toEmpty $ null args_ - {-# LINE 8187 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _comma = - ({-# LINE 856 "src/GLua/AG/PrettyPrint.ag" #-} - (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) - <> zchr ',' - <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty) - {-# LINE 8194 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOindent = - ({-# LINE 860 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent + 1 - {-# LINE 8199 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AFunc _nameIcopy args_ _bodyIcopy - {-# LINE 8204 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 8209 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _bodyIcomments - {-# LINE 8214 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _nameOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 8219 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _nameOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 8224 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _nameIcomments - {-# LINE 8229 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 8234 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 8239 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOstatRegion = - ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIstatRegion - {-# LINE 8244 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _nameIcomments,_nameIcopy,_nameIisMultiline,_nameIpos,_nameIpretty) = - name_ _nameOcomments _nameOindent _nameOppconf - ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = - body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) -sem_Stat_ALocFunc :: T_FuncName -> - ([MToken]) -> - T_Block -> - T_Stat -sem_Stat_ALocFunc name_ args_ body_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIisLastStatement - _lhsIppconf - _lhsIstatRegion - _lhsIwouldBeAmbiguousWithoutSemicolon -> - (let _lhsOisMultiline :: Bool - _lhsOpretty :: Doc - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _nameOcomments :: ([MToken]) - _bodyOindent :: Int - _lhsOcopy :: Stat - _lhsOcomments :: ([MToken]) - _nameOindent :: Int - _nameOppconf :: PrettyPrintConfig - _bodyOcomments :: ([MToken]) - _bodyOforceMultiline :: Bool - _bodyOppconf :: PrettyPrintConfig - _bodyOstatRegion :: Region - _nameIcomments :: ([MToken]) - _nameIcopy :: FuncName - _nameIisMultiline :: Bool - _nameIpos :: Region - _nameIpretty :: Doc - _bodyIcomments :: ([MToken]) - _bodyIcopy :: Block - _bodyIisMultiline :: Bool - _bodyIpos :: Region - _bodyIpretty :: Doc - _bodyIstatementCount :: Int - _lhsOisMultiline = - ({-# LINE 862 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 8291 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOpretty = - ({-# LINE 863 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "local function" - <-> _nameIpretty - <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) args_) - <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFunc ) - $+$ _bodyIpretty - $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") - {-# LINE 8301 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 870 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8306 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 871 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8311 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _commentsAfterFunc = - ({-# LINE 872 "src/GLua/AG/PrettyPrint.ag" #-} - span (\(MToken pos _) -> pos `beforeOrOnLine` _nameIpos) _lhsIcomments - {-# LINE 8316 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _nameOcomments = - ({-# LINE 874 "src/GLua/AG/PrettyPrint.ag" #-} - snd _commentsAfterFunc - {-# LINE 8321 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _emptyParams = - ({-# LINE 875 "src/GLua/AG/PrettyPrint.ag" #-} - toEmpty $ null args_ - {-# LINE 8326 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _comma = - ({-# LINE 876 "src/GLua/AG/PrettyPrint.ag" #-} - (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) - <> zchr ',' - <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty) - {-# LINE 8333 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOindent = - ({-# LINE 880 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent + 1 - {-# LINE 8338 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ALocFunc _nameIcopy args_ _bodyIcopy - {-# LINE 8343 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 8348 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _bodyIcomments - {-# LINE 8353 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _nameOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 8358 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _nameOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 8363 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _nameIcomments - {-# LINE 8368 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 8373 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 8378 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _bodyOstatRegion = - ({-# LINE 335 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIstatRegion - {-# LINE 8383 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _nameIcomments,_nameIcopy,_nameIisMultiline,_nameIpos,_nameIpretty) = - name_ _nameOcomments _nameOindent _nameOppconf - ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = - body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) --- UnOp -------------------------------------------------------- --- cata -sem_UnOp :: UnOp -> - T_UnOp -sem_UnOp (UnMinus) = - (sem_UnOp_UnMinus) -sem_UnOp (ANot) = - (sem_UnOp_ANot) -sem_UnOp (AHash) = - (sem_UnOp_AHash) --- semantic domain -type T_UnOp = ([MToken]) -> - Int -> - PrettyPrintConfig -> - ( ([MToken]),UnOp,Bool,Doc) -data Inh_UnOp = Inh_UnOp {comments_Inh_UnOp :: ([MToken]),indent_Inh_UnOp :: Int,ppconf_Inh_UnOp :: PrettyPrintConfig} -data Syn_UnOp = Syn_UnOp {comments_Syn_UnOp :: ([MToken]),copy_Syn_UnOp :: UnOp,isMultiline_Syn_UnOp :: Bool,pretty_Syn_UnOp :: Doc} -wrap_UnOp :: T_UnOp -> - Inh_UnOp -> - Syn_UnOp -wrap_UnOp sem (Inh_UnOp _lhsIcomments _lhsIindent _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf - in (Syn_UnOp _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty)) -sem_UnOp_UnMinus :: T_UnOp -sem_UnOp_UnMinus = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOcopy :: UnOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1218 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "-" - {-# LINE 8425 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1219 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8430 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - UnMinus - {-# LINE 8435 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 8440 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 8445 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty))) -sem_UnOp_ANot :: T_UnOp -sem_UnOp_ANot = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOcopy :: UnOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1221 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText (if cStyle _lhsIppconf then "!" else "not ") - {-# LINE 8460 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1222 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8465 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - ANot - {-# LINE 8470 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 8475 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 8480 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty))) -sem_UnOp_AHash :: T_UnOp -sem_UnOp_AHash = - (\ _lhsIcomments - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOisMultiline :: Bool - _lhsOcopy :: UnOp - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 1224 "src/GLua/AG/PrettyPrint.ag" #-} - zeroWidthText "#" - {-# LINE 8495 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 1225 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8500 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - AHash - {-# LINE 8505 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 8510 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 8515 "src/GLua/AG/PrettyPrint.hs" #-} - ) - in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty))) --- VarsList ---------------------------------------------------- --- cata -sem_VarsList :: VarsList -> - T_VarsList -sem_VarsList list = - (Prelude.foldr sem_VarsList_Cons sem_VarsList_Nil (Prelude.map sem_Declaration list)) --- semantic domain -type T_VarsList = ([MToken]) -> - Bool -> - Int -> - PrettyPrintConfig -> - ( ([MToken]),VarsList,Bool,Doc,Bool,Bool,Bool,Doc,Bool,Doc) -data Inh_VarsList = Inh_VarsList {comments_Inh_VarsList :: ([MToken]),forceMultiline_Inh_VarsList :: Bool,indent_Inh_VarsList :: Int,ppconf_Inh_VarsList :: PrettyPrintConfig} -data Syn_VarsList = Syn_VarsList {comments_Syn_VarsList :: ([MToken]),copy_Syn_VarsList :: VarsList,endsWithPrefixExpression_Syn_VarsList :: Bool,exprPretty_Syn_VarsList :: Doc,isDefined_Syn_VarsList :: Bool,isLast_Syn_VarsList :: Bool,isMultiline_Syn_VarsList :: Bool,pretty_Syn_VarsList :: Doc,startsWithExprPrefixExpression_Syn_VarsList :: Bool,varPretty_Syn_VarsList :: Doc} -wrap_VarsList :: T_VarsList -> - Inh_VarsList -> - Syn_VarsList -wrap_VarsList sem (Inh_VarsList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = - (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf - in (Syn_VarsList _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOexprPretty _lhsOisDefined _lhsOisLast _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOvarPretty)) -sem_VarsList_Cons :: T_Declaration -> - T_VarsList -> - T_VarsList -sem_VarsList_Cons hd_ tl_ = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOisLast :: Bool - _lhsOexprPretty :: Doc - _lhsOisDefined :: Bool - _lhsOvarPretty :: Doc - _lhsOcopy :: VarsList - _lhsOcomments :: ([MToken]) - _hdOcomments :: ([MToken]) - _hdOforceMultiline :: Bool - _hdOindent :: Int - _hdOppconf :: PrettyPrintConfig - _tlOcomments :: ([MToken]) - _tlOforceMultiline :: Bool - _tlOindent :: Int - _tlOppconf :: PrettyPrintConfig - _hdIcomments :: ([MToken]) - _hdIcopy :: Declaration - _hdIendsWithPrefixExpression :: Bool - _hdIexprPretty :: Doc - _hdIisDefined :: Bool - _hdIisMultiline :: Bool - _hdIpretty :: Doc - _hdIstartsWithExprPrefixExpression :: Bool - _hdIvarPretty :: Doc - _tlIcomments :: ([MToken]) - _tlIcopy :: VarsList - _tlIendsWithPrefixExpression :: Bool - _tlIexprPretty :: Doc - _tlIisDefined :: Bool - _tlIisLast :: Bool - _tlIisMultiline :: Bool - _tlIpretty :: Doc - _tlIstartsWithExprPrefixExpression :: Bool - _tlIvarPretty :: Doc - _lhsOpretty = - ({-# LINE 550 "src/GLua/AG/PrettyPrint.ag" #-} - _varPretty - <-> if _isDefined then zchr '=' <-> _exprPretty else empty - {-# LINE 8587 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 553 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIstartsWithExprPrefixExpression - {-# LINE 8592 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 554 "src/GLua/AG/PrettyPrint.ag" #-} - if _tlIisDefined then _tlIendsWithPrefixExpression else _hdIendsWithPrefixExpression - {-# LINE 8597 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 561 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIisMultiline || _tlIisMultiline - {-# LINE 8602 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _isDefined = - ({-# LINE 562 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIisDefined || _tlIisDefined - {-# LINE 8607 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _varPretty = - ({-# LINE 563 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIvarPretty - <> (if _tlIisLast then empty else _comma ) - <> _tlIvarPretty - {-# LINE 8614 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _exprPretty = - ({-# LINE 567 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIexprPretty - <> (if not _tlIisLast && _tlIisDefined then _comma else empty) - <> _tlIexprPretty - {-# LINE 8621 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _comma = - ({-# LINE 571 "src/GLua/AG/PrettyPrint.ag" #-} - (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) - <> zchr ',' - <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty) - {-# LINE 8628 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLast = - ({-# LINE 575 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8633 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOexprPretty = - ({-# LINE 288 "src/GLua/AG/PrettyPrint.ag" #-} - _exprPretty - {-# LINE 8638 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisDefined = - ({-# LINE 291 "src/GLua/AG/PrettyPrint.ag" #-} - _isDefined - {-# LINE 8643 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOvarPretty = - ({-# LINE 287 "src/GLua/AG/PrettyPrint.ag" #-} - _varPretty - {-# LINE 8648 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 8653 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 8658 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _tlIcomments - {-# LINE 8663 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 8668 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 8673 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 8678 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _hdOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 8683 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _hdIcomments - {-# LINE 8688 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOforceMultiline = - ({-# LINE 368 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIforceMultiline - {-# LINE 8693 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOindent = - ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIindent - {-# LINE 8698 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _tlOppconf = - ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIppconf - {-# LINE 8703 "src/GLua/AG/PrettyPrint.hs" #-} - ) - ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIexprPretty,_hdIisDefined,_hdIisMultiline,_hdIpretty,_hdIstartsWithExprPrefixExpression,_hdIvarPretty) = - hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf - ( _tlIcomments,_tlIcopy,_tlIendsWithPrefixExpression,_tlIexprPretty,_tlIisDefined,_tlIisLast,_tlIisMultiline,_tlIpretty,_tlIstartsWithExprPrefixExpression,_tlIvarPretty) = - tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf - in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty))) -sem_VarsList_Nil :: T_VarsList -sem_VarsList_Nil = - (\ _lhsIcomments - _lhsIforceMultiline - _lhsIindent - _lhsIppconf -> - (let _lhsOpretty :: Doc - _lhsOstartsWithExprPrefixExpression :: Bool - _lhsOendsWithPrefixExpression :: Bool - _lhsOisMultiline :: Bool - _lhsOisLast :: Bool - _lhsOexprPretty :: Doc - _lhsOisDefined :: Bool - _lhsOvarPretty :: Doc - _lhsOcopy :: VarsList - _lhsOcomments :: ([MToken]) - _lhsOpretty = - ({-# LINE 577 "src/GLua/AG/PrettyPrint.ag" #-} - empty - {-# LINE 8729 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOstartsWithExprPrefixExpression = - ({-# LINE 578 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8734 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOendsWithPrefixExpression = - ({-# LINE 579 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8739 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisMultiline = - ({-# LINE 580 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8744 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisLast = - ({-# LINE 581 "src/GLua/AG/PrettyPrint.ag" #-} - True - {-# LINE 8749 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOexprPretty = - ({-# LINE 288 "src/GLua/AG/PrettyPrint.ag" #-} - empty - {-# LINE 8754 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOisDefined = - ({-# LINE 291 "src/GLua/AG/PrettyPrint.ag" #-} - False - {-# LINE 8759 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOvarPretty = - ({-# LINE 287 "src/GLua/AG/PrettyPrint.ag" #-} - empty - {-# LINE 8764 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _copy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - [] - {-# LINE 8769 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcopy = - ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-} - _copy - {-# LINE 8774 "src/GLua/AG/PrettyPrint.hs" #-} - ) - _lhsOcomments = - ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} - _lhsIcomments - {-# LINE 8779 "src/GLua/AG/PrettyPrint.hs" #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +-- UUAGC 0.9.56 (src/GLua/AG/PrettyPrint.ag) +module GLua.AG.PrettyPrint where + +{-# LINE 9 "src/GLua/AG/AST.ag" #-} + +import GLua.AG.Token +import GLua.Position +import GLua.TokenTypes () +import Data.Aeson +{-# LINE 14 "src/GLua/AG/PrettyPrint.hs" #-} + +{-# LINE 4 "src/GLua/AG/PrettyPrint.ag" #-} + +import Prelude hiding ((<>)) +import Data.List (foldl', isInfixOf) +import GLua.AG.AST +import GLua.Position +import Text.PrettyPrint hiding (parens, brackets, braces) +import GLua.TokenTypes +import Data.Maybe +import Text.Parsec +import Text.Parsec.Error +import Debug.Trace +{-# LINE 28 "src/GLua/AG/PrettyPrint.hs" #-} +{-# LINE 19 "src/GLua/AG/PrettyPrint.ag" #-} + + +tok :: MToken -> Doc +tok (MToken _ t) = zeroWidthText . show $ t + +printList :: (a -> Doc) -> String -> [a] -> Doc +printList _ _ [] = empty +printList f sep' (e : es) = (f e) <> g es + where + g [] = empty + g (e' : es') = zeroWidthText sep' <> (f e') <> g es' + +data IsEmpty = IsEmpty | NonEmpty + +fromEmpty :: IsEmpty -> Bool +fromEmpty IsEmpty = True +fromEmpty NonEmpty = False + +toEmpty :: Bool -> IsEmpty +toEmpty b = if b then IsEmpty else NonEmpty + +data PrettyPrintConfig = PPConfig { + spaceAfterParens :: Bool, + spaceAfterBrackets :: Bool, + spaceAfterBraces :: Bool, + spaceEmptyParens :: Bool, + spaceEmptyBraces :: Bool, + spaceAfterLabel :: Bool, + spaceBeforeComma :: Bool, + spaceAfterComma :: Bool, + semicolons :: Bool, + cStyle :: Bool, + removeRedundantParens :: Bool, + minimizeParens :: Bool, + assumeOperatorAssociativity :: Bool, + indentation :: String +} + +defaultPPConfig :: PrettyPrintConfig +defaultPPConfig = PPConfig { + spaceAfterParens = False, + spaceAfterBrackets = False, + spaceAfterBraces = False, + spaceEmptyParens = False, + spaceEmptyBraces = False, + spaceAfterLabel = False, + spaceBeforeComma = False, + spaceAfterComma = True, + semicolons = False, + cStyle = False, + removeRedundantParens = True, + assumeOperatorAssociativity = True, + minimizeParens = False, + indentation = " " +} + +metaDoc :: Maybe MToken -> Doc +metaDoc (Just m) = zchr ':' <> tok m +metaDoc Nothing = empty + +printVarList :: [(PrefixExp, Maybe MExpr)] -> Doc +printVarList vars = + printList pp_prefixexp ", " (map fst vars) + <-> zchr '=' + <-> printList pp_mexpr ", " (catMaybes . map snd $ vars) + +printStats :: [MStat] -> Int -> Doc +printStats [] _ = empty +printStats (x : xs) i = nest (i * 4) (pp_mstat x i) $+$ printStats xs i + +printElIfs :: [(MExpr, Block)] -> Int -> Doc +printElIfs [] _ = empty +printElIfs ((e, b) : es) i = + zeroWidthText "elseif" + <-> pp_mexpr e + <-> zeroWidthText "then" + $+$ pp_block b i + $+$ printElIfs es i + +printEls :: Maybe Block -> Int -> Doc +printEls Nothing _ = empty +printEls (Just b) i = zeroWidthText "else" $+$ pp_block b i + + +renderPos :: LineColPos -> String +renderPos (LineColPos l c _) = "line " ++ show (succ l) ++ ", column " ++ show (succ c) + +renderRegion :: Region -> String +renderRegion (Region l r) = renderPos l ++ " - " ++ renderPos r + +renderSourcePos :: SourcePos -> String +renderSourcePos sp = + "line " + ++ (show . succ . sourceLine $ sp) + ++ ", column " + ++ (show . succ . sourceColumn $ sp) + +getMStatPos :: MStat -> String +getMStatPos (MStat p _) = renderRegion p + +getAReturnPos :: AReturn -> String +getAReturnPos (AReturn p _) = renderRegion p +getAReturnPos NoReturn = "" + +getMExprPos :: MExpr -> String +getMExprPos (MExpr p _) = renderRegion p + +-- | Render comments on multiple lines +renderMLComments :: PrettyPrintConfig -> Int -> [MToken] -> Doc +renderMLComments conf ind toks = + foldl' ($+$) empty . map (indent conf ind . tok . convertComment conf) $ toks + +-- | Render comments, and prefer having them on a single line. It may not print comments on the same +-- line if that would cause a syntax error (e.g. a multiline comment after a single line comment) +renderSLComments :: PrettyPrintConfig -> Int -> [MToken] -> Doc +renderSLComments conf ind toks = foldl' combine empty . map (convertComment conf) $ toks + where + combine :: Doc -> MToken -> Doc + combine acc mt@(MToken _pos t) = + case t of + -- Block comments after single line comments cannot be printed on the same line, as that + -- would cause a syntax error, e.g. in this case: + + -- foo = { -- single line comment + -- --[[multiline + -- comment + -- ]] + -- } + -- Make sure in these cases the comment is printed on a new line, rather than on the + -- same line + DashBlockComment _depth comment | '\n' `elem` comment -> + acc $+$ (indent conf ind $ tok mt) + SlashBlockComment comment | '\n' `elem` comment -> + acc $+$ (indent conf ind $ tok mt) + _ -> acc <-> tok mt + +convertComment :: PrettyPrintConfig -> MToken -> MToken +convertComment conf (MToken p t) = MToken p $ convert' t + where + convert' :: Token -> Token + convert' = if cStyle conf then cComment else luaComment + + luaComment :: Token -> Token + luaComment (SlashComment s) = DashComment s + luaComment (SlashBlockComment s) = DashBlockComment (lastBracket s) s + luaComment t' = t' + + -- converting /*]*/ would end up in --[[]]] when plainly converted + -- Deepen the block comment by 1 if that's the case + lastBracket :: String -> Int + lastBracket [] = 0 + lastBracket s = if last s == ']' then 1 else 0 + + cComment :: Token -> Token + cComment (DashComment s) = SlashComment s + cComment (DashBlockComment _ s) = SlashBlockComment s + cComment t' = t' + +indent :: PrettyPrintConfig -> Int -> Doc -> Doc +indent conf n = (<>) $ zeroWidthText (concat . replicate n $ indentation conf) + +parens :: PrettyPrintConfig -> IsEmpty -> Doc -> Doc +parens conf ie doc = zchr '(' `sep'` doc `sep'` zchr ')' + where + sep' :: Doc -> Doc -> Doc + sep' = + if spaceAfterParens conf && (not (fromEmpty ie) || spaceEmptyParens conf) + then (<->) + else (<>) + +brackets :: PrettyPrintConfig -> Doc -> Doc +brackets conf doc = zchr '[' `sep'` doc `sep'` zchr ']' + where + sep' :: Doc -> Doc -> Doc + sep' = if spaceAfterBrackets conf then (<->) else (<>) + +braces :: PrettyPrintConfig -> IsEmpty -> Doc -> Doc +braces conf ie doc = zchr '{' `sep'` doc `sep'` zchr '}' + where + sep' :: Doc -> Doc -> Doc + sep' = + if spaceAfterBraces conf && (not (fromEmpty ie) || spaceEmptyBraces conf) + then (<->) + else (<>) + +-- Zero width char +zchr :: Char -> Doc +zchr c = zeroWidthText [c] + +-- Zero width <+> +infixl 6 <-> +(<->) :: Doc -> Doc -> Doc +a <-> b | a == empty = b + | b == empty = a + | otherwise = a <> zchr ' ' <> b + +-- Operator levels, where level 1 is the lowest level, and level 8 is the highest one +-- See http://www.lua.org/manual/5.2/manual.html#3.4.7 +data OperatorLevel + -- At the top level, there is no assigned operator level yet. This serves as a bottom value. + = TopLevelExpression + | OperatorLevel1 + | OperatorLevel2 + | OperatorLevel3 + | OperatorLevel4 + | OperatorLevel5 + | OperatorLevel6 + | OperatorLevel7 + | OperatorLevel8 + deriving (Eq, Ord) + +-- | Returns true when any of the comments contain the string "format: multiline" +commentsForceMultiline :: [MToken] -> Bool +commentsForceMultiline commentTokens = any containsFormatMultiline commentTokens + where + containsFormatMultiline :: MToken -> Bool + containsFormatMultiline (MToken _pos t) = case t of + DashComment comment -> stringForcesFormat comment + DashBlockComment _ comment -> stringForcesFormat comment + SlashComment comment -> stringForcesFormat comment + SlashBlockComment comment -> stringForcesFormat comment + _ -> False + + stringForcesFormat :: String -> Bool + stringForcesFormat s = "format: multiline" `isInfixOf` s + +{-# LINE 256 "src/GLua/AG/PrettyPrint.hs" #-} + +{-# LINE 1212 "src/GLua/AG/PrettyPrint.ag" #-} + + +pp_block :: Block -> Int -> Doc +pp_block p i = pretty_Syn_Block (wrap_Block (sem_Block p) (emptyInh_Block {indent_Inh_Block = i})) + +pp_mstat :: MStat -> Int -> Doc +pp_mstat p i = pretty_Syn_MStat (wrap_MStat (sem_MStat p) emptyInh_MStat {indent_Inh_MStat = i}) + +pp_prefixexp :: PrefixExp -> Doc +pp_prefixexp p = pretty_Syn_PrefixExp (wrap_PrefixExp (sem_PrefixExp p) emptyInh_PrefixExp) + +pp_pfexprsuffix :: PFExprSuffix -> Doc +pp_pfexprsuffix p = + pretty_Syn_PFExprSuffix (wrap_PFExprSuffix (sem_PFExprSuffix p) emptyInh_PFExprSuffix) + +pp_field :: Field -> Doc +pp_field p = pretty_Syn_Field (wrap_Field (sem_Field p) emptyInh_Field) + +pp_mexpr :: MExpr -> Doc +pp_mexpr p = pretty_Syn_MExpr (wrap_MExpr (sem_MExpr p) emptyInh_MExpr) + +prettyprint :: AST -> String +prettyprint p = render $ pretty_Syn_AST (wrap_AST (sem_AST p) emptyInh_AST) + +prettyprintConf :: PrettyPrintConfig -> AST -> String +prettyprintConf conf p = + render $ pretty_Syn_AST (wrap_AST (sem_AST p) emptyInh_AST {ppconf_Inh_AST = conf}) + +renderBlock :: Block -> String +renderBlock p = render $ pretty_Syn_Block (wrap_Block (sem_Block p) emptyInh_Block) + +renderStat :: Stat -> String +renderStat p = render $ pretty_Syn_Stat (wrap_Stat (sem_Stat p) emptyInh_Stat) + +renderMStat :: MStat -> String +renderMStat p = render $ pretty_Syn_MStat (wrap_MStat (sem_MStat p) emptyInh_MStat) + +renderAReturn :: AReturn -> String +renderAReturn p = render $ pretty_Syn_AReturn (wrap_AReturn (sem_AReturn p) emptyInh_AReturn) + +renderFuncName :: FuncName -> String +renderFuncName p = render $ pretty_Syn_FuncName (wrap_FuncName (sem_FuncName p) emptyInh_FuncName) + +renderPrefixExp :: PrefixExp -> String +renderPrefixExp p = + render $ pretty_Syn_PrefixExp (wrap_PrefixExp (sem_PrefixExp p) emptyInh_PrefixExp) + +renderExpr :: Expr -> String +renderExpr p = render $ pretty_Syn_Expr (wrap_Expr (sem_Expr p) emptyInh_Expr) + +renderMExpr :: MExpr -> String +renderMExpr p = render $ pretty_Syn_MExpr (wrap_MExpr (sem_MExpr p) emptyInh_MExpr) + +renderArgs :: Args -> String +renderArgs p = render $ pretty_Syn_Args (wrap_Args (sem_Args p) emptyInh_Args) + +renderField :: Field -> String +renderField p = render $ pretty_Syn_Field (wrap_Field (sem_Field p) emptyInh_Field) + +emptyInh_Field :: Inh_Field +emptyInh_Field = + Inh_Field + { comments_Inh_Field = [] + , forceMultiline_Inh_Field = False + , indent_Inh_Field = 0 + , ppconf_Inh_Field = defaultPPConfig + } + +emptyInh_Args :: Inh_Args +emptyInh_Args = + Inh_Args + { comments_Inh_Args = [] + , forceMultiline_Inh_Args = False + , indent_Inh_Args = 0 + , ppconf_Inh_Args = defaultPPConfig + } + +emptyInh_MExpr :: Inh_MExpr +emptyInh_MExpr = + Inh_MExpr + { comments_Inh_MExpr = [] + , forceMultiline_Inh_MExpr = False + , indent_Inh_MExpr = 0 + , parentOperatorAssociative_Inh_MExpr = True + , parentOperatorPrecedence_Inh_MExpr = TopLevelExpression + , ppconf_Inh_MExpr = defaultPPConfig + } + +emptyInh_Expr :: Inh_Expr +emptyInh_Expr = + Inh_Expr + { comments_Inh_Expr = [] + , forceMultiline_Inh_Expr = False + , indent_Inh_Expr = 0 + , parentOperatorAssociative_Inh_Expr = True + , parentOperatorPrecedence_Inh_Expr = TopLevelExpression + , ppconf_Inh_Expr = defaultPPConfig + , statRegion_Inh_Expr = emptyRg + } + +emptyInh_PrefixExp :: Inh_PrefixExp +emptyInh_PrefixExp = + Inh_PrefixExp + { comments_Inh_PrefixExp = [] + , forceMultiline_Inh_PrefixExp = False + , indent_Inh_PrefixExp = 0 + , parentOperatorAssociative_Inh_PrefixExp = True + , parentOperatorPrecedence_Inh_PrefixExp = TopLevelExpression + , ppconf_Inh_PrefixExp = defaultPPConfig + } + +emptyInh_FuncName :: Inh_FuncName +emptyInh_FuncName = + Inh_FuncName + { comments_Inh_FuncName = [] + , indent_Inh_FuncName = 0 + , ppconf_Inh_FuncName = defaultPPConfig + } + +emptyInh_AReturn :: Inh_AReturn +emptyInh_AReturn = + Inh_AReturn + { comments_Inh_AReturn = [] + , forceMultiline_Inh_AReturn = False + , indent_Inh_AReturn = 0 + , ppconf_Inh_AReturn = defaultPPConfig + } + +emptyInh_MStat :: Inh_MStat +emptyInh_MStat = + Inh_MStat + { comments_Inh_MStat = [] + , forceMultiline_Inh_MStat = False + , indent_Inh_MStat = 0 + , isLastStatement_Inh_MStat = False + , ppconf_Inh_MStat = defaultPPConfig + , wouldBeAmbiguousWithoutSemicolon_Inh_MStat = False + } + +emptyInh_Stat :: Inh_Stat +emptyInh_Stat = + Inh_Stat + { comments_Inh_Stat = [] + , forceMultiline_Inh_Stat = False + , indent_Inh_Stat = 0 + , isLastStatement_Inh_Stat = False + , ppconf_Inh_Stat = defaultPPConfig + , statRegion_Inh_Stat = emptyRg + , wouldBeAmbiguousWithoutSemicolon_Inh_Stat = False + } + +emptyInh_Block :: Inh_Block +emptyInh_Block = + Inh_Block + { comments_Inh_Block = [] + , forceMultiline_Inh_Block = False + , indent_Inh_Block = 0 + , ppconf_Inh_Block = defaultPPConfig + , statRegion_Inh_Block = emptyRg + } + +emptyInh_AST :: Inh_AST +emptyInh_AST = + Inh_AST + { indent_Inh_AST = 0 + , ppconf_Inh_AST = defaultPPConfig + } + +emptyInh_PFExprSuffix :: Inh_PFExprSuffix +emptyInh_PFExprSuffix = + Inh_PFExprSuffix + { comments_Inh_PFExprSuffix = [] + , forceMultiline_Inh_PFExprSuffix = False + , indent_Inh_PFExprSuffix = 0 + , ppconf_Inh_PFExprSuffix = defaultPPConfig + } + +{-# LINE 436 "src/GLua/AG/PrettyPrint.hs" #-} +-- AReturn ----------------------------------------------------- +-- cata +sem_AReturn :: AReturn -> + T_AReturn +sem_AReturn (AReturn _pos _values) = + (sem_AReturn_AReturn _pos (sem_MExprList _values)) +sem_AReturn (NoReturn) = + (sem_AReturn_NoReturn) +-- semantic domain +type T_AReturn = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + ( ([MToken]),AReturn,Bool,Doc,Int) +data Inh_AReturn = Inh_AReturn {comments_Inh_AReturn :: ([MToken]),forceMultiline_Inh_AReturn :: Bool,indent_Inh_AReturn :: Int,ppconf_Inh_AReturn :: PrettyPrintConfig} +data Syn_AReturn = Syn_AReturn {comments_Syn_AReturn :: ([MToken]),copy_Syn_AReturn :: AReturn,isMultiline_Syn_AReturn :: Bool,pretty_Syn_AReturn :: Doc,statementCount_Syn_AReturn :: Int} +wrap_AReturn :: T_AReturn -> + Inh_AReturn -> + Syn_AReturn +wrap_AReturn sem (Inh_AReturn _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf + in (Syn_AReturn _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty _lhsOstatementCount)) +sem_AReturn_AReturn :: Region -> + T_MExprList -> + T_AReturn +sem_AReturn_AReturn pos_ values_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _valuesOcomments :: ([MToken]) + _lhsOcomments :: ([MToken]) + _valuesOforceMultiline :: Bool + _valuesOsomeElementsInListAreMultiline :: Bool + _lhsOstatementCount :: Int + _lhsOcopy :: AReturn + _valuesOindent :: Int + _valuesOppconf :: PrettyPrintConfig + _valuesIcomments :: ([MToken]) + _valuesIcopy :: MExprList + _valuesIisAssociative :: Bool + _valuesIisLast :: Bool + _valuesIisMultiline :: Bool + _valuesIpos :: Region + _valuesIprecedence :: OperatorLevel + _valuesIpretty :: Doc + _valuesIstartsWithNewline :: Bool + _lhsOpretty = + ({-# LINE 869 "src/GLua/AG/PrettyPrint.ag" #-} + renderMLComments _lhsIppconf _lhsIindent (fst _commentsBefore ) + $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "return") + `_sep ` _valuesIpretty + <> _semicolon + <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter ) + {-# LINE 493 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 875 "src/GLua/AG/PrettyPrint.ag" #-} + _valuesIisMultiline + || not (null $ fst _commentsBefore ) + || not (null $ fst _commentsAfter ) + {-# LINE 500 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _sep = + ({-# LINE 879 "src/GLua/AG/PrettyPrint.ag" #-} + if _valuesIstartsWithNewline then (<>) else (<->) + {-# LINE 505 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _semicolon = + ({-# LINE 880 "src/GLua/AG/PrettyPrint.ag" #-} + if semicolons _lhsIppconf then zchr ';' else empty + {-# LINE 510 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsBefore = + ({-# LINE 881 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos _) -> pos `before` pos_) _lhsIcomments + {-# LINE 515 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valuesOcomments = + ({-# LINE 882 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsBefore + {-# LINE 520 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsAfter = + ({-# LINE 883 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos _) -> pos `beforeOrOnLine` (rgOr _valuesIpos pos_)) _valuesIcomments + {-# LINE 525 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 885 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsAfter + {-# LINE 530 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valuesOforceMultiline = + ({-# LINE 889 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 535 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valuesOsomeElementsInListAreMultiline = + ({-# LINE 890 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 540 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstatementCount = + ({-# LINE 891 "src/GLua/AG/PrettyPrint.ag" #-} + 1 + {-# LINE 545 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AReturn pos_ _valuesIcopy + {-# LINE 550 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 555 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valuesOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 560 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valuesOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 565 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _valuesIcomments,_valuesIcopy,_valuesIisAssociative,_valuesIisLast,_valuesIisMultiline,_valuesIpos,_valuesIprecedence,_valuesIpretty,_valuesIstartsWithNewline) = + values_ _valuesOcomments _valuesOforceMultiline _valuesOindent _valuesOppconf _valuesOsomeElementsInListAreMultiline + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount))) +sem_AReturn_NoReturn :: T_AReturn +sem_AReturn_NoReturn = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOstatementCount :: Int + _lhsOisMultiline :: Bool + _lhsOcopy :: AReturn + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 893 "src/GLua/AG/PrettyPrint.ag" #-} + empty + {-# LINE 584 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstatementCount = + ({-# LINE 894 "src/GLua/AG/PrettyPrint.ag" #-} + 0 + {-# LINE 589 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 895 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 594 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + NoReturn + {-# LINE 599 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 604 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 609 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount))) +-- AST --------------------------------------------------------- +-- cata +sem_AST :: AST -> + T_AST +sem_AST (AST _comments _chunk) = + (sem_AST_AST _comments (sem_Block _chunk)) +-- semantic domain +type T_AST = Int -> + PrettyPrintConfig -> + ( AST,Bool,Doc) +data Inh_AST = Inh_AST {indent_Inh_AST :: Int,ppconf_Inh_AST :: PrettyPrintConfig} +data Syn_AST = Syn_AST {copy_Syn_AST :: AST,isMultiline_Syn_AST :: Bool,pretty_Syn_AST :: Doc} +wrap_AST :: T_AST -> + Inh_AST -> + Syn_AST +wrap_AST sem (Inh_AST _lhsIindent _lhsIppconf) = + (let ( _lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIindent _lhsIppconf + in (Syn_AST _lhsOcopy _lhsOisMultiline _lhsOpretty)) +sem_AST_AST :: ([MToken]) -> + T_Block -> + T_AST +sem_AST_AST comments_ chunk_ = + (\ _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _chunkOcomments :: ([MToken]) + _chunkOstatRegion :: Region + _chunkOforceMultiline :: Bool + _lhsOcopy :: AST + _chunkOindent :: Int + _chunkOppconf :: PrettyPrintConfig + _chunkIcomments :: ([MToken]) + _chunkIcopy :: Block + _chunkIisMultiline :: Bool + _chunkIpos :: Region + _chunkIpretty :: Doc + _chunkIstatementCount :: Int + _lhsOpretty = + ({-# LINE 624 "src/GLua/AG/PrettyPrint.ag" #-} + _chunkIpretty $+$ _prettyComments + {-# LINE 653 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 625 "src/GLua/AG/PrettyPrint.ag" #-} + _chunkIisMultiline + {-# LINE 658 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _prettyComments = + ({-# LINE 626 "src/GLua/AG/PrettyPrint.ag" #-} + renderMLComments _lhsIppconf _lhsIindent _chunkIcomments + {-# LINE 663 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _chunkOcomments = + ({-# LINE 627 "src/GLua/AG/PrettyPrint.ag" #-} + comments_ + {-# LINE 668 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _chunkOstatRegion = + ({-# LINE 628 "src/GLua/AG/PrettyPrint.ag" #-} + emptyRg + {-# LINE 673 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _chunkOforceMultiline = + ({-# LINE 629 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 678 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AST comments_ _chunkIcopy + {-# LINE 683 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 688 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _chunkOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 693 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _chunkOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 698 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _chunkIcomments,_chunkIcopy,_chunkIisMultiline,_chunkIpos,_chunkIpretty,_chunkIstatementCount) = + chunk_ _chunkOcomments _chunkOforceMultiline _chunkOindent _chunkOppconf _chunkOstatRegion + in ( _lhsOcopy,_lhsOisMultiline,_lhsOpretty))) +-- Args -------------------------------------------------------- +-- cata +sem_Args :: Args -> + T_Args +sem_Args (ListArgs _args) = + (sem_Args_ListArgs (sem_MExprList _args)) +sem_Args (TableArg _arg) = + (sem_Args_TableArg (sem_FieldList _arg)) +sem_Args (StringArg _arg) = + (sem_Args_StringArg _arg) +-- semantic domain +type T_Args = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + ( ([MToken]),Args,Bool,Doc) +data Inh_Args = Inh_Args {comments_Inh_Args :: ([MToken]),forceMultiline_Inh_Args :: Bool,indent_Inh_Args :: Int,ppconf_Inh_Args :: PrettyPrintConfig} +data Syn_Args = Syn_Args {comments_Syn_Args :: ([MToken]),copy_Syn_Args :: Args,isMultiline_Syn_Args :: Bool,pretty_Syn_Args :: Doc} +wrap_Args :: T_Args -> + Inh_Args -> + Syn_Args +wrap_Args sem (Inh_Args _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf + in (Syn_Args _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty)) +sem_Args_ListArgs :: T_MExprList -> + T_Args +sem_Args_ListArgs args_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _argsOindent :: Int + _argsOsomeElementsInListAreMultiline :: Bool + _lhsOcopy :: Args + _lhsOcomments :: ([MToken]) + _argsOcomments :: ([MToken]) + _argsOforceMultiline :: Bool + _argsOppconf :: PrettyPrintConfig + _argsIcomments :: ([MToken]) + _argsIcopy :: MExprList + _argsIisAssociative :: Bool + _argsIisLast :: Bool + _argsIisMultiline :: Bool + _argsIpos :: Region + _argsIprecedence :: OperatorLevel + _argsIpretty :: Doc + _argsIstartsWithNewline :: Bool + _lhsOpretty = + ({-# LINE 1068 "src/GLua/AG/PrettyPrint.ag" #-} + if _lhsIforceMultiline then + zchr '(' $+$ + _argsIpretty $+$ + indent _lhsIppconf _lhsIindent (zchr ')') + else + parens _lhsIppconf _emptyParams _argsIpretty + {-# LINE 760 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1075 "src/GLua/AG/PrettyPrint.ag" #-} + _argsIisMultiline + {-# LINE 765 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _emptyParams = + ({-# LINE 1076 "src/GLua/AG/PrettyPrint.ag" #-} + toEmpty $ null _argsIcopy + {-# LINE 770 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argsOindent = + ({-# LINE 1077 "src/GLua/AG/PrettyPrint.ag" #-} + if _lhsIforceMultiline then _lhsIindent + 1 else _lhsIindent + {-# LINE 775 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argsOsomeElementsInListAreMultiline = + ({-# LINE 1078 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 780 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ListArgs _argsIcopy + {-# LINE 785 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 790 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _argsIcomments + {-# LINE 795 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 800 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argsOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 805 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argsOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 810 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _argsIcomments,_argsIcopy,_argsIisAssociative,_argsIisLast,_argsIisMultiline,_argsIpos,_argsIprecedence,_argsIpretty,_argsIstartsWithNewline) = + args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf _argsOsomeElementsInListAreMultiline + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty))) +sem_Args_TableArg :: T_FieldList -> + T_Args +sem_Args_TableArg arg_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _argOindent :: Int + _argOsomeElementsInListAreMultiline :: Bool + _lhsOcopy :: Args + _lhsOcomments :: ([MToken]) + _argOcomments :: ([MToken]) + _argOforceMultiline :: Bool + _argOppconf :: PrettyPrintConfig + _argIcomments :: ([MToken]) + _argIcopy :: FieldList + _argIisMultiline :: Bool + _argIisNil :: Bool + _argIpretty :: Doc + _lhsOpretty = + ({-# LINE 1080 "src/GLua/AG/PrettyPrint.ag" #-} + if _argIisMultiline then _prettyMulti else _prettySingle + {-# LINE 839 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1081 "src/GLua/AG/PrettyPrint.ag" #-} + _argIisMultiline + {-# LINE 844 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _prettyMulti = + ({-# LINE 1082 "src/GLua/AG/PrettyPrint.ag" #-} + zchr '{' $+$ _argIpretty $+$ indent _lhsIppconf _lhsIindent (zchr '}') + {-# LINE 849 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _prettySingle = + ({-# LINE 1083 "src/GLua/AG/PrettyPrint.ag" #-} + braces _lhsIppconf _emptyContents _argIpretty + {-# LINE 854 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _emptyContents = + ({-# LINE 1084 "src/GLua/AG/PrettyPrint.ag" #-} + toEmpty $ null _argIcopy + {-# LINE 859 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argOindent = + ({-# LINE 1085 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + (if _argIisMultiline then 1 else 0) + {-# LINE 864 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argOsomeElementsInListAreMultiline = + ({-# LINE 1086 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 869 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + TableArg _argIcopy + {-# LINE 874 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 879 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _argIcomments + {-# LINE 884 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 889 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 894 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 899 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _argIcomments,_argIcopy,_argIisMultiline,_argIisNil,_argIpretty) = + arg_ _argOcomments _argOforceMultiline _argOindent _argOppconf _argOsomeElementsInListAreMultiline + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty))) +sem_Args_StringArg :: MToken -> + T_Args +sem_Args_StringArg arg_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOcopy :: Args + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1088 "src/GLua/AG/PrettyPrint.ag" #-} + tok arg_ + {-# LINE 918 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1089 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 923 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + StringArg arg_ + {-# LINE 928 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 933 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 938 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty))) +-- BinOp ------------------------------------------------------- +-- cata +sem_BinOp :: BinOp -> + T_BinOp +sem_BinOp (AOr) = + (sem_BinOp_AOr) +sem_BinOp (AAnd) = + (sem_BinOp_AAnd) +sem_BinOp (ALT) = + (sem_BinOp_ALT) +sem_BinOp (AGT) = + (sem_BinOp_AGT) +sem_BinOp (ALEQ) = + (sem_BinOp_ALEQ) +sem_BinOp (AGEQ) = + (sem_BinOp_AGEQ) +sem_BinOp (ANEq) = + (sem_BinOp_ANEq) +sem_BinOp (AEq) = + (sem_BinOp_AEq) +sem_BinOp (AConcatenate) = + (sem_BinOp_AConcatenate) +sem_BinOp (APlus) = + (sem_BinOp_APlus) +sem_BinOp (BinMinus) = + (sem_BinOp_BinMinus) +sem_BinOp (AMultiply) = + (sem_BinOp_AMultiply) +sem_BinOp (ADivide) = + (sem_BinOp_ADivide) +sem_BinOp (AModulus) = + (sem_BinOp_AModulus) +sem_BinOp (APower) = + (sem_BinOp_APower) +-- semantic domain +type T_BinOp = ([MToken]) -> + Int -> + PrettyPrintConfig -> + ( ([MToken]),BinOp,Bool,Bool,OperatorLevel,Doc) +data Inh_BinOp = Inh_BinOp {comments_Inh_BinOp :: ([MToken]),indent_Inh_BinOp :: Int,ppconf_Inh_BinOp :: PrettyPrintConfig} +data Syn_BinOp = Syn_BinOp {comments_Syn_BinOp :: ([MToken]),copy_Syn_BinOp :: BinOp,isAssociative_Syn_BinOp :: Bool,isMultiline_Syn_BinOp :: Bool,precedence_Syn_BinOp :: OperatorLevel,pretty_Syn_BinOp :: Doc} +wrap_BinOp :: T_BinOp -> + Inh_BinOp -> + Syn_BinOp +wrap_BinOp sem (Inh_BinOp _lhsIcomments _lhsIindent _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf + in (Syn_BinOp _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty)) +sem_BinOp_AOr :: T_BinOp +sem_BinOp_AOr = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1196 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText (if cStyle _lhsIppconf then "||" else "or") + {-# LINE 1002 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1197 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1007 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1198 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel1 + {-# LINE 1012 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1199 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 1017 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AOr + {-# LINE 1022 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1027 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1032 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_BinOp_AAnd :: T_BinOp +sem_BinOp_AAnd = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1191 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText (if cStyle _lhsIppconf then "&&" else "and") + {-# LINE 1049 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1192 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1054 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1193 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel2 + {-# LINE 1059 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1194 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 1064 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AAnd + {-# LINE 1069 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1074 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1079 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_BinOp_ALT :: T_BinOp +sem_BinOp_ALT = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1161 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "<" + {-# LINE 1096 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1162 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1101 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1163 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel3 + {-# LINE 1106 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1164 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 1111 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ALT + {-# LINE 1116 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1121 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1126 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_BinOp_AGT :: T_BinOp +sem_BinOp_AGT = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1171 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText ">" + {-# LINE 1143 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1172 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1148 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1173 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel3 + {-# LINE 1153 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1174 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 1158 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AGT + {-# LINE 1163 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1168 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1173 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_BinOp_ALEQ :: T_BinOp +sem_BinOp_ALEQ = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1166 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "<=" + {-# LINE 1190 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1167 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1195 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1168 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel3 + {-# LINE 1200 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1169 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 1205 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ALEQ + {-# LINE 1210 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1215 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1220 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_BinOp_AGEQ :: T_BinOp +sem_BinOp_AGEQ = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1176 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText ">=" + {-# LINE 1237 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1177 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1242 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1178 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel3 + {-# LINE 1247 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1179 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 1252 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AGEQ + {-# LINE 1257 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1262 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1267 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_BinOp_ANEq :: T_BinOp +sem_BinOp_ANEq = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1186 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText (if cStyle _lhsIppconf then "!=" else "~=") + {-# LINE 1284 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1187 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1289 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1188 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel3 + {-# LINE 1294 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1189 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 1299 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ANEq + {-# LINE 1304 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1309 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1314 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_BinOp_AEq :: T_BinOp +sem_BinOp_AEq = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1181 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "==" + {-# LINE 1331 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1182 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1336 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1183 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel3 + {-# LINE 1341 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1184 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 1346 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AEq + {-# LINE 1351 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1356 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1361 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_BinOp_AConcatenate :: T_BinOp +sem_BinOp_AConcatenate = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1156 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText ".." + {-# LINE 1378 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1157 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1383 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1158 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel4 + {-# LINE 1388 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1159 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 1393 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AConcatenate + {-# LINE 1398 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1403 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1408 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_BinOp_APlus :: T_BinOp +sem_BinOp_APlus = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1126 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "+" + {-# LINE 1425 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1127 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1430 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1128 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel5 + {-# LINE 1435 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1129 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 1440 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + APlus + {-# LINE 1445 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1450 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1455 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_BinOp_BinMinus :: T_BinOp +sem_BinOp_BinMinus = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1131 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "-" + {-# LINE 1472 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1132 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1477 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1133 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel5 + {-# LINE 1482 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1134 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1487 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + BinMinus + {-# LINE 1492 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1497 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1502 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_BinOp_AMultiply :: T_BinOp +sem_BinOp_AMultiply = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1136 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "*" + {-# LINE 1519 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1137 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1524 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1138 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel6 + {-# LINE 1529 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1139 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 1534 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AMultiply + {-# LINE 1539 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1544 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1549 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_BinOp_ADivide :: T_BinOp +sem_BinOp_ADivide = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1141 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "/" + {-# LINE 1566 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1142 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1571 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1143 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel6 + {-# LINE 1576 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1144 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1581 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ADivide + {-# LINE 1586 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1591 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1596 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_BinOp_AModulus :: T_BinOp +sem_BinOp_AModulus = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1146 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "%" + {-# LINE 1613 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1147 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1618 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1148 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel6 + {-# LINE 1623 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1149 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1628 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AModulus + {-# LINE 1633 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1638 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1643 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_BinOp_APower :: T_BinOp +sem_BinOp_APower = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOcopy :: BinOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1151 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "^" + {-# LINE 1660 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1152 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1665 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1153 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 1670 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 1154 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 1675 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + APower + {-# LINE 1680 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1685 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1690 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +-- Block ------------------------------------------------------- +-- cata +sem_Block :: Block -> + T_Block +sem_Block (Block _pos _stats _ret) = + (sem_Block_Block _pos (sem_MStatList _stats) (sem_AReturn _ret)) +-- semantic domain +type T_Block = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + Region -> + ( ([MToken]),Block,Bool,Region,Doc,Int) +data Inh_Block = Inh_Block {comments_Inh_Block :: ([MToken]),forceMultiline_Inh_Block :: Bool,indent_Inh_Block :: Int,ppconf_Inh_Block :: PrettyPrintConfig,statRegion_Inh_Block :: Region} +data Syn_Block = Syn_Block {comments_Syn_Block :: ([MToken]),copy_Syn_Block :: Block,isMultiline_Syn_Block :: Bool,pos_Syn_Block :: Region,pretty_Syn_Block :: Doc,statementCount_Syn_Block :: Int} +wrap_Block :: T_Block -> + Inh_Block -> + Syn_Block +wrap_Block sem (Inh_Block _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion + in (Syn_Block _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty _lhsOstatementCount)) +sem_Block_Block :: Region -> + T_MStatList -> + T_AReturn -> + T_Block +sem_Block_Block pos_ stats_ ret_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOpos :: Region + _lhsOcomments :: ([MToken]) + _lhsOstatementCount :: Int + _lhsOcopy :: Block + _lhsOisMultiline :: Bool + _statsOcomments :: ([MToken]) + _statsOforceMultiline :: Bool + _statsOindent :: Int + _statsOppconf :: PrettyPrintConfig + _statsOstatRegion :: Region + _retOcomments :: ([MToken]) + _retOforceMultiline :: Bool + _retOindent :: Int + _retOppconf :: PrettyPrintConfig + _statsIcomments :: ([MToken]) + _statsIcopy :: MStatList + _statsIisLast :: Bool + _statsIisMultiline :: Bool + _statsIpretty :: Doc + _statsIstartsWithExprPrefixExpression :: Bool + _statsIstatementCount :: Int + _retIcomments :: ([MToken]) + _retIcopy :: AReturn + _retIisMultiline :: Bool + _retIpretty :: Doc + _retIstatementCount :: Int + _lhsOpretty = + ({-# LINE 633 "src/GLua/AG/PrettyPrint.ag" #-} + if _isMultiline + then _statsIpretty $+$ _retIpretty $+$ _prettyCommentsAfter + else _statsIpretty <-> _retIpretty + {-# LINE 1756 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpos = + ({-# LINE 637 "src/GLua/AG/PrettyPrint.ag" #-} + pos_ + {-# LINE 1761 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _statementCount = + ({-# LINE 638 "src/GLua/AG/PrettyPrint.ag" #-} + _statsIstatementCount + _retIstatementCount + {-# LINE 1766 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _isMultiline = + ({-# LINE 639 "src/GLua/AG/PrettyPrint.ag" #-} + _statsIisMultiline || _retIisMultiline || _statementCount > 1 || not (null $ fst $ _commentsAfter ) + {-# LINE 1771 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsAfter = + ({-# LINE 640 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos _) -> pos `beforeEnd` pos_) _retIcomments + {-# LINE 1776 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _prettyCommentsAfter = + ({-# LINE 641 "src/GLua/AG/PrettyPrint.ag" #-} + renderMLComments _lhsIppconf _lhsIindent $ fst _commentsAfter + {-# LINE 1781 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 642 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsAfter + {-# LINE 1786 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstatementCount = + ({-# LINE 314 "src/GLua/AG/PrettyPrint.ag" #-} + _statementCount + {-# LINE 1791 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + Block pos_ _statsIcopy _retIcopy + {-# LINE 1796 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1801 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 251 "src/GLua/AG/PrettyPrint.ag" #-} + _isMultiline + {-# LINE 1806 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _statsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1811 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _statsOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 1816 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _statsOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 1821 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _statsOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 1826 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _statsOstatRegion = + ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIstatRegion + {-# LINE 1831 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _retOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _statsIcomments + {-# LINE 1836 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _retOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 1841 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _retOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 1846 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _retOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 1851 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _statsIcomments,_statsIcopy,_statsIisLast,_statsIisMultiline,_statsIpretty,_statsIstartsWithExprPrefixExpression,_statsIstatementCount) = + stats_ _statsOcomments _statsOforceMultiline _statsOindent _statsOppconf _statsOstatRegion + ( _retIcomments,_retIcopy,_retIisMultiline,_retIpretty,_retIstatementCount) = + ret_ _retOcomments _retOforceMultiline _retOindent _retOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstatementCount))) +-- Declaration ------------------------------------------------- +-- cata +sem_Declaration :: Declaration -> + T_Declaration +sem_Declaration ( x1,x2) = + (sem_Declaration_Tuple (sem_PrefixExp x1) (sem_MaybeMExpr x2)) +-- semantic domain +type T_Declaration = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + ( ([MToken]),Declaration,Bool,Doc,Bool,Bool,Doc,Bool,Doc) +data Inh_Declaration = Inh_Declaration {comments_Inh_Declaration :: ([MToken]),forceMultiline_Inh_Declaration :: Bool,indent_Inh_Declaration :: Int,ppconf_Inh_Declaration :: PrettyPrintConfig} +data Syn_Declaration = Syn_Declaration {comments_Syn_Declaration :: ([MToken]),copy_Syn_Declaration :: Declaration,endsWithPrefixExpression_Syn_Declaration :: Bool,exprPretty_Syn_Declaration :: Doc,isDefined_Syn_Declaration :: Bool,isMultiline_Syn_Declaration :: Bool,pretty_Syn_Declaration :: Doc,startsWithExprPrefixExpression_Syn_Declaration :: Bool,varPretty_Syn_Declaration :: Doc} +wrap_Declaration :: T_Declaration -> + Inh_Declaration -> + Syn_Declaration +wrap_Declaration sem (Inh_Declaration _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf + in (Syn_Declaration _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOexprPretty _lhsOisDefined _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOvarPretty)) +sem_Declaration_Tuple :: T_PrefixExp -> + T_MaybeMExpr -> + T_Declaration +sem_Declaration_Tuple x1_ x2_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOvarPretty :: Doc + _lhsOexprPretty :: Doc + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _x1OparentOperatorPrecedence :: OperatorLevel + _x1OparentOperatorAssociative :: Bool + _lhsOisDefined :: Bool + _lhsOcopy :: Declaration + _lhsOcomments :: ([MToken]) + _lhsOpretty :: Doc + _x1Ocomments :: ([MToken]) + _x1OforceMultiline :: Bool + _x1Oindent :: Int + _x1Oppconf :: PrettyPrintConfig + _x2Ocomments :: ([MToken]) + _x2OforceMultiline :: Bool + _x2Oindent :: Int + _x2Oppconf :: PrettyPrintConfig + _x1Icomments :: ([MToken]) + _x1Icopy :: PrefixExp + _x1IisAssociative :: Bool + _x1IisLiteral :: Bool + _x1IisMultiline :: Bool + _x1Iprecedence :: OperatorLevel + _x1Ipretty :: Doc + _x1IstartsWithExprPrefixExpression :: Bool + _x2Icomments :: ([MToken]) + _x2Icopy :: MaybeMExpr + _x2IendsWithPrefixExpression :: Bool + _x2IisAssociative :: Bool + _x2IisDefined :: Bool + _x2IisMultiline :: Bool + _x2Iprecedence :: OperatorLevel + _x2Ipretty :: Doc + _lhsOvarPretty = + ({-# LINE 525 "src/GLua/AG/PrettyPrint.ag" #-} + _x1Ipretty + {-# LINE 1924 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOexprPretty = + ({-# LINE 526 "src/GLua/AG/PrettyPrint.ag" #-} + _x2Ipretty + {-# LINE 1929 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 527 "src/GLua/AG/PrettyPrint.ag" #-} + _x1IstartsWithExprPrefixExpression + {-# LINE 1934 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 528 "src/GLua/AG/PrettyPrint.ag" #-} + _x2IendsWithPrefixExpression + {-# LINE 1939 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 529 "src/GLua/AG/PrettyPrint.ag" #-} + _x1IisMultiline || _x2IisMultiline + {-# LINE 1944 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x1OparentOperatorPrecedence = + ({-# LINE 530 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 1949 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x1OparentOperatorAssociative = + ({-# LINE 531 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 1954 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisDefined = + ({-# LINE 276 "src/GLua/AG/PrettyPrint.ag" #-} + _x2IisDefined + {-# LINE 1959 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + (_x1Icopy,_x2Icopy) + {-# LINE 1964 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 1969 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _x2Icomments + {-# LINE 1974 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpretty = + ({-# LINE 249 "src/GLua/AG/PrettyPrint.ag" #-} + _x2Ipretty + {-# LINE 1979 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x1Ocomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 1984 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x1OforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 1989 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x1Oindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 1994 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x1Oppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 1999 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x2Ocomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _x1Icomments + {-# LINE 2004 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x2OforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 2009 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x2Oindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 2014 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x2Oppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 2019 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _x1Icomments,_x1Icopy,_x1IisAssociative,_x1IisLiteral,_x1IisMultiline,_x1Iprecedence,_x1Ipretty,_x1IstartsWithExprPrefixExpression) = + x1_ _x1Ocomments _x1OforceMultiline _x1Oindent _x1OparentOperatorAssociative _x1OparentOperatorPrecedence _x1Oppconf + ( _x2Icomments,_x2Icopy,_x2IendsWithPrefixExpression,_x2IisAssociative,_x2IisDefined,_x2IisMultiline,_x2Iprecedence,_x2Ipretty) = + x2_ _x2Ocomments _x2OforceMultiline _x2Oindent _x2Oppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty))) +-- Else -------------------------------------------------------- +-- cata +sem_Else :: Else -> + T_Else +sem_Else (Prelude.Just x) = + (sem_Else_Just (sem_MElse x)) +sem_Else Prelude.Nothing = + sem_Else_Nothing +-- semantic domain +type T_Else = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + Region -> + ( ([MToken]),Else,Bool,Bool,Region,Doc) +data Inh_Else = Inh_Else {comments_Inh_Else :: ([MToken]),forceMultiline_Inh_Else :: Bool,indent_Inh_Else :: Int,ppconf_Inh_Else :: PrettyPrintConfig,statRegion_Inh_Else :: Region} +data Syn_Else = Syn_Else {comments_Syn_Else :: ([MToken]),copy_Syn_Else :: Else,elsesExist_Syn_Else :: Bool,isMultiline_Syn_Else :: Bool,pos_Syn_Else :: Region,pretty_Syn_Else :: Doc} +wrap_Else :: T_Else -> + Inh_Else -> + Syn_Else +wrap_Else sem (Inh_Else _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion + in (Syn_Else _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty)) +sem_Else_Just :: T_MElse -> + T_Else +sem_Else_Just just_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOelsesExist :: Bool + _lhsOisMultiline :: Bool + _lhsOcopy :: Else + _lhsOcomments :: ([MToken]) + _lhsOpos :: Region + _lhsOpretty :: Doc + _justOcomments :: ([MToken]) + _justOforceMultiline :: Bool + _justOindent :: Int + _justOppconf :: PrettyPrintConfig + _justOstatRegion :: Region + _justIcomments :: ([MToken]) + _justIcopy :: MElse + _justIelsesExist :: Bool + _justIisMultiline :: Bool + _justIpos :: Region + _justIpretty :: Doc + _lhsOelsesExist = + ({-# LINE 595 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 2077 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 596 "src/GLua/AG/PrettyPrint.ag" #-} + _justIisMultiline + {-# LINE 2082 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + Just _justIcopy + {-# LINE 2087 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 2092 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _justIcomments + {-# LINE 2097 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpos = + ({-# LINE 300 "src/GLua/AG/PrettyPrint.ag" #-} + _justIpos + {-# LINE 2102 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpretty = + ({-# LINE 249 "src/GLua/AG/PrettyPrint.ag" #-} + _justIpretty + {-# LINE 2107 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _justOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 2112 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _justOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 2117 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _justOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 2122 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _justOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 2127 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _justOstatRegion = + ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIstatRegion + {-# LINE 2132 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _justIcomments,_justIcopy,_justIelsesExist,_justIisMultiline,_justIpos,_justIpretty) = + just_ _justOcomments _justOforceMultiline _justOindent _justOppconf _justOstatRegion + in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty))) +sem_Else_Nothing :: T_Else +sem_Else_Nothing = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOpos :: Region + _lhsOisMultiline :: Bool + _lhsOelsesExist :: Bool + _lhsOcopy :: Else + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 598 "src/GLua/AG/PrettyPrint.ag" #-} + empty + {-# LINE 2153 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpos = + ({-# LINE 599 "src/GLua/AG/PrettyPrint.ag" #-} + emptyRg + {-# LINE 2158 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 600 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2163 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOelsesExist = + ({-# LINE 317 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2168 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + Nothing + {-# LINE 2173 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 2178 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 2183 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty))) +-- ElseIf ------------------------------------------------------ +-- cata +sem_ElseIf :: ElseIf -> + T_ElseIf +sem_ElseIf ( x1,x2) = + (sem_ElseIf_Tuple (sem_MExpr x1) (sem_Block x2)) +-- semantic domain +type T_ElseIf = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + ( ([MToken]),ElseIf,Bool,Doc) +data Inh_ElseIf = Inh_ElseIf {comments_Inh_ElseIf :: ([MToken]),forceMultiline_Inh_ElseIf :: Bool,indent_Inh_ElseIf :: Int,ppconf_Inh_ElseIf :: PrettyPrintConfig} +data Syn_ElseIf = Syn_ElseIf {comments_Syn_ElseIf :: ([MToken]),copy_Syn_ElseIf :: ElseIf,isMultiline_Syn_ElseIf :: Bool,pretty_Syn_ElseIf :: Doc} +wrap_ElseIf :: T_ElseIf -> + Inh_ElseIf -> + Syn_ElseIf +wrap_ElseIf sem (Inh_ElseIf _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf + in (Syn_ElseIf _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty)) +sem_ElseIf_Tuple :: T_MExpr -> + T_Block -> + T_ElseIf +sem_ElseIf_Tuple x1_ x2_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _x2Oindent :: Int + _x2OstatRegion :: Region + _x1OparentOperatorPrecedence :: OperatorLevel + _x1OparentOperatorAssociative :: Bool + _lhsOcopy :: ElseIf + _lhsOcomments :: ([MToken]) + _x1Ocomments :: ([MToken]) + _x1OforceMultiline :: Bool + _x1Oindent :: Int + _x1Oppconf :: PrettyPrintConfig + _x2Ocomments :: ([MToken]) + _x2OforceMultiline :: Bool + _x2Oppconf :: PrettyPrintConfig + _x1Icomments :: ([MToken]) + _x1Icopy :: MExpr + _x1IendsWithPrefixExpression :: Bool + _x1IisAssociative :: Bool + _x1IisLiteral :: Bool + _x1IisMultiline :: Bool + _x1Ipos :: Region + _x1Iprecedence :: OperatorLevel + _x1Ipretty :: Doc + _x2Icomments :: ([MToken]) + _x2Icopy :: Block + _x2IisMultiline :: Bool + _x2Ipos :: Region + _x2Ipretty :: Doc + _x2IstatementCount :: Int + _lhsOpretty = + ({-# LINE 570 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "elseif" <-> _x1Ipretty <-> zeroWidthText "then" $+$ _x2Ipretty + {-# LINE 2247 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 571 "src/GLua/AG/PrettyPrint.ag" #-} + _x1IisMultiline || _x2IisMultiline + {-# LINE 2252 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x2Oindent = + ({-# LINE 572 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + 1 + {-# LINE 2257 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x2OstatRegion = + ({-# LINE 573 "src/GLua/AG/PrettyPrint.ag" #-} + emptyRg + {-# LINE 2262 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x1OparentOperatorPrecedence = + ({-# LINE 574 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 2267 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x1OparentOperatorAssociative = + ({-# LINE 575 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 2272 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + (_x1Icopy,_x2Icopy) + {-# LINE 2277 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 2282 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _x2Icomments + {-# LINE 2287 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x1Ocomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 2292 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x1OforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 2297 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x1Oindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 2302 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x1Oppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 2307 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x2Ocomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _x1Icomments + {-# LINE 2312 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x2OforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 2317 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _x2Oppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 2322 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _x1Icomments,_x1Icopy,_x1IendsWithPrefixExpression,_x1IisAssociative,_x1IisLiteral,_x1IisMultiline,_x1Ipos,_x1Iprecedence,_x1Ipretty) = + x1_ _x1Ocomments _x1OforceMultiline _x1Oindent _x1OparentOperatorAssociative _x1OparentOperatorPrecedence _x1Oppconf + ( _x2Icomments,_x2Icopy,_x2IisMultiline,_x2Ipos,_x2Ipretty,_x2IstatementCount) = + x2_ _x2Ocomments _x2OforceMultiline _x2Oindent _x2Oppconf _x2OstatRegion + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty))) +-- ElseIfList -------------------------------------------------- +-- cata +sem_ElseIfList :: ElseIfList -> + T_ElseIfList +sem_ElseIfList list = + (Prelude.foldr sem_ElseIfList_Cons sem_ElseIfList_Nil (Prelude.map sem_MElseIf list)) +-- semantic domain +type T_ElseIfList = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + ( ([MToken]),ElseIfList,Bool,Bool,Region,Doc) +data Inh_ElseIfList = Inh_ElseIfList {comments_Inh_ElseIfList :: ([MToken]),forceMultiline_Inh_ElseIfList :: Bool,indent_Inh_ElseIfList :: Int,ppconf_Inh_ElseIfList :: PrettyPrintConfig} +data Syn_ElseIfList = Syn_ElseIfList {comments_Syn_ElseIfList :: ([MToken]),copy_Syn_ElseIfList :: ElseIfList,elsesExist_Syn_ElseIfList :: Bool,isMultiline_Syn_ElseIfList :: Bool,pos_Syn_ElseIfList :: Region,pretty_Syn_ElseIfList :: Doc} +wrap_ElseIfList :: T_ElseIfList -> + Inh_ElseIfList -> + Syn_ElseIfList +wrap_ElseIfList sem (Inh_ElseIfList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf + in (Syn_ElseIfList _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty)) +sem_ElseIfList_Cons :: T_MElseIf -> + T_ElseIfList -> + T_ElseIfList +sem_ElseIfList_Cons hd_ tl_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOelsesExist :: Bool + _lhsOpos :: Region + _lhsOisMultiline :: Bool + _lhsOcopy :: ElseIfList + _lhsOcomments :: ([MToken]) + _hdOcomments :: ([MToken]) + _hdOforceMultiline :: Bool + _hdOindent :: Int + _hdOppconf :: PrettyPrintConfig + _tlOcomments :: ([MToken]) + _tlOforceMultiline :: Bool + _tlOindent :: Int + _tlOppconf :: PrettyPrintConfig + _hdIcomments :: ([MToken]) + _hdIcopy :: MElseIf + _hdIisMultiline :: Bool + _hdIpos :: Region + _hdIpretty :: Doc + _tlIcomments :: ([MToken]) + _tlIcopy :: ElseIfList + _tlIelsesExist :: Bool + _tlIisMultiline :: Bool + _tlIpos :: Region + _tlIpretty :: Doc + _lhsOpretty = + ({-# LINE 584 "src/GLua/AG/PrettyPrint.ag" #-} + indent _lhsIppconf _lhsIindent _hdIpretty $+$ _tlIpretty + {-# LINE 2385 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOelsesExist = + ({-# LINE 585 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 2390 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpos = + ({-# LINE 586 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIpos + {-# LINE 2395 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 587 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIisMultiline || _tlIisMultiline + {-# LINE 2400 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 2405 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 2410 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _tlIcomments + {-# LINE 2415 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 2420 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 2425 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 2430 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 2435 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIcomments + {-# LINE 2440 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 2445 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 2450 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 2455 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _hdIcomments,_hdIcopy,_hdIisMultiline,_hdIpos,_hdIpretty) = + hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf + ( _tlIcomments,_tlIcopy,_tlIelsesExist,_tlIisMultiline,_tlIpos,_tlIpretty) = + tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty))) +sem_ElseIfList_Nil :: T_ElseIfList +sem_ElseIfList_Nil = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOpos :: Region + _lhsOisMultiline :: Bool + _lhsOelsesExist :: Bool + _lhsOcopy :: ElseIfList + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 589 "src/GLua/AG/PrettyPrint.ag" #-} + empty + {-# LINE 2477 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpos = + ({-# LINE 590 "src/GLua/AG/PrettyPrint.ag" #-} + emptyRg + {-# LINE 2482 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 591 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2487 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOelsesExist = + ({-# LINE 317 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2492 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + [] + {-# LINE 2497 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 2502 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 2507 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty))) +-- Expr -------------------------------------------------------- +-- cata +sem_Expr :: Expr -> + T_Expr +sem_Expr (ANil) = + (sem_Expr_ANil) +sem_Expr (AFalse) = + (sem_Expr_AFalse) +sem_Expr (ATrue) = + (sem_Expr_ATrue) +sem_Expr (ANumber _num) = + (sem_Expr_ANumber _num) +sem_Expr (AString _str) = + (sem_Expr_AString _str) +sem_Expr (AVarArg) = + (sem_Expr_AVarArg) +sem_Expr (AnonymousFunc _pars _body) = + (sem_Expr_AnonymousFunc _pars (sem_Block _body)) +sem_Expr (APrefixExpr _pexpr) = + (sem_Expr_APrefixExpr (sem_PrefixExp _pexpr)) +sem_Expr (ATableConstructor _fields) = + (sem_Expr_ATableConstructor (sem_FieldList _fields)) +sem_Expr (BinOpExpr _op _left _right) = + (sem_Expr_BinOpExpr (sem_BinOp _op) (sem_MExpr _left) (sem_MExpr _right)) +sem_Expr (UnOpExpr _op _right) = + (sem_Expr_UnOpExpr (sem_UnOp _op) (sem_MExpr _right)) +-- semantic domain +type T_Expr = ([MToken]) -> + Bool -> + Int -> + Bool -> + OperatorLevel -> + PrettyPrintConfig -> + Region -> + ( ([MToken]),Expr,Bool,Bool,Bool,Bool,OperatorLevel,Doc) +data Inh_Expr = Inh_Expr {comments_Inh_Expr :: ([MToken]),forceMultiline_Inh_Expr :: Bool,indent_Inh_Expr :: Int,parentOperatorAssociative_Inh_Expr :: Bool,parentOperatorPrecedence_Inh_Expr :: OperatorLevel,ppconf_Inh_Expr :: PrettyPrintConfig,statRegion_Inh_Expr :: Region} +data Syn_Expr = Syn_Expr {comments_Syn_Expr :: ([MToken]),copy_Syn_Expr :: Expr,endsWithPrefixExpression_Syn_Expr :: Bool,isAssociative_Syn_Expr :: Bool,isLiteral_Syn_Expr :: Bool,isMultiline_Syn_Expr :: Bool,precedence_Syn_Expr :: OperatorLevel,pretty_Syn_Expr :: Doc} +wrap_Expr :: T_Expr -> + Inh_Expr -> + Syn_Expr +wrap_Expr sem (Inh_Expr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf _lhsIstatRegion) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf _lhsIstatRegion + in (Syn_Expr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOprecedence _lhsOpretty)) +sem_Expr_ANil :: T_Expr +sem_Expr_ANil = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIparentOperatorAssociative + _lhsIparentOperatorPrecedence + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOisLiteral :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: Expr + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 985 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "nil" + {-# LINE 2573 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLiteral = + ({-# LINE 986 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 2578 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 987 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2583 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 988 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2588 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2593 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 2598 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ANil + {-# LINE 2603 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 2608 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 2613 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_Expr_AFalse :: T_Expr +sem_Expr_AFalse = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIparentOperatorAssociative + _lhsIparentOperatorPrecedence + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOisLiteral :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: Expr + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 990 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "false" + {-# LINE 2636 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLiteral = + ({-# LINE 991 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 2641 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 992 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2646 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 993 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2651 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2656 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 2661 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AFalse + {-# LINE 2666 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 2671 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 2676 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_Expr_ATrue :: T_Expr +sem_Expr_ATrue = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIparentOperatorAssociative + _lhsIparentOperatorPrecedence + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOisLiteral :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: Expr + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 995 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "true" + {-# LINE 2699 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLiteral = + ({-# LINE 996 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 2704 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 997 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2709 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 998 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2714 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2719 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 2724 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ATrue + {-# LINE 2729 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 2734 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 2739 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_Expr_ANumber :: String -> + T_Expr +sem_Expr_ANumber num_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIparentOperatorAssociative + _lhsIparentOperatorPrecedence + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOisLiteral :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: Expr + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1000 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText num_ + {-# LINE 2763 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLiteral = + ({-# LINE 1001 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 2768 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 1002 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2773 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1003 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2778 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2783 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 2788 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ANumber num_ + {-# LINE 2793 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 2798 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 2803 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_Expr_AString :: MToken -> + T_Expr +sem_Expr_AString str_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIparentOperatorAssociative + _lhsIparentOperatorPrecedence + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOisLiteral :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: Expr + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1005 "src/GLua/AG/PrettyPrint.ag" #-} + tok str_ + {-# LINE 2827 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLiteral = + ({-# LINE 1006 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 2832 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 1007 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2837 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1008 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2842 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2847 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 2852 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AString str_ + {-# LINE 2857 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 2862 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 2867 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_Expr_AVarArg :: T_Expr +sem_Expr_AVarArg = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIparentOperatorAssociative + _lhsIparentOperatorPrecedence + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOisLiteral :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: Expr + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1010 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "..." + {-# LINE 2890 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLiteral = + ({-# LINE 1011 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 2895 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 1012 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2900 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1013 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2905 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2910 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 2915 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AVarArg + {-# LINE 2920 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 2925 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 2930 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_Expr_AnonymousFunc :: ([MToken]) -> + T_Block -> + T_Expr +sem_Expr_AnonymousFunc pars_ body_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIparentOperatorAssociative + _lhsIparentOperatorPrecedence + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOendsWithPrefixExpression :: Bool + _bodyOindent :: Int + _lhsOpretty :: Doc + _lhsOisAssociative :: Bool + _lhsOisLiteral :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: Expr + _lhsOcomments :: ([MToken]) + _lhsOisMultiline :: Bool + _bodyOcomments :: ([MToken]) + _bodyOforceMultiline :: Bool + _bodyOppconf :: PrettyPrintConfig + _bodyOstatRegion :: Region + _bodyIcomments :: ([MToken]) + _bodyIcopy :: Block + _bodyIisMultiline :: Bool + _bodyIpos :: Region + _bodyIpretty :: Doc + _bodyIstatementCount :: Int + _isMultiline = + ({-# LINE 1015 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline || _bodyIisMultiline + {-# LINE 2966 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 1016 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 2971 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _singleLinePretty = + ({-# LINE 1017 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "function" + <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) pars_) + <-> _bodyIpretty + <-> zeroWidthText "end" + {-# LINE 2979 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _multilinePretty = + ({-# LINE 1022 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "function" + <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) pars_) + $+$ _bodyIpretty + $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") + {-# LINE 2987 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _comma = + ({-# LINE 1027 "src/GLua/AG/PrettyPrint.ag" #-} + (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) + <> zchr ',' + <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty) + {-# LINE 2994 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _emptyParams = + ({-# LINE 1031 "src/GLua/AG/PrettyPrint.ag" #-} + toEmpty $ null pars_ + {-# LINE 2999 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOindent = + ({-# LINE 1032 "src/GLua/AG/PrettyPrint.ag" #-} + if _isMultiline then _lhsIindent + 1 else 0 + {-# LINE 3004 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpretty = + ({-# LINE 1033 "src/GLua/AG/PrettyPrint.ag" #-} + if _isMultiline then _multilinePretty else _singleLinePretty + {-# LINE 3009 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 3014 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLiteral = + ({-# LINE 263 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 3019 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 3024 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AnonymousFunc pars_ _bodyIcopy + {-# LINE 3029 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 3034 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _bodyIcomments + {-# LINE 3039 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 251 "src/GLua/AG/PrettyPrint.ag" #-} + _isMultiline + {-# LINE 3044 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 3049 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 3054 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 3059 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOstatRegion = + ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIstatRegion + {-# LINE 3064 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = + body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_Expr_APrefixExpr :: T_PrefixExp -> + T_Expr +sem_Expr_APrefixExpr pexpr_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIparentOperatorAssociative + _lhsIparentOperatorPrecedence + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOisLiteral :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: Expr + _lhsOcomments :: ([MToken]) + _pexprOcomments :: ([MToken]) + _pexprOforceMultiline :: Bool + _pexprOindent :: Int + _pexprOparentOperatorAssociative :: Bool + _pexprOparentOperatorPrecedence :: OperatorLevel + _pexprOppconf :: PrettyPrintConfig + _pexprIcomments :: ([MToken]) + _pexprIcopy :: PrefixExp + _pexprIisAssociative :: Bool + _pexprIisLiteral :: Bool + _pexprIisMultiline :: Bool + _pexprIprecedence :: OperatorLevel + _pexprIpretty :: Doc + _pexprIstartsWithExprPrefixExpression :: Bool + _lhsOpretty = + ({-# LINE 1035 "src/GLua/AG/PrettyPrint.ag" #-} + _pexprIpretty + {-# LINE 3104 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 1036 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 3109 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1037 "src/GLua/AG/PrettyPrint.ag" #-} + _pexprIisMultiline + {-# LINE 3114 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + _pexprIisAssociative + {-# LINE 3119 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLiteral = + ({-# LINE 263 "src/GLua/AG/PrettyPrint.ag" #-} + _pexprIisLiteral + {-# LINE 3124 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + _pexprIprecedence + {-# LINE 3129 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + APrefixExpr _pexprIcopy + {-# LINE 3134 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 3139 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _pexprIcomments + {-# LINE 3144 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _pexprOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 3149 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _pexprOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 3154 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _pexprOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 3159 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _pexprOparentOperatorAssociative = + ({-# LINE 260 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIparentOperatorAssociative + {-# LINE 3164 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _pexprOparentOperatorPrecedence = + ({-# LINE 259 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIparentOperatorPrecedence + {-# LINE 3169 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _pexprOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 3174 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _pexprIcomments,_pexprIcopy,_pexprIisAssociative,_pexprIisLiteral,_pexprIisMultiline,_pexprIprecedence,_pexprIpretty,_pexprIstartsWithExprPrefixExpression) = + pexpr_ _pexprOcomments _pexprOforceMultiline _pexprOindent _pexprOparentOperatorAssociative _pexprOparentOperatorPrecedence _pexprOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_Expr_ATableConstructor :: T_FieldList -> + T_Expr +sem_Expr_ATableConstructor fields_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIparentOperatorAssociative + _lhsIparentOperatorPrecedence + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOisLiteral :: Bool + _lhsOendsWithPrefixExpression :: Bool + _fieldsOindent :: Int + _fieldsOsomeElementsInListAreMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: Expr + _lhsOcomments :: ([MToken]) + _lhsOisMultiline :: Bool + _fieldsOcomments :: ([MToken]) + _fieldsOforceMultiline :: Bool + _fieldsOppconf :: PrettyPrintConfig + _fieldsIcomments :: ([MToken]) + _fieldsIcopy :: FieldList + _fieldsIisMultiline :: Bool + _fieldsIisNil :: Bool + _fieldsIpretty :: Doc + _lhsOpretty = + ({-# LINE 1039 "src/GLua/AG/PrettyPrint.ag" #-} + if _isMultiline then _prettyMulti else _prettySingle + {-# LINE 3210 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _isMultiline = + ({-# LINE 1040 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline || _fieldsIisMultiline + {-# LINE 3215 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLiteral = + ({-# LINE 1041 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 3220 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 1042 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 3225 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _prettyMulti = + ({-# LINE 1043 "src/GLua/AG/PrettyPrint.ag" #-} + zchr '{' $+$ _fieldsIpretty $+$ indent _lhsIppconf _lhsIindent (zchr '}') + {-# LINE 3230 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _prettySingle = + ({-# LINE 1044 "src/GLua/AG/PrettyPrint.ag" #-} + braces _lhsIppconf _emptyContents _fieldsIpretty + {-# LINE 3235 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _emptyContents = + ({-# LINE 1045 "src/GLua/AG/PrettyPrint.ag" #-} + toEmpty $ null _fieldsIcopy + {-# LINE 3240 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _fieldsOindent = + ({-# LINE 1046 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + (if _fieldsIisMultiline then 1 else 0) + {-# LINE 3245 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _fieldsOsomeElementsInListAreMultiline = + ({-# LINE 1047 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 3250 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 3255 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 3260 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ATableConstructor _fieldsIcopy + {-# LINE 3265 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 3270 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _fieldsIcomments + {-# LINE 3275 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 251 "src/GLua/AG/PrettyPrint.ag" #-} + _isMultiline + {-# LINE 3280 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _fieldsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 3285 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _fieldsOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 3290 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _fieldsOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 3295 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _fieldsIcomments,_fieldsIcopy,_fieldsIisMultiline,_fieldsIisNil,_fieldsIpretty) = + fields_ _fieldsOcomments _fieldsOforceMultiline _fieldsOindent _fieldsOppconf _fieldsOsomeElementsInListAreMultiline + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_Expr_BinOpExpr :: T_BinOp -> + T_MExpr -> + T_MExpr -> + T_Expr +sem_Expr_BinOpExpr op_ left_ right_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIparentOperatorAssociative + _lhsIparentOperatorPrecedence + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOendsWithPrefixExpression :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOisMultiline :: Bool + _leftOparentOperatorPrecedence :: OperatorLevel + _rightOparentOperatorPrecedence :: OperatorLevel + _leftOparentOperatorAssociative :: Bool + _rightOparentOperatorAssociative :: Bool + _lhsOisAssociative :: Bool + _lhsOisLiteral :: Bool + _lhsOcopy :: Expr + _lhsOcomments :: ([MToken]) + _opOcomments :: ([MToken]) + _opOindent :: Int + _opOppconf :: PrettyPrintConfig + _leftOcomments :: ([MToken]) + _leftOforceMultiline :: Bool + _leftOindent :: Int + _leftOppconf :: PrettyPrintConfig + _rightOcomments :: ([MToken]) + _rightOforceMultiline :: Bool + _rightOindent :: Int + _rightOppconf :: PrettyPrintConfig + _opIcomments :: ([MToken]) + _opIcopy :: BinOp + _opIisAssociative :: Bool + _opIisMultiline :: Bool + _opIprecedence :: OperatorLevel + _opIpretty :: Doc + _leftIcomments :: ([MToken]) + _leftIcopy :: MExpr + _leftIendsWithPrefixExpression :: Bool + _leftIisAssociative :: Bool + _leftIisLiteral :: Bool + _leftIisMultiline :: Bool + _leftIpos :: Region + _leftIprecedence :: OperatorLevel + _leftIpretty :: Doc + _rightIcomments :: ([MToken]) + _rightIcopy :: MExpr + _rightIendsWithPrefixExpression :: Bool + _rightIisAssociative :: Bool + _rightIisLiteral :: Bool + _rightIisMultiline :: Bool + _rightIpos :: Region + _rightIprecedence :: OperatorLevel + _rightIpretty :: Doc + _lhsOpretty = + ({-# LINE 1049 "src/GLua/AG/PrettyPrint.ag" #-} + _leftIpretty <-> _opIpretty <-> _rightIpretty + {-# LINE 3362 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 1050 "src/GLua/AG/PrettyPrint.ag" #-} + _rightIendsWithPrefixExpression + {-# LINE 3367 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1053 "src/GLua/AG/PrettyPrint.ag" #-} + min _opIprecedence $ min _leftIprecedence _rightIprecedence + {-# LINE 3372 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1054 "src/GLua/AG/PrettyPrint.ag" #-} + _leftIisMultiline || _rightIisMultiline + {-# LINE 3377 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _leftOparentOperatorPrecedence = + ({-# LINE 1055 "src/GLua/AG/PrettyPrint.ag" #-} + _opIprecedence + {-# LINE 3382 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _rightOparentOperatorPrecedence = + ({-# LINE 1056 "src/GLua/AG/PrettyPrint.ag" #-} + _opIprecedence + {-# LINE 3387 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _leftOparentOperatorAssociative = + ({-# LINE 1057 "src/GLua/AG/PrettyPrint.ag" #-} + _opIisAssociative + {-# LINE 3392 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _rightOparentOperatorAssociative = + ({-# LINE 1058 "src/GLua/AG/PrettyPrint.ag" #-} + _opIisAssociative + {-# LINE 3397 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + _opIisAssociative && _leftIisAssociative && _rightIisAssociative + {-# LINE 3402 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLiteral = + ({-# LINE 263 "src/GLua/AG/PrettyPrint.ag" #-} + ((\_ _ -> False) _leftIisLiteral _rightIisLiteral) + {-# LINE 3407 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + BinOpExpr _opIcopy _leftIcopy _rightIcopy + {-# LINE 3412 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 3417 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _rightIcomments + {-# LINE 3422 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _opOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 3427 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _opOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 3432 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _opOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 3437 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _leftOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _opIcomments + {-# LINE 3442 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _leftOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 3447 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _leftOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 3452 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _leftOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 3457 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _rightOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _leftIcomments + {-# LINE 3462 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _rightOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 3467 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _rightOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 3472 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _rightOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 3477 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _opIcomments,_opIcopy,_opIisAssociative,_opIisMultiline,_opIprecedence,_opIpretty) = + op_ _opOcomments _opOindent _opOppconf + ( _leftIcomments,_leftIcopy,_leftIendsWithPrefixExpression,_leftIisAssociative,_leftIisLiteral,_leftIisMultiline,_leftIpos,_leftIprecedence,_leftIpretty) = + left_ _leftOcomments _leftOforceMultiline _leftOindent _leftOparentOperatorAssociative _leftOparentOperatorPrecedence _leftOppconf + ( _rightIcomments,_rightIcopy,_rightIendsWithPrefixExpression,_rightIisAssociative,_rightIisLiteral,_rightIisMultiline,_rightIpos,_rightIprecedence,_rightIpretty) = + right_ _rightOcomments _rightOforceMultiline _rightOindent _rightOparentOperatorAssociative _rightOparentOperatorPrecedence _rightOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_Expr_UnOpExpr :: T_UnOp -> + T_MExpr -> + T_Expr +sem_Expr_UnOpExpr op_ right_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIparentOperatorAssociative + _lhsIparentOperatorPrecedence + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOprecedence :: OperatorLevel + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _rightOparentOperatorPrecedence :: OperatorLevel + _lhsOisAssociative :: Bool + _lhsOisLiteral :: Bool + _lhsOcopy :: Expr + _lhsOcomments :: ([MToken]) + _opOcomments :: ([MToken]) + _opOindent :: Int + _opOppconf :: PrettyPrintConfig + _rightOcomments :: ([MToken]) + _rightOforceMultiline :: Bool + _rightOindent :: Int + _rightOparentOperatorAssociative :: Bool + _rightOppconf :: PrettyPrintConfig + _opIcomments :: ([MToken]) + _opIcopy :: UnOp + _opIisMultiline :: Bool + _opIpretty :: Doc + _rightIcomments :: ([MToken]) + _rightIcopy :: MExpr + _rightIendsWithPrefixExpression :: Bool + _rightIisAssociative :: Bool + _rightIisLiteral :: Bool + _rightIisMultiline :: Bool + _rightIpos :: Region + _rightIprecedence :: OperatorLevel + _rightIpretty :: Doc + _lhsOpretty = + ({-# LINE 1060 "src/GLua/AG/PrettyPrint.ag" #-} + _opIpretty <> _rightIpretty + {-# LINE 3530 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 1061 "src/GLua/AG/PrettyPrint.ag" #-} + min _rightIprecedence OperatorLevel7 + {-# LINE 3535 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 1062 "src/GLua/AG/PrettyPrint.ag" #-} + _rightIendsWithPrefixExpression + {-# LINE 3540 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1063 "src/GLua/AG/PrettyPrint.ag" #-} + _opIisMultiline || _rightIisMultiline + {-# LINE 3545 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _rightOparentOperatorPrecedence = + ({-# LINE 1064 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel7 + {-# LINE 3550 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + _rightIisAssociative + {-# LINE 3555 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLiteral = + ({-# LINE 263 "src/GLua/AG/PrettyPrint.ag" #-} + _rightIisLiteral + {-# LINE 3560 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + UnOpExpr _opIcopy _rightIcopy + {-# LINE 3565 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 3570 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _rightIcomments + {-# LINE 3575 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _opOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 3580 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _opOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 3585 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _opOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 3590 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _rightOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _opIcomments + {-# LINE 3595 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _rightOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 3600 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _rightOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 3605 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _rightOparentOperatorAssociative = + ({-# LINE 260 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIparentOperatorAssociative + {-# LINE 3610 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _rightOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 3615 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _opIcomments,_opIcopy,_opIisMultiline,_opIpretty) = + op_ _opOcomments _opOindent _opOppconf + ( _rightIcomments,_rightIcopy,_rightIendsWithPrefixExpression,_rightIisAssociative,_rightIisLiteral,_rightIisMultiline,_rightIpos,_rightIprecedence,_rightIpretty) = + right_ _rightOcomments _rightOforceMultiline _rightOindent _rightOparentOperatorAssociative _rightOparentOperatorPrecedence _rightOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +-- ExprSuffixList ---------------------------------------------- +-- cata +sem_ExprSuffixList :: ExprSuffixList -> + T_ExprSuffixList +sem_ExprSuffixList list = + (Prelude.foldr sem_ExprSuffixList_Cons sem_ExprSuffixList_Nil (Prelude.map sem_PFExprSuffix list)) +-- semantic domain +type T_ExprSuffixList = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + ( ([MToken]),ExprSuffixList,Bool,Bool,OperatorLevel,Doc) +data Inh_ExprSuffixList = Inh_ExprSuffixList {comments_Inh_ExprSuffixList :: ([MToken]),forceMultiline_Inh_ExprSuffixList :: Bool,indent_Inh_ExprSuffixList :: Int,ppconf_Inh_ExprSuffixList :: PrettyPrintConfig} +data Syn_ExprSuffixList = Syn_ExprSuffixList {comments_Syn_ExprSuffixList :: ([MToken]),copy_Syn_ExprSuffixList :: ExprSuffixList,isAssociative_Syn_ExprSuffixList :: Bool,isMultiline_Syn_ExprSuffixList :: Bool,precedence_Syn_ExprSuffixList :: OperatorLevel,pretty_Syn_ExprSuffixList :: Doc} +wrap_ExprSuffixList :: T_ExprSuffixList -> + Inh_ExprSuffixList -> + Syn_ExprSuffixList +wrap_ExprSuffixList sem (Inh_ExprSuffixList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf + in (Syn_ExprSuffixList _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty)) +sem_ExprSuffixList_Cons :: T_PFExprSuffix -> + T_ExprSuffixList -> + T_ExprSuffixList +sem_ExprSuffixList_Cons hd_ tl_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: ExprSuffixList + _lhsOcomments :: ([MToken]) + _hdOcomments :: ([MToken]) + _hdOforceMultiline :: Bool + _hdOindent :: Int + _hdOppconf :: PrettyPrintConfig + _tlOcomments :: ([MToken]) + _tlOforceMultiline :: Bool + _tlOindent :: Int + _tlOppconf :: PrettyPrintConfig + _hdIcomments :: ([MToken]) + _hdIcopy :: PFExprSuffix + _hdIisAssociative :: Bool + _hdIisMultiline :: Bool + _hdIprecedence :: OperatorLevel + _hdIpretty :: Doc + _tlIcomments :: ([MToken]) + _tlIcopy :: ExprSuffixList + _tlIisAssociative :: Bool + _tlIisMultiline :: Bool + _tlIprecedence :: OperatorLevel + _tlIpretty :: Doc + _lhsOpretty = + ({-# LINE 617 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIpretty <> _tlIpretty + {-# LINE 3679 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 618 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIisMultiline || _tlIisMultiline + {-# LINE 3684 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIisAssociative && _tlIisAssociative + {-# LINE 3689 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + (min _hdIprecedence _tlIprecedence) + {-# LINE 3694 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 3699 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 3704 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _tlIcomments + {-# LINE 3709 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 3714 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 3719 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 3724 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 3729 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIcomments + {-# LINE 3734 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 3739 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 3744 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 3749 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _hdIcomments,_hdIcopy,_hdIisAssociative,_hdIisMultiline,_hdIprecedence,_hdIpretty) = + hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf + ( _tlIcomments,_tlIcopy,_tlIisAssociative,_tlIisMultiline,_tlIprecedence,_tlIpretty) = + tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_ExprSuffixList_Nil :: T_ExprSuffixList +sem_ExprSuffixList_Nil = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: ExprSuffixList + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 620 "src/GLua/AG/PrettyPrint.ag" #-} + empty + {-# LINE 3771 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 621 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 3776 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 3781 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 3786 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + [] + {-# LINE 3791 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 3796 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 3801 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +-- Field ------------------------------------------------------- +-- cata +sem_Field :: Field -> + T_Field +sem_Field (ExprField _key _value _sep) = + (sem_Field_ExprField (sem_MExpr _key) (sem_MExpr _value) (sem_FieldSep _sep)) +sem_Field (NamedField _key _value _sep) = + (sem_Field_NamedField _key (sem_MExpr _value) (sem_FieldSep _sep)) +sem_Field (UnnamedField _value _sep) = + (sem_Field_UnnamedField (sem_MExpr _value) (sem_FieldSep _sep)) +-- semantic domain +type T_Field = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + ( ([MToken]),Field,Bool,Bool,Region,Doc) +data Inh_Field = Inh_Field {comments_Inh_Field :: ([MToken]),forceMultiline_Inh_Field :: Bool,indent_Inh_Field :: Int,ppconf_Inh_Field :: PrettyPrintConfig} +data Syn_Field = Syn_Field {comments_Syn_Field :: ([MToken]),copy_Syn_Field :: Field,isMultiline_Syn_Field :: Bool,isSemiColon_Syn_Field :: Bool,pos_Syn_Field :: Region,pretty_Syn_Field :: Doc} +wrap_Field :: T_Field -> + Inh_Field -> + Syn_Field +wrap_Field sem (Inh_Field _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf + in (Syn_Field _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOisSemiColon _lhsOpos _lhsOpretty)) +sem_Field_ExprField :: T_MExpr -> + T_MExpr -> + T_FieldSep -> + T_Field +sem_Field_ExprField key_ value_ sep_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _keyOparentOperatorPrecedence :: OperatorLevel + _keyOparentOperatorAssociative :: Bool + _valueOparentOperatorPrecedence :: OperatorLevel + _valueOparentOperatorAssociative :: Bool + _lhsOisSemiColon :: Bool + _lhsOcopy :: Field + _lhsOcomments :: ([MToken]) + _lhsOpos :: Region + _keyOcomments :: ([MToken]) + _keyOforceMultiline :: Bool + _keyOindent :: Int + _keyOppconf :: PrettyPrintConfig + _valueOcomments :: ([MToken]) + _valueOforceMultiline :: Bool + _valueOindent :: Int + _valueOppconf :: PrettyPrintConfig + _sepOindent :: Int + _sepOppconf :: PrettyPrintConfig + _keyIcomments :: ([MToken]) + _keyIcopy :: MExpr + _keyIendsWithPrefixExpression :: Bool + _keyIisAssociative :: Bool + _keyIisLiteral :: Bool + _keyIisMultiline :: Bool + _keyIpos :: Region + _keyIprecedence :: OperatorLevel + _keyIpretty :: Doc + _valueIcomments :: ([MToken]) + _valueIcopy :: MExpr + _valueIendsWithPrefixExpression :: Bool + _valueIisAssociative :: Bool + _valueIisLiteral :: Bool + _valueIisMultiline :: Bool + _valueIpos :: Region + _valueIprecedence :: OperatorLevel + _valueIpretty :: Doc + _sepIcopy :: FieldSep + _sepIisMultiline :: Bool + _sepIisSemiColon :: Bool + _sepIpretty :: Doc + _lhsOpretty = + ({-# LINE 1093 "src/GLua/AG/PrettyPrint.ag" #-} + brackets _lhsIppconf _keyIpretty <-> zchr '=' <-> _valueIpretty <> _sepIpretty + {-# LINE 3882 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1094 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 3887 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _keyOparentOperatorPrecedence = + ({-# LINE 1095 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 3892 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _keyOparentOperatorAssociative = + ({-# LINE 1096 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 3897 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOparentOperatorPrecedence = + ({-# LINE 1097 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 3902 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOparentOperatorAssociative = + ({-# LINE 1098 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 3907 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisSemiColon = + ({-# LINE 311 "src/GLua/AG/PrettyPrint.ag" #-} + _sepIisSemiColon + {-# LINE 3912 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ExprField _keyIcopy _valueIcopy _sepIcopy + {-# LINE 3917 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 3922 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _valueIcomments + {-# LINE 3927 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpos = + ({-# LINE 300 "src/GLua/AG/PrettyPrint.ag" #-} + _valueIpos + {-# LINE 3932 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _keyOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 3937 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _keyOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 3942 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _keyOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 3947 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _keyOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 3952 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _keyIcomments + {-# LINE 3957 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 3962 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 3967 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 3972 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _sepOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 3977 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _sepOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 3982 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _keyIcomments,_keyIcopy,_keyIendsWithPrefixExpression,_keyIisAssociative,_keyIisLiteral,_keyIisMultiline,_keyIpos,_keyIprecedence,_keyIpretty) = + key_ _keyOcomments _keyOforceMultiline _keyOindent _keyOparentOperatorAssociative _keyOparentOperatorPrecedence _keyOppconf + ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) = + value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf + ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) = + sep_ _sepOindent _sepOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty))) +sem_Field_NamedField :: MToken -> + T_MExpr -> + T_FieldSep -> + T_Field +sem_Field_NamedField key_ value_ sep_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _valueOparentOperatorPrecedence :: OperatorLevel + _valueOparentOperatorAssociative :: Bool + _lhsOisSemiColon :: Bool + _lhsOcopy :: Field + _lhsOcomments :: ([MToken]) + _lhsOpos :: Region + _valueOcomments :: ([MToken]) + _valueOforceMultiline :: Bool + _valueOindent :: Int + _valueOppconf :: PrettyPrintConfig + _sepOindent :: Int + _sepOppconf :: PrettyPrintConfig + _valueIcomments :: ([MToken]) + _valueIcopy :: MExpr + _valueIendsWithPrefixExpression :: Bool + _valueIisAssociative :: Bool + _valueIisLiteral :: Bool + _valueIisMultiline :: Bool + _valueIpos :: Region + _valueIprecedence :: OperatorLevel + _valueIpretty :: Doc + _sepIcopy :: FieldSep + _sepIisMultiline :: Bool + _sepIisSemiColon :: Bool + _sepIpretty :: Doc + _lhsOpretty = + ({-# LINE 1100 "src/GLua/AG/PrettyPrint.ag" #-} + tok key_ <-> zchr '=' <-> _valueIpretty <> _sepIpretty + {-# LINE 4030 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1101 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 4035 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOparentOperatorPrecedence = + ({-# LINE 1102 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 4040 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOparentOperatorAssociative = + ({-# LINE 1103 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 4045 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisSemiColon = + ({-# LINE 311 "src/GLua/AG/PrettyPrint.ag" #-} + _sepIisSemiColon + {-# LINE 4050 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + NamedField key_ _valueIcopy _sepIcopy + {-# LINE 4055 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 4060 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _valueIcomments + {-# LINE 4065 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpos = + ({-# LINE 300 "src/GLua/AG/PrettyPrint.ag" #-} + _valueIpos + {-# LINE 4070 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 4075 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 4080 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 4085 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 4090 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _sepOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 4095 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _sepOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 4100 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) = + value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf + ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) = + sep_ _sepOindent _sepOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty))) +sem_Field_UnnamedField :: T_MExpr -> + T_FieldSep -> + T_Field +sem_Field_UnnamedField value_ sep_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _valueOparentOperatorPrecedence :: OperatorLevel + _valueOparentOperatorAssociative :: Bool + _lhsOisSemiColon :: Bool + _lhsOcopy :: Field + _lhsOcomments :: ([MToken]) + _lhsOpos :: Region + _valueOcomments :: ([MToken]) + _valueOforceMultiline :: Bool + _valueOindent :: Int + _valueOppconf :: PrettyPrintConfig + _sepOindent :: Int + _sepOppconf :: PrettyPrintConfig + _valueIcomments :: ([MToken]) + _valueIcopy :: MExpr + _valueIendsWithPrefixExpression :: Bool + _valueIisAssociative :: Bool + _valueIisLiteral :: Bool + _valueIisMultiline :: Bool + _valueIpos :: Region + _valueIprecedence :: OperatorLevel + _valueIpretty :: Doc + _sepIcopy :: FieldSep + _sepIisMultiline :: Bool + _sepIisSemiColon :: Bool + _sepIpretty :: Doc + _lhsOpretty = + ({-# LINE 1105 "src/GLua/AG/PrettyPrint.ag" #-} + _valueIpretty <> _sepIpretty + {-# LINE 4145 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1106 "src/GLua/AG/PrettyPrint.ag" #-} + _valueIisMultiline || _sepIisMultiline + {-# LINE 4150 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOparentOperatorPrecedence = + ({-# LINE 1107 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 4155 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOparentOperatorAssociative = + ({-# LINE 1108 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 4160 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisSemiColon = + ({-# LINE 311 "src/GLua/AG/PrettyPrint.ag" #-} + _sepIisSemiColon + {-# LINE 4165 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + UnnamedField _valueIcopy _sepIcopy + {-# LINE 4170 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 4175 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _valueIcomments + {-# LINE 4180 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpos = + ({-# LINE 300 "src/GLua/AG/PrettyPrint.ag" #-} + _valueIpos + {-# LINE 4185 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 4190 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 4195 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 4200 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valueOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 4205 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _sepOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 4210 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _sepOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 4215 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) = + value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf + ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) = + sep_ _sepOindent _sepOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty))) +-- FieldList --------------------------------------------------- +-- cata +sem_FieldList :: FieldList -> + T_FieldList +sem_FieldList list = + (Prelude.foldr sem_FieldList_Cons sem_FieldList_Nil (Prelude.map sem_Field list)) +-- semantic domain +type T_FieldList = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + Bool -> + ( ([MToken]),FieldList,Bool,Bool,Doc) +data Inh_FieldList = Inh_FieldList {comments_Inh_FieldList :: ([MToken]),forceMultiline_Inh_FieldList :: Bool,indent_Inh_FieldList :: Int,ppconf_Inh_FieldList :: PrettyPrintConfig,someElementsInListAreMultiline_Inh_FieldList :: Bool} +data Syn_FieldList = Syn_FieldList {comments_Syn_FieldList :: ([MToken]),copy_Syn_FieldList :: FieldList,isMultiline_Syn_FieldList :: Bool,isNil_Syn_FieldList :: Bool,pretty_Syn_FieldList :: Doc} +wrap_FieldList :: T_FieldList -> + Inh_FieldList -> + Syn_FieldList +wrap_FieldList sem (Inh_FieldList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline + in (Syn_FieldList _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOisNil _lhsOpretty)) +sem_FieldList_Cons :: T_Field -> + T_FieldList -> + T_FieldList +sem_FieldList_Cons hd_ tl_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf + _lhsIsomeElementsInListAreMultiline -> + (let _lhsOpretty :: Doc + _lhsOisNil :: Bool + _tlOsomeElementsInListAreMultiline :: Bool + _hdOcomments :: ([MToken]) + _tlOcomments :: ([MToken]) + _lhsOcomments :: ([MToken]) + _lhsOcopy :: FieldList + _lhsOisMultiline :: Bool + _hdOforceMultiline :: Bool + _hdOindent :: Int + _hdOppconf :: PrettyPrintConfig + _tlOforceMultiline :: Bool + _tlOindent :: Int + _tlOppconf :: PrettyPrintConfig + _hdIcomments :: ([MToken]) + _hdIcopy :: Field + _hdIisMultiline :: Bool + _hdIisSemiColon :: Bool + _hdIpos :: Region + _hdIpretty :: Doc + _tlIcomments :: ([MToken]) + _tlIcopy :: FieldList + _tlIisMultiline :: Bool + _tlIisNil :: Bool + _tlIpretty :: Doc + _lhsOpretty = + ({-# LINE 471 "src/GLua/AG/PrettyPrint.ag" #-} + if _isMultiline + then renderMLComments _lhsIppconf _lhsIindent (fst _commentsBefore ) + $+$ indent _lhsIppconf _lhsIindent _hdIpretty + <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter ) + $+$ _tlIpretty + else _hdIpretty + `_optionalSpaceAfterSep ` _tlIpretty + {-# LINE 4286 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisNil = + ({-# LINE 479 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 4291 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _optionalSpaceAfterSep = + ({-# LINE 481 "src/GLua/AG/PrettyPrint.ag" #-} + if spaceAfterComma _lhsIppconf then (<->) else (<>) + {-# LINE 4296 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _isMultiline = + ({-# LINE 483 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + || _hdIisMultiline + || _tlIisMultiline + || _lhsIsomeElementsInListAreMultiline + || not (null $ fst _commentsBefore ) + || not (null $ fst _commentsAfter ) + {-# LINE 4306 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOsomeElementsInListAreMultiline = + ({-# LINE 491 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIsomeElementsInListAreMultiline + || _hdIisMultiline + || not (null $ fst _commentsBefore ) + || not (null $ fst _commentsAfter ) + {-# LINE 4314 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsBefore = + ({-# LINE 497 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos _) -> pos `before` _hdIpos) _lhsIcomments + {-# LINE 4319 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOcomments = + ({-# LINE 498 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsBefore + {-# LINE 4324 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsAfter = + ({-# LINE 499 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos _) -> pos `beforeOrOnLine` _hdIpos) _hdIcomments + {-# LINE 4329 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOcomments = + ({-# LINE 501 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsAfter + {-# LINE 4334 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 502 "src/GLua/AG/PrettyPrint.ag" #-} + _tlIcomments + {-# LINE 4339 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 4344 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 4349 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 251 "src/GLua/AG/PrettyPrint.ag" #-} + _isMultiline + {-# LINE 4354 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 4359 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 4364 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 4369 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 4374 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 4379 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 4384 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _hdIcomments,_hdIcopy,_hdIisMultiline,_hdIisSemiColon,_hdIpos,_hdIpretty) = + hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf + ( _tlIcomments,_tlIcopy,_tlIisMultiline,_tlIisNil,_tlIpretty) = + tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOsomeElementsInListAreMultiline + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty))) +sem_FieldList_Nil :: T_FieldList +sem_FieldList_Nil = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf + _lhsIsomeElementsInListAreMultiline -> + (let _lhsOpretty :: Doc + _lhsOisNil :: Bool + _lhsOisMultiline :: Bool + _lhsOcopy :: FieldList + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 505 "src/GLua/AG/PrettyPrint.ag" #-} + empty + {-# LINE 4406 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisNil = + ({-# LINE 506 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 4411 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 507 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 4416 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + [] + {-# LINE 4421 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 4426 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 4431 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty))) +-- FieldSep ---------------------------------------------------- +-- cata +sem_FieldSep :: FieldSep -> + T_FieldSep +sem_FieldSep (CommaSep) = + (sem_FieldSep_CommaSep) +sem_FieldSep (SemicolonSep) = + (sem_FieldSep_SemicolonSep) +sem_FieldSep (NoSep) = + (sem_FieldSep_NoSep) +-- semantic domain +type T_FieldSep = Int -> + PrettyPrintConfig -> + ( FieldSep,Bool,Bool,Doc) +data Inh_FieldSep = Inh_FieldSep {indent_Inh_FieldSep :: Int,ppconf_Inh_FieldSep :: PrettyPrintConfig} +data Syn_FieldSep = Syn_FieldSep {copy_Syn_FieldSep :: FieldSep,isMultiline_Syn_FieldSep :: Bool,isSemiColon_Syn_FieldSep :: Bool,pretty_Syn_FieldSep :: Doc} +wrap_FieldSep :: T_FieldSep -> + Inh_FieldSep -> + Syn_FieldSep +wrap_FieldSep sem (Inh_FieldSep _lhsIindent _lhsIppconf) = + (let ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty) = sem _lhsIindent _lhsIppconf + in (Syn_FieldSep _lhsOcopy _lhsOisMultiline _lhsOisSemiColon _lhsOpretty)) +sem_FieldSep_CommaSep :: T_FieldSep +sem_FieldSep_CommaSep = + (\ _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOisSemiColon :: Bool + _lhsOcopy :: FieldSep + _lhsOpretty = + ({-# LINE 1112 "src/GLua/AG/PrettyPrint.ag" #-} + (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) <> zchr ',' + {-# LINE 4467 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1113 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 4472 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisSemiColon = + ({-# LINE 311 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 4477 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + CommaSep + {-# LINE 4482 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 4487 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty))) +sem_FieldSep_SemicolonSep :: T_FieldSep +sem_FieldSep_SemicolonSep = + (\ _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisSemiColon :: Bool + _lhsOisMultiline :: Bool + _lhsOcopy :: FieldSep + _lhsOpretty = + ({-# LINE 1115 "src/GLua/AG/PrettyPrint.ag" #-} + (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) <> zchr ';' + {-# LINE 4501 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisSemiColon = + ({-# LINE 1116 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 4506 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1119 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 4511 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + SemicolonSep + {-# LINE 4516 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 4521 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty))) +sem_FieldSep_NoSep :: T_FieldSep +sem_FieldSep_NoSep = + (\ _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOisSemiColon :: Bool + _lhsOcopy :: FieldSep + _lhsOpretty = + ({-# LINE 1121 "src/GLua/AG/PrettyPrint.ag" #-} + empty + {-# LINE 4535 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1122 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 4540 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisSemiColon = + ({-# LINE 311 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 4545 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + NoSep + {-# LINE 4550 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 4555 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty))) +-- FuncName ---------------------------------------------------- +-- cata +sem_FuncName :: FuncName -> + T_FuncName +sem_FuncName (FuncName _names _meta) = + (sem_FuncName_FuncName _names _meta) +-- semantic domain +type T_FuncName = ([MToken]) -> + Int -> + PrettyPrintConfig -> + ( ([MToken]),FuncName,Bool,Region,Doc) +data Inh_FuncName = Inh_FuncName {comments_Inh_FuncName :: ([MToken]),indent_Inh_FuncName :: Int,ppconf_Inh_FuncName :: PrettyPrintConfig} +data Syn_FuncName = Syn_FuncName {comments_Syn_FuncName :: ([MToken]),copy_Syn_FuncName :: FuncName,isMultiline_Syn_FuncName :: Bool,pos_Syn_FuncName :: Region,pretty_Syn_FuncName :: Doc} +wrap_FuncName :: T_FuncName -> + Inh_FuncName -> + Syn_FuncName +wrap_FuncName sem (Inh_FuncName _lhsIcomments _lhsIindent _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf + in (Syn_FuncName _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty)) +sem_FuncName_FuncName :: ([MToken]) -> + (Maybe MToken) -> + T_FuncName +sem_FuncName_FuncName names_ meta_ = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOpos :: Region + _lhsOcopy :: FuncName + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 899 "src/GLua/AG/PrettyPrint.ag" #-} + printList tok "." names_ <> metaDoc meta_ + {-# LINE 4592 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 900 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 4597 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpos = + ({-# LINE 901 "src/GLua/AG/PrettyPrint.ag" #-} + case meta_ of + Nothing -> _namesPos + Just name -> rgOr _namesPos (mpos name) + {-# LINE 4604 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _namesPos = + ({-# LINE 905 "src/GLua/AG/PrettyPrint.ag" #-} + foldl1 rgOr $ map mpos names_ + {-# LINE 4609 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + FuncName names_ meta_ + {-# LINE 4614 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 4619 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 4624 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty))) +-- MElse ------------------------------------------------------- +-- cata +sem_MElse :: MElse -> + T_MElse +sem_MElse (MElse _pos _body) = + (sem_MElse_MElse _pos (sem_Block _body)) +-- semantic domain +type T_MElse = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + Region -> + ( ([MToken]),MElse,Bool,Bool,Region,Doc) +data Inh_MElse = Inh_MElse {comments_Inh_MElse :: ([MToken]),forceMultiline_Inh_MElse :: Bool,indent_Inh_MElse :: Int,ppconf_Inh_MElse :: PrettyPrintConfig,statRegion_Inh_MElse :: Region} +data Syn_MElse = Syn_MElse {comments_Syn_MElse :: ([MToken]),copy_Syn_MElse :: MElse,elsesExist_Syn_MElse :: Bool,isMultiline_Syn_MElse :: Bool,pos_Syn_MElse :: Region,pretty_Syn_MElse :: Doc} +wrap_MElse :: T_MElse -> + Inh_MElse -> + Syn_MElse +wrap_MElse sem (Inh_MElse _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion + in (Syn_MElse _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty)) +sem_MElse_MElse :: Region -> + T_Block -> + T_MElse +sem_MElse_MElse pos_ body_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _bodyOindent :: Int + _lhsOpos :: Region + _bodyOcomments :: ([MToken]) + _lhsOelsesExist :: Bool + _lhsOcopy :: MElse + _lhsOcomments :: ([MToken]) + _bodyOforceMultiline :: Bool + _bodyOppconf :: PrettyPrintConfig + _bodyOstatRegion :: Region + _bodyIcomments :: ([MToken]) + _bodyIcopy :: Block + _bodyIisMultiline :: Bool + _bodyIpos :: Region + _bodyIpretty :: Doc + _bodyIstatementCount :: Int + _lhsOpretty = + ({-# LINE 604 "src/GLua/AG/PrettyPrint.ag" #-} + indent _lhsIppconf _lhsIindent (zeroWidthText "else") + <-> _prettyCommentsAfter + $+$ _bodyIpretty + {-# LINE 4679 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 608 "src/GLua/AG/PrettyPrint.ag" #-} + _bodyIisMultiline + {-# LINE 4684 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOindent = + ({-# LINE 609 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + 1 + {-# LINE 4689 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _prettyCommentsAfter = + ({-# LINE 610 "src/GLua/AG/PrettyPrint.ag" #-} + renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter ) + {-# LINE 4694 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsAfter = + ({-# LINE 611 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos _) -> pos `beforeOrOnLine` pos_) _lhsIcomments + {-# LINE 4699 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpos = + ({-# LINE 612 "src/GLua/AG/PrettyPrint.ag" #-} + pos_ + {-# LINE 4704 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOcomments = + ({-# LINE 613 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsAfter + {-# LINE 4709 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOelsesExist = + ({-# LINE 317 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 4714 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + MElse pos_ _bodyIcopy + {-# LINE 4719 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 4724 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _bodyIcomments + {-# LINE 4729 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 4734 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 4739 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOstatRegion = + ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIstatRegion + {-# LINE 4744 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = + body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion + in ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty))) +-- MElseIf ----------------------------------------------------- +-- cata +sem_MElseIf :: MElseIf -> + T_MElseIf +sem_MElseIf (MElseIf _pos _elif) = + (sem_MElseIf_MElseIf _pos (sem_ElseIf _elif)) +-- semantic domain +type T_MElseIf = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + ( ([MToken]),MElseIf,Bool,Region,Doc) +data Inh_MElseIf = Inh_MElseIf {comments_Inh_MElseIf :: ([MToken]),forceMultiline_Inh_MElseIf :: Bool,indent_Inh_MElseIf :: Int,ppconf_Inh_MElseIf :: PrettyPrintConfig} +data Syn_MElseIf = Syn_MElseIf {comments_Syn_MElseIf :: ([MToken]),copy_Syn_MElseIf :: MElseIf,isMultiline_Syn_MElseIf :: Bool,pos_Syn_MElseIf :: Region,pretty_Syn_MElseIf :: Doc} +wrap_MElseIf :: T_MElseIf -> + Inh_MElseIf -> + Syn_MElseIf +wrap_MElseIf sem (Inh_MElseIf _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf + in (Syn_MElseIf _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty)) +sem_MElseIf_MElseIf :: Region -> + T_ElseIf -> + T_MElseIf +sem_MElseIf_MElseIf pos_ elif_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpos :: Region + _lhsOisMultiline :: Bool + _lhsOcopy :: MElseIf + _lhsOcomments :: ([MToken]) + _lhsOpretty :: Doc + _elifOcomments :: ([MToken]) + _elifOforceMultiline :: Bool + _elifOindent :: Int + _elifOppconf :: PrettyPrintConfig + _elifIcomments :: ([MToken]) + _elifIcopy :: ElseIf + _elifIisMultiline :: Bool + _elifIpretty :: Doc + _lhsOpos = + ({-# LINE 579 "src/GLua/AG/PrettyPrint.ag" #-} + pos_ + {-# LINE 4793 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 580 "src/GLua/AG/PrettyPrint.ag" #-} + _elifIisMultiline + {-# LINE 4798 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + MElseIf pos_ _elifIcopy + {-# LINE 4803 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 4808 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _elifIcomments + {-# LINE 4813 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpretty = + ({-# LINE 249 "src/GLua/AG/PrettyPrint.ag" #-} + _elifIpretty + {-# LINE 4818 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _elifOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 4823 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _elifOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 4828 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _elifOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 4833 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _elifOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 4838 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _elifIcomments,_elifIcopy,_elifIisMultiline,_elifIpretty) = + elif_ _elifOcomments _elifOforceMultiline _elifOindent _elifOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty))) +-- MExpr ------------------------------------------------------- +-- cata +sem_MExpr :: MExpr -> + T_MExpr +sem_MExpr (MExpr _pos _expr) = + (sem_MExpr_MExpr _pos (sem_Expr _expr)) +-- semantic domain +type T_MExpr = ([MToken]) -> + Bool -> + Int -> + Bool -> + OperatorLevel -> + PrettyPrintConfig -> + ( ([MToken]),MExpr,Bool,Bool,Bool,Bool,Region,OperatorLevel,Doc) +data Inh_MExpr = Inh_MExpr {comments_Inh_MExpr :: ([MToken]),forceMultiline_Inh_MExpr :: Bool,indent_Inh_MExpr :: Int,parentOperatorAssociative_Inh_MExpr :: Bool,parentOperatorPrecedence_Inh_MExpr :: OperatorLevel,ppconf_Inh_MExpr :: PrettyPrintConfig} +data Syn_MExpr = Syn_MExpr {comments_Syn_MExpr :: ([MToken]),copy_Syn_MExpr :: MExpr,endsWithPrefixExpression_Syn_MExpr :: Bool,isAssociative_Syn_MExpr :: Bool,isLiteral_Syn_MExpr :: Bool,isMultiline_Syn_MExpr :: Bool,pos_Syn_MExpr :: Region,precedence_Syn_MExpr :: OperatorLevel,pretty_Syn_MExpr :: Doc} +wrap_MExpr :: T_MExpr -> + Inh_MExpr -> + Syn_MExpr +wrap_MExpr sem (Inh_MExpr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf + in (Syn_MExpr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOpos _lhsOprecedence _lhsOpretty)) +sem_MExpr_MExpr :: Region -> + T_Expr -> + T_MExpr +sem_MExpr_MExpr pos_ expr_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIparentOperatorAssociative + _lhsIparentOperatorPrecedence + _lhsIppconf -> + (let _lhsOpos :: Region + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _exprOstatRegion :: Region + _lhsOisAssociative :: Bool + _lhsOisLiteral :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: MExpr + _lhsOcomments :: ([MToken]) + _lhsOpretty :: Doc + _exprOcomments :: ([MToken]) + _exprOforceMultiline :: Bool + _exprOindent :: Int + _exprOparentOperatorAssociative :: Bool + _exprOparentOperatorPrecedence :: OperatorLevel + _exprOppconf :: PrettyPrintConfig + _exprIcomments :: ([MToken]) + _exprIcopy :: Expr + _exprIendsWithPrefixExpression :: Bool + _exprIisAssociative :: Bool + _exprIisLiteral :: Bool + _exprIisMultiline :: Bool + _exprIprecedence :: OperatorLevel + _exprIpretty :: Doc + _lhsOpos = + ({-# LINE 978 "src/GLua/AG/PrettyPrint.ag" #-} + pos_ + {-# LINE 4902 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 979 "src/GLua/AG/PrettyPrint.ag" #-} + _exprIendsWithPrefixExpression + {-# LINE 4907 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 980 "src/GLua/AG/PrettyPrint.ag" #-} + _exprIisMultiline + {-# LINE 4912 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _exprOstatRegion = + ({-# LINE 981 "src/GLua/AG/PrettyPrint.ag" #-} + pos_ + {-# LINE 4917 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + _exprIisAssociative + {-# LINE 4922 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLiteral = + ({-# LINE 263 "src/GLua/AG/PrettyPrint.ag" #-} + _exprIisLiteral + {-# LINE 4927 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + _exprIprecedence + {-# LINE 4932 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + MExpr pos_ _exprIcopy + {-# LINE 4937 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 4942 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _exprIcomments + {-# LINE 4947 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpretty = + ({-# LINE 249 "src/GLua/AG/PrettyPrint.ag" #-} + _exprIpretty + {-# LINE 4952 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _exprOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 4957 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _exprOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 4962 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _exprOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 4967 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _exprOparentOperatorAssociative = + ({-# LINE 260 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIparentOperatorAssociative + {-# LINE 4972 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _exprOparentOperatorPrecedence = + ({-# LINE 259 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIparentOperatorPrecedence + {-# LINE 4977 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _exprOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 4982 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _exprIcomments,_exprIcopy,_exprIendsWithPrefixExpression,_exprIisAssociative,_exprIisLiteral,_exprIisMultiline,_exprIprecedence,_exprIpretty) = + expr_ _exprOcomments _exprOforceMultiline _exprOindent _exprOparentOperatorAssociative _exprOparentOperatorPrecedence _exprOppconf _exprOstatRegion + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty))) +-- MExprList --------------------------------------------------- +-- cata +sem_MExprList :: MExprList -> + T_MExprList +sem_MExprList list = + (Prelude.foldr sem_MExprList_Cons sem_MExprList_Nil (Prelude.map sem_MExpr list)) +-- semantic domain +type T_MExprList = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + Bool -> + ( ([MToken]),MExprList,Bool,Bool,Bool,Region,OperatorLevel,Doc,Bool) +data Inh_MExprList = Inh_MExprList {comments_Inh_MExprList :: ([MToken]),forceMultiline_Inh_MExprList :: Bool,indent_Inh_MExprList :: Int,ppconf_Inh_MExprList :: PrettyPrintConfig,someElementsInListAreMultiline_Inh_MExprList :: Bool} +data Syn_MExprList = Syn_MExprList {comments_Syn_MExprList :: ([MToken]),copy_Syn_MExprList :: MExprList,isAssociative_Syn_MExprList :: Bool,isLast_Syn_MExprList :: Bool,isMultiline_Syn_MExprList :: Bool,pos_Syn_MExprList :: Region,precedence_Syn_MExprList :: OperatorLevel,pretty_Syn_MExprList :: Doc,startsWithNewline_Syn_MExprList :: Bool} +wrap_MExprList :: T_MExprList -> + Inh_MExprList -> + Syn_MExprList +wrap_MExprList sem (Inh_MExprList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithNewline) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline + in (Syn_MExprList _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisLast _lhsOisMultiline _lhsOpos _lhsOprecedence _lhsOpretty _lhsOstartsWithNewline)) +sem_MExprList_Cons :: T_MExpr -> + T_MExprList -> + T_MExprList +sem_MExprList_Cons hd_ tl_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf + _lhsIsomeElementsInListAreMultiline -> + (let _lhsOpretty :: Doc + _hdOcomments :: ([MToken]) + _tlOcomments :: ([MToken]) + _lhsOcomments :: ([MToken]) + _lhsOpos :: Region + _lhsOisLast :: Bool + _hdOparentOperatorPrecedence :: OperatorLevel + _hdOparentOperatorAssociative :: Bool + _tlOsomeElementsInListAreMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: MExprList + _lhsOisMultiline :: Bool + _lhsOstartsWithNewline :: Bool + _hdOforceMultiline :: Bool + _hdOindent :: Int + _hdOppconf :: PrettyPrintConfig + _tlOforceMultiline :: Bool + _tlOindent :: Int + _tlOppconf :: PrettyPrintConfig + _hdIcomments :: ([MToken]) + _hdIcopy :: MExpr + _hdIendsWithPrefixExpression :: Bool + _hdIisAssociative :: Bool + _hdIisLiteral :: Bool + _hdIisMultiline :: Bool + _hdIpos :: Region + _hdIprecedence :: OperatorLevel + _hdIpretty :: Doc + _tlIcomments :: ([MToken]) + _tlIcopy :: MExprList + _tlIisAssociative :: Bool + _tlIisLast :: Bool + _tlIisMultiline :: Bool + _tlIpos :: Region + _tlIprecedence :: OperatorLevel + _tlIpretty :: Doc + _tlIstartsWithNewline :: Bool + _lhsOpretty = + ({-# LINE 407 "src/GLua/AG/PrettyPrint.ag" #-} + if _lhsIforceMultiline then _prettyForcedMultiline else _prettyNotForcedMultiline + {-# LINE 5058 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _prettyNotForcedMultiline = + ({-# LINE 408 "src/GLua/AG/PrettyPrint.ag" #-} + (if _startsWithNewline then + zchr '\n' <> + renderMLComments _lhsIppconf (_lhsIindent + 1) (fst _commentsBeforeLine ) $+$ + indent _lhsIppconf (_lhsIindent + 1) _hdIpretty + else + _hdIpretty) + <> _comma + <> (if (not $ null $ fst _commentsAfter ) then + renderSLComments _lhsIppconf (_lhsIindent + 1) (fst _commentsAfter ) $+$ + indent _lhsIppconf (_lhsIindent + 1) _tlIpretty + else + _tlIpretty) + {-# LINE 5074 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _prettyForcedMultiline = + ({-# LINE 423 "src/GLua/AG/PrettyPrint.ag" #-} + renderMLComments _lhsIppconf _lhsIindent (fst _commentsBeforeLine ) + $+$ indent _lhsIppconf (_lhsIindent) _hdIpretty + <> _comma + <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter ) + $+$ _tlIpretty + {-# LINE 5083 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _comma = + ({-# LINE 429 "src/GLua/AG/PrettyPrint.ag" #-} + if _tlIisLast then + empty + else + (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) + <> zchr ',' + <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty) + {-# LINE 5093 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _startsWithNewline = + ({-# LINE 437 "src/GLua/AG/PrettyPrint.ag" #-} + not $ null $ fst _commentsBeforeLine + {-# LINE 5098 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsBeforeLine = + ({-# LINE 438 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos' _) -> pos' `before` _hdIpos) _lhsIcomments + {-# LINE 5103 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOcomments = + ({-# LINE 439 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsBeforeLine + {-# LINE 5108 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsAfter = + ({-# LINE 440 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos' _) -> pos' `before` _tlIpos) _hdIcomments + {-# LINE 5113 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOcomments = + ({-# LINE 441 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsAfter + {-# LINE 5118 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 442 "src/GLua/AG/PrettyPrint.ag" #-} + _tlIcomments + {-# LINE 5123 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpos = + ({-# LINE 444 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIpos + {-# LINE 5128 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLast = + ({-# LINE 445 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 5133 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOparentOperatorPrecedence = + ({-# LINE 446 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 5138 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOparentOperatorAssociative = + ({-# LINE 447 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 5143 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _isMultiline = + ({-# LINE 448 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + || not (null $ fst _commentsBeforeLine ) + || not (null $ fst _commentsAfter ) + || _lhsIsomeElementsInListAreMultiline + || _hdIisMultiline + || _tlIisMultiline + {-# LINE 5153 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOsomeElementsInListAreMultiline = + ({-# LINE 456 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIsomeElementsInListAreMultiline + || _hdIisMultiline + || not (null $ fst _commentsBeforeLine ) + || not (null $ fst _commentsAfter ) + {-# LINE 5161 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIisAssociative && _tlIisAssociative + {-# LINE 5166 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + (min _hdIprecedence _tlIprecedence) + {-# LINE 5171 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 5176 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 5181 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 251 "src/GLua/AG/PrettyPrint.ag" #-} + _isMultiline + {-# LINE 5186 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithNewline = + ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-} + _startsWithNewline + {-# LINE 5191 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 5196 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 5201 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 5206 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 5211 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 5216 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 5221 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIisAssociative,_hdIisLiteral,_hdIisMultiline,_hdIpos,_hdIprecedence,_hdIpretty) = + hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOparentOperatorAssociative _hdOparentOperatorPrecedence _hdOppconf + ( _tlIcomments,_tlIcopy,_tlIisAssociative,_tlIisLast,_tlIisMultiline,_tlIpos,_tlIprecedence,_tlIpretty,_tlIstartsWithNewline) = + tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOsomeElementsInListAreMultiline + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithNewline))) +sem_MExprList_Nil :: T_MExprList +sem_MExprList_Nil = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf + _lhsIsomeElementsInListAreMultiline -> + (let _lhsOpretty :: Doc + _lhsOpos :: Region + _lhsOisMultiline :: Bool + _lhsOisLast :: Bool + _lhsOstartsWithNewline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: MExprList + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 463 "src/GLua/AG/PrettyPrint.ag" #-} + empty + {-# LINE 5247 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpos = + ({-# LINE 464 "src/GLua/AG/PrettyPrint.ag" #-} + emptyRg + {-# LINE 5252 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 465 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 5257 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLast = + ({-# LINE 466 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 5262 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithNewline = + ({-# LINE 467 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 5267 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 5272 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 5277 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + [] + {-# LINE 5282 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 5287 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 5292 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithNewline))) +-- MStat ------------------------------------------------------- +-- cata +sem_MStat :: MStat -> + T_MStat +sem_MStat (MStat _pos _stat) = + (sem_MStat_MStat _pos (sem_Stat _stat)) +-- semantic domain +type T_MStat = ([MToken]) -> + Bool -> + Int -> + Bool -> + PrettyPrintConfig -> + Bool -> + ( ([MToken]),MStat,Bool,Bool,Region,Doc,Bool,Int) +data Inh_MStat = Inh_MStat {comments_Inh_MStat :: ([MToken]),forceMultiline_Inh_MStat :: Bool,indent_Inh_MStat :: Int,isLastStatement_Inh_MStat :: Bool,ppconf_Inh_MStat :: PrettyPrintConfig,wouldBeAmbiguousWithoutSemicolon_Inh_MStat :: Bool} +data Syn_MStat = Syn_MStat {comments_Syn_MStat :: ([MToken]),copy_Syn_MStat :: MStat,endsWithPrefixExpression_Syn_MStat :: Bool,isMultiline_Syn_MStat :: Bool,pos_Syn_MStat :: Region,pretty_Syn_MStat :: Doc,startsWithExprPrefixExpression_Syn_MStat :: Bool,statementCount_Syn_MStat :: Int} +wrap_MStat :: T_MStat -> + Inh_MStat -> + Syn_MStat +wrap_MStat sem (Inh_MStat _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIwouldBeAmbiguousWithoutSemicolon) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIwouldBeAmbiguousWithoutSemicolon + in (Syn_MStat _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisMultiline _lhsOpos _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOstatementCount)) +sem_MStat_MStat :: Region -> + T_Stat -> + T_MStat +sem_MStat_MStat pos_ stat_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOpos :: Region + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _statOstatRegion :: Region + _statOwouldBeAmbiguousWithoutSemicolon :: Bool + _lhsOstatementCount :: Int + _lhsOcopy :: MStat + _lhsOcomments :: ([MToken]) + _lhsOpretty :: Doc + _statOcomments :: ([MToken]) + _statOforceMultiline :: Bool + _statOindent :: Int + _statOisLastStatement :: Bool + _statOppconf :: PrettyPrintConfig + _statIcomments :: ([MToken]) + _statIcopy :: Stat + _statIendsWithPrefixExpression :: Bool + _statIisMultiline :: Bool + _statIpretty :: Doc + _statIstartsWithExprPrefixExpression :: Bool + _lhsOpos = + ({-# LINE 398 "src/GLua/AG/PrettyPrint.ag" #-} + pos_ + {-# LINE 5351 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 399 "src/GLua/AG/PrettyPrint.ag" #-} + _statIstartsWithExprPrefixExpression + {-# LINE 5356 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 400 "src/GLua/AG/PrettyPrint.ag" #-} + _statIendsWithPrefixExpression + {-# LINE 5361 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 401 "src/GLua/AG/PrettyPrint.ag" #-} + _statIisMultiline + {-# LINE 5366 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _statOstatRegion = + ({-# LINE 402 "src/GLua/AG/PrettyPrint.ag" #-} + pos_ + {-# LINE 5371 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _statOwouldBeAmbiguousWithoutSemicolon = + ({-# LINE 403 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIwouldBeAmbiguousWithoutSemicolon + {-# LINE 5376 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstatementCount = + ({-# LINE 314 "src/GLua/AG/PrettyPrint.ag" #-} + 1 + {-# LINE 5381 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + MStat pos_ _statIcopy + {-# LINE 5386 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 5391 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _statIcomments + {-# LINE 5396 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpretty = + ({-# LINE 249 "src/GLua/AG/PrettyPrint.ag" #-} + _statIpretty + {-# LINE 5401 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _statOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 5406 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _statOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 5411 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _statOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 5416 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _statOisLastStatement = + ({-# LINE 297 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIisLastStatement + {-# LINE 5421 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _statOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 5426 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _statIcomments,_statIcopy,_statIendsWithPrefixExpression,_statIisMultiline,_statIpretty,_statIstartsWithExprPrefixExpression) = + stat_ _statOcomments _statOforceMultiline _statOindent _statOisLastStatement _statOppconf _statOstatRegion _statOwouldBeAmbiguousWithoutSemicolon + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount))) +-- MStatList --------------------------------------------------- +-- cata +sem_MStatList :: MStatList -> + T_MStatList +sem_MStatList list = + (Prelude.foldr sem_MStatList_Cons sem_MStatList_Nil (Prelude.map sem_MStat list)) +-- semantic domain +type T_MStatList = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + Region -> + ( ([MToken]),MStatList,Bool,Bool,Doc,Bool,Int) +data Inh_MStatList = Inh_MStatList {comments_Inh_MStatList :: ([MToken]),forceMultiline_Inh_MStatList :: Bool,indent_Inh_MStatList :: Int,ppconf_Inh_MStatList :: PrettyPrintConfig,statRegion_Inh_MStatList :: Region} +data Syn_MStatList = Syn_MStatList {comments_Syn_MStatList :: ([MToken]),copy_Syn_MStatList :: MStatList,isLast_Syn_MStatList :: Bool,isMultiline_Syn_MStatList :: Bool,pretty_Syn_MStatList :: Doc,startsWithExprPrefixExpression_Syn_MStatList :: Bool,statementCount_Syn_MStatList :: Int} +wrap_MStatList :: T_MStatList -> + Inh_MStatList -> + Syn_MStatList +wrap_MStatList sem (Inh_MStatList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion + in (Syn_MStatList _lhsOcomments _lhsOcopy _lhsOisLast _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOstatementCount)) +sem_MStatList_Cons :: T_MStat -> + T_MStatList -> + T_MStatList +sem_MStatList_Cons hd_ tl_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOisLast :: Bool + _hdOcomments :: ([MToken]) + _tlOcomments :: ([MToken]) + _lhsOcomments :: ([MToken]) + _hdOisLastStatement :: Bool + _hdOwouldBeAmbiguousWithoutSemicolon :: Bool + _hdOforceMultiline :: Bool + _lhsOstatementCount :: Int + _lhsOcopy :: MStatList + _lhsOisMultiline :: Bool + _hdOindent :: Int + _hdOppconf :: PrettyPrintConfig + _tlOforceMultiline :: Bool + _tlOindent :: Int + _tlOppconf :: PrettyPrintConfig + _tlOstatRegion :: Region + _hdIcomments :: ([MToken]) + _hdIcopy :: MStat + _hdIendsWithPrefixExpression :: Bool + _hdIisMultiline :: Bool + _hdIpos :: Region + _hdIpretty :: Doc + _hdIstartsWithExprPrefixExpression :: Bool + _hdIstatementCount :: Int + _tlIcomments :: ([MToken]) + _tlIcopy :: MStatList + _tlIisLast :: Bool + _tlIisMultiline :: Bool + _tlIpretty :: Doc + _tlIstartsWithExprPrefixExpression :: Bool + _tlIstatementCount :: Int + _lhsOpretty = + ({-# LINE 357 "src/GLua/AG/PrettyPrint.ag" #-} + renderMLComments _lhsIppconf _lhsIindent (fst _commentsBeforeLine ) + $+$ indent _lhsIppconf _lhsIindent _hdIpretty + <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter ) + <> _addNewline + $+$ _tlIpretty + {-# LINE 5501 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIstartsWithExprPrefixExpression + {-# LINE 5506 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLast = + ({-# LINE 364 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 5511 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _isMultiline = + ({-# LINE 366 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIisMultiline + || _tlIisMultiline + || not (null $ fst _commentsBeforeLine ) + || not (null $ fst _commentsAfter ) + {-# LINE 5519 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _addNewline = + ({-# LINE 371 "src/GLua/AG/PrettyPrint.ag" #-} + if not _tlIisLast && _hdIisMultiline then zchr '\n' else empty + {-# LINE 5524 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsBeforeLine = + ({-# LINE 374 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos' _) -> pos' `before` _hdIpos) _lhsIcomments + {-# LINE 5529 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOcomments = + ({-# LINE 375 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsBeforeLine + {-# LINE 5534 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsAfter = + ({-# LINE 376 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos' _) -> pos' `beforeOrOnLine` _hdIpos) _hdIcomments + {-# LINE 5539 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOcomments = + ({-# LINE 377 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsAfter + {-# LINE 5544 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 378 "src/GLua/AG/PrettyPrint.ag" #-} + _tlIcomments + {-# LINE 5549 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOisLastStatement = + ({-# LINE 380 "src/GLua/AG/PrettyPrint.ag" #-} + _tlIisLast + {-# LINE 5554 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOwouldBeAmbiguousWithoutSemicolon = + ({-# LINE 386 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIendsWithPrefixExpression && _tlIstartsWithExprPrefixExpression + {-# LINE 5559 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOforceMultiline = + ({-# LINE 388 "src/GLua/AG/PrettyPrint.ag" #-} + commentsForceMultiline $ fst _commentsBeforeLine + {-# LINE 5564 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstatementCount = + ({-# LINE 314 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIstatementCount + _tlIstatementCount + {-# LINE 5569 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 5574 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 5579 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 251 "src/GLua/AG/PrettyPrint.ag" #-} + _isMultiline + {-# LINE 5584 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 5589 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 5594 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 5599 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 5604 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 5609 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOstatRegion = + ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIstatRegion + {-# LINE 5614 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIisMultiline,_hdIpos,_hdIpretty,_hdIstartsWithExprPrefixExpression,_hdIstatementCount) = + hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOisLastStatement _hdOppconf _hdOwouldBeAmbiguousWithoutSemicolon + ( _tlIcomments,_tlIcopy,_tlIisLast,_tlIisMultiline,_tlIpretty,_tlIstartsWithExprPrefixExpression,_tlIstatementCount) = + tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOstatRegion + in ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount))) +sem_MStatList_Nil :: T_MStatList +sem_MStatList_Nil = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf + _lhsIstatRegion -> + (let _lhsOpretty :: Doc + _lhsOstatementCount :: Int + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOisLast :: Bool + _lhsOcopy :: MStatList + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 390 "src/GLua/AG/PrettyPrint.ag" #-} + empty + {-# LINE 5638 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstatementCount = + ({-# LINE 391 "src/GLua/AG/PrettyPrint.ag" #-} + 0 + {-# LINE 5643 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 392 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 5648 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 393 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 5653 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLast = + ({-# LINE 394 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 5658 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + [] + {-# LINE 5663 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 5668 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 5673 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount))) +-- MaybeMExpr -------------------------------------------------- +-- cata +sem_MaybeMExpr :: MaybeMExpr -> + T_MaybeMExpr +sem_MaybeMExpr (Prelude.Just x) = + (sem_MaybeMExpr_Just (sem_MExpr x)) +sem_MaybeMExpr Prelude.Nothing = + sem_MaybeMExpr_Nothing +-- semantic domain +type T_MaybeMExpr = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + ( ([MToken]),MaybeMExpr,Bool,Bool,Bool,Bool,OperatorLevel,Doc) +data Inh_MaybeMExpr = Inh_MaybeMExpr {comments_Inh_MaybeMExpr :: ([MToken]),forceMultiline_Inh_MaybeMExpr :: Bool,indent_Inh_MaybeMExpr :: Int,ppconf_Inh_MaybeMExpr :: PrettyPrintConfig} +data Syn_MaybeMExpr = Syn_MaybeMExpr {comments_Syn_MaybeMExpr :: ([MToken]),copy_Syn_MaybeMExpr :: MaybeMExpr,endsWithPrefixExpression_Syn_MaybeMExpr :: Bool,isAssociative_Syn_MaybeMExpr :: Bool,isDefined_Syn_MaybeMExpr :: Bool,isMultiline_Syn_MaybeMExpr :: Bool,precedence_Syn_MaybeMExpr :: OperatorLevel,pretty_Syn_MaybeMExpr :: Doc} +wrap_MaybeMExpr :: T_MaybeMExpr -> + Inh_MaybeMExpr -> + Syn_MaybeMExpr +wrap_MaybeMExpr sem (Inh_MaybeMExpr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf + in (Syn_MaybeMExpr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisDefined _lhsOisMultiline _lhsOprecedence _lhsOpretty)) +sem_MaybeMExpr_Just :: T_MExpr -> + T_MaybeMExpr +sem_MaybeMExpr_Just just_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisDefined :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _justOparentOperatorPrecedence :: OperatorLevel + _justOparentOperatorAssociative :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: MaybeMExpr + _lhsOcomments :: ([MToken]) + _justOcomments :: ([MToken]) + _justOforceMultiline :: Bool + _justOindent :: Int + _justOppconf :: PrettyPrintConfig + _justIcomments :: ([MToken]) + _justIcopy :: MExpr + _justIendsWithPrefixExpression :: Bool + _justIisAssociative :: Bool + _justIisLiteral :: Bool + _justIisMultiline :: Bool + _justIpos :: Region + _justIprecedence :: OperatorLevel + _justIpretty :: Doc + _lhsOpretty = + ({-# LINE 511 "src/GLua/AG/PrettyPrint.ag" #-} + _justIpretty + {-# LINE 5731 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisDefined = + ({-# LINE 512 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 5736 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 513 "src/GLua/AG/PrettyPrint.ag" #-} + _justIendsWithPrefixExpression + {-# LINE 5741 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 514 "src/GLua/AG/PrettyPrint.ag" #-} + _justIisMultiline + {-# LINE 5746 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _justOparentOperatorPrecedence = + ({-# LINE 515 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 5751 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _justOparentOperatorAssociative = + ({-# LINE 516 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 5756 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + _justIisAssociative + {-# LINE 5761 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + _justIprecedence + {-# LINE 5766 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + Just _justIcopy + {-# LINE 5771 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 5776 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _justIcomments + {-# LINE 5781 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _justOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 5786 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _justOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 5791 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _justOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 5796 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _justOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 5801 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _justIcomments,_justIcopy,_justIendsWithPrefixExpression,_justIisAssociative,_justIisLiteral,_justIisMultiline,_justIpos,_justIprecedence,_justIpretty) = + just_ _justOcomments _justOforceMultiline _justOindent _justOparentOperatorAssociative _justOparentOperatorPrecedence _justOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_MaybeMExpr_Nothing :: T_MaybeMExpr +sem_MaybeMExpr_Nothing = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisDefined :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: MaybeMExpr + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 518 "src/GLua/AG/PrettyPrint.ag" #-} + empty + {-# LINE 5823 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisDefined = + ({-# LINE 519 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 5828 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 520 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 5833 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 521 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 5838 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 5843 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 5848 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + Nothing + {-# LINE 5853 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 5858 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 5863 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +-- PFExprSuffix ------------------------------------------------ +-- cata +sem_PFExprSuffix :: PFExprSuffix -> + T_PFExprSuffix +sem_PFExprSuffix (Call _args) = + (sem_PFExprSuffix_Call (sem_Args _args)) +sem_PFExprSuffix (MetaCall _fn _args) = + (sem_PFExprSuffix_MetaCall _fn (sem_Args _args)) +sem_PFExprSuffix (ExprIndex _index) = + (sem_PFExprSuffix_ExprIndex (sem_MExpr _index)) +sem_PFExprSuffix (DotIndex _index) = + (sem_PFExprSuffix_DotIndex _index) +-- semantic domain +type T_PFExprSuffix = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + ( ([MToken]),PFExprSuffix,Bool,Bool,OperatorLevel,Doc) +data Inh_PFExprSuffix = Inh_PFExprSuffix {comments_Inh_PFExprSuffix :: ([MToken]),forceMultiline_Inh_PFExprSuffix :: Bool,indent_Inh_PFExprSuffix :: Int,ppconf_Inh_PFExprSuffix :: PrettyPrintConfig} +data Syn_PFExprSuffix = Syn_PFExprSuffix {comments_Syn_PFExprSuffix :: ([MToken]),copy_Syn_PFExprSuffix :: PFExprSuffix,isAssociative_Syn_PFExprSuffix :: Bool,isMultiline_Syn_PFExprSuffix :: Bool,precedence_Syn_PFExprSuffix :: OperatorLevel,pretty_Syn_PFExprSuffix :: Doc} +wrap_PFExprSuffix :: T_PFExprSuffix -> + Inh_PFExprSuffix -> + Syn_PFExprSuffix +wrap_PFExprSuffix sem (Inh_PFExprSuffix _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf + in (Syn_PFExprSuffix _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty)) +sem_PFExprSuffix_Call :: T_Args -> + T_PFExprSuffix +sem_PFExprSuffix_Call args_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: PFExprSuffix + _lhsOcomments :: ([MToken]) + _argsOcomments :: ([MToken]) + _argsOforceMultiline :: Bool + _argsOindent :: Int + _argsOppconf :: PrettyPrintConfig + _argsIcomments :: ([MToken]) + _argsIcopy :: Args + _argsIisMultiline :: Bool + _argsIpretty :: Doc + _lhsOpretty = + ({-# LINE 962 "src/GLua/AG/PrettyPrint.ag" #-} + _argsIpretty + {-# LINE 5916 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 963 "src/GLua/AG/PrettyPrint.ag" #-} + _argsIisMultiline + {-# LINE 5921 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 5926 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 5931 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + Call _argsIcopy + {-# LINE 5936 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 5941 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _argsIcomments + {-# LINE 5946 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 5951 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argsOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 5956 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argsOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 5961 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argsOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 5966 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _argsIcomments,_argsIcopy,_argsIisMultiline,_argsIpretty) = + args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_PFExprSuffix_MetaCall :: MToken -> + T_Args -> + T_PFExprSuffix +sem_PFExprSuffix_MetaCall fn_ args_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: PFExprSuffix + _lhsOcomments :: ([MToken]) + _argsOcomments :: ([MToken]) + _argsOforceMultiline :: Bool + _argsOindent :: Int + _argsOppconf :: PrettyPrintConfig + _argsIcomments :: ([MToken]) + _argsIcopy :: Args + _argsIisMultiline :: Bool + _argsIpretty :: Doc + _lhsOpretty = + ({-# LINE 965 "src/GLua/AG/PrettyPrint.ag" #-} + zchr ':' <> tok fn_ <> _argsIpretty + {-# LINE 5996 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 966 "src/GLua/AG/PrettyPrint.ag" #-} + _argsIisMultiline + {-# LINE 6001 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6006 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 6011 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + MetaCall fn_ _argsIcopy + {-# LINE 6016 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 6021 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _argsIcomments + {-# LINE 6026 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 6031 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argsOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 6036 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argsOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 6041 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _argsOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 6046 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _argsIcomments,_argsIcopy,_argsIisMultiline,_argsIpretty) = + args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_PFExprSuffix_ExprIndex :: T_MExpr -> + T_PFExprSuffix +sem_PFExprSuffix_ExprIndex index_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _indexOparentOperatorPrecedence :: OperatorLevel + _indexOparentOperatorAssociative :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: PFExprSuffix + _lhsOcomments :: ([MToken]) + _indexOcomments :: ([MToken]) + _indexOforceMultiline :: Bool + _indexOindent :: Int + _indexOppconf :: PrettyPrintConfig + _indexIcomments :: ([MToken]) + _indexIcopy :: MExpr + _indexIendsWithPrefixExpression :: Bool + _indexIisAssociative :: Bool + _indexIisLiteral :: Bool + _indexIisMultiline :: Bool + _indexIpos :: Region + _indexIprecedence :: OperatorLevel + _indexIpretty :: Doc + _lhsOpretty = + ({-# LINE 968 "src/GLua/AG/PrettyPrint.ag" #-} + brackets _lhsIppconf _indexIpretty + {-# LINE 6082 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 969 "src/GLua/AG/PrettyPrint.ag" #-} + _indexIisMultiline + {-# LINE 6087 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _indexOparentOperatorPrecedence = + ({-# LINE 970 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 6092 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _indexOparentOperatorAssociative = + ({-# LINE 971 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 6097 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + _indexIisAssociative + {-# LINE 6102 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + _indexIprecedence + {-# LINE 6107 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ExprIndex _indexIcopy + {-# LINE 6112 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 6117 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _indexIcomments + {-# LINE 6122 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _indexOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 6127 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _indexOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 6132 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _indexOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 6137 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _indexOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 6142 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _indexIcomments,_indexIcopy,_indexIendsWithPrefixExpression,_indexIisAssociative,_indexIisLiteral,_indexIisMultiline,_indexIpos,_indexIprecedence,_indexIpretty) = + index_ _indexOcomments _indexOforceMultiline _indexOindent _indexOparentOperatorAssociative _indexOparentOperatorPrecedence _indexOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +sem_PFExprSuffix_DotIndex :: MToken -> + T_PFExprSuffix +sem_PFExprSuffix_DotIndex index_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: PFExprSuffix + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 973 "src/GLua/AG/PrettyPrint.ag" #-} + zchr '.' <> tok index_ + {-# LINE 6163 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 974 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6168 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6173 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + OperatorLevel8 + {-# LINE 6178 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + DotIndex index_ + {-# LINE 6183 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 6188 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 6193 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty))) +-- PrefixExp --------------------------------------------------- +-- cata +sem_PrefixExp :: PrefixExp -> + T_PrefixExp +sem_PrefixExp (PFVar _name _suffixes) = + (sem_PrefixExp_PFVar _name (sem_ExprSuffixList _suffixes)) +sem_PrefixExp (ExprVar _expr _suffixes) = + (sem_PrefixExp_ExprVar (sem_MExpr _expr) (sem_ExprSuffixList _suffixes)) +-- semantic domain +type T_PrefixExp = ([MToken]) -> + Bool -> + Int -> + Bool -> + OperatorLevel -> + PrettyPrintConfig -> + ( ([MToken]),PrefixExp,Bool,Bool,Bool,OperatorLevel,Doc,Bool) +data Inh_PrefixExp = Inh_PrefixExp {comments_Inh_PrefixExp :: ([MToken]),forceMultiline_Inh_PrefixExp :: Bool,indent_Inh_PrefixExp :: Int,parentOperatorAssociative_Inh_PrefixExp :: Bool,parentOperatorPrecedence_Inh_PrefixExp :: OperatorLevel,ppconf_Inh_PrefixExp :: PrettyPrintConfig} +data Syn_PrefixExp = Syn_PrefixExp {comments_Syn_PrefixExp :: ([MToken]),copy_Syn_PrefixExp :: PrefixExp,isAssociative_Syn_PrefixExp :: Bool,isLiteral_Syn_PrefixExp :: Bool,isMultiline_Syn_PrefixExp :: Bool,precedence_Syn_PrefixExp :: OperatorLevel,pretty_Syn_PrefixExp :: Doc,startsWithExprPrefixExpression_Syn_PrefixExp :: Bool} +wrap_PrefixExp :: T_PrefixExp -> + Inh_PrefixExp -> + Syn_PrefixExp +wrap_PrefixExp sem (Inh_PrefixExp _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf + in (Syn_PrefixExp _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOprecedence _lhsOpretty _lhsOstartsWithExprPrefixExpression)) +sem_PrefixExp_PFVar :: MToken -> + T_ExprSuffixList -> + T_PrefixExp +sem_PrefixExp_PFVar name_ suffixes_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIparentOperatorAssociative + _lhsIparentOperatorPrecedence + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisLiteral :: Bool + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOprecedence :: OperatorLevel + _lhsOcopy :: PrefixExp + _lhsOcomments :: ([MToken]) + _suffixesOcomments :: ([MToken]) + _suffixesOforceMultiline :: Bool + _suffixesOindent :: Int + _suffixesOppconf :: PrettyPrintConfig + _suffixesIcomments :: ([MToken]) + _suffixesIcopy :: ExprSuffixList + _suffixesIisAssociative :: Bool + _suffixesIisMultiline :: Bool + _suffixesIprecedence :: OperatorLevel + _suffixesIpretty :: Doc + _lhsOpretty = + ({-# LINE 909 "src/GLua/AG/PrettyPrint.ag" #-} + tok name_ <> _suffixesIpretty + {-# LINE 6251 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLiteral = + ({-# LINE 910 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6256 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 911 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6261 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 912 "src/GLua/AG/PrettyPrint.ag" #-} + _suffixesIisMultiline + {-# LINE 6266 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + _suffixesIisAssociative + {-# LINE 6271 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-} + _suffixesIprecedence + {-# LINE 6276 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + PFVar name_ _suffixesIcopy + {-# LINE 6281 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 6286 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _suffixesIcomments + {-# LINE 6291 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _suffixesOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 6296 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _suffixesOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 6301 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _suffixesOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 6306 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _suffixesOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 6311 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _suffixesIcomments,_suffixesIcopy,_suffixesIisAssociative,_suffixesIisMultiline,_suffixesIprecedence,_suffixesIpretty) = + suffixes_ _suffixesOcomments _suffixesOforceMultiline _suffixesOindent _suffixesOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_PrefixExp_ExprVar :: T_MExpr -> + T_ExprSuffixList -> + T_PrefixExp +sem_PrefixExp_ExprVar expr_ suffixes_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIparentOperatorAssociative + _lhsIparentOperatorPrecedence + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOprecedence :: OperatorLevel + _lhsOisLiteral :: Bool + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOisAssociative :: Bool + _lhsOcopy :: PrefixExp + _lhsOcomments :: ([MToken]) + _exprOcomments :: ([MToken]) + _exprOforceMultiline :: Bool + _exprOindent :: Int + _exprOparentOperatorAssociative :: Bool + _exprOparentOperatorPrecedence :: OperatorLevel + _exprOppconf :: PrettyPrintConfig + _suffixesOcomments :: ([MToken]) + _suffixesOforceMultiline :: Bool + _suffixesOindent :: Int + _suffixesOppconf :: PrettyPrintConfig + _exprIcomments :: ([MToken]) + _exprIcopy :: MExpr + _exprIendsWithPrefixExpression :: Bool + _exprIisAssociative :: Bool + _exprIisLiteral :: Bool + _exprIisMultiline :: Bool + _exprIpos :: Region + _exprIprecedence :: OperatorLevel + _exprIpretty :: Doc + _suffixesIcomments :: ([MToken]) + _suffixesIcopy :: ExprSuffixList + _suffixesIisAssociative :: Bool + _suffixesIisMultiline :: Bool + _suffixesIprecedence :: OperatorLevel + _suffixesIpretty :: Doc + _lhsOpretty = + ({-# LINE 914 "src/GLua/AG/PrettyPrint.ag" #-} + (if _noparens then _exprIpretty else parens _lhsIppconf NonEmpty _exprIpretty) + <> _suffixesIpretty + {-# LINE 6363 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOprecedence = + ({-# LINE 917 "src/GLua/AG/PrettyPrint.ag" #-} + if _noparens then _exprIprecedence else OperatorLevel8 + {-# LINE 6368 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLiteral = + ({-# LINE 918 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6373 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 919 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 6378 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 920 "src/GLua/AG/PrettyPrint.ag" #-} + _exprIisMultiline || _suffixesIisMultiline + {-# LINE 6383 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _containsParenthesizedExpr = + ({-# LINE 924 "src/GLua/AG/PrettyPrint.ag" #-} + case _exprIcopy of + MExpr _ (APrefixExpr (ExprVar (MExpr _ AVarArg) _)) -> False + MExpr _ (APrefixExpr _) -> True + _ -> False + {-# LINE 6391 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _noparens = + ({-# LINE 930 "src/GLua/AG/PrettyPrint.ag" #-} + (removeRedundantParens _lhsIppconf || minimizeParens _lhsIppconf) + && (_containsParenthesizedExpr + || (_lhsIparentOperatorPrecedence == TopLevelExpression || _exprIisLiteral) + && length _suffixesIcopy == 0 + ) + || (minimizeParens _lhsIppconf && length _suffixesIcopy == 0 + && ( _lhsIparentOperatorPrecedence < _exprIprecedence + || assumeOperatorAssociativity _lhsIppconf + && _lhsIparentOperatorPrecedence == _exprIprecedence + && _lhsIparentOperatorAssociative + ) + ) + {-# LINE 6407 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisAssociative = + ({-# LINE 269 "src/GLua/AG/PrettyPrint.ag" #-} + _exprIisAssociative && _suffixesIisAssociative + {-# LINE 6412 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ExprVar _exprIcopy _suffixesIcopy + {-# LINE 6417 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 6422 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _suffixesIcomments + {-# LINE 6427 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _exprOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 6432 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _exprOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 6437 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _exprOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 6442 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _exprOparentOperatorAssociative = + ({-# LINE 260 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIparentOperatorAssociative + {-# LINE 6447 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _exprOparentOperatorPrecedence = + ({-# LINE 259 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIparentOperatorPrecedence + {-# LINE 6452 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _exprOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 6457 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _suffixesOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _exprIcomments + {-# LINE 6462 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _suffixesOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 6467 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _suffixesOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 6472 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _suffixesOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 6477 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _exprIcomments,_exprIcopy,_exprIendsWithPrefixExpression,_exprIisAssociative,_exprIisLiteral,_exprIisMultiline,_exprIpos,_exprIprecedence,_exprIpretty) = + expr_ _exprOcomments _exprOforceMultiline _exprOindent _exprOparentOperatorAssociative _exprOparentOperatorPrecedence _exprOppconf + ( _suffixesIcomments,_suffixesIcopy,_suffixesIisAssociative,_suffixesIisMultiline,_suffixesIprecedence,_suffixesIpretty) = + suffixes_ _suffixesOcomments _suffixesOforceMultiline _suffixesOindent _suffixesOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +-- Stat -------------------------------------------------------- +-- cata +sem_Stat :: Stat -> + T_Stat +sem_Stat (Def _vars) = + (sem_Stat_Def (sem_VarsList _vars)) +sem_Stat (LocDef _vars) = + (sem_Stat_LocDef (sem_VarsList _vars)) +sem_Stat (AFuncCall _fn) = + (sem_Stat_AFuncCall (sem_PrefixExp _fn)) +sem_Stat (ALabel _lbl) = + (sem_Stat_ALabel _lbl) +sem_Stat (ABreak) = + (sem_Stat_ABreak) +sem_Stat (AContinue) = + (sem_Stat_AContinue) +sem_Stat (AGoto _lbl) = + (sem_Stat_AGoto _lbl) +sem_Stat (ADo _body) = + (sem_Stat_ADo (sem_Block _body)) +sem_Stat (AWhile _cond _body) = + (sem_Stat_AWhile (sem_MExpr _cond) (sem_Block _body)) +sem_Stat (ARepeat _body _cond) = + (sem_Stat_ARepeat (sem_Block _body) (sem_MExpr _cond)) +sem_Stat (AIf _cond _body _elifs _els) = + (sem_Stat_AIf (sem_MExpr _cond) (sem_Block _body) (sem_ElseIfList _elifs) (sem_Else _els)) +sem_Stat (ANFor _var _val _to _step _body) = + (sem_Stat_ANFor _var (sem_MExpr _val) (sem_MExpr _to) (sem_MExpr _step) (sem_Block _body)) +sem_Stat (AGFor _vars _vals _body) = + (sem_Stat_AGFor _vars (sem_MExprList _vals) (sem_Block _body)) +sem_Stat (AFunc _name _args _body) = + (sem_Stat_AFunc (sem_FuncName _name) _args (sem_Block _body)) +sem_Stat (ALocFunc _name _args _body) = + (sem_Stat_ALocFunc (sem_FuncName _name) _args (sem_Block _body)) +-- semantic domain +type T_Stat = ([MToken]) -> + Bool -> + Int -> + Bool -> + PrettyPrintConfig -> + Region -> + Bool -> + ( ([MToken]),Stat,Bool,Bool,Doc,Bool) +data Inh_Stat = Inh_Stat {comments_Inh_Stat :: ([MToken]),forceMultiline_Inh_Stat :: Bool,indent_Inh_Stat :: Int,isLastStatement_Inh_Stat :: Bool,ppconf_Inh_Stat :: PrettyPrintConfig,statRegion_Inh_Stat :: Region,wouldBeAmbiguousWithoutSemicolon_Inh_Stat :: Bool} +data Syn_Stat = Syn_Stat {comments_Syn_Stat :: ([MToken]),copy_Syn_Stat :: Stat,endsWithPrefixExpression_Syn_Stat :: Bool,isMultiline_Syn_Stat :: Bool,pretty_Syn_Stat :: Doc,startsWithExprPrefixExpression_Syn_Stat :: Bool} +wrap_Stat :: T_Stat -> + Inh_Stat -> + Syn_Stat +wrap_Stat sem (Inh_Stat _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIstatRegion _lhsIwouldBeAmbiguousWithoutSemicolon) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIstatRegion _lhsIwouldBeAmbiguousWithoutSemicolon + in (Syn_Stat _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression)) +sem_Stat_Def :: T_VarsList -> + T_Stat +sem_Stat_Def vars_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOpretty :: Doc + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _varsOcomments :: ([MToken]) + _varsOforceMultiline :: Bool + _varsOindent :: Int + _varsOppconf :: PrettyPrintConfig + _varsIcomments :: ([MToken]) + _varsIcopy :: VarsList + _varsIendsWithPrefixExpression :: Bool + _varsIexprPretty :: Doc + _varsIisDefined :: Bool + _varsIisLast :: Bool + _varsIisMultiline :: Bool + _varsIpretty :: Doc + _varsIstartsWithExprPrefixExpression :: Bool + _varsIvarPretty :: Doc + _lhsOpretty = + ({-# LINE 646 "src/GLua/AG/PrettyPrint.ag" #-} + _varsIpretty <> _semicolon + {-# LINE 6568 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 647 "src/GLua/AG/PrettyPrint.ag" #-} + _varsIstartsWithExprPrefixExpression + {-# LINE 6573 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 648 "src/GLua/AG/PrettyPrint.ag" #-} + _varsIendsWithPrefixExpression + {-# LINE 6578 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 649 "src/GLua/AG/PrettyPrint.ag" #-} + _varsIisMultiline + {-# LINE 6583 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _semicolon = + ({-# LINE 650 "src/GLua/AG/PrettyPrint.ag" #-} + if semicolons _lhsIppconf || _lhsIwouldBeAmbiguousWithoutSemicolon + then zchr ';' + else empty + {-# LINE 6590 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + Def _varsIcopy + {-# LINE 6595 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 6600 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _varsIcomments + {-# LINE 6605 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _varsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 6610 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _varsOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 6615 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _varsOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 6620 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _varsOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 6625 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _varsIcomments,_varsIcopy,_varsIendsWithPrefixExpression,_varsIexprPretty,_varsIisDefined,_varsIisLast,_varsIisMultiline,_varsIpretty,_varsIstartsWithExprPrefixExpression,_varsIvarPretty) = + vars_ _varsOcomments _varsOforceMultiline _varsOindent _varsOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_Stat_LocDef :: T_VarsList -> + T_Stat +sem_Stat_LocDef vars_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOpretty :: Doc + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _varsOcomments :: ([MToken]) + _varsOforceMultiline :: Bool + _varsOindent :: Int + _varsOppconf :: PrettyPrintConfig + _varsIcomments :: ([MToken]) + _varsIcopy :: VarsList + _varsIendsWithPrefixExpression :: Bool + _varsIexprPretty :: Doc + _varsIisDefined :: Bool + _varsIisLast :: Bool + _varsIisMultiline :: Bool + _varsIpretty :: Doc + _varsIstartsWithExprPrefixExpression :: Bool + _varsIvarPretty :: Doc + _lhsOpretty = + ({-# LINE 655 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "local" <-> _varsIpretty <> _semicolon + {-# LINE 6663 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 656 "src/GLua/AG/PrettyPrint.ag" #-} + _varsIstartsWithExprPrefixExpression + {-# LINE 6668 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 657 "src/GLua/AG/PrettyPrint.ag" #-} + _varsIendsWithPrefixExpression + {-# LINE 6673 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 658 "src/GLua/AG/PrettyPrint.ag" #-} + _varsIisMultiline + {-# LINE 6678 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _semicolon = + ({-# LINE 659 "src/GLua/AG/PrettyPrint.ag" #-} + if semicolons _lhsIppconf || _lhsIwouldBeAmbiguousWithoutSemicolon + then zchr ';' + else empty + {-# LINE 6685 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + LocDef _varsIcopy + {-# LINE 6690 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 6695 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _varsIcomments + {-# LINE 6700 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _varsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 6705 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _varsOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 6710 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _varsOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 6715 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _varsOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 6720 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _varsIcomments,_varsIcopy,_varsIendsWithPrefixExpression,_varsIexprPretty,_varsIisDefined,_varsIisLast,_varsIisMultiline,_varsIpretty,_varsIstartsWithExprPrefixExpression,_varsIvarPretty) = + vars_ _varsOcomments _varsOforceMultiline _varsOindent _varsOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_Stat_AFuncCall :: T_PrefixExp -> + T_Stat +sem_Stat_AFuncCall fn_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _fnOparentOperatorPrecedence :: OperatorLevel + _fnOparentOperatorAssociative :: Bool + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _fnOcomments :: ([MToken]) + _fnOforceMultiline :: Bool + _fnOindent :: Int + _fnOppconf :: PrettyPrintConfig + _fnIcomments :: ([MToken]) + _fnIcopy :: PrefixExp + _fnIisAssociative :: Bool + _fnIisLiteral :: Bool + _fnIisMultiline :: Bool + _fnIprecedence :: OperatorLevel + _fnIpretty :: Doc + _fnIstartsWithExprPrefixExpression :: Bool + _lhsOpretty = + ({-# LINE 664 "src/GLua/AG/PrettyPrint.ag" #-} + _fnIpretty <> _semicolon + {-# LINE 6758 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 665 "src/GLua/AG/PrettyPrint.ag" #-} + _fnIisMultiline + {-# LINE 6763 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _semicolon = + ({-# LINE 666 "src/GLua/AG/PrettyPrint.ag" #-} + if semicolons _lhsIppconf then zchr ';' else empty + {-# LINE 6768 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 667 "src/GLua/AG/PrettyPrint.ag" #-} + _fnIstartsWithExprPrefixExpression + {-# LINE 6773 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 668 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 6778 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _fnOparentOperatorPrecedence = + ({-# LINE 669 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 6783 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _fnOparentOperatorAssociative = + ({-# LINE 670 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 6788 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AFuncCall _fnIcopy + {-# LINE 6793 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 6798 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _fnIcomments + {-# LINE 6803 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _fnOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 6808 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _fnOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 6813 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _fnOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 6818 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _fnOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 6823 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _fnIcomments,_fnIcopy,_fnIisAssociative,_fnIisLiteral,_fnIisMultiline,_fnIprecedence,_fnIpretty,_fnIstartsWithExprPrefixExpression) = + fn_ _fnOcomments _fnOforceMultiline _fnOindent _fnOparentOperatorAssociative _fnOparentOperatorPrecedence _fnOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_Stat_ALabel :: MToken -> + T_Stat +sem_Stat_ALabel lbl_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOpretty :: Doc + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 672 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "::" + <> _whitespace + <> tok lbl_ + <> _whitespace + <> zeroWidthText "::" + {-# LINE 6851 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 678 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6856 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 679 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6861 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 680 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6866 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _whitespace = + ({-# LINE 681 "src/GLua/AG/PrettyPrint.ag" #-} + if spaceAfterLabel _lhsIppconf then zeroWidthText " " else empty + {-# LINE 6871 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ALabel lbl_ + {-# LINE 6876 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 6881 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 6886 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_Stat_ABreak :: T_Stat +sem_Stat_ABreak = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOpretty :: Doc + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 683 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "break" <> _semicolon + {-# LINE 6907 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 684 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6912 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 685 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6917 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 686 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6922 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _semicolon = + ({-# LINE 687 "src/GLua/AG/PrettyPrint.ag" #-} + if semicolons _lhsIppconf then zchr ';' else empty + {-# LINE 6927 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ABreak + {-# LINE 6932 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 6937 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 6942 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_Stat_AContinue :: T_Stat +sem_Stat_AContinue = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOpretty :: Doc + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 689 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "continue" <> _semicolon + {-# LINE 6963 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 690 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6968 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 691 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6973 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 692 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 6978 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _semicolon = + ({-# LINE 693 "src/GLua/AG/PrettyPrint.ag" #-} + if semicolons _lhsIppconf then zchr ';' else empty + {-# LINE 6983 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AContinue + {-# LINE 6988 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 6993 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 6998 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_Stat_AGoto :: MToken -> + T_Stat +sem_Stat_AGoto lbl_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOpretty :: Doc + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 695 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "goto" <-> tok lbl_ <> _semicolon + {-# LINE 7020 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 696 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7025 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 697 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7030 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 698 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7035 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _semicolon = + ({-# LINE 699 "src/GLua/AG/PrettyPrint.ag" #-} + if semicolons _lhsIppconf then zchr ';' else empty + {-# LINE 7040 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AGoto lbl_ + {-# LINE 7045 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 7050 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 7055 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_Stat_ADo :: T_Block -> + T_Stat +sem_Stat_ADo body_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOisMultiline :: Bool + _lhsOpretty :: Doc + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _bodyOindent :: Int + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _bodyOcomments :: ([MToken]) + _bodyOforceMultiline :: Bool + _bodyOppconf :: PrettyPrintConfig + _bodyOstatRegion :: Region + _bodyIcomments :: ([MToken]) + _bodyIcopy :: Block + _bodyIisMultiline :: Bool + _bodyIpos :: Region + _bodyIpretty :: Doc + _bodyIstatementCount :: Int + _lhsOisMultiline = + ({-# LINE 701 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 7088 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpretty = + ({-# LINE 702 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "do" + $+$ _bodyIpretty + $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") + {-# LINE 7095 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 706 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7100 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 707 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7105 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOindent = + ({-# LINE 708 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + 1 + {-# LINE 7110 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ADo _bodyIcopy + {-# LINE 7115 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 7120 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _bodyIcomments + {-# LINE 7125 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 7130 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 7135 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 7140 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOstatRegion = + ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIstatRegion + {-# LINE 7145 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = + body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_Stat_AWhile :: T_MExpr -> + T_Block -> + T_Stat +sem_Stat_AWhile cond_ body_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOisMultiline :: Bool + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _condOparentOperatorPrecedence :: OperatorLevel + _condOparentOperatorAssociative :: Bool + _lhsOpretty :: Doc + _bodyOindent :: Int + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _condOcomments :: ([MToken]) + _condOforceMultiline :: Bool + _condOindent :: Int + _condOppconf :: PrettyPrintConfig + _bodyOcomments :: ([MToken]) + _bodyOforceMultiline :: Bool + _bodyOppconf :: PrettyPrintConfig + _bodyOstatRegion :: Region + _condIcomments :: ([MToken]) + _condIcopy :: MExpr + _condIendsWithPrefixExpression :: Bool + _condIisAssociative :: Bool + _condIisLiteral :: Bool + _condIisMultiline :: Bool + _condIpos :: Region + _condIprecedence :: OperatorLevel + _condIpretty :: Doc + _bodyIcomments :: ([MToken]) + _bodyIcopy :: Block + _bodyIisMultiline :: Bool + _bodyIpos :: Region + _bodyIpretty :: Doc + _bodyIstatementCount :: Int + _lhsOisMultiline = + ({-# LINE 710 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 7196 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 711 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7201 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 712 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7206 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOparentOperatorPrecedence = + ({-# LINE 713 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 7211 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOparentOperatorAssociative = + ({-# LINE 714 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 7216 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpretty = + ({-# LINE 715 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "while" + <-> _condIpretty + <-> zeroWidthText "do" + $+$ _bodyIpretty + $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") + {-# LINE 7225 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOindent = + ({-# LINE 721 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + 1 + {-# LINE 7230 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AWhile _condIcopy _bodyIcopy + {-# LINE 7235 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 7240 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _bodyIcomments + {-# LINE 7245 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 7250 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 7255 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 7260 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 7265 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _condIcomments + {-# LINE 7270 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 7275 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 7280 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOstatRegion = + ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIstatRegion + {-# LINE 7285 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) = + cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf + ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = + body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_Stat_ARepeat :: T_Block -> + T_MExpr -> + T_Stat +sem_Stat_ARepeat body_ cond_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOpretty :: Doc + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _bodyOindent :: Int + _condOparentOperatorPrecedence :: OperatorLevel + _condOparentOperatorAssociative :: Bool + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _bodyOcomments :: ([MToken]) + _bodyOforceMultiline :: Bool + _bodyOppconf :: PrettyPrintConfig + _bodyOstatRegion :: Region + _condOcomments :: ([MToken]) + _condOforceMultiline :: Bool + _condOindent :: Int + _condOppconf :: PrettyPrintConfig + _bodyIcomments :: ([MToken]) + _bodyIcopy :: Block + _bodyIisMultiline :: Bool + _bodyIpos :: Region + _bodyIpretty :: Doc + _bodyIstatementCount :: Int + _condIcomments :: ([MToken]) + _condIcopy :: MExpr + _condIendsWithPrefixExpression :: Bool + _condIisAssociative :: Bool + _condIisLiteral :: Bool + _condIisMultiline :: Bool + _condIpos :: Region + _condIprecedence :: OperatorLevel + _condIpretty :: Doc + _lhsOpretty = + ({-# LINE 723 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "repeat" + $+$ _bodyIpretty + $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "until" <-> _condIpretty) + {-# LINE 7340 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 727 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7345 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 728 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7350 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 729 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 7355 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOindent = + ({-# LINE 730 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + 1 + {-# LINE 7360 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOparentOperatorPrecedence = + ({-# LINE 731 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 7365 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOparentOperatorAssociative = + ({-# LINE 732 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 7370 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ARepeat _bodyIcopy _condIcopy + {-# LINE 7375 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 7380 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _condIcomments + {-# LINE 7385 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 7390 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 7395 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 7400 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOstatRegion = + ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIstatRegion + {-# LINE 7405 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _bodyIcomments + {-# LINE 7410 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 7415 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 7420 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 7425 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = + body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion + ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) = + cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_Stat_AIf :: T_MExpr -> + T_Block -> + T_ElseIfList -> + T_Else -> + T_Stat +sem_Stat_AIf cond_ body_ elifs_ els_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _condOcomments :: ([MToken]) + _condOparentOperatorPrecedence :: OperatorLevel + _condOparentOperatorAssociative :: Bool + _bodyOindent :: Int + _bodyOstatRegion :: Region + _lhsOpretty :: Doc + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _lhsOisMultiline :: Bool + _condOforceMultiline :: Bool + _condOindent :: Int + _condOppconf :: PrettyPrintConfig + _bodyOcomments :: ([MToken]) + _bodyOforceMultiline :: Bool + _bodyOppconf :: PrettyPrintConfig + _elifsOcomments :: ([MToken]) + _elifsOforceMultiline :: Bool + _elifsOindent :: Int + _elifsOppconf :: PrettyPrintConfig + _elsOcomments :: ([MToken]) + _elsOforceMultiline :: Bool + _elsOindent :: Int + _elsOppconf :: PrettyPrintConfig + _elsOstatRegion :: Region + _condIcomments :: ([MToken]) + _condIcopy :: MExpr + _condIendsWithPrefixExpression :: Bool + _condIisAssociative :: Bool + _condIisLiteral :: Bool + _condIisMultiline :: Bool + _condIpos :: Region + _condIprecedence :: OperatorLevel + _condIpretty :: Doc + _bodyIcomments :: ([MToken]) + _bodyIcopy :: Block + _bodyIisMultiline :: Bool + _bodyIpos :: Region + _bodyIpretty :: Doc + _bodyIstatementCount :: Int + _elifsIcomments :: ([MToken]) + _elifsIcopy :: ElseIfList + _elifsIelsesExist :: Bool + _elifsIisMultiline :: Bool + _elifsIpos :: Region + _elifsIpretty :: Doc + _elsIcomments :: ([MToken]) + _elsIcopy :: Else + _elsIelsesExist :: Bool + _elsIisMultiline :: Bool + _elsIpos :: Region + _elsIpretty :: Doc + _isMultiline = + ({-# LINE 734 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + || _condIisMultiline + || _bodyIisMultiline + || _elifsIelsesExist + || _elsIelsesExist + || not (null $ fst _commentsAfterThen ) + {-# LINE 7506 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 741 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7511 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 742 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7516 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _singleLinePretty = + ({-# LINE 743 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "if" + <-> _condIpretty + <-> zeroWidthText "then" + <-> _bodyIpretty + <-> zeroWidthText "end" + <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterThen ) + {-# LINE 7526 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _multilinePretty = + ({-# LINE 750 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "if" + <-> _condIpretty + <-> zeroWidthText "then" + <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterThen ) + $+$ _bodyIpretty + $+$ _elifsIpretty + $+$ _elsIpretty + $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") + {-# LINE 7538 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsAfterThen = + ({-# LINE 760 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos _) -> pos `beforeOrOnLine` _bodyIpos) _lhsIcomments + {-# LINE 7543 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOcomments = + ({-# LINE 762 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsAfterThen + {-# LINE 7548 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOparentOperatorPrecedence = + ({-# LINE 764 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 7553 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOparentOperatorAssociative = + ({-# LINE 765 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 7558 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOindent = + ({-# LINE 766 "src/GLua/AG/PrettyPrint.ag" #-} + if _isMultiline then _lhsIindent + 1 else 0 + {-# LINE 7563 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOstatRegion = + ({-# LINE 767 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIstatRegion `upto` _elifsIpos `upto` _elsIpos + {-# LINE 7568 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpretty = + ({-# LINE 768 "src/GLua/AG/PrettyPrint.ag" #-} + if _isMultiline then _multilinePretty else _singleLinePretty + {-# LINE 7573 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AIf _condIcopy _bodyIcopy _elifsIcopy _elsIcopy + {-# LINE 7578 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 7583 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _elsIcomments + {-# LINE 7588 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 251 "src/GLua/AG/PrettyPrint.ag" #-} + _isMultiline + {-# LINE 7593 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 7598 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 7603 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _condOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 7608 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _condIcomments + {-# LINE 7613 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 7618 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 7623 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _elifsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _bodyIcomments + {-# LINE 7628 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _elifsOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 7633 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _elifsOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 7638 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _elifsOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 7643 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _elsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _elifsIcomments + {-# LINE 7648 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _elsOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 7653 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _elsOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 7658 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _elsOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 7663 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _elsOstatRegion = + ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIstatRegion + {-# LINE 7668 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) = + cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf + ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = + body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion + ( _elifsIcomments,_elifsIcopy,_elifsIelsesExist,_elifsIisMultiline,_elifsIpos,_elifsIpretty) = + elifs_ _elifsOcomments _elifsOforceMultiline _elifsOindent _elifsOppconf + ( _elsIcomments,_elsIcopy,_elsIelsesExist,_elsIisMultiline,_elsIpos,_elsIpretty) = + els_ _elsOcomments _elsOforceMultiline _elsOindent _elsOppconf _elsOstatRegion + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_Stat_ANFor :: MToken -> + T_MExpr -> + T_MExpr -> + T_MExpr -> + T_Block -> + T_Stat +sem_Stat_ANFor var_ val_ to_ step_ body_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOisMultiline :: Bool + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOpretty :: Doc + _valOcomments :: ([MToken]) + _valOparentOperatorPrecedence :: OperatorLevel + _valOparentOperatorAssociative :: Bool + _toOparentOperatorPrecedence :: OperatorLevel + _toOparentOperatorAssociative :: Bool + _stepOparentOperatorPrecedence :: OperatorLevel + _stepOparentOperatorAssociative :: Bool + _bodyOindent :: Int + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _valOforceMultiline :: Bool + _valOindent :: Int + _valOppconf :: PrettyPrintConfig + _toOcomments :: ([MToken]) + _toOforceMultiline :: Bool + _toOindent :: Int + _toOppconf :: PrettyPrintConfig + _stepOcomments :: ([MToken]) + _stepOforceMultiline :: Bool + _stepOindent :: Int + _stepOppconf :: PrettyPrintConfig + _bodyOcomments :: ([MToken]) + _bodyOforceMultiline :: Bool + _bodyOppconf :: PrettyPrintConfig + _bodyOstatRegion :: Region + _valIcomments :: ([MToken]) + _valIcopy :: MExpr + _valIendsWithPrefixExpression :: Bool + _valIisAssociative :: Bool + _valIisLiteral :: Bool + _valIisMultiline :: Bool + _valIpos :: Region + _valIprecedence :: OperatorLevel + _valIpretty :: Doc + _toIcomments :: ([MToken]) + _toIcopy :: MExpr + _toIendsWithPrefixExpression :: Bool + _toIisAssociative :: Bool + _toIisLiteral :: Bool + _toIisMultiline :: Bool + _toIpos :: Region + _toIprecedence :: OperatorLevel + _toIpretty :: Doc + _stepIcomments :: ([MToken]) + _stepIcopy :: MExpr + _stepIendsWithPrefixExpression :: Bool + _stepIisAssociative :: Bool + _stepIisLiteral :: Bool + _stepIisMultiline :: Bool + _stepIpos :: Region + _stepIprecedence :: OperatorLevel + _stepIpretty :: Doc + _bodyIcomments :: ([MToken]) + _bodyIcopy :: Block + _bodyIisMultiline :: Bool + _bodyIpos :: Region + _bodyIpretty :: Doc + _bodyIstatementCount :: Int + _lhsOisMultiline = + ({-# LINE 770 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 7758 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 771 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7763 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 772 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7768 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _step = + ({-# LINE 773 "src/GLua/AG/PrettyPrint.ag" #-} + case _stepIcopy of + MExpr _ (ANumber "1") -> empty + _ -> _comma <> _stepIpretty + {-# LINE 7775 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpretty = + ({-# LINE 776 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "for" + <-> tok var_ + <-> zchr '=' + <-> _valIpretty + <> _comma + <> _toIpretty + <> _step + <-> zeroWidthText "do" + <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFor ) + $+$ _bodyIpretty + $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") + {-# LINE 7790 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _comma = + ({-# LINE 788 "src/GLua/AG/PrettyPrint.ag" #-} + (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) + <> zchr ',' + <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty) + {-# LINE 7797 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsAfterFor = + ({-# LINE 792 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos _) -> pos `beforeOrOnLine` mpos var_) _lhsIcomments + {-# LINE 7802 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valOcomments = + ({-# LINE 794 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsAfterFor + {-# LINE 7807 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valOparentOperatorPrecedence = + ({-# LINE 795 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 7812 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valOparentOperatorAssociative = + ({-# LINE 796 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 7817 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _toOparentOperatorPrecedence = + ({-# LINE 797 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 7822 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _toOparentOperatorAssociative = + ({-# LINE 798 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 7827 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _stepOparentOperatorPrecedence = + ({-# LINE 799 "src/GLua/AG/PrettyPrint.ag" #-} + TopLevelExpression + {-# LINE 7832 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _stepOparentOperatorAssociative = + ({-# LINE 800 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 7837 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOindent = + ({-# LINE 801 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + 1 + {-# LINE 7842 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ANFor var_ _valIcopy _toIcopy _stepIcopy _bodyIcopy + {-# LINE 7847 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 7852 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _bodyIcomments + {-# LINE 7857 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 7862 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 7867 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 7872 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _toOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _valIcomments + {-# LINE 7877 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _toOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 7882 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _toOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 7887 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _toOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 7892 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _stepOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _toIcomments + {-# LINE 7897 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _stepOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 7902 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _stepOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 7907 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _stepOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 7912 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _stepIcomments + {-# LINE 7917 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 7922 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 7927 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOstatRegion = + ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIstatRegion + {-# LINE 7932 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _valIcomments,_valIcopy,_valIendsWithPrefixExpression,_valIisAssociative,_valIisLiteral,_valIisMultiline,_valIpos,_valIprecedence,_valIpretty) = + val_ _valOcomments _valOforceMultiline _valOindent _valOparentOperatorAssociative _valOparentOperatorPrecedence _valOppconf + ( _toIcomments,_toIcopy,_toIendsWithPrefixExpression,_toIisAssociative,_toIisLiteral,_toIisMultiline,_toIpos,_toIprecedence,_toIpretty) = + to_ _toOcomments _toOforceMultiline _toOindent _toOparentOperatorAssociative _toOparentOperatorPrecedence _toOppconf + ( _stepIcomments,_stepIcopy,_stepIendsWithPrefixExpression,_stepIisAssociative,_stepIisLiteral,_stepIisMultiline,_stepIpos,_stepIprecedence,_stepIpretty) = + step_ _stepOcomments _stepOforceMultiline _stepOindent _stepOparentOperatorAssociative _stepOparentOperatorPrecedence _stepOppconf + ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = + body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_Stat_AGFor :: ([MToken]) -> + T_MExprList -> + T_Block -> + T_Stat +sem_Stat_AGFor vars_ vals_ body_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOisMultiline :: Bool + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOpretty :: Doc + _bodyOindent :: Int + _valsOcomments :: ([MToken]) + _valsOforceMultiline :: Bool + _valsOsomeElementsInListAreMultiline :: Bool + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _valsOindent :: Int + _valsOppconf :: PrettyPrintConfig + _bodyOcomments :: ([MToken]) + _bodyOforceMultiline :: Bool + _bodyOppconf :: PrettyPrintConfig + _bodyOstatRegion :: Region + _valsIcomments :: ([MToken]) + _valsIcopy :: MExprList + _valsIisAssociative :: Bool + _valsIisLast :: Bool + _valsIisMultiline :: Bool + _valsIpos :: Region + _valsIprecedence :: OperatorLevel + _valsIpretty :: Doc + _valsIstartsWithNewline :: Bool + _bodyIcomments :: ([MToken]) + _bodyIcopy :: Block + _bodyIisMultiline :: Bool + _bodyIpos :: Region + _bodyIpretty :: Doc + _bodyIstatementCount :: Int + _lhsOisMultiline = + ({-# LINE 803 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 7989 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 804 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7994 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 805 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 7999 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpretty = + ({-# LINE 806 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "for" + <-> printList tok (render _comma ) vars_ + <-> zeroWidthText "in" + <-> _valsIpretty + <-> zeroWidthText "do" + <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFor ) + $+$ _bodyIpretty + $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") + {-# LINE 8011 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOindent = + ({-# LINE 815 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + 1 + {-# LINE 8016 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _comma = + ({-# LINE 816 "src/GLua/AG/PrettyPrint.ag" #-} + (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) + <> zchr ',' + <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty) + {-# LINE 8023 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsAfterFor = + ({-# LINE 820 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos _) -> pos `beforeOrOnLine` mpos (head vars_)) _lhsIcomments + {-# LINE 8028 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valsOcomments = + ({-# LINE 822 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsAfterFor + {-# LINE 8033 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valsOforceMultiline = + ({-# LINE 824 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 8038 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valsOsomeElementsInListAreMultiline = + ({-# LINE 825 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 8043 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AGFor vars_ _valsIcopy _bodyIcopy + {-# LINE 8048 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 8053 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _bodyIcomments + {-# LINE 8058 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valsOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 8063 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _valsOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 8068 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _valsIcomments + {-# LINE 8073 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 8078 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 8083 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOstatRegion = + ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIstatRegion + {-# LINE 8088 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _valsIcomments,_valsIcopy,_valsIisAssociative,_valsIisLast,_valsIisMultiline,_valsIpos,_valsIprecedence,_valsIpretty,_valsIstartsWithNewline) = + vals_ _valsOcomments _valsOforceMultiline _valsOindent _valsOppconf _valsOsomeElementsInListAreMultiline + ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = + body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_Stat_AFunc :: T_FuncName -> + ([MToken]) -> + T_Block -> + T_Stat +sem_Stat_AFunc name_ args_ body_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOisMultiline :: Bool + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOpretty :: Doc + _nameOcomments :: ([MToken]) + _bodyOindent :: Int + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _nameOindent :: Int + _nameOppconf :: PrettyPrintConfig + _bodyOcomments :: ([MToken]) + _bodyOforceMultiline :: Bool + _bodyOppconf :: PrettyPrintConfig + _bodyOstatRegion :: Region + _nameIcomments :: ([MToken]) + _nameIcopy :: FuncName + _nameIisMultiline :: Bool + _nameIpos :: Region + _nameIpretty :: Doc + _bodyIcomments :: ([MToken]) + _bodyIcopy :: Block + _bodyIisMultiline :: Bool + _bodyIpos :: Region + _bodyIpretty :: Doc + _bodyIstatementCount :: Int + _lhsOisMultiline = + ({-# LINE 827 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 8135 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 828 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 8140 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 829 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 8145 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpretty = + ({-# LINE 830 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "function" + <-> _nameIpretty + <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) args_) + <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFunc ) + $+$ _bodyIpretty + $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") + {-# LINE 8155 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsAfterFunc = + ({-# LINE 837 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos _) -> pos `beforeOrOnLine` _nameIpos) _lhsIcomments + {-# LINE 8160 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _nameOcomments = + ({-# LINE 839 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsAfterFunc + {-# LINE 8165 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _emptyParams = + ({-# LINE 840 "src/GLua/AG/PrettyPrint.ag" #-} + toEmpty $ null args_ + {-# LINE 8170 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _comma = + ({-# LINE 841 "src/GLua/AG/PrettyPrint.ag" #-} + (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) + <> zchr ',' + <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty) + {-# LINE 8177 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOindent = + ({-# LINE 845 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + 1 + {-# LINE 8182 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AFunc _nameIcopy args_ _bodyIcopy + {-# LINE 8187 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 8192 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _bodyIcomments + {-# LINE 8197 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _nameOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 8202 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _nameOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 8207 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _nameIcomments + {-# LINE 8212 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 8217 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 8222 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOstatRegion = + ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIstatRegion + {-# LINE 8227 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _nameIcomments,_nameIcopy,_nameIisMultiline,_nameIpos,_nameIpretty) = + name_ _nameOcomments _nameOindent _nameOppconf + ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = + body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +sem_Stat_ALocFunc :: T_FuncName -> + ([MToken]) -> + T_Block -> + T_Stat +sem_Stat_ALocFunc name_ args_ body_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIisLastStatement + _lhsIppconf + _lhsIstatRegion + _lhsIwouldBeAmbiguousWithoutSemicolon -> + (let _lhsOisMultiline :: Bool + _lhsOpretty :: Doc + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _nameOcomments :: ([MToken]) + _bodyOindent :: Int + _lhsOcopy :: Stat + _lhsOcomments :: ([MToken]) + _nameOindent :: Int + _nameOppconf :: PrettyPrintConfig + _bodyOcomments :: ([MToken]) + _bodyOforceMultiline :: Bool + _bodyOppconf :: PrettyPrintConfig + _bodyOstatRegion :: Region + _nameIcomments :: ([MToken]) + _nameIcopy :: FuncName + _nameIisMultiline :: Bool + _nameIpos :: Region + _nameIpretty :: Doc + _bodyIcomments :: ([MToken]) + _bodyIcopy :: Block + _bodyIisMultiline :: Bool + _bodyIpos :: Region + _bodyIpretty :: Doc + _bodyIstatementCount :: Int + _lhsOisMultiline = + ({-# LINE 847 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 8274 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOpretty = + ({-# LINE 848 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "local function" + <-> _nameIpretty + <> parens _lhsIppconf _emptyParams (printList tok (render _comma ) args_) + <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFunc ) + $+$ _bodyIpretty + $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end") + {-# LINE 8284 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 855 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 8289 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 856 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 8294 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _commentsAfterFunc = + ({-# LINE 857 "src/GLua/AG/PrettyPrint.ag" #-} + span (\(MToken pos _) -> pos `beforeOrOnLine` _nameIpos) _lhsIcomments + {-# LINE 8299 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _nameOcomments = + ({-# LINE 859 "src/GLua/AG/PrettyPrint.ag" #-} + snd _commentsAfterFunc + {-# LINE 8304 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _emptyParams = + ({-# LINE 860 "src/GLua/AG/PrettyPrint.ag" #-} + toEmpty $ null args_ + {-# LINE 8309 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _comma = + ({-# LINE 861 "src/GLua/AG/PrettyPrint.ag" #-} + (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) + <> zchr ',' + <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty) + {-# LINE 8316 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOindent = + ({-# LINE 865 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + 1 + {-# LINE 8321 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ALocFunc _nameIcopy args_ _bodyIcopy + {-# LINE 8326 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 8331 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _bodyIcomments + {-# LINE 8336 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _nameOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 8341 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _nameOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 8346 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _nameIcomments + {-# LINE 8351 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 8356 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 8361 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _bodyOstatRegion = + ({-# LINE 320 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIstatRegion + {-# LINE 8366 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _nameIcomments,_nameIcopy,_nameIisMultiline,_nameIpos,_nameIpretty) = + name_ _nameOcomments _nameOindent _nameOppconf + ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpos,_bodyIpretty,_bodyIstatementCount) = + body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression))) +-- UnOp -------------------------------------------------------- +-- cata +sem_UnOp :: UnOp -> + T_UnOp +sem_UnOp (UnMinus) = + (sem_UnOp_UnMinus) +sem_UnOp (ANot) = + (sem_UnOp_ANot) +sem_UnOp (AHash) = + (sem_UnOp_AHash) +-- semantic domain +type T_UnOp = ([MToken]) -> + Int -> + PrettyPrintConfig -> + ( ([MToken]),UnOp,Bool,Doc) +data Inh_UnOp = Inh_UnOp {comments_Inh_UnOp :: ([MToken]),indent_Inh_UnOp :: Int,ppconf_Inh_UnOp :: PrettyPrintConfig} +data Syn_UnOp = Syn_UnOp {comments_Syn_UnOp :: ([MToken]),copy_Syn_UnOp :: UnOp,isMultiline_Syn_UnOp :: Bool,pretty_Syn_UnOp :: Doc} +wrap_UnOp :: T_UnOp -> + Inh_UnOp -> + Syn_UnOp +wrap_UnOp sem (Inh_UnOp _lhsIcomments _lhsIindent _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf + in (Syn_UnOp _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty)) +sem_UnOp_UnMinus :: T_UnOp +sem_UnOp_UnMinus = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOcopy :: UnOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1203 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "-" + {-# LINE 8408 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1204 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 8413 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + UnMinus + {-# LINE 8418 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 8423 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 8428 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty))) +sem_UnOp_ANot :: T_UnOp +sem_UnOp_ANot = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOcopy :: UnOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1206 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText (if cStyle _lhsIppconf then "!" else "not ") + {-# LINE 8443 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1207 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 8448 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + ANot + {-# LINE 8453 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 8458 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 8463 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty))) +sem_UnOp_AHash :: T_UnOp +sem_UnOp_AHash = + (\ _lhsIcomments + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOisMultiline :: Bool + _lhsOcopy :: UnOp + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 1209 "src/GLua/AG/PrettyPrint.ag" #-} + zeroWidthText "#" + {-# LINE 8478 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 1210 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 8483 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + AHash + {-# LINE 8488 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 8493 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 8498 "src/GLua/AG/PrettyPrint.hs" #-} + ) + in ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty))) +-- VarsList ---------------------------------------------------- +-- cata +sem_VarsList :: VarsList -> + T_VarsList +sem_VarsList list = + (Prelude.foldr sem_VarsList_Cons sem_VarsList_Nil (Prelude.map sem_Declaration list)) +-- semantic domain +type T_VarsList = ([MToken]) -> + Bool -> + Int -> + PrettyPrintConfig -> + ( ([MToken]),VarsList,Bool,Doc,Bool,Bool,Bool,Doc,Bool,Doc) +data Inh_VarsList = Inh_VarsList {comments_Inh_VarsList :: ([MToken]),forceMultiline_Inh_VarsList :: Bool,indent_Inh_VarsList :: Int,ppconf_Inh_VarsList :: PrettyPrintConfig} +data Syn_VarsList = Syn_VarsList {comments_Syn_VarsList :: ([MToken]),copy_Syn_VarsList :: VarsList,endsWithPrefixExpression_Syn_VarsList :: Bool,exprPretty_Syn_VarsList :: Doc,isDefined_Syn_VarsList :: Bool,isLast_Syn_VarsList :: Bool,isMultiline_Syn_VarsList :: Bool,pretty_Syn_VarsList :: Doc,startsWithExprPrefixExpression_Syn_VarsList :: Bool,varPretty_Syn_VarsList :: Doc} +wrap_VarsList :: T_VarsList -> + Inh_VarsList -> + Syn_VarsList +wrap_VarsList sem (Inh_VarsList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) = + (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf + in (Syn_VarsList _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOexprPretty _lhsOisDefined _lhsOisLast _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOvarPretty)) +sem_VarsList_Cons :: T_Declaration -> + T_VarsList -> + T_VarsList +sem_VarsList_Cons hd_ tl_ = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOisLast :: Bool + _lhsOexprPretty :: Doc + _lhsOisDefined :: Bool + _lhsOvarPretty :: Doc + _lhsOcopy :: VarsList + _lhsOcomments :: ([MToken]) + _hdOcomments :: ([MToken]) + _hdOforceMultiline :: Bool + _hdOindent :: Int + _hdOppconf :: PrettyPrintConfig + _tlOcomments :: ([MToken]) + _tlOforceMultiline :: Bool + _tlOindent :: Int + _tlOppconf :: PrettyPrintConfig + _hdIcomments :: ([MToken]) + _hdIcopy :: Declaration + _hdIendsWithPrefixExpression :: Bool + _hdIexprPretty :: Doc + _hdIisDefined :: Bool + _hdIisMultiline :: Bool + _hdIpretty :: Doc + _hdIstartsWithExprPrefixExpression :: Bool + _hdIvarPretty :: Doc + _tlIcomments :: ([MToken]) + _tlIcopy :: VarsList + _tlIendsWithPrefixExpression :: Bool + _tlIexprPretty :: Doc + _tlIisDefined :: Bool + _tlIisLast :: Bool + _tlIisMultiline :: Bool + _tlIpretty :: Doc + _tlIstartsWithExprPrefixExpression :: Bool + _tlIvarPretty :: Doc + _lhsOpretty = + ({-# LINE 535 "src/GLua/AG/PrettyPrint.ag" #-} + _varPretty + <-> if _isDefined then zchr '=' <-> _exprPretty else empty + {-# LINE 8570 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 538 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIstartsWithExprPrefixExpression + {-# LINE 8575 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 539 "src/GLua/AG/PrettyPrint.ag" #-} + if _tlIisDefined then _tlIendsWithPrefixExpression else _hdIendsWithPrefixExpression + {-# LINE 8580 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 546 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIisMultiline || _tlIisMultiline + {-# LINE 8585 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _isDefined = + ({-# LINE 547 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIisDefined || _tlIisDefined + {-# LINE 8590 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _varPretty = + ({-# LINE 548 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIvarPretty + <> (if _tlIisLast then empty else _comma ) + <> _tlIvarPretty + {-# LINE 8597 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _exprPretty = + ({-# LINE 552 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIexprPretty + <> (if not _tlIisLast && _tlIisDefined then _comma else empty) + <> _tlIexprPretty + {-# LINE 8604 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _comma = + ({-# LINE 556 "src/GLua/AG/PrettyPrint.ag" #-} + (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) + <> zchr ',' + <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty) + {-# LINE 8611 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLast = + ({-# LINE 560 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 8616 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOexprPretty = + ({-# LINE 273 "src/GLua/AG/PrettyPrint.ag" #-} + _exprPretty + {-# LINE 8621 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisDefined = + ({-# LINE 276 "src/GLua/AG/PrettyPrint.ag" #-} + _isDefined + {-# LINE 8626 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOvarPretty = + ({-# LINE 272 "src/GLua/AG/PrettyPrint.ag" #-} + _varPretty + {-# LINE 8631 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 8636 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 8641 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _tlIcomments + {-# LINE 8646 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 8651 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 8656 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 8661 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _hdOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 8666 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _hdIcomments + {-# LINE 8671 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOforceMultiline = + ({-# LINE 353 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIforceMultiline + {-# LINE 8676 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOindent = + ({-# LINE 250 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIindent + {-# LINE 8681 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _tlOppconf = + ({-# LINE 252 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIppconf + {-# LINE 8686 "src/GLua/AG/PrettyPrint.hs" #-} + ) + ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIexprPretty,_hdIisDefined,_hdIisMultiline,_hdIpretty,_hdIstartsWithExprPrefixExpression,_hdIvarPretty) = + hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf + ( _tlIcomments,_tlIcopy,_tlIendsWithPrefixExpression,_tlIexprPretty,_tlIisDefined,_tlIisLast,_tlIisMultiline,_tlIpretty,_tlIstartsWithExprPrefixExpression,_tlIvarPretty) = + tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf + in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty))) +sem_VarsList_Nil :: T_VarsList +sem_VarsList_Nil = + (\ _lhsIcomments + _lhsIforceMultiline + _lhsIindent + _lhsIppconf -> + (let _lhsOpretty :: Doc + _lhsOstartsWithExprPrefixExpression :: Bool + _lhsOendsWithPrefixExpression :: Bool + _lhsOisMultiline :: Bool + _lhsOisLast :: Bool + _lhsOexprPretty :: Doc + _lhsOisDefined :: Bool + _lhsOvarPretty :: Doc + _lhsOcopy :: VarsList + _lhsOcomments :: ([MToken]) + _lhsOpretty = + ({-# LINE 562 "src/GLua/AG/PrettyPrint.ag" #-} + empty + {-# LINE 8712 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOstartsWithExprPrefixExpression = + ({-# LINE 563 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 8717 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOendsWithPrefixExpression = + ({-# LINE 564 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 8722 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisMultiline = + ({-# LINE 565 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 8727 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisLast = + ({-# LINE 566 "src/GLua/AG/PrettyPrint.ag" #-} + True + {-# LINE 8732 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOexprPretty = + ({-# LINE 273 "src/GLua/AG/PrettyPrint.ag" #-} + empty + {-# LINE 8737 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOisDefined = + ({-# LINE 276 "src/GLua/AG/PrettyPrint.ag" #-} + False + {-# LINE 8742 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOvarPretty = + ({-# LINE 272 "src/GLua/AG/PrettyPrint.ag" #-} + empty + {-# LINE 8747 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _copy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + [] + {-# LINE 8752 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcopy = + ({-# LINE 253 "src/GLua/AG/PrettyPrint.ag" #-} + _copy + {-# LINE 8757 "src/GLua/AG/PrettyPrint.hs" #-} + ) + _lhsOcomments = + ({-# LINE 305 "src/GLua/AG/PrettyPrint.ag" #-} + _lhsIcomments + {-# LINE 8762 "src/GLua/AG/PrettyPrint.hs" #-} ) in ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty))) diff --git a/src/GLua/AG/Token.hs b/src/GLua/AG/Token.hs --- a/src/GLua/AG/Token.hs +++ b/src/GLua/AG/Token.hs @@ -1,15 +1,13 @@ -{-# LANGUAGE DeriveGeneric #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} --- UUAGC 0.9.53.1 (src/GLua/AG/Token.ag) +-- UUAGC 0.9.56 (src/GLua/AG/Token.ag) module GLua.AG.Token where -{-# LINE 9 "src/GLua/AG/Token.ag" #-} +{-# LINE 8 "src/GLua/AG/Token.ag" #-} -import GHC.Generics import GLua.Position -{-# LINE 13 "src/GLua/AG/Token.hs" #-} +{-# LINE 11 "src/GLua/AG/Token.hs" #-} -- MToken ------------------------------------------------------ data MToken = MToken !(Region) !(Token) -- MTokenList -------------------------------------------------- @@ -78,4 +76,4 @@ | RSquare | Label !(String) !(String) !(String) | Identifier !(String) - deriving ( Eq,Generic,Ord) + deriving ( Eq,Ord) diff --git a/src/GLua/ASTInstances.hs b/src/GLua/ASTInstances.hs --- a/src/GLua/ASTInstances.hs +++ b/src/GLua/ASTInstances.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE TemplateHaskell #-} {-# OPTIONS_GHC -fno-warn-orphans #-} -- | Contains class instances and functions related to AST These are not put @@ -5,56 +6,30 @@ -- declarations, causing duplicate instances errors. module GLua.ASTInstances where -import Data.Aeson import GLua.AG.AST - -instance ToJSON AST -instance FromJSON AST - -instance ToJSON Block -instance FromJSON Block - -instance ToJSON MStat -instance FromJSON MStat - -instance ToJSON MElse -instance FromJSON MElse - -instance ToJSON MElseIf -instance FromJSON MElseIf - -instance ToJSON Stat -instance FromJSON Stat - -instance ToJSON AReturn -instance FromJSON AReturn - -instance ToJSON FuncName -instance FromJSON FuncName - -instance ToJSON PrefixExp -instance FromJSON PrefixExp - -instance ToJSON PFExprSuffix -instance FromJSON PFExprSuffix - -instance ToJSON MExpr -instance FromJSON MExpr - -instance ToJSON Expr -instance FromJSON Expr - -instance ToJSON Args -instance FromJSON Args - -instance ToJSON Field -instance FromJSON Field - -instance ToJSON FieldSep -instance FromJSON FieldSep +import GLua.EncodingOptions (encodingOptions) -instance ToJSON BinOp -instance FromJSON BinOp +import Data.Aeson.TH (deriveJSON) -instance ToJSON UnOp -instance FromJSON UnOp +$( concat + <$> mapM + (deriveJSON encodingOptions) + [ ''AST + , ''Block + , ''MStat + , ''MElse + , ''MElseIf + , ''Stat + , ''AReturn + , ''FuncName + , ''PrefixExp + , ''PFExprSuffix + , ''MExpr + , ''Expr + , ''Args + , ''Field + , ''FieldSep + , ''BinOp + , ''UnOp + ] + ) diff --git a/src/GLua/EncodingOptions.hs b/src/GLua/EncodingOptions.hs new file mode 100644 --- /dev/null +++ b/src/GLua/EncodingOptions.hs @@ -0,0 +1,12 @@ +-- | Json encoding options +module GLua.EncodingOptions where + +import qualified Data.Aeson as Aeson + +-- | Default glualint json encoding options +encodingOptions :: Aeson.Options +encodingOptions = + Aeson.defaultOptions + { Aeson.omitNothingFields = True + , Aeson.sumEncoding = Aeson.ObjectWithSingleField + } diff --git a/src/GLua/Lexer.hs b/src/GLua/Lexer.hs --- a/src/GLua/Lexer.hs +++ b/src/GLua/Lexer.hs @@ -5,6 +5,7 @@ import GLua.AG.Token (MToken (..), Token (..)) +import Control.Monad (void) import Data.Char (ord) import GLua.Position (LineColPos (..), Region (..)) import Text.Parsec ( @@ -66,23 +67,18 @@ pIdentifierCharacter = satisfy validChar where validChar :: Char -> Bool - validChar c = - cBetween c '0' '9' - || cBetween c 'A' 'Z' - || c == '_' - || cBetween c 'a' 'z' - || ord c >= 128 + validChar c = cBetween c '0' '9' || nonDigitIdentifierCharacter c pNonDigitIdentifierCharacter :: Parser Char -pNonDigitIdentifierCharacter = satisfy validChar - where - validChar :: Char -> Bool - validChar c = - cBetween c 'A' 'Z' - || c == '_' - || cBetween c 'a' 'z' - || ord c >= 128 +pNonDigitIdentifierCharacter = satisfy nonDigitIdentifierCharacter +nonDigitIdentifierCharacter :: Char -> Bool +nonDigitIdentifierCharacter c = + cBetween c 'A' 'Z' + || c == '_' + || cBetween c 'a' 'z' + || ord c >= 128 + cBetween :: Char -> Char -> Char -> Bool cBetween c left right = c >= left && c <= right @@ -166,7 +162,7 @@ -- | Parse any kind of number. -- Except for numbers that start with a '.'. That's handled by parseDots to solve ambiguity. parseNumber :: Parser Token -parseNumber = TNumber <$> ((++) <$> (pHexadecimal <|> pBinary <|> pNumber) <*> (pLLULL <|> option "" parseNumberSuffix)) "Number" +parseNumber = TNumber <$> ((++) <$> (pHexadecimal <|> pBinary <|> pNumber) <*> (pLLULL <|> option "" parseNumberSuffix)) <* afterNumber "Number" where pNumber :: Parser String pNumber = (++) <$> many1 digit <*> option "" pDecimal @@ -200,6 +196,10 @@ pULL :: Parser String pULL = "ULL" <$ oneOf ['U', 'u'] <* pLL + -- + afterNumber :: Parser () + afterNumber = lookAhead (void (satisfy (not . nonDigitIdentifierCharacter)) <|> eof) + -- Parse the suffix of a number parseNumberSuffix :: Parser String parseNumberSuffix = imaginary <|> extension @@ -217,10 +217,10 @@ try ( do _ <- string str - (\s -> Identifier (str ++ s)) <$> many1 (pIdentifierCharacter) + (\s -> Identifier (str ++ s)) <$> many1 pIdentifierCharacter <|> return tok "Keyword " - ++ str + ++ str ) -- | Parse just an identifier. diff --git a/src/GLua/ParseError.hs b/src/GLua/ParseError.hs new file mode 100644 --- /dev/null +++ b/src/GLua/ParseError.hs @@ -0,0 +1,58 @@ +-- | This is a copy-paste-edit of Parsec's parse error rendering. +module GLua.ParseError (renderParseError) where + +import Data.List (intercalate, nub) +import Text.Parsec.Error ( + Message (..), + ParseError, + errorMessages, + messageString, + ) + +-- | Render a parsec error +renderParseError :: ParseError -> String +renderParseError = showErrorMessages . errorMessages + +-- | Modified version of the following function: +-- https://hackage.haskell.org/package/parsec/docs/src/Text.Parsec.Error.html#showErrorMessages. +-- +-- At some point it would be nice to switch to another parser library (e.g. megaparsec), which has +-- more structured error types, and a nicer error rendering algorithm. Until then, this modified +-- function will do. +showErrorMessages :: [Message] -> String +showErrorMessages msgs + | null msgs = "unknown parse error" + | otherwise = intercalate ", " $ clean [showSysUnExpect, showUnExpect, showExpect, showMessages] + where + (sysUnExpect, msgs1) = span (SysUnExpect "" ==) msgs + (unExpect, msgs2) = span (UnExpect "" ==) msgs1 + (expect, messages) = span (Expect "" ==) msgs2 + + showExpect = showMany "expecting" expect + showUnExpect = showMany "unexpected" unExpect + showSysUnExpect + | not (null unExpect) = "" + | [] <- sysUnExpect = "" + | msg : _ <- sysUnExpect, null (messageString msg) = "unexpected end of input" + | msg : _ <- sysUnExpect = "unexpected " ++ messageString msg + + showMessages = showMany "" messages + + -- helpers + showMany pre msgs3 = case clean (map messageString msgs3) of + [] -> "" + ms + | null pre -> commasOr ms + | otherwise -> pre ++ " " ++ commasOr ms + + commasOr [] = "" + commasOr [m] = m + commasOr ms = commaSep (init ms) ++ " or " ++ last ms + + commaSep = separate ", " . clean + + separate _ [] = "" + separate _ [m] = m + separate sep (m : ms) = m ++ sep ++ separate sep ms + + clean = nub . filter (not . null) diff --git a/src/GLua/Parser.hs b/src/GLua/Parser.hs --- a/src/GLua/Parser.hs +++ b/src/GLua/Parser.hs @@ -63,6 +63,7 @@ sourceLine, tokenPrim, try, + unexpected, (), (<|>), ) @@ -116,40 +117,25 @@ -- | Match a token pMTok :: Token -> AParser MToken -pMTok tok = - do - let - testMToken :: MToken -> Maybe MToken - testMToken mt@(MToken _ t) = if t == tok then Just mt else Nothing - - mt@(MToken pos _) <- tokenPrim show updatePosMToken testMToken - - putState (rgEnd pos) - - return mt +pMTok tok = pMToken $ \mt@(MToken _ t) -> if t == tok then Just mt else Nothing -- Tokens that satisfy a condition pMSatisfy :: (MToken -> Bool) -> AParser MToken -pMSatisfy cond = - do - let - testMToken :: MToken -> Maybe MToken - testMToken mt = if cond mt then Just mt else Nothing - - pMToken testMToken +pMSatisfy cond = pMToken $ \mt -> if cond mt then Just mt else Nothing pMToken :: forall a. (MToken -> Maybe a) -> AParser a -pMToken cond = - let +pMToken cond = do + (MToken pos _, res) <- tokenPrim (quote . show) updatePosMToken testMToken + + putState (rgEnd pos) + + pure res + where testMToken :: MToken -> Maybe (MToken, a) testMToken mt = (mt,) <$> cond mt - in - do - (MToken pos _, res) <- tokenPrim show updatePosMToken testMToken - putState (rgEnd pos) - - pure res + quote :: String -> String + quote str = "\"" ++ str ++ "\"" -- | Get the source position. -- Simply gets the start position of the next token. @@ -197,7 +183,7 @@ -- | Label parseLabel :: AParser MToken -parseLabel = pMSatisfy isLabel "label" +parseLabel = pMSatisfy isLabel "'label'" where isLabel :: MToken -> Bool isLabel (MToken _ (Label{})) = True @@ -368,7 +354,7 @@ parseParList :: AParser [MToken] parseParList = option [] $ nameParam <|> vararg where - vararg = (: []) <$> pMTok VarArg "..." + vararg = (: []) <$> pMTok VarArg "'...'" nameParam = (:) <$> pName <*> moreParams "parameter" moreParams = option [] $ pMTok Comma *> (nameParam <|> vararg) @@ -382,19 +368,19 @@ ANil <$ pMTok Nil <|> AFalse - <$ pMTok TFalse + <$ pMTok TFalse <|> ATrue - <$ pMTok TTrue + <$ pMTok TTrue <|> parseNumber <|> AString - <$> parseString + <$> parseString <|> AVarArg - <$ pMTok VarArg + <$ pMTok VarArg <|> parseAnonymFunc <|> APrefixExpr - <$> parsePrefixExp + <$> parsePrefixExp <|> ATableConstructor - <$> parseTableConstructor + <$> parseTableConstructor "expression" -- | Separate parser for anonymous function subexpression @@ -501,9 +487,9 @@ Call <$> parseArgs <|> MetaCall - <$ pMTok Colon - <*> pName - <*> parseArgs + <$ pMTok Colon + <*> pName + <*> parseArgs "function call" -- | Parse an indexing expression suffix @@ -514,8 +500,8 @@ <*> parseExpression <* pMTok RSquare <|> DotIndex - <$ pMTok Dot - <*> pName + <$ pMTok Dot + <*> pName "indexation" -- | Function calls are prefix expressions, but the last suffix MUST be either a function call or a metafunction call @@ -533,7 +519,14 @@ -- var ::= Name [{PFExprSuffix}* indexation] | '(' exp ')' {PFExprSuffix}* indexation -- where "{PFExprSuffix}* indexation" is any arbitrary sequence of prefix expression suffixes that end with an indexation parseVar :: AParser PrefixExp -parseVar = pPrefixExp suffixes "variable" +parseVar = do + variable <- pPrefixExp suffixes "variable" + + -- Special case: A definition `(foo) = bar` is not allowed, but `(foo)[index] = bar` _is_ allowed. + -- If it's an ExprVar, it must have suffixes. + case variable of + ExprVar _someExpression [] -> unexpected "expression in parentheses" + _ -> pure variable where suffixes = concat @@ -550,9 +543,9 @@ <*> option [] parseExpressionList <* pMTok RRound <|> TableArg - <$> parseTableConstructor + <$> parseTableConstructor <|> StringArg - <$> parseString + <$> parseString "function arguments" -- | Table constructor @@ -591,7 +584,7 @@ <*> parseExpression <|> parseNamedField <|> UnnamedField - <$> parseExpression + <$> parseExpression "field" -- | Field separator, either comma or semicolon diff --git a/src/GLua/Position.hs b/src/GLua/Position.hs --- a/src/GLua/Position.hs +++ b/src/GLua/Position.hs @@ -1,5 +1,4 @@ {-# LANGUAGE CPP #-} -{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} -- | Reimplements the LineColPos from `uu-parsinglib`, and adds some more functions related to @@ -7,7 +6,7 @@ module GLua.Position where import Data.Aeson -import GHC.Generics (Generic) +import Data.Foldable (toList) data LineColPos = LineColPos {lcpLine :: !Int, lcpColumn :: !Int, lcpPos :: !Int} deriving (Eq, Show) @@ -20,32 +19,35 @@ instance ToJSON LineColPos where -- this generates a Value - toJSON (LineColPos line col p) = - object ["line" .= line, "column" .= col, "pos" .= p] + toJSON (LineColPos line col p) = toJSON [line, col, p] #if MIN_VERSION_aeson(0,10,0) -- this encodes directly to a bytestring Builder - toEncoding (LineColPos line col p) = - pairs ("line" .= line <> "column" .= col <> "pos" .= p) + toEncoding (LineColPos line col p) = toEncoding [line, col, p] #endif instance FromJSON LineColPos where - parseJSON = withObject "LineColPos" $ \v -> - LineColPos - <$> v .: "line" - <*> v .: "column" - <*> v .: "pos" + parseJSON = withArray "LineColPos" $ \array -> + case toList array of + [line, col, pos] -> LineColPos <$> parseJSON line <*> parseJSON col <*> parseJSON pos + _ -> fail "Expected tuple of line, column, position" data Region = Region {rgStart :: !LineColPos, rgEnd :: !LineColPos} - deriving (Eq, Show, Generic) + deriving (Eq, Show) -- Ord instance defined explicitly for clarity. instance Ord Region where compare (Region s e) (Region s' e') = compare s s' `mappend` compare e e' -instance ToJSON Region -instance FromJSON Region +instance ToJSON Region where + toJSON (Region start end) = toJSON [toJSON start, toJSON end] + +instance FromJSON Region where + parseJSON = withArray "Region" $ \array -> + case toList array of + [start, end] -> Region <$> parseJSON start <*> parseJSON end + _ -> fail "Expected tuple of [[line, column, position], [line, column, position]]" -- | An empty region from position 0 to position 0. emptyRg :: Region diff --git a/src/GLua/TokenTypes.hs b/src/GLua/TokenTypes.hs --- a/src/GLua/TokenTypes.hs +++ b/src/GLua/TokenTypes.hs @@ -1,15 +1,15 @@ -{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE StandaloneDeriving #-} +{-# LANGUAGE TemplateHaskell #-} {-# OPTIONS_GHC -fno-warn-orphans #-} -- | Contains class instances and functions related to tokens module GLua.TokenTypes where -import Data.Aeson (FromJSON, ToJSON) +import Data.Aeson.TH (deriveJSON) import Data.List (foldl', partition) -import GHC.Generics (Generic) import GLua.AG.Token (MToken (..), Token (..)) +import GLua.EncodingOptions (encodingOptions) import GLua.Position (LineColPos (..), Region (..)) instance Show MToken where @@ -23,14 +23,6 @@ instance Ord MToken where compare (MToken _ t1) (MToken _ t2) = compare t1 t2 -deriving instance Generic MToken - -instance ToJSON MToken -instance FromJSON MToken - -instance ToJSON Token -instance FromJSON Token - mpos :: MToken -> Region mpos (MToken p _) = p @@ -214,3 +206,6 @@ RSquare -> 1 Label spaceBefore ident spaceAfter -> 2 + length spaceBefore + length ident + length spaceAfter + 2 Identifier i -> length i + +$(deriveJSON encodingOptions ''Token) +$(deriveJSON encodingOptions ''MToken) diff --git a/src/GLuaFixer/AG/ASTLint.hs b/src/GLuaFixer/AG/ASTLint.hs --- a/src/GLuaFixer/AG/ASTLint.hs +++ b/src/GLuaFixer/AG/ASTLint.hs @@ -1,14144 +1,14141 @@ -{-# LANGUAGE DeriveGeneric #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - -{-# LANGUAGE DeriveGeneric #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# LANGUAGE LambdaCase #-} --- UUAGC 0.9.53.1 (src/GLuaFixer/AG/ASTLint.ag) -module GLuaFixer.AG.ASTLint where - -{-# LINE 9 "src/GLuaFixer/AG/../../GLua/AG/Token.ag" #-} - -import GHC.Generics -import GLua.Position -{-# LINE 19 "src/GLuaFixer/AG/ASTLint.hs" #-} - -{-# LINE 10 "src/GLuaFixer/AG/../../GLua/AG/AST.ag" #-} - -import GLua.AG.Token -import GLua.Position -import GLua.TokenTypes () -import GHC.Generics -import Data.Aeson -{-# LINE 28 "src/GLuaFixer/AG/ASTLint.hs" #-} - -{-# LINE 10 "src/GLuaFixer/AG/ASTLint.ag" #-} - -import GLua.AG.AST -import qualified GLua.AG.PrettyPrint as PP -import qualified GLua.AG.Token as T -import GLua.TokenTypes -import qualified Data.Set as S -import qualified Data.Map.Strict as M -import Data.Char (isLower, isUpper) -import Data.Maybe -import GLua.Position (LineColPos(..), Region(..)) -import GLuaFixer.LintMessage -import GLuaFixer.LintSettings -{-# LINE 43 "src/GLuaFixer/AG/ASTLint.hs" #-} -{-# LINE 29 "src/GLuaFixer/AG/ASTLint.ag" #-} - -warn :: Region -> Issue -> FilePath -> LintMessage -warn pos issue = LintMessage LintWarning pos issue - --- Used in detecting "not (a == b)" kind of things -oppositeBinOp :: BinOp -> Maybe String -oppositeBinOp ALT = Just ">=" -oppositeBinOp AGT = Just "<=" -oppositeBinOp ALEQ = Just ">" -oppositeBinOp AGEQ = Just "<" -oppositeBinOp ANEq = Just "==" -oppositeBinOp AEq = Just "~=" -oppositeBinOp _ = Nothing - --- Checks whether a variable shadows existing variables -checkShadows :: [M.Map String (Bool, Region)] -> MToken -> Maybe (FilePath -> LintMessage) -checkShadows [] _ = Nothing -checkShadows _ (MToken _ (Identifier "_")) = Nothing -- Exception for vars named '_' -checkShadows (scope : scs) mtok' = - if M.member lbl scope then - Just $ warn (mpos mtok') $ VariableShadows lbl location - else - checkShadows scs mtok' - where - lbl = tokenLabel mtok' - location = snd $ fromMaybe (error "checkShadows fromMaybe") $ M.lookup lbl scope - --- Determines whether a variable is local --- It is local if it does not exist in any but the topmost (global) scope --- it may or may not exist in the topmost scope. -isVariableLocal :: [M.Map String (Bool, Region)] -> String -> Bool -isVariableLocal [] _ = False -isVariableLocal [_] _ = False -isVariableLocal (scope : scs) var = - case M.lookup var scope of - Just _ -> True - Nothing -> isVariableLocal scs var - - --- Registers a variable as global variable when it hasn't been --- introduced in any of the visible scopes -registerVariable :: [M.Map String (Bool, Region)] -> Region -> String -> Bool -> [M.Map String (Bool, Region)] -registerVariable [] _ _ _ = error "cannot register top level variable" -registerVariable (scope : []) pos var used = - [ case M.lookup var scope of - Just (used', pos') -> M.insert var (used || used', pos') scope - Nothing -> M.insert var (used, pos) scope - ] -- global scope -registerVariable (scope : scs) pos var used = case M.lookup var scope of - Just (True, _) -> scope : scs - Just (False, pos') -> M.insert var (used, pos') scope : scs - Nothing -> scope : registerVariable scs pos var used - -findSelf :: [MToken] -> Bool -findSelf ((MToken _ (Identifier "self")) : _) = True -findSelf _ = False - -data VariableStyle - = StartsLowerCase - | StartsUpperCase - | VariableStyleNeither - deriving (Eq) - -data DeterminedVariableStyle - = VarStyleNotDetermined - | VarStyleDetermined !VariableStyle - -combineDeterminedVarStyle :: DeterminedVariableStyle -> VariableStyle -> DeterminedVariableStyle -combineDeterminedVarStyle old new = case old of - VarStyleNotDetermined -> VarStyleDetermined new - VarStyleDetermined VariableStyleNeither -> VarStyleDetermined new - _ -> old - -determineVariableStyle :: String -> VariableStyle -determineVariableStyle = \case - [] -> VariableStyleNeither - (c : _) - | isLower c -> StartsLowerCase - | isUpper c -> StartsUpperCase - | otherwise -> VariableStyleNeither - -variableStyleInconsistent :: DeterminedVariableStyle -> VariableStyle -> Bool -variableStyleInconsistent determinedStyle varStyle = case determinedStyle of - VarStyleNotDetermined -> False - VarStyleDetermined VariableStyleNeither -> False - VarStyleDetermined existing -> case varStyle of - VariableStyleNeither -> False - _ -> existing /= varStyle - -unknownIdentifier :: String -unknownIdentifier = "Unknown identifier" - -{-# LINE 137 "src/GLuaFixer/AG/ASTLint.hs" #-} - -{-# LINE 660 "src/GLuaFixer/AG/ASTLint.ag" #-} - -inh_AST :: LintSettings -> Inh_AST -inh_AST conf = Inh_AST { - config_Inh_AST = conf, - isMeta_Inh_AST = False, - loopLevel_Inh_AST = 0, - globalDefinitions_Inh_AST = M.empty, - mtokenPos_Inh_AST = emptyRg, - scopeLevel_Inh_AST = 0, - scopes_Inh_AST = [M.empty], - funcName_Inh_AST = "", - isInModule_Inh_AST = False, - variableStyle_Inh_AST = VarStyleNotDetermined - } - -allAttributes :: LintSettings -> AST -> Syn_AST -allAttributes conf p = wrap_AST (sem_AST p) (inh_AST conf) - -astWarnings :: LintSettings -> AST -> [String -> LintMessage] -astWarnings conf p = warnings_Syn_AST $ allAttributes conf p - -globalDefinitions :: LintSettings -> AST -> M.Map String [Region] -globalDefinitions conf p = globalDefinitions_Syn_AST $ allAttributes conf p -{-# LINE 163 "src/GLuaFixer/AG/ASTLint.hs" #-} --- AReturn ----------------------------------------------------- --- cata -sem_AReturn :: AReturn -> - T_AReturn -sem_AReturn (AReturn _pos _values) = - (sem_AReturn_AReturn _pos (sem_MExprList _values)) -sem_AReturn (NoReturn) = - (sem_AReturn_NoReturn) --- semantic domain -type T_AReturn = ( AReturn,T_AReturn_1) -type T_AReturn_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage])) -data Inh_AReturn = Inh_AReturn {config_Inh_AReturn :: LintSettings,funcName_Inh_AReturn :: String,globalDefinitions_Inh_AReturn :: (M.Map String [Region]),isInModule_Inh_AReturn :: Bool,isMeta_Inh_AReturn :: Bool,loopLevel_Inh_AReturn :: Int,mtokenPos_Inh_AReturn :: Region,scopeLevel_Inh_AReturn :: Int,scopes_Inh_AReturn :: ([M.Map String (Bool, Region)]),variableStyle_Inh_AReturn :: DeterminedVariableStyle} -data Syn_AReturn = Syn_AReturn {copy_Syn_AReturn :: AReturn,globalDefinitions_Syn_AReturn :: (M.Map String [Region]),identifier_Syn_AReturn :: String,isInModule_Syn_AReturn :: Bool,mtokenPos_Syn_AReturn :: Region,scopes_Syn_AReturn :: ([M.Map String (Bool, Region)]),statementCount_Syn_AReturn :: Int,variableStyle_Syn_AReturn :: DeterminedVariableStyle,warnings_Syn_AReturn :: ([String -> LintMessage])} -wrap_AReturn :: T_AReturn -> - Inh_AReturn -> - Syn_AReturn -wrap_AReturn sem (Inh_AReturn _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_AReturn _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings)) -sem_AReturn_AReturn :: Region -> - T_MExprList -> - T_AReturn -sem_AReturn_AReturn pos_ values_ = - (case (values_) of - { ( _valuesIcopy,values_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AReturn pos_ _valuesIcopy - {-# LINE 202 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 207 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_AReturn_AReturn_1 :: T_AReturn_1 - sem_AReturn_AReturn_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 224 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valuesOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 229 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valuesOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 234 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valuesOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 239 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valuesOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 244 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valuesOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 249 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valuesOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 254 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valuesOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 259 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valuesOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 264 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valuesOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 269 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valuesOfuncName -> - (case (({-# LINE 505 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 274 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valuesOtopLevel -> - (case (({-# LINE 504 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 279 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valuesOinParentheses -> - (case (values_1 _valuesOconfig _valuesOfuncName _valuesOglobalDefinitions _valuesOinParentheses _valuesOisInModule _valuesOisMeta _valuesOloopLevel _valuesOmtokenPos _valuesOscopeLevel _valuesOscopes _valuesOtopLevel _valuesOvariableStyle) of - { ( _valuesIglobalDefinitions,_valuesIidentifier,_valuesIisInModule,_valuesImtokenPos,_valuesIscopes,_valuesIvariableStyle,_valuesIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valuesIglobalDefinitions - {-# LINE 286 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valuesIidentifier - {-# LINE 291 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valuesIisInModule - {-# LINE 296 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 506 "src/GLuaFixer/AG/ASTLint.ag" #-} - pos_ - {-# LINE 301 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valuesIscopes - {-# LINE 306 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-} - 1 - {-# LINE 311 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOstatementCount -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valuesIvariableStyle - {-# LINE 316 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valuesIwarnings - {-# LINE 321 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_AReturn_AReturn_1)) of - { ( sem_AReturn_1) -> - ( _lhsOcopy,sem_AReturn_1) }) }) }) }) -sem_AReturn_NoReturn :: T_AReturn -sem_AReturn_NoReturn = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - NoReturn - {-# LINE 332 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 337 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_AReturn_NoReturn_1 :: T_AReturn_1 - sem_AReturn_NoReturn_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 354 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 359 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 364 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 369 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 374 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 508 "src/GLuaFixer/AG/ASTLint.ag" #-} - 0 - {-# LINE 379 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOstatementCount -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 384 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 389 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) - in sem_AReturn_NoReturn_1)) of - { ( sem_AReturn_1) -> - ( _lhsOcopy,sem_AReturn_1) }) }) }) --- AST --------------------------------------------------------- --- cata -sem_AST :: AST -> - T_AST -sem_AST (AST _comments _chunk) = - (sem_AST_AST _comments (sem_Block _chunk)) --- semantic domain -type T_AST = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( AST,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_AST = Inh_AST {config_Inh_AST :: LintSettings,funcName_Inh_AST :: String,globalDefinitions_Inh_AST :: (M.Map String [Region]),isInModule_Inh_AST :: Bool,isMeta_Inh_AST :: Bool,loopLevel_Inh_AST :: Int,mtokenPos_Inh_AST :: Region,scopeLevel_Inh_AST :: Int,scopes_Inh_AST :: ([M.Map String (Bool, Region)]),variableStyle_Inh_AST :: DeterminedVariableStyle} -data Syn_AST = Syn_AST {copy_Syn_AST :: AST,globalDefinitions_Syn_AST :: (M.Map String [Region]),identifier_Syn_AST :: String,isInModule_Syn_AST :: Bool,mtokenPos_Syn_AST :: Region,scopes_Syn_AST :: ([M.Map String (Bool, Region)]),variableStyle_Syn_AST :: DeterminedVariableStyle,warnings_Syn_AST :: ([String -> LintMessage])} -wrap_AST :: T_AST -> - Inh_AST -> - Syn_AST -wrap_AST sem (Inh_AST _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_AST _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_AST_AST :: ([MToken]) -> - T_Block -> - T_AST -sem_AST_AST comments_ chunk_ = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (chunk_) of - { ( _chunkIcopy,chunk_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AST comments_ _chunkIcopy - {-# LINE 440 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 445 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 450 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _chunkOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 455 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _chunkOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 460 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _chunkOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 465 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _chunkOconfig -> - (case (({-# LINE 293 "src/GLuaFixer/AG/ASTLint.ag" #-} - M.empty : _lhsIscopes - {-# LINE 470 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _chunkOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 475 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _chunkOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 480 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _chunkOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 485 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _chunkOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 490 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _chunkOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 495 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _chunkOfuncName -> - (case (({-# LINE 294 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 500 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _chunkOisRepeat -> - (case (chunk_1 _chunkOconfig _chunkOfuncName _chunkOglobalDefinitions _chunkOisInModule _chunkOisMeta _chunkOisRepeat _chunkOloopLevel _chunkOmtokenPos _chunkOscopeLevel _chunkOscopes _chunkOvariableStyle) of - { ( _chunkIglobalDefinitions,_chunkIidentifier,_chunkIisIfStatement,_chunkIisInModule,_chunkImtokenPos,_chunkIscopes,_chunkIstatementCount,_chunkIvariableStyle,_chunkIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _chunkIglobalDefinitions - {-# LINE 507 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _chunkIidentifier - {-# LINE 512 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _chunkIisInModule - {-# LINE 517 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _chunkImtokenPos - {-# LINE 522 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _chunkIscopes - {-# LINE 527 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _chunkIvariableStyle - {-# LINE 532 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _chunkIwarnings - {-# LINE 537 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) --- Args -------------------------------------------------------- --- cata -sem_Args :: Args -> - T_Args -sem_Args (ListArgs _args) = - (sem_Args_ListArgs (sem_MExprList _args)) -sem_Args (TableArg _arg) = - (sem_Args_TableArg (sem_FieldList _arg)) -sem_Args (StringArg _arg) = - (sem_Args_StringArg (sem_MToken _arg)) --- semantic domain -type T_Args = ( Args,T_Args_1) -type T_Args_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_Args = Inh_Args {config_Inh_Args :: LintSettings,funcName_Inh_Args :: String,globalDefinitions_Inh_Args :: (M.Map String [Region]),isInModule_Inh_Args :: Bool,isMeta_Inh_Args :: Bool,loopLevel_Inh_Args :: Int,mtokenPos_Inh_Args :: Region,scopeLevel_Inh_Args :: Int,scopes_Inh_Args :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Args :: DeterminedVariableStyle} -data Syn_Args = Syn_Args {copy_Syn_Args :: Args,globalDefinitions_Syn_Args :: (M.Map String [Region]),identifier_Syn_Args :: String,isInModule_Syn_Args :: Bool,mtokenPos_Syn_Args :: Region,scopes_Syn_Args :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Args :: DeterminedVariableStyle,warnings_Syn_Args :: ([String -> LintMessage])} -wrap_Args :: T_Args -> - Inh_Args -> - Syn_Args -wrap_Args sem (Inh_Args _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_Args _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_Args_ListArgs :: T_MExprList -> - T_Args -sem_Args_ListArgs args_ = - (case (args_) of - { ( _argsIcopy,args_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ListArgs _argsIcopy - {-# LINE 580 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 585 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Args_ListArgs_1 :: T_Args_1 - sem_Args_ListArgs_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 602 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 607 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 612 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 617 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 622 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 627 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 632 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 637 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 642 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 647 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOfuncName -> - (case (({-# LINE 619 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 652 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOtopLevel -> - (case (({-# LINE 618 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 657 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOinParentheses -> - (case (args_1 _argsOconfig _argsOfuncName _argsOglobalDefinitions _argsOinParentheses _argsOisInModule _argsOisMeta _argsOloopLevel _argsOmtokenPos _argsOscopeLevel _argsOscopes _argsOtopLevel _argsOvariableStyle) of - { ( _argsIglobalDefinitions,_argsIidentifier,_argsIisInModule,_argsImtokenPos,_argsIscopes,_argsIvariableStyle,_argsIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIglobalDefinitions - {-# LINE 664 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIidentifier - {-# LINE 669 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIisInModule - {-# LINE 674 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsImtokenPos - {-# LINE 679 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIscopes - {-# LINE 684 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIvariableStyle - {-# LINE 689 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIwarnings - {-# LINE 694 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Args_ListArgs_1)) of - { ( sem_Args_1) -> - ( _lhsOcopy,sem_Args_1) }) }) }) }) -sem_Args_TableArg :: T_FieldList -> - T_Args -sem_Args_TableArg arg_ = - (case (arg_) of - { ( _argIcopy,arg_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - TableArg _argIcopy - {-# LINE 708 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 713 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Args_TableArg_1 :: T_Args_1 - sem_Args_TableArg_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 730 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 735 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 740 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 745 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 750 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 755 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 760 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 765 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 770 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 775 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOfuncName -> - (case (({-# LINE 621 "src/GLuaFixer/AG/ASTLint.ag" #-} - S.empty - {-# LINE 780 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOfieldNames -> - (case (arg_1 _argOconfig _argOfieldNames _argOfuncName _argOglobalDefinitions _argOisInModule _argOisMeta _argOloopLevel _argOmtokenPos _argOscopeLevel _argOscopes _argOvariableStyle) of - { ( _argIfieldNames,_argIglobalDefinitions,_argIidentifier,_argIisInModule,_argImtokenPos,_argIscopes,_argIvariableStyle,_argIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argIglobalDefinitions - {-# LINE 787 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argIidentifier - {-# LINE 792 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argIisInModule - {-# LINE 797 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argImtokenPos - {-# LINE 802 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argIscopes - {-# LINE 807 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argIvariableStyle - {-# LINE 812 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argIwarnings - {-# LINE 817 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Args_TableArg_1)) of - { ( sem_Args_1) -> - ( _lhsOcopy,sem_Args_1) }) }) }) }) -sem_Args_StringArg :: T_MToken -> - T_Args -sem_Args_StringArg arg_ = - (case (arg_) of - { ( _argIcopy,_argImtok,_argImtokenPos,arg_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - StringArg _argIcopy - {-# LINE 831 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 836 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Args_StringArg_1 :: T_Args_1 - sem_Args_StringArg_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 853 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOglobalDefinitions -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 858 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOscopes -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 863 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOmtokenPos -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 868 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 873 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOisInModule -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 878 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 883 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argOconfig -> - (case (arg_1 _argOconfig _argOfuncName _argOglobalDefinitions _argOisInModule _argOisMeta _argOmtokenPos _argOscopes) of - { ( _argIglobalDefinitions,_argIidentifier,_argIisInModule,_argIscopes,_argIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argIglobalDefinitions - {-# LINE 890 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argIidentifier - {-# LINE 895 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argIisInModule - {-# LINE 900 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argImtokenPos - {-# LINE 905 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argIscopes - {-# LINE 910 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 915 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argIwarnings - {-# LINE 920 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Args_StringArg_1)) of - { ( sem_Args_1) -> - ( _lhsOcopy,sem_Args_1) }) }) }) }) --- BinOp ------------------------------------------------------- --- cata -sem_BinOp :: BinOp -> - T_BinOp -sem_BinOp (AOr) = - (sem_BinOp_AOr) -sem_BinOp (AAnd) = - (sem_BinOp_AAnd) -sem_BinOp (ALT) = - (sem_BinOp_ALT) -sem_BinOp (AGT) = - (sem_BinOp_AGT) -sem_BinOp (ALEQ) = - (sem_BinOp_ALEQ) -sem_BinOp (AGEQ) = - (sem_BinOp_AGEQ) -sem_BinOp (ANEq) = - (sem_BinOp_ANEq) -sem_BinOp (AEq) = - (sem_BinOp_AEq) -sem_BinOp (AConcatenate) = - (sem_BinOp_AConcatenate) -sem_BinOp (APlus) = - (sem_BinOp_APlus) -sem_BinOp (BinMinus) = - (sem_BinOp_BinMinus) -sem_BinOp (AMultiply) = - (sem_BinOp_AMultiply) -sem_BinOp (ADivide) = - (sem_BinOp_ADivide) -sem_BinOp (AModulus) = - (sem_BinOp_AModulus) -sem_BinOp (APower) = - (sem_BinOp_APower) --- semantic domain -type T_BinOp = ( BinOp,T_BinOp_1) -type T_BinOp_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_BinOp = Inh_BinOp {config_Inh_BinOp :: LintSettings,funcName_Inh_BinOp :: String,globalDefinitions_Inh_BinOp :: (M.Map String [Region]),isInModule_Inh_BinOp :: Bool,isMeta_Inh_BinOp :: Bool,loopLevel_Inh_BinOp :: Int,mtokenPos_Inh_BinOp :: Region,scopeLevel_Inh_BinOp :: Int,scopes_Inh_BinOp :: ([M.Map String (Bool, Region)]),variableStyle_Inh_BinOp :: DeterminedVariableStyle} -data Syn_BinOp = Syn_BinOp {copy_Syn_BinOp :: BinOp,globalDefinitions_Syn_BinOp :: (M.Map String [Region]),identifier_Syn_BinOp :: String,isInModule_Syn_BinOp :: Bool,mtokenPos_Syn_BinOp :: Region,scopes_Syn_BinOp :: ([M.Map String (Bool, Region)]),variableStyle_Syn_BinOp :: DeterminedVariableStyle,warnings_Syn_BinOp :: ([String -> LintMessage])} -wrap_BinOp :: T_BinOp -> - Inh_BinOp -> - Syn_BinOp -wrap_BinOp sem (Inh_BinOp _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_BinOp _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_BinOp_AOr :: T_BinOp -sem_BinOp_AOr = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AOr - {-# LINE 987 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 992 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_AOr_1 :: T_BinOp_1 - sem_BinOp_AOr_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1009 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1014 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1019 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1024 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1029 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1034 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1039 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_AOr_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) -sem_BinOp_AAnd :: T_BinOp -sem_BinOp_AAnd = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AAnd - {-# LINE 1050 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1055 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_AAnd_1 :: T_BinOp_1 - sem_BinOp_AAnd_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1072 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1077 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1082 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1087 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1092 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1097 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1102 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_AAnd_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) -sem_BinOp_ALT :: T_BinOp -sem_BinOp_ALT = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ALT - {-# LINE 1113 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1118 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_ALT_1 :: T_BinOp_1 - sem_BinOp_ALT_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1135 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1140 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1145 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1150 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1155 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1160 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1165 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_ALT_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) -sem_BinOp_AGT :: T_BinOp -sem_BinOp_AGT = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AGT - {-# LINE 1176 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1181 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_AGT_1 :: T_BinOp_1 - sem_BinOp_AGT_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1198 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1203 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1208 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1213 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1218 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1223 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1228 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_AGT_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) -sem_BinOp_ALEQ :: T_BinOp -sem_BinOp_ALEQ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ALEQ - {-# LINE 1239 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1244 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_ALEQ_1 :: T_BinOp_1 - sem_BinOp_ALEQ_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1261 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1266 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1271 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1276 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1281 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1286 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1291 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_ALEQ_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) -sem_BinOp_AGEQ :: T_BinOp -sem_BinOp_AGEQ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AGEQ - {-# LINE 1302 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1307 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_AGEQ_1 :: T_BinOp_1 - sem_BinOp_AGEQ_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1324 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1329 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1334 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1339 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1344 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1349 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1354 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_AGEQ_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) -sem_BinOp_ANEq :: T_BinOp -sem_BinOp_ANEq = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ANEq - {-# LINE 1365 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1370 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_ANEq_1 :: T_BinOp_1 - sem_BinOp_ANEq_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1387 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1392 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1397 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1402 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1407 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1412 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1417 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_ANEq_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) -sem_BinOp_AEq :: T_BinOp -sem_BinOp_AEq = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AEq - {-# LINE 1428 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1433 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_AEq_1 :: T_BinOp_1 - sem_BinOp_AEq_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1450 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1455 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1460 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1465 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1470 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1475 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1480 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_AEq_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) -sem_BinOp_AConcatenate :: T_BinOp -sem_BinOp_AConcatenate = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AConcatenate - {-# LINE 1491 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1496 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_AConcatenate_1 :: T_BinOp_1 - sem_BinOp_AConcatenate_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1513 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1518 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1523 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1528 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1533 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1538 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1543 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_AConcatenate_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) -sem_BinOp_APlus :: T_BinOp -sem_BinOp_APlus = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - APlus - {-# LINE 1554 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1559 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_APlus_1 :: T_BinOp_1 - sem_BinOp_APlus_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1576 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1581 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1586 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1591 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1596 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1601 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1606 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_APlus_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) -sem_BinOp_BinMinus :: T_BinOp -sem_BinOp_BinMinus = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - BinMinus - {-# LINE 1617 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1622 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_BinMinus_1 :: T_BinOp_1 - sem_BinOp_BinMinus_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1639 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1644 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1649 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1654 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1659 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1664 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1669 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_BinMinus_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) -sem_BinOp_AMultiply :: T_BinOp -sem_BinOp_AMultiply = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AMultiply - {-# LINE 1680 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1685 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_AMultiply_1 :: T_BinOp_1 - sem_BinOp_AMultiply_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1702 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1707 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1712 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1717 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1722 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1727 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1732 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_AMultiply_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) -sem_BinOp_ADivide :: T_BinOp -sem_BinOp_ADivide = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ADivide - {-# LINE 1743 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1748 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_ADivide_1 :: T_BinOp_1 - sem_BinOp_ADivide_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1765 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1770 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1775 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1780 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1785 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1790 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1795 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_ADivide_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) -sem_BinOp_AModulus :: T_BinOp -sem_BinOp_AModulus = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AModulus - {-# LINE 1806 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1811 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_AModulus_1 :: T_BinOp_1 - sem_BinOp_AModulus_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1828 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1833 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1838 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1843 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1848 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1853 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1858 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_AModulus_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) -sem_BinOp_APower :: T_BinOp -sem_BinOp_APower = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - APower - {-# LINE 1869 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1874 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_BinOp_APower_1 :: T_BinOp_1 - sem_BinOp_APower_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 1891 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 1896 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 1901 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 1906 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1911 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 1916 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 1921 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_BinOp_APower_1)) of - { ( sem_BinOp_1) -> - ( _lhsOcopy,sem_BinOp_1) }) }) }) --- Block ------------------------------------------------------- --- cata -sem_Block :: Block -> - T_Block -sem_Block (Block _pos _stats _ret) = - (sem_Block_Block _pos (sem_MStatList _stats) (sem_AReturn _ret)) --- semantic domain -type T_Block = ( Block,T_Block_1) -type T_Block_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage])) -data Inh_Block = Inh_Block {config_Inh_Block :: LintSettings,funcName_Inh_Block :: String,globalDefinitions_Inh_Block :: (M.Map String [Region]),isInModule_Inh_Block :: Bool,isMeta_Inh_Block :: Bool,isRepeat_Inh_Block :: Bool,loopLevel_Inh_Block :: Int,mtokenPos_Inh_Block :: Region,scopeLevel_Inh_Block :: Int,scopes_Inh_Block :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Block :: DeterminedVariableStyle} -data Syn_Block = Syn_Block {copy_Syn_Block :: Block,globalDefinitions_Syn_Block :: (M.Map String [Region]),identifier_Syn_Block :: String,isIfStatement_Syn_Block :: Bool,isInModule_Syn_Block :: Bool,mtokenPos_Syn_Block :: Region,scopes_Syn_Block :: ([M.Map String (Bool, Region)]),statementCount_Syn_Block :: Int,variableStyle_Syn_Block :: DeterminedVariableStyle,warnings_Syn_Block :: ([String -> LintMessage])} -wrap_Block :: T_Block -> - Inh_Block -> - Syn_Block -wrap_Block sem (Inh_Block _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIisRepeat _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIisRepeat _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_Block _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisIfStatement _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings)) -sem_Block_Block :: Region -> - T_MStatList -> - T_AReturn -> - T_Block -sem_Block_Block pos_ stats_ ret_ = - (case (ret_) of - { ( _retIcopy,ret_1) -> - (case (stats_) of - { ( _statsIcopy,stats_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Block pos_ _statsIcopy _retIcopy - {-# LINE 1968 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 1973 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Block_Block_1 :: T_Block_1 - sem_Block_Block_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIisRepeat - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 1991 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statsOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 1996 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statsOisMeta -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 2001 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statsOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 2006 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statsOvariableStyle -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 2011 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statsOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 2016 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statsOloopLevel -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 2021 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statsOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 2026 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statsOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 2031 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statsOfuncName -> - (case (({-# LINE 298 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel + 1 - {-# LINE 2036 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statsOscopeLevel -> - (case (stats_1 _statsOconfig _statsOfuncName _statsOglobalDefinitions _statsOisInModule _statsOisMeta _statsOloopLevel _statsOmtokenPos _statsOscopeLevel _statsOscopes _statsOvariableStyle) of - { ( _statsIglobalDefinitions,_statsIidentifier,_statsIisIfStatement,_statsIisInModule,_statsImtokenPos,_statsIscopes,_statsIstatementCount,_statsIvariableStyle,_statsIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statsIscopes - {-# LINE 2043 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _retOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 2048 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _retOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statsIisInModule - {-# LINE 2053 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _retOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statsIglobalDefinitions - {-# LINE 2058 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _retOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 2063 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _retOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statsIvariableStyle - {-# LINE 2068 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _retOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 2073 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _retOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statsImtokenPos - {-# LINE 2078 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _retOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 2083 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _retOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 2088 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _retOfuncName -> - (case (ret_1 _retOconfig _retOfuncName _retOglobalDefinitions _retOisInModule _retOisMeta _retOloopLevel _retOmtokenPos _retOscopeLevel _retOscopes _retOvariableStyle) of - { ( _retIglobalDefinitions,_retIidentifier,_retIisInModule,_retImtokenPos,_retIscopes,_retIstatementCount,_retIvariableStyle,_retIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _retIglobalDefinitions - {-# LINE 2095 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _statsIidentifier _retIidentifier) - {-# LINE 2100 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statsIisIfStatement - {-# LINE 2105 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _retIisInModule - {-# LINE 2110 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _retImtokenPos - {-# LINE 2115 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 305 "src/GLuaFixer/AG/ASTLint.ag" #-} - if _lhsIisRepeat then _retIscopes else tail _retIscopes - {-# LINE 2120 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statsIstatementCount + _retIstatementCount - {-# LINE 2125 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOstatementCount -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _retIvariableStyle - {-# LINE 2130 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 303 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statsIwarnings ++ _retIwarnings - {-# LINE 2135 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 302 "src/GLuaFixer/AG/ASTLint.ag" #-} - M.filterWithKey (\k (b, _) -> not (null k) && head k /= '_' && not b) (head _retIscopes) - {-# LINE 2140 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _deadVars -> - (case (({-# LINE 299 "src/GLuaFixer/AG/ASTLint.ag" #-} - lint_maxScopeDepth _lhsIconfig - {-# LINE 2145 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _maxScopeDepth -> - (case (({-# LINE 303 "src/GLuaFixer/AG/ASTLint.ag" #-} - if _maxScopeDepth == 0 || _lhsIscopeLevel /= _maxScopeDepth then id else - (:) $ warn _statsImtokenPos ScopePyramids - {-# LINE 2151 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f2 -> - (case (({-# LINE 303 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_unusedVars _lhsIconfig) || _lhsIisRepeat then id else - (++) $ M.foldrWithKey (\k (_, pos) ls -> warn pos (UnusedVariable k) : ls) [] _deadVars - {-# LINE 2157 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 303 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2] - {-# LINE 2162 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Block_Block_1)) of - { ( sem_Block_1) -> - ( _lhsOcopy,sem_Block_1) }) }) }) }) }) --- Declaration ------------------------------------------------- --- cata -sem_Declaration :: Declaration -> - T_Declaration -sem_Declaration ( x1,x2) = - (sem_Declaration_Tuple (sem_PrefixExp x1) (sem_MaybeMExpr x2)) --- semantic domain -type T_Declaration = ( Declaration,T_Declaration_1) -type T_Declaration_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_Declaration = Inh_Declaration {config_Inh_Declaration :: LintSettings,funcName_Inh_Declaration :: String,globalDefinitions_Inh_Declaration :: (M.Map String [Region]),isInModule_Inh_Declaration :: Bool,isMeta_Inh_Declaration :: Bool,localDefinition_Inh_Declaration :: Bool,loopLevel_Inh_Declaration :: Int,mtokenPos_Inh_Declaration :: Region,scopeLevel_Inh_Declaration :: Int,scopes_Inh_Declaration :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Declaration :: DeterminedVariableStyle} -data Syn_Declaration = Syn_Declaration {copy_Syn_Declaration :: Declaration,globalDefinitions_Syn_Declaration :: (M.Map String [Region]),identifier_Syn_Declaration :: String,isInModule_Syn_Declaration :: Bool,mtokenPos_Syn_Declaration :: Region,scopes_Syn_Declaration :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Declaration :: DeterminedVariableStyle,warnings_Syn_Declaration :: ([String -> LintMessage])} -wrap_Declaration :: T_Declaration -> - Inh_Declaration -> - Syn_Declaration -wrap_Declaration sem (Inh_Declaration _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIlocalDefinition _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIlocalDefinition _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_Declaration _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_Declaration_Tuple :: T_PrefixExp -> - T_MaybeMExpr -> - T_Declaration -sem_Declaration_Tuple x1_ x2_ = - (case (x2_) of - { ( _x2Icopy,x2_1) -> - (case (x1_) of - { ( _x1Icopy,_x1IhasSuffixes,_x1ImtokenPos,_x1IvarName,x1_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - (_x1Icopy,_x2Icopy) - {-# LINE 2208 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 2213 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Declaration_Tuple_1 :: T_Declaration_1 - sem_Declaration_Tuple_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIlocalDefinition - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 2231 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OisMeta -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 2236 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1Oconfig -> - (case (({-# LINE 268 "src/GLuaFixer/AG/ASTLint.ag" #-} - tokenLabel . fromMaybe (error "fromMaybe sem Declaration loc.var") $ _x1IvarName - {-# LINE 2241 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _var -> - (case (({-# LINE 276 "src/GLuaFixer/AG/ASTLint.ag" #-} - if _lhsIlocalDefinition then - M.insert _var (False, _x1ImtokenPos) (head _lhsIscopes) : tail _lhsIscopes - else if isJust _x1IvarName then - registerVariable _lhsIscopes _x1ImtokenPos _var _x1IhasSuffixes - else - _lhsIscopes - {-# LINE 2251 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1Oscopes -> - (case (({-# LINE 264 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 2256 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OvarBeingDefined -> - (case (({-# LINE 260 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 2261 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OregisterVarUse -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 2266 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 2271 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 2276 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 2281 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OloopLevel -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 2286 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 2291 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 2296 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OfuncName -> - (case (({-# LINE 262 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 2301 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OtopLevel -> - (case (({-# LINE 261 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 2306 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OinParentheses -> - (case (({-# LINE 259 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 2311 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OisNegation -> - (case (x1_1 _x1Oconfig _x1OfuncName _x1OglobalDefinitions _x1OinParentheses _x1OisInModule _x1OisMeta _x1OisNegation _x1OloopLevel _x1OmtokenPos _x1OregisterVarUse _x1OscopeLevel _x1Oscopes _x1OtopLevel _x1OvarBeingDefined _x1OvariableStyle) of - { ( _x1IglobalDefinitions,_x1Iidentifier,_x1IisInModule,_x1IisSimpleExpression,_x1IisSingleVar,_x1Iscopes,_x1IvariableStyle,_x1Iwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x1Iscopes - {-# LINE 2318 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2Oscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 2323 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x1IisInModule - {-# LINE 2328 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x1IglobalDefinitions - {-# LINE 2333 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 2338 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2Oconfig -> - (case (({-# LINE 266 "src/GLuaFixer/AG/ASTLint.ag" #-} - if _x1IhasSuffixes || not _lhsIlocalDefinition then Nothing else _x1IvarName - {-# LINE 2343 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OvarBeingDefined -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x1IvariableStyle - {-# LINE 2348 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 2353 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x1ImtokenPos - {-# LINE 2358 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 2363 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 2368 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OfuncName -> - (case (({-# LINE 263 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 2373 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OisNegation -> - (case (x2_1 _x2Oconfig _x2OfuncName _x2OglobalDefinitions _x2OisInModule _x2OisMeta _x2OisNegation _x2OloopLevel _x2OmtokenPos _x2OscopeLevel _x2Oscopes _x2OvarBeingDefined _x2OvariableStyle) of - { ( _x2IglobalDefinitions,_x2Iidentifier,_x2IisInModule,_x2IisSingleVar,_x2ImtokenPos,_x2Iscopes,_x2IvariableStyle,_x2Iwarnings) -> - (case (({-# LINE 283 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x2IglobalDefinitions - {-# LINE 2380 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _globalDefinitions_augmented_syn -> - (case (({-# LINE 283 "src/GLuaFixer/AG/ASTLint.ag" #-} - if _lhsIisInModule || _lhsIlocalDefinition || isVariableLocal _lhsIscopes _var || _x1IhasSuffixes then id else - M.insertWith (++) _var [_x1ImtokenPos] - {-# LINE 2386 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _globalDefinitions_augmented_f1 -> - (case (({-# LINE 283 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _globalDefinitions_augmented_syn [_globalDefinitions_augmented_f1] - {-# LINE 2391 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _x1Iidentifier _x2Iidentifier) - {-# LINE 2396 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x2IisInModule - {-# LINE 2401 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 257 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x1ImtokenPos - {-# LINE 2406 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x2Iscopes - {-# LINE 2411 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 269 "src/GLuaFixer/AG/ASTLint.ag" #-} - determineVariableStyle _var - {-# LINE 2416 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varStyle -> - (case (({-# LINE 258 "src/GLuaFixer/AG/ASTLint.ag" #-} - if _lhsIlocalDefinition then combineDeterminedVarStyle _lhsIvariableStyle _varStyle else _lhsIvariableStyle - {-# LINE 2421 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 288 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x1Iwarnings ++ _x2Iwarnings - {-# LINE 2426 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 270 "src/GLuaFixer/AG/ASTLint.ag" #-} - do - var <- _x1IvarName - if (Just var /= _x2IisSingleVar) then - checkShadows _lhsIscopes var - else Nothing - {-# LINE 2435 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _shadowWarning -> - (case (({-# LINE 288 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_shadowing _lhsIconfig) || not _lhsIlocalDefinition || isNothing _shadowWarning then id else - (:) . fromMaybe (error "fromMaybe sem Declaration +warnings") $ _shadowWarning - {-# LINE 2441 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f2 -> - (case (({-# LINE 288 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_inconsistentVariableStyle _lhsIconfig) || not _lhsIlocalDefinition || not (variableStyleInconsistent _lhsIvariableStyle _varStyle ) then id else - (:) $ warn _x1ImtokenPos InconsistentVariableNaming - {-# LINE 2447 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 288 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2] - {-# LINE 2452 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Declaration_Tuple_1)) of - { ( sem_Declaration_1) -> - ( _lhsOcopy,sem_Declaration_1) }) }) }) }) }) --- Else -------------------------------------------------------- --- cata -sem_Else :: Else -> - T_Else -sem_Else (Prelude.Just x) = - (sem_Else_Just (sem_MElse x)) -sem_Else Prelude.Nothing = - sem_Else_Nothing --- semantic domain -type T_Else = ( Else,T_Else_1) -type T_Else_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( Bool,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_Else = Inh_Else {config_Inh_Else :: LintSettings,funcName_Inh_Else :: String,globalDefinitions_Inh_Else :: (M.Map String [Region]),isInModule_Inh_Else :: Bool,isMeta_Inh_Else :: Bool,loopLevel_Inh_Else :: Int,mtokenPos_Inh_Else :: Region,scopeLevel_Inh_Else :: Int,scopes_Inh_Else :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Else :: DeterminedVariableStyle} -data Syn_Else = Syn_Else {copy_Syn_Else :: Else,elseExists_Syn_Else :: Bool,globalDefinitions_Syn_Else :: (M.Map String [Region]),identifier_Syn_Else :: String,isInModule_Syn_Else :: Bool,mtokenPos_Syn_Else :: Region,scopes_Syn_Else :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Else :: DeterminedVariableStyle,warnings_Syn_Else :: ([String -> LintMessage])} -wrap_Else :: T_Else -> - Inh_Else -> - Syn_Else -wrap_Else sem (Inh_Else _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_Else _lhsOcopy _lhsOelseExists _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_Else_Just :: T_MElse -> - T_Else -sem_Else_Just just_ = - (case (just_) of - { ( _justIcopy,just_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Just _justIcopy - {-# LINE 2496 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 2501 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Else_Just_1 :: T_Else_1 - sem_Else_Just_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 498 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 2518 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOelseExists -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 2523 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 2528 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 2533 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 2538 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOconfig -> - (case (({-# LINE 497 "src/GLuaFixer/AG/ASTLint.ag" #-} - M.empty : _lhsIscopes - {-# LINE 2543 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 2548 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 2553 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 2558 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 2563 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 2568 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOfuncName -> - (case (just_1 _justOconfig _justOfuncName _justOglobalDefinitions _justOisInModule _justOisMeta _justOloopLevel _justOmtokenPos _justOscopeLevel _justOscopes _justOvariableStyle) of - { ( _justIelseExists,_justIglobalDefinitions,_justIidentifier,_justIisInModule,_justImtokenPos,_justIscopes,_justIstatementCount,_justIvariableStyle,_justIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justIglobalDefinitions - {-# LINE 2575 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justIidentifier - {-# LINE 2580 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justIisInModule - {-# LINE 2585 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justImtokenPos - {-# LINE 2590 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justIscopes - {-# LINE 2595 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justIvariableStyle - {-# LINE 2600 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 500 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justIwarnings - {-# LINE 2605 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 499 "src/GLuaFixer/AG/ASTLint.ag" #-} - Region (rgStart _justImtokenPos) (rgEnd _lhsImtokenPos) - {-# LINE 2610 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elsePos -> - (case (({-# LINE 500 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_emptyBlocks _lhsIconfig) || _justIstatementCount > 0 then id else - (:) $ warn _elsePos EmptyElse - {-# LINE 2616 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 500 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 2621 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Else_Just_1)) of - { ( sem_Else_1) -> - ( _lhsOcopy,sem_Else_1) }) }) }) }) -sem_Else_Nothing :: T_Else -sem_Else_Nothing = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 2632 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 2637 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Else_Nothing_1 :: T_Else_1 - sem_Else_Nothing_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 203 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 2654 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOelseExists -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 2659 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 2664 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 2669 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 2674 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 2679 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 2684 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 2689 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) - in sem_Else_Nothing_1)) of - { ( sem_Else_1) -> - ( _lhsOcopy,sem_Else_1) }) }) }) --- ElseIf ------------------------------------------------------ --- cata -sem_ElseIf :: ElseIf -> - T_ElseIf -sem_ElseIf ( x1,x2) = - (sem_ElseIf_Tuple (sem_MExpr x1) (sem_Block x2)) --- semantic domain -type T_ElseIf = ( ElseIf,T_ElseIf_1) -type T_ElseIf_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_ElseIf = Inh_ElseIf {config_Inh_ElseIf :: LintSettings,funcName_Inh_ElseIf :: String,globalDefinitions_Inh_ElseIf :: (M.Map String [Region]),isInModule_Inh_ElseIf :: Bool,isMeta_Inh_ElseIf :: Bool,loopLevel_Inh_ElseIf :: Int,mtokenPos_Inh_ElseIf :: Region,scopeLevel_Inh_ElseIf :: Int,scopes_Inh_ElseIf :: ([M.Map String (Bool, Region)]),variableStyle_Inh_ElseIf :: DeterminedVariableStyle} -data Syn_ElseIf = Syn_ElseIf {copy_Syn_ElseIf :: ElseIf,globalDefinitions_Syn_ElseIf :: (M.Map String [Region]),identifier_Syn_ElseIf :: String,isInModule_Syn_ElseIf :: Bool,mtokenPos_Syn_ElseIf :: Region,scopes_Syn_ElseIf :: ([M.Map String (Bool, Region)]),variableStyle_Syn_ElseIf :: DeterminedVariableStyle,warnings_Syn_ElseIf :: ([String -> LintMessage])} -wrap_ElseIf :: T_ElseIf -> - Inh_ElseIf -> - Syn_ElseIf -wrap_ElseIf sem (Inh_ElseIf _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_ElseIf _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_ElseIf_Tuple :: T_MExpr -> - T_Block -> - T_ElseIf -sem_ElseIf_Tuple x1_ x2_ = - (case (x2_) of - { ( _x2Icopy,x2_1) -> - (case (x1_) of - { ( _x1Icopy,_x1ImtokenPos,x1_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - (_x1Icopy,_x2Icopy) - {-# LINE 2734 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 2739 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_ElseIf_Tuple_1 :: T_ElseIf_1 - sem_ElseIf_Tuple_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 2756 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 2761 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OisInModule -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 2766 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 2771 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1Oscopes -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 2776 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 2781 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 2786 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OloopLevel -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 2791 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OisMeta -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 2796 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 2801 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 2806 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1Oconfig -> - (case (({-# LINE 484 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 2811 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OvarBeingDefined -> - (case (({-# LINE 483 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 2816 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OtopLevel -> - (case (({-# LINE 482 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 2821 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OinParentheses -> - (case (({-# LINE 481 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 2826 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x1OisNegation -> - (case (x1_1 _x1Oconfig _x1OfuncName _x1OglobalDefinitions _x1OinParentheses _x1OisInModule _x1OisMeta _x1OisNegation _x1OloopLevel _x1OmtokenPos _x1OscopeLevel _x1Oscopes _x1OtopLevel _x1OvarBeingDefined _x1OvariableStyle) of - { ( _x1IglobalDefinitions,_x1Iidentifier,_x1IisInModule,_x1IisSimpleExpression,_x1IisSingleVar,_x1Iscopes,_x1IvariableStyle,_x1Iwarnings) -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x1IisInModule - {-# LINE 2833 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x1IglobalDefinitions - {-# LINE 2838 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 2843 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2Oconfig -> - (case (({-# LINE 485 "src/GLuaFixer/AG/ASTLint.ag" #-} - M.empty : _x1Iscopes - {-# LINE 2848 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2Oscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x1IvariableStyle - {-# LINE 2853 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 2858 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x1ImtokenPos - {-# LINE 2863 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 2868 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 2873 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OfuncName -> - (case (({-# LINE 486 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 2878 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _x2OisRepeat -> - (case (x2_1 _x2Oconfig _x2OfuncName _x2OglobalDefinitions _x2OisInModule _x2OisMeta _x2OisRepeat _x2OloopLevel _x2OmtokenPos _x2OscopeLevel _x2Oscopes _x2OvariableStyle) of - { ( _x2IglobalDefinitions,_x2Iidentifier,_x2IisIfStatement,_x2IisInModule,_x2ImtokenPos,_x2Iscopes,_x2IstatementCount,_x2IvariableStyle,_x2Iwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x2IglobalDefinitions - {-# LINE 2885 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _x1Iidentifier _x2Iidentifier) - {-# LINE 2890 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x2IisInModule - {-# LINE 2895 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x2ImtokenPos - {-# LINE 2900 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x2Iscopes - {-# LINE 2905 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x2IvariableStyle - {-# LINE 2910 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 487 "src/GLuaFixer/AG/ASTLint.ag" #-} - _x1Iwarnings ++ _x2Iwarnings - {-# LINE 2915 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 487 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_emptyBlocks _lhsIconfig) || _x2IstatementCount > 0 then id else - (:) $ warn _lhsImtokenPos EmptyElseIf - {-# LINE 2921 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 487 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 2926 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_ElseIf_Tuple_1)) of - { ( sem_ElseIf_1) -> - ( _lhsOcopy,sem_ElseIf_1) }) }) }) }) }) --- ElseIfList -------------------------------------------------- --- cata -sem_ElseIfList :: ElseIfList -> - T_ElseIfList -sem_ElseIfList list = - (Prelude.foldr sem_ElseIfList_Cons sem_ElseIfList_Nil (Prelude.map sem_MElseIf list)) --- semantic domain -type T_ElseIfList = ( ElseIfList,T_ElseIfList_1) -type T_ElseIfList_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( Bool,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_ElseIfList = Inh_ElseIfList {config_Inh_ElseIfList :: LintSettings,funcName_Inh_ElseIfList :: String,globalDefinitions_Inh_ElseIfList :: (M.Map String [Region]),isInModule_Inh_ElseIfList :: Bool,isMeta_Inh_ElseIfList :: Bool,loopLevel_Inh_ElseIfList :: Int,mtokenPos_Inh_ElseIfList :: Region,scopeLevel_Inh_ElseIfList :: Int,scopes_Inh_ElseIfList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_ElseIfList :: DeterminedVariableStyle} -data Syn_ElseIfList = Syn_ElseIfList {copy_Syn_ElseIfList :: ElseIfList,elseExists_Syn_ElseIfList :: Bool,globalDefinitions_Syn_ElseIfList :: (M.Map String [Region]),identifier_Syn_ElseIfList :: String,isInModule_Syn_ElseIfList :: Bool,mtokenPos_Syn_ElseIfList :: Region,scopes_Syn_ElseIfList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_ElseIfList :: DeterminedVariableStyle,warnings_Syn_ElseIfList :: ([String -> LintMessage])} -wrap_ElseIfList :: T_ElseIfList -> - Inh_ElseIfList -> - Syn_ElseIfList -wrap_ElseIfList sem (Inh_ElseIfList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_ElseIfList _lhsOcopy _lhsOelseExists _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_ElseIfList_Cons :: T_MElseIf -> - T_ElseIfList -> - T_ElseIfList -sem_ElseIfList_Cons hd_ tl_ = - (case (tl_) of - { ( _tlIcopy,tl_1) -> - (case (hd_) of - { ( _hdIcopy,hd_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 2971 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 2976 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_ElseIfList_Cons_1 :: T_ElseIfList_1 - sem_ElseIfList_Cons_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 468 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 2993 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOelseExists -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 2998 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 3003 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisMeta -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 3008 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 3013 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 3018 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 3023 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 3028 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOloopLevel -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 3033 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 3038 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 3043 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOfuncName -> - (case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of - { ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdImtokenPos,_hdIscopes,_hdIvariableStyle,_hdIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIscopes - {-# LINE 3050 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 3055 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIisInModule - {-# LINE 3060 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIglobalDefinitions - {-# LINE 3065 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 3070 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIvariableStyle - {-# LINE 3075 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 3080 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdImtokenPos - {-# LINE 3085 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 3090 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 3095 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOfuncName -> - (case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of - { ( _tlIelseExists,_tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIglobalDefinitions - {-# LINE 3102 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _hdIidentifier _tlIidentifier) - {-# LINE 3107 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIisInModule - {-# LINE 3112 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 469 "src/GLuaFixer/AG/ASTLint.ag" #-} - Region - (rgStart _hdImtokenPos) - (rgEnd $ if _tlIelseExists then _tlImtokenPos else _hdImtokenPos) - {-# LINE 3119 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIscopes - {-# LINE 3124 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIvariableStyle - {-# LINE 3129 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIwarnings ++ _tlIwarnings - {-# LINE 3134 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_ElseIfList_Cons_1)) of - { ( sem_ElseIfList_1) -> - ( _lhsOcopy,sem_ElseIfList_1) }) }) }) }) }) -sem_ElseIfList_Nil :: T_ElseIfList -sem_ElseIfList_Nil = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 3145 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 3150 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_ElseIfList_Nil_1 :: T_ElseIfList_1 - sem_ElseIfList_Nil_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 203 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 3167 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOelseExists -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 3172 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 3177 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 3182 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 3187 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 3192 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 3197 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 3202 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) - in sem_ElseIfList_Nil_1)) of - { ( sem_ElseIfList_1) -> - ( _lhsOcopy,sem_ElseIfList_1) }) }) }) --- Expr -------------------------------------------------------- --- cata -sem_Expr :: Expr -> - T_Expr -sem_Expr (ANil) = - (sem_Expr_ANil) -sem_Expr (AFalse) = - (sem_Expr_AFalse) -sem_Expr (ATrue) = - (sem_Expr_ATrue) -sem_Expr (ANumber _num) = - (sem_Expr_ANumber _num) -sem_Expr (AString _str) = - (sem_Expr_AString (sem_MToken _str)) -sem_Expr (AVarArg) = - (sem_Expr_AVarArg) -sem_Expr (AnonymousFunc _pars _body) = - (sem_Expr_AnonymousFunc _pars (sem_Block _body)) -sem_Expr (APrefixExpr _pexpr) = - (sem_Expr_APrefixExpr (sem_PrefixExp _pexpr)) -sem_Expr (ATableConstructor _fields) = - (sem_Expr_ATableConstructor (sem_FieldList _fields)) -sem_Expr (BinOpExpr _op _left _right) = - (sem_Expr_BinOpExpr (sem_BinOp _op) (sem_MExpr _left) (sem_MExpr _right)) -sem_Expr (UnOpExpr _op _right) = - (sem_Expr_UnOpExpr (sem_UnOp _op) (sem_MExpr _right)) --- semantic domain -type T_Expr = ( Expr,T_Expr_1) -type T_Expr_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - Bool -> - (Maybe MToken) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Bool,(Maybe MToken),Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_Expr = Inh_Expr {config_Inh_Expr :: LintSettings,funcName_Inh_Expr :: String,globalDefinitions_Inh_Expr :: (M.Map String [Region]),inParentheses_Inh_Expr :: Bool,isInModule_Inh_Expr :: Bool,isMeta_Inh_Expr :: Bool,isNegation_Inh_Expr :: Bool,loopLevel_Inh_Expr :: Int,mtokenPos_Inh_Expr :: Region,scopeLevel_Inh_Expr :: Int,scopes_Inh_Expr :: ([M.Map String (Bool, Region)]),topLevel_Inh_Expr :: Bool,varBeingDefined_Inh_Expr :: (Maybe MToken),variableStyle_Inh_Expr :: DeterminedVariableStyle} -data Syn_Expr = Syn_Expr {copy_Syn_Expr :: Expr,globalDefinitions_Syn_Expr :: (M.Map String [Region]),identifier_Syn_Expr :: String,isInModule_Syn_Expr :: Bool,isSimpleExpression_Syn_Expr :: Bool,isSingleVar_Syn_Expr :: (Maybe MToken),mtokenPos_Syn_Expr :: Region,scopes_Syn_Expr :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Expr :: DeterminedVariableStyle,warnings_Syn_Expr :: ([String -> LintMessage])} -wrap_Expr :: T_Expr -> - Inh_Expr -> - Syn_Expr -wrap_Expr sem (Inh_Expr _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle - in (Syn_Expr _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOisSingleVar _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_Expr_ANil :: T_Expr -sem_Expr_ANil = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ANil - {-# LINE 3265 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 3270 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Expr_ANil_1 :: T_Expr_1 - sem_Expr_ANil_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 3291 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 3296 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 3301 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 3306 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 3311 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 3316 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 3321 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 3326 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 3331 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) })) - in sem_Expr_ANil_1)) of - { ( sem_Expr_1) -> - ( _lhsOcopy,sem_Expr_1) }) }) }) -sem_Expr_AFalse :: T_Expr -sem_Expr_AFalse = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AFalse - {-# LINE 3342 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 3347 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Expr_AFalse_1 :: T_Expr_1 - sem_Expr_AFalse_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 3368 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 3373 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 3378 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 3383 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 3388 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 3393 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 3398 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 3403 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 3408 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) })) - in sem_Expr_AFalse_1)) of - { ( sem_Expr_1) -> - ( _lhsOcopy,sem_Expr_1) }) }) }) -sem_Expr_ATrue :: T_Expr -sem_Expr_ATrue = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ATrue - {-# LINE 3419 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 3424 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Expr_ATrue_1 :: T_Expr_1 - sem_Expr_ATrue_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 3445 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 3450 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 3455 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 3460 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 3465 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 3470 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 3475 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 3480 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 3485 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) })) - in sem_Expr_ATrue_1)) of - { ( sem_Expr_1) -> - ( _lhsOcopy,sem_Expr_1) }) }) }) -sem_Expr_ANumber :: String -> - T_Expr -sem_Expr_ANumber num_ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ANumber num_ - {-# LINE 3497 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 3502 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Expr_ANumber_1 :: T_Expr_1 - sem_Expr_ANumber_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 3523 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 3528 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 3533 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 3538 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 3543 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 3548 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 3553 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 3558 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 3563 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) })) - in sem_Expr_ANumber_1)) of - { ( sem_Expr_1) -> - ( _lhsOcopy,sem_Expr_1) }) }) }) -sem_Expr_AString :: T_MToken -> - T_Expr -sem_Expr_AString str_ = - (case (str_) of - { ( _strIcopy,_strImtok,_strImtokenPos,str_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AString _strIcopy - {-# LINE 3577 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 3582 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Expr_AString_1 :: T_Expr_1 - sem_Expr_AString_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 3603 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _strOglobalDefinitions -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 3608 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _strOscopes -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 3613 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _strOmtokenPos -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 3618 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _strOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 3623 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _strOisInModule -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 3628 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _strOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 3633 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _strOconfig -> - (case (str_1 _strOconfig _strOfuncName _strOglobalDefinitions _strOisInModule _strOisMeta _strOmtokenPos _strOscopes) of - { ( _strIglobalDefinitions,_strIidentifier,_strIisInModule,_strIscopes,_strIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _strIglobalDefinitions - {-# LINE 3640 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _strIidentifier - {-# LINE 3645 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _strIisInModule - {-# LINE 3650 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 3655 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 3660 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _strImtokenPos - {-# LINE 3665 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _strIscopes - {-# LINE 3670 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 3675 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _strIwarnings - {-# LINE 3680 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Expr_AString_1)) of - { ( sem_Expr_1) -> - ( _lhsOcopy,sem_Expr_1) }) }) }) }) -sem_Expr_AVarArg :: T_Expr -sem_Expr_AVarArg = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AVarArg - {-# LINE 3691 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 3696 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Expr_AVarArg_1 :: T_Expr_1 - sem_Expr_AVarArg_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 3717 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 3722 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 3727 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 580 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 3732 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 3737 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 3742 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 3747 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 3752 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 3757 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) })) - in sem_Expr_AVarArg_1)) of - { ( sem_Expr_1) -> - ( _lhsOcopy,sem_Expr_1) }) }) }) -sem_Expr_AnonymousFunc :: ([MToken]) -> - T_Block -> - T_Expr -sem_Expr_AnonymousFunc pars_ body_ = - (case (body_) of - { ( _bodyIcopy,body_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AnonymousFunc pars_ _bodyIcopy - {-# LINE 3772 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 3777 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Expr_AnonymousFunc_1 :: T_Expr_1 - sem_Expr_AnonymousFunc_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 3798 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 3803 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 3808 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOconfig -> - (case (({-# LINE 585 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta || findSelf pars_ - {-# LINE 3813 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisMeta -> - (case (({-# LINE 582 "src/GLuaFixer/AG/ASTLint.ag" #-} - M.fromList $ map (\mt -> (tokenLabel mt, (not . lint_unusedParameters $ _lhsIconfig, mpos mt))) pars_ - {-# LINE 3818 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _introduces -> - (case (({-# LINE 583 "src/GLuaFixer/AG/ASTLint.ag" #-} - _introduces : _lhsIscopes - {-# LINE 3823 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 3828 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 3833 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 3838 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 3843 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 3848 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOfuncName -> - (case (({-# LINE 584 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 3853 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisRepeat -> - (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of - { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIglobalDefinitions - {-# LINE 3860 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIidentifier - {-# LINE 3865 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIisInModule - {-# LINE 3870 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 3875 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 3880 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyImtokenPos - {-# LINE 3885 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIscopes - {-# LINE 3890 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIvariableStyle - {-# LINE 3895 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 588 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIwarnings - {-# LINE 3900 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 586 "src/GLuaFixer/AG/ASTLint.ag" #-} - filter (/= MToken emptyRg VarArg) $ pars_ - {-# LINE 3905 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argIdentifiers -> - (case (({-# LINE 588 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_shadowing _lhsIconfig) then id else - (++) . catMaybes . map (checkShadows _lhsIscopes) $ _argIdentifiers - {-# LINE 3911 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 588 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 3916 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Expr_AnonymousFunc_1)) of - { ( sem_Expr_1) -> - ( _lhsOcopy,sem_Expr_1) }) }) }) }) -sem_Expr_APrefixExpr :: T_PrefixExp -> - T_Expr -sem_Expr_APrefixExpr pexpr_ = - (case (pexpr_) of - { ( _pexprIcopy,_pexprIhasSuffixes,_pexprImtokenPos,_pexprIvarName,pexpr_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - APrefixExpr _pexprIcopy - {-# LINE 3930 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 3935 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Expr_APrefixExpr_1 :: T_Expr_1 - sem_Expr_APrefixExpr_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 179 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvarBeingDefined - {-# LINE 3956 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOvarBeingDefined -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 3961 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 3966 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 3971 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 3976 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 3981 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOconfig -> - (case (({-# LINE 591 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 3986 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOregisterVarUse -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 3991 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOvariableStyle -> - (case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsItopLevel - {-# LINE 3996 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOtopLevel -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 4001 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 4006 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 4011 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOloopLevel -> - (case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisNegation - {-# LINE 4016 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOisNegation -> - (case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIinParentheses - {-# LINE 4021 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOinParentheses -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 4026 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _pexprOfuncName -> - (case (pexpr_1 _pexprOconfig _pexprOfuncName _pexprOglobalDefinitions _pexprOinParentheses _pexprOisInModule _pexprOisMeta _pexprOisNegation _pexprOloopLevel _pexprOmtokenPos _pexprOregisterVarUse _pexprOscopeLevel _pexprOscopes _pexprOtopLevel _pexprOvarBeingDefined _pexprOvariableStyle) of - { ( _pexprIglobalDefinitions,_pexprIidentifier,_pexprIisInModule,_pexprIisSimpleExpression,_pexprIisSingleVar,_pexprIscopes,_pexprIvariableStyle,_pexprIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _pexprIglobalDefinitions - {-# LINE 4033 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _pexprIidentifier - {-# LINE 4038 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _pexprIisInModule - {-# LINE 4043 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - _pexprIisSimpleExpression - {-# LINE 4048 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} - _pexprIisSingleVar - {-# LINE 4053 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _pexprImtokenPos - {-# LINE 4058 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _pexprIscopes - {-# LINE 4063 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _pexprIvariableStyle - {-# LINE 4068 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _pexprIwarnings - {-# LINE 4073 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Expr_APrefixExpr_1)) of - { ( sem_Expr_1) -> - ( _lhsOcopy,sem_Expr_1) }) }) }) }) -sem_Expr_ATableConstructor :: T_FieldList -> - T_Expr -sem_Expr_ATableConstructor fields_ = - (case (fields_) of - { ( _fieldsIcopy,fields_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ATableConstructor _fieldsIcopy - {-# LINE 4087 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 4092 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Expr_ATableConstructor_1 :: T_Expr_1 - sem_Expr_ATableConstructor_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 4113 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fieldsOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 4118 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fieldsOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 4123 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fieldsOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 4128 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fieldsOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 4133 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fieldsOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 4138 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fieldsOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 4143 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fieldsOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 4148 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fieldsOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 4153 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fieldsOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 4158 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fieldsOfuncName -> - (case (({-# LINE 593 "src/GLuaFixer/AG/ASTLint.ag" #-} - S.empty - {-# LINE 4163 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fieldsOfieldNames -> - (case (fields_1 _fieldsOconfig _fieldsOfieldNames _fieldsOfuncName _fieldsOglobalDefinitions _fieldsOisInModule _fieldsOisMeta _fieldsOloopLevel _fieldsOmtokenPos _fieldsOscopeLevel _fieldsOscopes _fieldsOvariableStyle) of - { ( _fieldsIfieldNames,_fieldsIglobalDefinitions,_fieldsIidentifier,_fieldsIisInModule,_fieldsImtokenPos,_fieldsIscopes,_fieldsIvariableStyle,_fieldsIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fieldsIglobalDefinitions - {-# LINE 4170 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fieldsIidentifier - {-# LINE 4175 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fieldsIisInModule - {-# LINE 4180 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 4185 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 4190 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fieldsImtokenPos - {-# LINE 4195 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fieldsIscopes - {-# LINE 4200 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fieldsIvariableStyle - {-# LINE 4205 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fieldsIwarnings - {-# LINE 4210 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Expr_ATableConstructor_1)) of - { ( sem_Expr_1) -> - ( _lhsOcopy,sem_Expr_1) }) }) }) }) -sem_Expr_BinOpExpr :: T_BinOp -> - T_MExpr -> - T_MExpr -> - T_Expr -sem_Expr_BinOpExpr op_ left_ right_ = - (case (right_) of - { ( _rightIcopy,_rightImtokenPos,right_1) -> - (case (left_) of - { ( _leftIcopy,_leftImtokenPos,left_1) -> - (case (op_) of - { ( _opIcopy,op_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - BinOpExpr _opIcopy _leftIcopy _rightIcopy - {-# LINE 4230 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 4235 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Expr_BinOpExpr_1 :: T_Expr_1 - sem_Expr_BinOpExpr_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 4256 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 4261 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 4266 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 4271 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 4276 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOloopLevel -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 4281 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 4286 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 4291 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 4296 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 4301 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOconfig -> - (case (op_1 _opOconfig _opOfuncName _opOglobalDefinitions _opOisInModule _opOisMeta _opOloopLevel _opOmtokenPos _opOscopeLevel _opOscopes _opOvariableStyle) of - { ( _opIglobalDefinitions,_opIidentifier,_opIisInModule,_opImtokenPos,_opIscopes,_opIvariableStyle,_opIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _opIscopes - {-# LINE 4308 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _leftOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 4313 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _leftOisMeta -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 4318 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _leftOconfig -> - (case (({-# LINE 599 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 4323 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _leftOvarBeingDefined -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _opIvariableStyle - {-# LINE 4328 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _leftOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 4333 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _leftOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _opImtokenPos - {-# LINE 4338 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _leftOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 4343 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _leftOloopLevel -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _opIisInModule - {-# LINE 4348 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _leftOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _opIglobalDefinitions - {-# LINE 4353 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _leftOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 4358 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _leftOfuncName -> - (case (({-# LINE 598 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 4363 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _leftOtopLevel -> - (case (({-# LINE 597 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 4368 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _leftOinParentheses -> - (case (({-# LINE 596 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 4373 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _leftOisNegation -> - (case (left_1 _leftOconfig _leftOfuncName _leftOglobalDefinitions _leftOinParentheses _leftOisInModule _leftOisMeta _leftOisNegation _leftOloopLevel _leftOmtokenPos _leftOscopeLevel _leftOscopes _leftOtopLevel _leftOvarBeingDefined _leftOvariableStyle) of - { ( _leftIglobalDefinitions,_leftIidentifier,_leftIisInModule,_leftIisSimpleExpression,_leftIisSingleVar,_leftIscopes,_leftIvariableStyle,_leftIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _leftIscopes - {-# LINE 4380 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 4385 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _leftIisInModule - {-# LINE 4390 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _leftIglobalDefinitions - {-# LINE 4395 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 4400 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOconfig -> - (case (({-# LINE 603 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 4405 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOvarBeingDefined -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _leftIvariableStyle - {-# LINE 4410 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 4415 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _leftImtokenPos - {-# LINE 4420 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 4425 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 4430 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOfuncName -> - (case (({-# LINE 602 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 4435 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOtopLevel -> - (case (({-# LINE 601 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 4440 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOinParentheses -> - (case (({-# LINE 600 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 4445 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOisNegation -> - (case (right_1 _rightOconfig _rightOfuncName _rightOglobalDefinitions _rightOinParentheses _rightOisInModule _rightOisMeta _rightOisNegation _rightOloopLevel _rightOmtokenPos _rightOscopeLevel _rightOscopes _rightOtopLevel _rightOvarBeingDefined _rightOvariableStyle) of - { ( _rightIglobalDefinitions,_rightIidentifier,_rightIisInModule,_rightIisSimpleExpression,_rightIisSingleVar,_rightIscopes,_rightIvariableStyle,_rightIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _rightIglobalDefinitions - {-# LINE 4452 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _opIidentifier (const _leftIidentifier _rightIidentifier)) - {-# LINE 4457 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _rightIisInModule - {-# LINE 4462 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 595 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 4467 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const (const Nothing) _leftIisSingleVar _rightIisSingleVar) - {-# LINE 4472 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _rightImtokenPos - {-# LINE 4477 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _rightIscopes - {-# LINE 4482 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _rightIvariableStyle - {-# LINE 4487 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 607 "src/GLuaFixer/AG/ASTLint.ag" #-} - _opIwarnings ++ _leftIwarnings ++ _rightIwarnings - {-# LINE 4492 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 606 "src/GLuaFixer/AG/ASTLint.ag" #-} - oppositeBinOp _opIcopy - {-# LINE 4497 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stupidNegation -> - (case (({-# LINE 607 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_doubleNegations _lhsIconfig) || not _lhsIisNegation || isNothing _stupidNegation then id else - (:) $ warn _lhsImtokenPos $ SillyNegation$ fromMaybe (error "fromMaybe sem Expr loc.stupidNegation") _stupidNegation - {-# LINE 4503 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 607 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 4508 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Expr_BinOpExpr_1)) of - { ( sem_Expr_1) -> - ( _lhsOcopy,sem_Expr_1) }) }) }) }) }) }) -sem_Expr_UnOpExpr :: T_UnOp -> - T_MExpr -> - T_Expr -sem_Expr_UnOpExpr op_ right_ = - (case (right_) of - { ( _rightIcopy,_rightImtokenPos,right_1) -> - (case (op_) of - { ( _opIcopy,op_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - UnOpExpr _opIcopy _rightIcopy - {-# LINE 4525 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 4530 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Expr_UnOpExpr_1 :: T_Expr_1 - sem_Expr_UnOpExpr_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 4551 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 4556 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 4561 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 4566 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 4571 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOloopLevel -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 4576 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 4581 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 4586 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 4591 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 4596 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _opOconfig -> - (case (op_1 _opOconfig _opOfuncName _opOglobalDefinitions _opOisInModule _opOisMeta _opOloopLevel _opOmtokenPos _opOscopeLevel _opOscopes _opOvariableStyle) of - { ( _opIglobalDefinitions,_opIidentifier,_opIisInModule,_opIisNegation,_opImtokenPos,_opIscopes,_opIvariableStyle,_opIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _opIscopes - {-# LINE 4603 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 4608 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _opIisInModule - {-# LINE 4613 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _opIglobalDefinitions - {-# LINE 4618 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 4623 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOconfig -> - (case (({-# LINE 614 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 4628 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOvarBeingDefined -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _opIvariableStyle - {-# LINE 4633 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 4638 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _opImtokenPos - {-# LINE 4643 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 4648 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 4653 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOfuncName -> - (case (({-# LINE 613 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 4658 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOtopLevel -> - (case (({-# LINE 612 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 4663 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOinParentheses -> - (case (({-# LINE 611 "src/GLuaFixer/AG/ASTLint.ag" #-} - _opIisNegation - {-# LINE 4668 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _rightOisNegation -> - (case (right_1 _rightOconfig _rightOfuncName _rightOglobalDefinitions _rightOinParentheses _rightOisInModule _rightOisMeta _rightOisNegation _rightOloopLevel _rightOmtokenPos _rightOscopeLevel _rightOscopes _rightOtopLevel _rightOvarBeingDefined _rightOvariableStyle) of - { ( _rightIglobalDefinitions,_rightIidentifier,_rightIisInModule,_rightIisSimpleExpression,_rightIisSingleVar,_rightIscopes,_rightIvariableStyle,_rightIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _rightIglobalDefinitions - {-# LINE 4675 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _opIidentifier _rightIidentifier) - {-# LINE 4680 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _rightIisInModule - {-# LINE 4685 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 610 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 4690 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} - _rightIisSingleVar - {-# LINE 4695 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _rightImtokenPos - {-# LINE 4700 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _rightIscopes - {-# LINE 4705 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _rightIvariableStyle - {-# LINE 4710 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _opIwarnings ++ _rightIwarnings - {-# LINE 4715 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Expr_UnOpExpr_1)) of - { ( sem_Expr_1) -> - ( _lhsOcopy,sem_Expr_1) }) }) }) }) }) --- ExprSuffixList ---------------------------------------------- --- cata -sem_ExprSuffixList :: ExprSuffixList -> - T_ExprSuffixList -sem_ExprSuffixList list = - (Prelude.foldr sem_ExprSuffixList_Cons sem_ExprSuffixList_Nil (Prelude.map sem_PFExprSuffix list)) --- semantic domain -type T_ExprSuffixList = ( ExprSuffixList,T_ExprSuffixList_1) -type T_ExprSuffixList_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_ExprSuffixList = Inh_ExprSuffixList {config_Inh_ExprSuffixList :: LintSettings,funcName_Inh_ExprSuffixList :: String,globalDefinitions_Inh_ExprSuffixList :: (M.Map String [Region]),isInModule_Inh_ExprSuffixList :: Bool,isMeta_Inh_ExprSuffixList :: Bool,loopLevel_Inh_ExprSuffixList :: Int,mtokenPos_Inh_ExprSuffixList :: Region,scopeLevel_Inh_ExprSuffixList :: Int,scopes_Inh_ExprSuffixList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_ExprSuffixList :: DeterminedVariableStyle} -data Syn_ExprSuffixList = Syn_ExprSuffixList {copy_Syn_ExprSuffixList :: ExprSuffixList,globalDefinitions_Syn_ExprSuffixList :: (M.Map String [Region]),identifier_Syn_ExprSuffixList :: String,isInModule_Syn_ExprSuffixList :: Bool,isSimpleExpression_Syn_ExprSuffixList :: Bool,mtokenPos_Syn_ExprSuffixList :: Region,scopes_Syn_ExprSuffixList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_ExprSuffixList :: DeterminedVariableStyle,warnings_Syn_ExprSuffixList :: ([String -> LintMessage])} -wrap_ExprSuffixList :: T_ExprSuffixList -> - Inh_ExprSuffixList -> - Syn_ExprSuffixList -wrap_ExprSuffixList sem (Inh_ExprSuffixList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_ExprSuffixList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_ExprSuffixList_Cons :: T_PFExprSuffix -> - T_ExprSuffixList -> - T_ExprSuffixList -sem_ExprSuffixList_Cons hd_ tl_ = - (case (tl_) of - { ( _tlIcopy,tl_1) -> - (case (hd_) of - { ( _hdIcopy,hd_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 4760 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 4765 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_ExprSuffixList_Cons_1 :: T_ExprSuffixList_1 - sem_ExprSuffixList_Cons_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 4782 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 4787 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisMeta -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 4792 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 4797 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 4802 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 4807 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 4812 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOloopLevel -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 4817 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 4822 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 4827 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOfuncName -> - (case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of - { ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdIisSimpleExpression,_hdImtokenPos,_hdIscopes,_hdIvariableStyle,_hdIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIscopes - {-# LINE 4834 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 4839 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIisInModule - {-# LINE 4844 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIglobalDefinitions - {-# LINE 4849 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 4854 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIvariableStyle - {-# LINE 4859 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 4864 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdImtokenPos - {-# LINE 4869 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 4874 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 4879 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOfuncName -> - (case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of - { ( _tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlIisSimpleExpression,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIglobalDefinitions - {-# LINE 4886 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _hdIidentifier _tlIidentifier) - {-# LINE 4891 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIisInModule - {-# LINE 4896 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIisSimpleExpression && _tlIisSimpleExpression - {-# LINE 4901 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlImtokenPos - {-# LINE 4906 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIscopes - {-# LINE 4911 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIvariableStyle - {-# LINE 4916 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIwarnings ++ _tlIwarnings - {-# LINE 4921 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_ExprSuffixList_Cons_1)) of - { ( sem_ExprSuffixList_1) -> - ( _lhsOcopy,sem_ExprSuffixList_1) }) }) }) }) }) -sem_ExprSuffixList_Nil :: T_ExprSuffixList -sem_ExprSuffixList_Nil = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 4932 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 4937 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_ExprSuffixList_Nil_1 :: T_ExprSuffixList_1 - sem_ExprSuffixList_Nil_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 4954 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 4959 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 4964 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 4969 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 4974 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 4979 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 4984 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 4989 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) - in sem_ExprSuffixList_Nil_1)) of - { ( sem_ExprSuffixList_1) -> - ( _lhsOcopy,sem_ExprSuffixList_1) }) }) }) --- Field ------------------------------------------------------- --- cata -sem_Field :: Field -> - T_Field -sem_Field (ExprField _key _value _sep) = - (sem_Field_ExprField (sem_MExpr _key) (sem_MExpr _value) (sem_FieldSep _sep)) -sem_Field (NamedField _key _value _sep) = - (sem_Field_NamedField (sem_MToken _key) (sem_MExpr _value) (sem_FieldSep _sep)) -sem_Field (UnnamedField _value _sep) = - (sem_Field_UnnamedField (sem_MExpr _value) (sem_FieldSep _sep)) --- semantic domain -type T_Field = ( Field,T_Field_1) -type T_Field_1 = LintSettings -> - (S.Set Token) -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (S.Set Token),(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_Field = Inh_Field {config_Inh_Field :: LintSettings,fieldNames_Inh_Field :: (S.Set Token),funcName_Inh_Field :: String,globalDefinitions_Inh_Field :: (M.Map String [Region]),isInModule_Inh_Field :: Bool,isMeta_Inh_Field :: Bool,loopLevel_Inh_Field :: Int,mtokenPos_Inh_Field :: Region,scopeLevel_Inh_Field :: Int,scopes_Inh_Field :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Field :: DeterminedVariableStyle} -data Syn_Field = Syn_Field {copy_Syn_Field :: Field,fieldNames_Syn_Field :: (S.Set Token),globalDefinitions_Syn_Field :: (M.Map String [Region]),identifier_Syn_Field :: String,isInModule_Syn_Field :: Bool,mtokenPos_Syn_Field :: Region,scopes_Syn_Field :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Field :: DeterminedVariableStyle,warnings_Syn_Field :: ([String -> LintMessage])} -wrap_Field :: T_Field -> - Inh_Field -> - Syn_Field -wrap_Field sem (Inh_Field _lhsIconfig _lhsIfieldNames _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfieldNames _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_Field _lhsOcopy _lhsOfieldNames _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_Field_ExprField :: T_MExpr -> - T_MExpr -> - T_FieldSep -> - T_Field -sem_Field_ExprField key_ value_ sep_ = - (case (sep_) of - { ( _sepIcopy,sep_1) -> - (case (value_) of - { ( _valueIcopy,_valueImtokenPos,value_1) -> - (case (key_) of - { ( _keyIcopy,_keyImtokenPos,key_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ExprField _keyIcopy _valueIcopy _sepIcopy - {-# LINE 5042 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 5047 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Field_ExprField_1 :: T_Field_1 - sem_Field_ExprField_1 = - (\ _lhsIconfig - _lhsIfieldNames - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfieldNames - {-# LINE 5065 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOfieldNames -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 5070 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 5075 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOisMeta -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 5080 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOconfig -> - (case (({-# LINE 630 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 5085 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOvarBeingDefined -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 5090 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 5095 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 5100 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 5105 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOloopLevel -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 5110 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 5115 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 5120 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOfuncName -> - (case (({-# LINE 629 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 5125 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOtopLevel -> - (case (({-# LINE 628 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 5130 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOinParentheses -> - (case (({-# LINE 627 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 5135 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOisNegation -> - (case (key_1 _keyOconfig _keyOfuncName _keyOglobalDefinitions _keyOinParentheses _keyOisInModule _keyOisMeta _keyOisNegation _keyOloopLevel _keyOmtokenPos _keyOscopeLevel _keyOscopes _keyOtopLevel _keyOvarBeingDefined _keyOvariableStyle) of - { ( _keyIglobalDefinitions,_keyIidentifier,_keyIisInModule,_keyIisSimpleExpression,_keyIisSingleVar,_keyIscopes,_keyIvariableStyle,_keyIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _keyIscopes - {-# LINE 5142 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 5147 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _keyIisInModule - {-# LINE 5152 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _keyIglobalDefinitions - {-# LINE 5157 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 5162 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOconfig -> - (case (({-# LINE 634 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 5167 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOvarBeingDefined -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _keyIvariableStyle - {-# LINE 5172 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 5177 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _keyImtokenPos - {-# LINE 5182 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 5187 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 5192 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOfuncName -> - (case (({-# LINE 633 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 5197 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOtopLevel -> - (case (({-# LINE 632 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 5202 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOinParentheses -> - (case (({-# LINE 631 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 5207 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOisNegation -> - (case (value_1 _valueOconfig _valueOfuncName _valueOglobalDefinitions _valueOinParentheses _valueOisInModule _valueOisMeta _valueOisNegation _valueOloopLevel _valueOmtokenPos _valueOscopeLevel _valueOscopes _valueOtopLevel _valueOvarBeingDefined _valueOvariableStyle) of - { ( _valueIglobalDefinitions,_valueIidentifier,_valueIisInModule,_valueIisSimpleExpression,_valueIisSingleVar,_valueIscopes,_valueIvariableStyle,_valueIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueIglobalDefinitions - {-# LINE 5214 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOglobalDefinitions -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueIvariableStyle - {-# LINE 5219 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueIscopes - {-# LINE 5224 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOscopes -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 5229 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueImtokenPos - {-# LINE 5234 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 5239 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOloopLevel -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 5244 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueIisInModule - {-# LINE 5249 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOisInModule -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 5254 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 5259 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOconfig -> - (case (sep_1 _sepOconfig _sepOfuncName _sepOglobalDefinitions _sepOisInModule _sepOisMeta _sepOloopLevel _sepOmtokenPos _sepOscopeLevel _sepOscopes _sepOvariableStyle) of - { ( _sepIglobalDefinitions,_sepIidentifier,_sepIisInModule,_sepImtokenPos,_sepIscopes,_sepIvariableStyle,_sepIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _sepIglobalDefinitions - {-# LINE 5266 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _keyIidentifier (const _valueIidentifier _sepIidentifier)) - {-# LINE 5271 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _sepIisInModule - {-# LINE 5276 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 626 "src/GLuaFixer/AG/ASTLint.ag" #-} - _keyImtokenPos - {-# LINE 5281 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _sepIscopes - {-# LINE 5286 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _sepIvariableStyle - {-# LINE 5291 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _keyIwarnings ++ _valueIwarnings ++ _sepIwarnings - {-# LINE 5296 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Field_ExprField_1)) of - { ( sem_Field_1) -> - ( _lhsOcopy,sem_Field_1) }) }) }) }) }) }) -sem_Field_NamedField :: T_MToken -> - T_MExpr -> - T_FieldSep -> - T_Field -sem_Field_NamedField key_ value_ sep_ = - (case (sep_) of - { ( _sepIcopy,sep_1) -> - (case (value_) of - { ( _valueIcopy,_valueImtokenPos,value_1) -> - (case (key_) of - { ( _keyIcopy,_keyImtok,_keyImtokenPos,key_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - NamedField _keyIcopy _valueIcopy _sepIcopy - {-# LINE 5316 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 5321 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Field_NamedField_1 :: T_Field_1 - sem_Field_NamedField_1 = - (\ _lhsIconfig - _lhsIfieldNames - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 637 "src/GLuaFixer/AG/ASTLint.ag" #-} - S.insert _keyImtok _lhsIfieldNames - {-# LINE 5339 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOfieldNames -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 5344 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOscopes -> - (case (({-# LINE 636 "src/GLuaFixer/AG/ASTLint.ag" #-} - _keyImtokenPos - {-# LINE 5349 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _mtokenPos -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _mtokenPos - {-# LINE 5354 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOmtokenPos -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 5359 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 5364 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 5369 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 5374 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 5379 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _keyOconfig -> - (case (key_1 _keyOconfig _keyOfuncName _keyOglobalDefinitions _keyOisInModule _keyOisMeta _keyOmtokenPos _keyOscopes) of - { ( _keyIglobalDefinitions,_keyIidentifier,_keyIisInModule,_keyIscopes,_keyIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _keyIscopes - {-# LINE 5386 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 5391 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _keyIisInModule - {-# LINE 5396 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _keyIglobalDefinitions - {-# LINE 5401 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 5406 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOconfig -> - (case (({-# LINE 638 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 5411 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOvarBeingDefined -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 5416 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 5421 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _mtokenPos - {-# LINE 5426 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 5431 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 5436 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOfuncName -> - (case (({-# LINE 641 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 5441 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOtopLevel -> - (case (({-# LINE 640 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 5446 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOinParentheses -> - (case (({-# LINE 639 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 5451 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOisNegation -> - (case (value_1 _valueOconfig _valueOfuncName _valueOglobalDefinitions _valueOinParentheses _valueOisInModule _valueOisMeta _valueOisNegation _valueOloopLevel _valueOmtokenPos _valueOscopeLevel _valueOscopes _valueOtopLevel _valueOvarBeingDefined _valueOvariableStyle) of - { ( _valueIglobalDefinitions,_valueIidentifier,_valueIisInModule,_valueIisSimpleExpression,_valueIisSingleVar,_valueIscopes,_valueIvariableStyle,_valueIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueIglobalDefinitions - {-# LINE 5458 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOglobalDefinitions -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueIvariableStyle - {-# LINE 5463 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueIscopes - {-# LINE 5468 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOscopes -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 5473 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _mtokenPos - {-# LINE 5478 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 5483 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOloopLevel -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 5488 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueIisInModule - {-# LINE 5493 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOisInModule -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 5498 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 5503 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOconfig -> - (case (sep_1 _sepOconfig _sepOfuncName _sepOglobalDefinitions _sepOisInModule _sepOisMeta _sepOloopLevel _sepOmtokenPos _sepOscopeLevel _sepOscopes _sepOvariableStyle) of - { ( _sepIglobalDefinitions,_sepIidentifier,_sepIisInModule,_sepImtokenPos,_sepIscopes,_sepIvariableStyle,_sepIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _sepIglobalDefinitions - {-# LINE 5510 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _keyIidentifier (const _valueIidentifier _sepIidentifier)) - {-# LINE 5515 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _sepIisInModule - {-# LINE 5520 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _mtokenPos - {-# LINE 5525 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _sepIscopes - {-# LINE 5530 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _sepIvariableStyle - {-# LINE 5535 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 642 "src/GLuaFixer/AG/ASTLint.ag" #-} - _keyIwarnings ++ _valueIwarnings ++ _sepIwarnings - {-# LINE 5540 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 642 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_duplicateTableKeys _lhsIconfig) || not (S.member _keyImtok _lhsIfieldNames) then id else - (:) $ warn _keyImtokenPos $ DuplicateKeyInTable _keyImtok - {-# LINE 5546 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 642 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 5551 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Field_NamedField_1)) of - { ( sem_Field_1) -> - ( _lhsOcopy,sem_Field_1) }) }) }) }) }) }) -sem_Field_UnnamedField :: T_MExpr -> - T_FieldSep -> - T_Field -sem_Field_UnnamedField value_ sep_ = - (case (sep_) of - { ( _sepIcopy,sep_1) -> - (case (value_) of - { ( _valueIcopy,_valueImtokenPos,value_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - UnnamedField _valueIcopy _sepIcopy - {-# LINE 5568 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 5573 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Field_UnnamedField_1 :: T_Field_1 - sem_Field_UnnamedField_1 = - (\ _lhsIconfig - _lhsIfieldNames - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfieldNames - {-# LINE 5591 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOfieldNames -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 5596 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 5601 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 5606 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 5611 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 5616 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOconfig -> - (case (({-# LINE 648 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 5621 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOvarBeingDefined -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 5626 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 5631 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 5636 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 5641 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 5646 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOfuncName -> - (case (({-# LINE 647 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 5651 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOtopLevel -> - (case (({-# LINE 646 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 5656 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOinParentheses -> - (case (({-# LINE 645 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 5661 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valueOisNegation -> - (case (value_1 _valueOconfig _valueOfuncName _valueOglobalDefinitions _valueOinParentheses _valueOisInModule _valueOisMeta _valueOisNegation _valueOloopLevel _valueOmtokenPos _valueOscopeLevel _valueOscopes _valueOtopLevel _valueOvarBeingDefined _valueOvariableStyle) of - { ( _valueIglobalDefinitions,_valueIidentifier,_valueIisInModule,_valueIisSimpleExpression,_valueIisSingleVar,_valueIscopes,_valueIvariableStyle,_valueIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueIglobalDefinitions - {-# LINE 5668 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOglobalDefinitions -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueIvariableStyle - {-# LINE 5673 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueIscopes - {-# LINE 5678 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOscopes -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 5683 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueImtokenPos - {-# LINE 5688 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 5693 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOloopLevel -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 5698 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueIisInModule - {-# LINE 5703 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOisInModule -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 5708 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 5713 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _sepOconfig -> - (case (sep_1 _sepOconfig _sepOfuncName _sepOglobalDefinitions _sepOisInModule _sepOisMeta _sepOloopLevel _sepOmtokenPos _sepOscopeLevel _sepOscopes _sepOvariableStyle) of - { ( _sepIglobalDefinitions,_sepIidentifier,_sepIisInModule,_sepImtokenPos,_sepIscopes,_sepIvariableStyle,_sepIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _sepIglobalDefinitions - {-# LINE 5720 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _valueIidentifier _sepIidentifier) - {-# LINE 5725 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _sepIisInModule - {-# LINE 5730 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _sepImtokenPos - {-# LINE 5735 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _sepIscopes - {-# LINE 5740 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _sepIvariableStyle - {-# LINE 5745 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valueIwarnings ++ _sepIwarnings - {-# LINE 5750 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Field_UnnamedField_1)) of - { ( sem_Field_1) -> - ( _lhsOcopy,sem_Field_1) }) }) }) }) }) --- FieldList --------------------------------------------------- --- cata -sem_FieldList :: FieldList -> - T_FieldList -sem_FieldList list = - (Prelude.foldr sem_FieldList_Cons sem_FieldList_Nil (Prelude.map sem_Field list)) --- semantic domain -type T_FieldList = ( FieldList,T_FieldList_1) -type T_FieldList_1 = LintSettings -> - (S.Set Token) -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (S.Set Token),(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_FieldList = Inh_FieldList {config_Inh_FieldList :: LintSettings,fieldNames_Inh_FieldList :: (S.Set Token),funcName_Inh_FieldList :: String,globalDefinitions_Inh_FieldList :: (M.Map String [Region]),isInModule_Inh_FieldList :: Bool,isMeta_Inh_FieldList :: Bool,loopLevel_Inh_FieldList :: Int,mtokenPos_Inh_FieldList :: Region,scopeLevel_Inh_FieldList :: Int,scopes_Inh_FieldList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_FieldList :: DeterminedVariableStyle} -data Syn_FieldList = Syn_FieldList {copy_Syn_FieldList :: FieldList,fieldNames_Syn_FieldList :: (S.Set Token),globalDefinitions_Syn_FieldList :: (M.Map String [Region]),identifier_Syn_FieldList :: String,isInModule_Syn_FieldList :: Bool,mtokenPos_Syn_FieldList :: Region,scopes_Syn_FieldList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_FieldList :: DeterminedVariableStyle,warnings_Syn_FieldList :: ([String -> LintMessage])} -wrap_FieldList :: T_FieldList -> - Inh_FieldList -> - Syn_FieldList -wrap_FieldList sem (Inh_FieldList _lhsIconfig _lhsIfieldNames _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfieldNames _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_FieldList _lhsOcopy _lhsOfieldNames _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_FieldList_Cons :: T_Field -> - T_FieldList -> - T_FieldList -sem_FieldList_Cons hd_ tl_ = - (case (tl_) of - { ( _tlIcopy,tl_1) -> - (case (hd_) of - { ( _hdIcopy,hd_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 5796 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 5801 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_FieldList_Cons_1 :: T_FieldList_1 - sem_FieldList_Cons_1 = - (\ _lhsIconfig - _lhsIfieldNames - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfieldNames - {-# LINE 5819 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOfieldNames -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 5824 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 5829 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOscopes -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 5834 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 5839 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 5844 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOloopLevel -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 5849 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 5854 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 5859 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 5864 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 5869 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOconfig -> - (case (hd_1 _hdOconfig _hdOfieldNames _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of - { ( _hdIfieldNames,_hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdImtokenPos,_hdIscopes,_hdIvariableStyle,_hdIwarnings) -> - (case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIfieldNames - {-# LINE 5876 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOfieldNames -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIvariableStyle - {-# LINE 5881 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIscopes - {-# LINE 5886 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOscopes -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 5891 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdImtokenPos - {-# LINE 5896 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 5901 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOloopLevel -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 5906 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIisInModule - {-# LINE 5911 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIglobalDefinitions - {-# LINE 5916 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 5921 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 5926 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOconfig -> - (case (tl_1 _tlOconfig _tlOfieldNames _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of - { ( _tlIfieldNames,_tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) -> - (case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIfieldNames - {-# LINE 5933 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOfieldNames -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIglobalDefinitions - {-# LINE 5938 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _hdIidentifier _tlIidentifier) - {-# LINE 5943 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIisInModule - {-# LINE 5948 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdImtokenPos - {-# LINE 5953 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIscopes - {-# LINE 5958 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIvariableStyle - {-# LINE 5963 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIwarnings ++ _tlIwarnings - {-# LINE 5968 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_FieldList_Cons_1)) of - { ( sem_FieldList_1) -> - ( _lhsOcopy,sem_FieldList_1) }) }) }) }) }) -sem_FieldList_Nil :: T_FieldList -sem_FieldList_Nil = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 5979 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 5984 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_FieldList_Nil_1 :: T_FieldList_1 - sem_FieldList_Nil_1 = - (\ _lhsIconfig - _lhsIfieldNames - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfieldNames - {-# LINE 6002 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOfieldNames -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 6007 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 6012 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 6017 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 6022 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 6027 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 6032 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 6037 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) - in sem_FieldList_Nil_1)) of - { ( sem_FieldList_1) -> - ( _lhsOcopy,sem_FieldList_1) }) }) }) --- FieldSep ---------------------------------------------------- --- cata -sem_FieldSep :: FieldSep -> - T_FieldSep -sem_FieldSep (CommaSep) = - (sem_FieldSep_CommaSep) -sem_FieldSep (SemicolonSep) = - (sem_FieldSep_SemicolonSep) -sem_FieldSep (NoSep) = - (sem_FieldSep_NoSep) --- semantic domain -type T_FieldSep = ( FieldSep,T_FieldSep_1) -type T_FieldSep_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_FieldSep = Inh_FieldSep {config_Inh_FieldSep :: LintSettings,funcName_Inh_FieldSep :: String,globalDefinitions_Inh_FieldSep :: (M.Map String [Region]),isInModule_Inh_FieldSep :: Bool,isMeta_Inh_FieldSep :: Bool,loopLevel_Inh_FieldSep :: Int,mtokenPos_Inh_FieldSep :: Region,scopeLevel_Inh_FieldSep :: Int,scopes_Inh_FieldSep :: ([M.Map String (Bool, Region)]),variableStyle_Inh_FieldSep :: DeterminedVariableStyle} -data Syn_FieldSep = Syn_FieldSep {copy_Syn_FieldSep :: FieldSep,globalDefinitions_Syn_FieldSep :: (M.Map String [Region]),identifier_Syn_FieldSep :: String,isInModule_Syn_FieldSep :: Bool,mtokenPos_Syn_FieldSep :: Region,scopes_Syn_FieldSep :: ([M.Map String (Bool, Region)]),variableStyle_Syn_FieldSep :: DeterminedVariableStyle,warnings_Syn_FieldSep :: ([String -> LintMessage])} -wrap_FieldSep :: T_FieldSep -> - Inh_FieldSep -> - Syn_FieldSep -wrap_FieldSep sem (Inh_FieldSep _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_FieldSep _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_FieldSep_CommaSep :: T_FieldSep -sem_FieldSep_CommaSep = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - CommaSep - {-# LINE 6080 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 6085 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_FieldSep_CommaSep_1 :: T_FieldSep_1 - sem_FieldSep_CommaSep_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 6102 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 6107 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 6112 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 6117 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 6122 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 6127 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 6132 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_FieldSep_CommaSep_1)) of - { ( sem_FieldSep_1) -> - ( _lhsOcopy,sem_FieldSep_1) }) }) }) -sem_FieldSep_SemicolonSep :: T_FieldSep -sem_FieldSep_SemicolonSep = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - SemicolonSep - {-# LINE 6143 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 6148 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_FieldSep_SemicolonSep_1 :: T_FieldSep_1 - sem_FieldSep_SemicolonSep_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 6165 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 6170 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 6175 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 6180 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 6185 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 6190 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 6195 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_FieldSep_SemicolonSep_1)) of - { ( sem_FieldSep_1) -> - ( _lhsOcopy,sem_FieldSep_1) }) }) }) -sem_FieldSep_NoSep :: T_FieldSep -sem_FieldSep_NoSep = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - NoSep - {-# LINE 6206 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 6211 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_FieldSep_NoSep_1 :: T_FieldSep_1 - sem_FieldSep_NoSep_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 6228 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 6233 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 6238 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 6243 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 6248 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 6253 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 6258 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_FieldSep_NoSep_1)) of - { ( sem_FieldSep_1) -> - ( _lhsOcopy,sem_FieldSep_1) }) }) }) --- FuncName ---------------------------------------------------- --- cata -sem_FuncName :: FuncName -> - T_FuncName -sem_FuncName (FuncName _names _meta) = - (sem_FuncName_FuncName _names _meta) --- semantic domain -type T_FuncName = ( FuncName,Bool,T_FuncName_1) -type T_FuncName_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),Bool,String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_FuncName = Inh_FuncName {config_Inh_FuncName :: LintSettings,funcName_Inh_FuncName :: String,globalDefinitions_Inh_FuncName :: (M.Map String [Region]),isInModule_Inh_FuncName :: Bool,isMeta_Inh_FuncName :: Bool,loopLevel_Inh_FuncName :: Int,mtokenPos_Inh_FuncName :: Region,scopeLevel_Inh_FuncName :: Int,scopes_Inh_FuncName :: ([M.Map String (Bool, Region)]),variableStyle_Inh_FuncName :: DeterminedVariableStyle} -data Syn_FuncName = Syn_FuncName {copy_Syn_FuncName :: FuncName,globalDefinitions_Syn_FuncName :: (M.Map String [Region]),hasSuffixes_Syn_FuncName :: Bool,identifier_Syn_FuncName :: String,isInModule_Syn_FuncName :: Bool,isMeta_Syn_FuncName :: Bool,mtokenPos_Syn_FuncName :: Region,scopes_Syn_FuncName :: ([M.Map String (Bool, Region)]),variableStyle_Syn_FuncName :: DeterminedVariableStyle,warnings_Syn_FuncName :: ([String -> LintMessage])} -wrap_FuncName :: T_FuncName -> - Inh_FuncName -> - Syn_FuncName -wrap_FuncName sem (Inh_FuncName _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,_lhsOisMeta,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOhasSuffixes,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_FuncName _lhsOcopy _lhsOglobalDefinitions _lhsOhasSuffixes _lhsOidentifier _lhsOisInModule _lhsOisMeta _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_FuncName_FuncName :: ([MToken]) -> - (Maybe MToken) -> - T_FuncName -sem_FuncName_FuncName names_ meta_ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - FuncName names_ meta_ - {-# LINE 6299 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 6304 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 514 "src/GLuaFixer/AG/ASTLint.ag" #-} - isJust meta_ - {-# LINE 6309 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisMeta -> - (case ((let sem_FuncName_FuncName_1 :: T_FuncName_1 - sem_FuncName_FuncName_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 6326 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 515 "src/GLuaFixer/AG/ASTLint.ag" #-} - length names_ > 1 - {-# LINE 6331 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOhasSuffixes -> - (case (({-# LINE 513 "src/GLuaFixer/AG/ASTLint.ag" #-} - tokenLabel . head $ names_ - {-# LINE 6336 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 6341 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 512 "src/GLuaFixer/AG/ASTLint.ag" #-} - mpos (head names_) - {-# LINE 6346 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 6351 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 6356 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 6361 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOhasSuffixes,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) - in sem_FuncName_FuncName_1)) of - { ( sem_FuncName_1) -> - ( _lhsOcopy,_lhsOisMeta,sem_FuncName_1) }) }) }) }) --- MElse ------------------------------------------------------- --- cata -sem_MElse :: MElse -> - T_MElse -sem_MElse (MElse _pos _body) = - (sem_MElse_MElse _pos (sem_Block _body)) --- semantic domain -type T_MElse = ( MElse,T_MElse_1) -type T_MElse_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( Bool,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage])) -data Inh_MElse = Inh_MElse {config_Inh_MElse :: LintSettings,funcName_Inh_MElse :: String,globalDefinitions_Inh_MElse :: (M.Map String [Region]),isInModule_Inh_MElse :: Bool,isMeta_Inh_MElse :: Bool,loopLevel_Inh_MElse :: Int,mtokenPos_Inh_MElse :: Region,scopeLevel_Inh_MElse :: Int,scopes_Inh_MElse :: ([M.Map String (Bool, Region)]),variableStyle_Inh_MElse :: DeterminedVariableStyle} -data Syn_MElse = Syn_MElse {copy_Syn_MElse :: MElse,elseExists_Syn_MElse :: Bool,globalDefinitions_Syn_MElse :: (M.Map String [Region]),identifier_Syn_MElse :: String,isInModule_Syn_MElse :: Bool,mtokenPos_Syn_MElse :: Region,scopes_Syn_MElse :: ([M.Map String (Bool, Region)]),statementCount_Syn_MElse :: Int,variableStyle_Syn_MElse :: DeterminedVariableStyle,warnings_Syn_MElse :: ([String -> LintMessage])} -wrap_MElse :: T_MElse -> - Inh_MElse -> - Syn_MElse -wrap_MElse sem (Inh_MElse _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_MElse _lhsOcopy _lhsOelseExists _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings)) -sem_MElse_MElse :: Region -> - T_Block -> - T_MElse -sem_MElse_MElse pos_ body_ = - (case (body_) of - { ( _bodyIcopy,body_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - MElse pos_ _bodyIcopy - {-# LINE 6404 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 6409 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_MElse_MElse_1 :: T_MElse_1 - sem_MElse_MElse_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 203 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 6426 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOelseExists -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 6431 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 6436 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 6441 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 6446 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 6451 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 6456 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 6461 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 6466 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 6471 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 6476 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOfuncName -> - (case (({-# LINE 492 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 6481 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisRepeat -> - (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of - { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIglobalDefinitions - {-# LINE 6488 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIidentifier - {-# LINE 6493 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIisInModule - {-# LINE 6498 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 493 "src/GLuaFixer/AG/ASTLint.ag" #-} - pos_ - {-# LINE 6503 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIscopes - {-# LINE 6508 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIstatementCount - {-# LINE 6513 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOstatementCount -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIvariableStyle - {-# LINE 6518 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIwarnings - {-# LINE 6523 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_MElse_MElse_1)) of - { ( sem_MElse_1) -> - ( _lhsOcopy,sem_MElse_1) }) }) }) }) --- MElseIf ----------------------------------------------------- --- cata -sem_MElseIf :: MElseIf -> - T_MElseIf -sem_MElseIf (MElseIf _pos _elif) = - (sem_MElseIf_MElseIf _pos (sem_ElseIf _elif)) --- semantic domain -type T_MElseIf = ( MElseIf,T_MElseIf_1) -type T_MElseIf_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_MElseIf = Inh_MElseIf {config_Inh_MElseIf :: LintSettings,funcName_Inh_MElseIf :: String,globalDefinitions_Inh_MElseIf :: (M.Map String [Region]),isInModule_Inh_MElseIf :: Bool,isMeta_Inh_MElseIf :: Bool,loopLevel_Inh_MElseIf :: Int,mtokenPos_Inh_MElseIf :: Region,scopeLevel_Inh_MElseIf :: Int,scopes_Inh_MElseIf :: ([M.Map String (Bool, Region)]),variableStyle_Inh_MElseIf :: DeterminedVariableStyle} -data Syn_MElseIf = Syn_MElseIf {copy_Syn_MElseIf :: MElseIf,globalDefinitions_Syn_MElseIf :: (M.Map String [Region]),identifier_Syn_MElseIf :: String,isInModule_Syn_MElseIf :: Bool,mtokenPos_Syn_MElseIf :: Region,scopes_Syn_MElseIf :: ([M.Map String (Bool, Region)]),variableStyle_Syn_MElseIf :: DeterminedVariableStyle,warnings_Syn_MElseIf :: ([String -> LintMessage])} -wrap_MElseIf :: T_MElseIf -> - Inh_MElseIf -> - Syn_MElseIf -wrap_MElseIf sem (Inh_MElseIf _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_MElseIf _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_MElseIf_MElseIf :: Region -> - T_ElseIf -> - T_MElseIf -sem_MElseIf_MElseIf pos_ elif_ = - (case (elif_) of - { ( _elifIcopy,elif_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - MElseIf pos_ _elifIcopy - {-# LINE 6566 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 6571 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_MElseIf_MElseIf_1 :: T_MElseIf_1 - sem_MElseIf_MElseIf_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 6588 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 6593 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 6598 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 6603 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 6608 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 6613 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 6618 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifOscopeLevel -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 6623 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 6628 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifOfuncName -> - (case (({-# LINE 476 "src/GLuaFixer/AG/ASTLint.ag" #-} - pos_ - {-# LINE 6633 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifOmtokenPos -> - (case (elif_1 _elifOconfig _elifOfuncName _elifOglobalDefinitions _elifOisInModule _elifOisMeta _elifOloopLevel _elifOmtokenPos _elifOscopeLevel _elifOscopes _elifOvariableStyle) of - { ( _elifIglobalDefinitions,_elifIidentifier,_elifIisInModule,_elifImtokenPos,_elifIscopes,_elifIvariableStyle,_elifIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elifIglobalDefinitions - {-# LINE 6640 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elifIidentifier - {-# LINE 6645 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elifIisInModule - {-# LINE 6650 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 477 "src/GLuaFixer/AG/ASTLint.ag" #-} - pos_ - {-# LINE 6655 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elifIscopes - {-# LINE 6660 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elifIvariableStyle - {-# LINE 6665 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elifIwarnings - {-# LINE 6670 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_MElseIf_MElseIf_1)) of - { ( sem_MElseIf_1) -> - ( _lhsOcopy,sem_MElseIf_1) }) }) }) }) --- MExpr ------------------------------------------------------- --- cata -sem_MExpr :: MExpr -> - T_MExpr -sem_MExpr (MExpr _pos _expr) = - (sem_MExpr_MExpr _pos (sem_Expr _expr)) --- semantic domain -type T_MExpr = ( MExpr,Region,T_MExpr_1) -type T_MExpr_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - Bool -> - (Maybe MToken) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Bool,(Maybe MToken),([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_MExpr = Inh_MExpr {config_Inh_MExpr :: LintSettings,funcName_Inh_MExpr :: String,globalDefinitions_Inh_MExpr :: (M.Map String [Region]),inParentheses_Inh_MExpr :: Bool,isInModule_Inh_MExpr :: Bool,isMeta_Inh_MExpr :: Bool,isNegation_Inh_MExpr :: Bool,loopLevel_Inh_MExpr :: Int,mtokenPos_Inh_MExpr :: Region,scopeLevel_Inh_MExpr :: Int,scopes_Inh_MExpr :: ([M.Map String (Bool, Region)]),topLevel_Inh_MExpr :: Bool,varBeingDefined_Inh_MExpr :: (Maybe MToken),variableStyle_Inh_MExpr :: DeterminedVariableStyle} -data Syn_MExpr = Syn_MExpr {copy_Syn_MExpr :: MExpr,globalDefinitions_Syn_MExpr :: (M.Map String [Region]),identifier_Syn_MExpr :: String,isInModule_Syn_MExpr :: Bool,isSimpleExpression_Syn_MExpr :: Bool,isSingleVar_Syn_MExpr :: (Maybe MToken),mtokenPos_Syn_MExpr :: Region,scopes_Syn_MExpr :: ([M.Map String (Bool, Region)]),variableStyle_Syn_MExpr :: DeterminedVariableStyle,warnings_Syn_MExpr :: ([String -> LintMessage])} -wrap_MExpr :: T_MExpr -> - Inh_MExpr -> - Syn_MExpr -wrap_MExpr sem (Inh_MExpr _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle) = - (let ( _lhsOcopy,_lhsOmtokenPos,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle - in (Syn_MExpr _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOisSingleVar _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_MExpr_MExpr :: Region -> - T_Expr -> - T_MExpr -sem_MExpr_MExpr pos_ expr_ = - (case (expr_) of - { ( _exprIcopy,expr_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - MExpr pos_ _exprIcopy - {-# LINE 6717 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 6722 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 570 "src/GLuaFixer/AG/ASTLint.ag" #-} - pos_ - {-# LINE 6727 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case ((let sem_MExpr_MExpr_1 :: T_MExpr_1 - sem_MExpr_MExpr_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 179 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvarBeingDefined - {-# LINE 6748 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOvarBeingDefined -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 6753 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 6758 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 6763 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 6768 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 6773 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 6778 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOvariableStyle -> - (case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsItopLevel - {-# LINE 6783 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOtopLevel -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 6788 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOscopeLevel -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 6793 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOloopLevel -> - (case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisNegation - {-# LINE 6798 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOisNegation -> - (case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIinParentheses - {-# LINE 6803 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOinParentheses -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 6808 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOfuncName -> - (case (({-# LINE 571 "src/GLuaFixer/AG/ASTLint.ag" #-} - pos_ - {-# LINE 6813 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOmtokenPos -> - (case (expr_1 _exprOconfig _exprOfuncName _exprOglobalDefinitions _exprOinParentheses _exprOisInModule _exprOisMeta _exprOisNegation _exprOloopLevel _exprOmtokenPos _exprOscopeLevel _exprOscopes _exprOtopLevel _exprOvarBeingDefined _exprOvariableStyle) of - { ( _exprIglobalDefinitions,_exprIidentifier,_exprIisInModule,_exprIisSimpleExpression,_exprIisSingleVar,_exprImtokenPos,_exprIscopes,_exprIvariableStyle,_exprIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprIglobalDefinitions - {-# LINE 6820 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprIidentifier - {-# LINE 6825 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprIisInModule - {-# LINE 6830 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprIisSimpleExpression - {-# LINE 6835 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprIisSingleVar - {-# LINE 6840 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprIscopes - {-# LINE 6845 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprIvariableStyle - {-# LINE 6850 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprIwarnings - {-# LINE 6855 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_MExpr_MExpr_1)) of - { ( sem_MExpr_1) -> - ( _lhsOcopy,_lhsOmtokenPos,sem_MExpr_1) }) }) }) }) }) --- MExprList --------------------------------------------------- --- cata -sem_MExprList :: MExprList -> - T_MExprList -sem_MExprList list = - (Prelude.foldr sem_MExprList_Cons sem_MExprList_Nil (Prelude.map sem_MExpr list)) --- semantic domain -type T_MExprList = ( MExprList,T_MExprList_1) -type T_MExprList_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - Bool -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_MExprList = Inh_MExprList {config_Inh_MExprList :: LintSettings,funcName_Inh_MExprList :: String,globalDefinitions_Inh_MExprList :: (M.Map String [Region]),inParentheses_Inh_MExprList :: Bool,isInModule_Inh_MExprList :: Bool,isMeta_Inh_MExprList :: Bool,loopLevel_Inh_MExprList :: Int,mtokenPos_Inh_MExprList :: Region,scopeLevel_Inh_MExprList :: Int,scopes_Inh_MExprList :: ([M.Map String (Bool, Region)]),topLevel_Inh_MExprList :: Bool,variableStyle_Inh_MExprList :: DeterminedVariableStyle} -data Syn_MExprList = Syn_MExprList {copy_Syn_MExprList :: MExprList,globalDefinitions_Syn_MExprList :: (M.Map String [Region]),identifier_Syn_MExprList :: String,isInModule_Syn_MExprList :: Bool,mtokenPos_Syn_MExprList :: Region,scopes_Syn_MExprList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_MExprList :: DeterminedVariableStyle,warnings_Syn_MExprList :: ([String -> LintMessage])} -wrap_MExprList :: T_MExprList -> - Inh_MExprList -> - Syn_MExprList -wrap_MExprList sem (Inh_MExprList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvariableStyle - in (Syn_MExprList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_MExprList_Cons :: T_MExpr -> - T_MExprList -> - T_MExprList -sem_MExprList_Cons hd_ tl_ = - (case (tl_) of - { ( _tlIcopy,tl_1) -> - (case (hd_) of - { ( _hdIcopy,_hdImtokenPos,hd_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 6902 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 6907 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_MExprList_Cons_1 :: T_MExprList_1 - sem_MExprList_Cons_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 6926 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 6931 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisMeta -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 6936 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOconfig -> - (case (({-# LINE 246 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 6941 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOvarBeingDefined -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 6946 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOvariableStyle -> - (case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsItopLevel - {-# LINE 6951 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOtopLevel -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 6956 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 6961 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 6966 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOloopLevel -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 6971 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisInModule -> - (case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIinParentheses - {-# LINE 6976 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOinParentheses -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 6981 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 6986 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOfuncName -> - (case (({-# LINE 245 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 6991 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisNegation -> - (case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOinParentheses _hdOisInModule _hdOisMeta _hdOisNegation _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOtopLevel _hdOvarBeingDefined _hdOvariableStyle) of - { ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdIisSimpleExpression,_hdIisSingleVar,_hdIscopes,_hdIvariableStyle,_hdIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIscopes - {-# LINE 6998 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 7003 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIisInModule - {-# LINE 7008 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIglobalDefinitions - {-# LINE 7013 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 7018 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIvariableStyle - {-# LINE 7023 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOvariableStyle -> - (case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsItopLevel - {-# LINE 7028 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOtopLevel -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 7033 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdImtokenPos - {-# LINE 7038 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 7043 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOloopLevel -> - (case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIinParentheses - {-# LINE 7048 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOinParentheses -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 7053 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOfuncName -> - (case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOinParentheses _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOtopLevel _tlOvariableStyle) of - { ( _tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIglobalDefinitions - {-# LINE 7060 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _hdIidentifier _tlIidentifier) - {-# LINE 7065 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIisInModule - {-# LINE 7070 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdImtokenPos - {-# LINE 7075 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIscopes - {-# LINE 7080 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIvariableStyle - {-# LINE 7085 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIwarnings ++ _tlIwarnings - {-# LINE 7090 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_MExprList_Cons_1)) of - { ( sem_MExprList_1) -> - ( _lhsOcopy,sem_MExprList_1) }) }) }) }) }) -sem_MExprList_Nil :: T_MExprList -sem_MExprList_Nil = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 7101 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 7106 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_MExprList_Nil_1 :: T_MExprList_1 - sem_MExprList_Nil_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 7125 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 7130 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 7135 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 7140 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 7145 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 7150 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 7155 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_MExprList_Nil_1)) of - { ( sem_MExprList_1) -> - ( _lhsOcopy,sem_MExprList_1) }) }) }) --- MStat ------------------------------------------------------- --- cata -sem_MStat :: MStat -> - T_MStat -sem_MStat (MStat _pos _stat) = - (sem_MStat_MStat _pos (sem_Stat _stat)) --- semantic domain -type T_MStat = ( MStat,T_MStat_1) -type T_MStat_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage])) -data Inh_MStat = Inh_MStat {config_Inh_MStat :: LintSettings,funcName_Inh_MStat :: String,globalDefinitions_Inh_MStat :: (M.Map String [Region]),isInModule_Inh_MStat :: Bool,isMeta_Inh_MStat :: Bool,loopLevel_Inh_MStat :: Int,mtokenPos_Inh_MStat :: Region,scopeLevel_Inh_MStat :: Int,scopes_Inh_MStat :: ([M.Map String (Bool, Region)]),variableStyle_Inh_MStat :: DeterminedVariableStyle} -data Syn_MStat = Syn_MStat {copy_Syn_MStat :: MStat,globalDefinitions_Syn_MStat :: (M.Map String [Region]),identifier_Syn_MStat :: String,isIfStatement_Syn_MStat :: Bool,isInModule_Syn_MStat :: Bool,mtokenPos_Syn_MStat :: Region,scopes_Syn_MStat :: ([M.Map String (Bool, Region)]),statementCount_Syn_MStat :: Int,variableStyle_Syn_MStat :: DeterminedVariableStyle,warnings_Syn_MStat :: ([String -> LintMessage])} -wrap_MStat :: T_MStat -> - Inh_MStat -> - Syn_MStat -wrap_MStat sem (Inh_MStat _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_MStat _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisIfStatement _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings)) -sem_MStat_MStat :: Region -> - T_Stat -> - T_MStat -sem_MStat_MStat pos_ stat_ = - (case (stat_) of - { ( _statIcopy,stat_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - MStat pos_ _statIcopy - {-# LINE 7198 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 7203 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_MStat_MStat_1 :: T_MStat_1 - sem_MStat_MStat_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 7220 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 7225 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 7230 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 7235 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 7240 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 7245 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 7250 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statOscopeLevel -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 7255 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 7260 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statOfuncName -> - (case (({-# LINE 310 "src/GLuaFixer/AG/ASTLint.ag" #-} - pos_ - {-# LINE 7265 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _statOmtokenPos -> - (case (stat_1 _statOconfig _statOfuncName _statOglobalDefinitions _statOisInModule _statOisMeta _statOloopLevel _statOmtokenPos _statOscopeLevel _statOscopes _statOvariableStyle) of - { ( _statIglobalDefinitions,_statIidentifier,_statIisIfStatement,_statIisInModule,_statImtokenPos,_statIscopes,_statIvariableStyle,_statIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statIglobalDefinitions - {-# LINE 7272 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statIidentifier - {-# LINE 7277 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statIisIfStatement - {-# LINE 7282 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statIisInModule - {-# LINE 7287 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 309 "src/GLuaFixer/AG/ASTLint.ag" #-} - pos_ - {-# LINE 7292 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statIscopes - {-# LINE 7297 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-} - 1 - {-# LINE 7302 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOstatementCount -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statIvariableStyle - {-# LINE 7307 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _statIwarnings - {-# LINE 7312 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_MStat_MStat_1)) of - { ( sem_MStat_1) -> - ( _lhsOcopy,sem_MStat_1) }) }) }) }) --- MStatList --------------------------------------------------- --- cata -sem_MStatList :: MStatList -> - T_MStatList -sem_MStatList list = - (Prelude.foldr sem_MStatList_Cons sem_MStatList_Nil (Prelude.map sem_MStat list)) --- semantic domain -type T_MStatList = ( MStatList,T_MStatList_1) -type T_MStatList_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage])) -data Inh_MStatList = Inh_MStatList {config_Inh_MStatList :: LintSettings,funcName_Inh_MStatList :: String,globalDefinitions_Inh_MStatList :: (M.Map String [Region]),isInModule_Inh_MStatList :: Bool,isMeta_Inh_MStatList :: Bool,loopLevel_Inh_MStatList :: Int,mtokenPos_Inh_MStatList :: Region,scopeLevel_Inh_MStatList :: Int,scopes_Inh_MStatList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_MStatList :: DeterminedVariableStyle} -data Syn_MStatList = Syn_MStatList {copy_Syn_MStatList :: MStatList,globalDefinitions_Syn_MStatList :: (M.Map String [Region]),identifier_Syn_MStatList :: String,isIfStatement_Syn_MStatList :: Bool,isInModule_Syn_MStatList :: Bool,mtokenPos_Syn_MStatList :: Region,scopes_Syn_MStatList :: ([M.Map String (Bool, Region)]),statementCount_Syn_MStatList :: Int,variableStyle_Syn_MStatList :: DeterminedVariableStyle,warnings_Syn_MStatList :: ([String -> LintMessage])} -wrap_MStatList :: T_MStatList -> - Inh_MStatList -> - Syn_MStatList -wrap_MStatList sem (Inh_MStatList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_MStatList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisIfStatement _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings)) -sem_MStatList_Cons :: T_MStat -> - T_MStatList -> - T_MStatList -sem_MStatList_Cons hd_ tl_ = - (case (tl_) of - { ( _tlIcopy,tl_1) -> - (case (hd_) of - { ( _hdIcopy,hd_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 7357 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 7362 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_MStatList_Cons_1 :: T_MStatList_1 - sem_MStatList_Cons_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 7379 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 7384 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisMeta -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 7389 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 7394 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 7399 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 7404 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 7409 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOloopLevel -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 7414 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 7419 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 7424 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOfuncName -> - (case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of - { ( _hdIglobalDefinitions,_hdIidentifier,_hdIisIfStatement,_hdIisInModule,_hdImtokenPos,_hdIscopes,_hdIstatementCount,_hdIvariableStyle,_hdIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIscopes - {-# LINE 7431 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 7436 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIisInModule - {-# LINE 7441 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIglobalDefinitions - {-# LINE 7446 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 7451 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIvariableStyle - {-# LINE 7456 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 7461 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdImtokenPos - {-# LINE 7466 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 7471 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 7476 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOfuncName -> - (case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of - { ( _tlIglobalDefinitions,_tlIidentifier,_tlIisIfStatement,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIstatementCount,_tlIvariableStyle,_tlIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIglobalDefinitions - {-# LINE 7483 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _hdIidentifier _tlIidentifier) - {-# LINE 7488 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIisIfStatement || _tlIisIfStatement - {-# LINE 7493 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIisInModule - {-# LINE 7498 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdImtokenPos - {-# LINE 7503 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIscopes - {-# LINE 7508 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIstatementCount + _tlIstatementCount - {-# LINE 7513 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOstatementCount -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIvariableStyle - {-# LINE 7518 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIwarnings ++ _tlIwarnings - {-# LINE 7523 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_MStatList_Cons_1)) of - { ( sem_MStatList_1) -> - ( _lhsOcopy,sem_MStatList_1) }) }) }) }) }) -sem_MStatList_Nil :: T_MStatList -sem_MStatList_Nil = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 7534 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 7539 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_MStatList_Nil_1 :: T_MStatList_1 - sem_MStatList_Nil_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 7556 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 7561 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 7566 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 7571 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 7576 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 7581 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 241 "src/GLuaFixer/AG/ASTLint.ag" #-} - 0 - {-# LINE 7586 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOstatementCount -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 7591 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 7596 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) })) - in sem_MStatList_Nil_1)) of - { ( sem_MStatList_1) -> - ( _lhsOcopy,sem_MStatList_1) }) }) }) --- MToken ------------------------------------------------------ --- cata -sem_MToken :: MToken -> - T_MToken -sem_MToken (MToken _mpos _mtok) = - (sem_MToken_MToken _mpos (sem_Token _mtok)) --- semantic domain -type T_MToken = ( MToken,Token,Region,T_MToken_1) -type T_MToken_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Region -> - ([M.Map String (Bool, Region)]) -> - ( (M.Map String [Region]),String,Bool,([M.Map String (Bool, Region)]),([String -> LintMessage])) -data Inh_MToken = Inh_MToken {config_Inh_MToken :: LintSettings,funcName_Inh_MToken :: String,globalDefinitions_Inh_MToken :: (M.Map String [Region]),isInModule_Inh_MToken :: Bool,isMeta_Inh_MToken :: Bool,mtokenPos_Inh_MToken :: Region,scopes_Inh_MToken :: ([M.Map String (Bool, Region)])} -data Syn_MToken = Syn_MToken {copy_Syn_MToken :: MToken,globalDefinitions_Syn_MToken :: (M.Map String [Region]),identifier_Syn_MToken :: String,isInModule_Syn_MToken :: Bool,mtok_Syn_MToken :: Token,mtokenPos_Syn_MToken :: Region,scopes_Syn_MToken :: ([M.Map String (Bool, Region)]),warnings_Syn_MToken :: ([String -> LintMessage])} -wrap_MToken :: T_MToken -> - Inh_MToken -> - Syn_MToken -wrap_MToken sem (Inh_MToken _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsImtokenPos _lhsIscopes) = - (let ( _lhsOcopy,_lhsOmtok,_lhsOmtokenPos,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOscopes,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsImtokenPos _lhsIscopes - in (Syn_MToken _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtok _lhsOmtokenPos _lhsOscopes _lhsOwarnings)) -sem_MToken_MToken :: Region -> - T_Token -> - T_MToken -sem_MToken_MToken mpos_ mtok_ = - (case (mtok_) of - { ( _mtokIcopy,_mtokIidentifier,_mtokIwarnings) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - MToken mpos_ _mtokIcopy - {-# LINE 7636 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 7641 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 228 "src/GLuaFixer/AG/ASTLint.ag" #-} - _mtokIcopy - {-# LINE 7646 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtok -> - (case (({-# LINE 227 "src/GLuaFixer/AG/ASTLint.ag" #-} - mpos_ - {-# LINE 7651 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case ((let sem_MToken_MToken_1 :: T_MToken_1 - sem_MToken_MToken_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsImtokenPos - _lhsIscopes -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 7665 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 229 "src/GLuaFixer/AG/ASTLint.ag" #-} - _mtokIidentifier - {-# LINE 7670 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 7675 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 7680 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 230 "src/GLuaFixer/AG/ASTLint.ag" #-} - _mtokIwarnings - {-# LINE 7685 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 230 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_goto_identifier _lhsIconfig) || _mtokIidentifier /= "goto" then id else - (:) $ warn mpos_ GotoAsIdentifier - {-# LINE 7691 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 230 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 7696 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOscopes,_lhsOwarnings) }) }) }) }) }) }) })) - in sem_MToken_MToken_1)) of - { ( sem_MToken_1) -> - ( _lhsOcopy,_lhsOmtok,_lhsOmtokenPos,sem_MToken_1) }) }) }) }) }) }) --- MTokenList -------------------------------------------------- --- cata -sem_MTokenList :: MTokenList -> - T_MTokenList -sem_MTokenList list = - (Prelude.foldr sem_MTokenList_Cons sem_MTokenList_Nil (Prelude.map sem_MToken list)) --- semantic domain -type T_MTokenList = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Region -> - ([M.Map String (Bool, Region)]) -> - ( MTokenList,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),([String -> LintMessage])) -data Inh_MTokenList = Inh_MTokenList {config_Inh_MTokenList :: LintSettings,funcName_Inh_MTokenList :: String,globalDefinitions_Inh_MTokenList :: (M.Map String [Region]),isInModule_Inh_MTokenList :: Bool,isMeta_Inh_MTokenList :: Bool,mtokenPos_Inh_MTokenList :: Region,scopes_Inh_MTokenList :: ([M.Map String (Bool, Region)])} -data Syn_MTokenList = Syn_MTokenList {copy_Syn_MTokenList :: MTokenList,globalDefinitions_Syn_MTokenList :: (M.Map String [Region]),identifier_Syn_MTokenList :: String,isInModule_Syn_MTokenList :: Bool,mtokenPos_Syn_MTokenList :: Region,scopes_Syn_MTokenList :: ([M.Map String (Bool, Region)]),warnings_Syn_MTokenList :: ([String -> LintMessage])} -wrap_MTokenList :: T_MTokenList -> - Inh_MTokenList -> - Syn_MTokenList -wrap_MTokenList sem (Inh_MTokenList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsImtokenPos _lhsIscopes) = - (let ( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOwarnings) = sem _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsImtokenPos _lhsIscopes - in (Syn_MTokenList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOwarnings)) -sem_MTokenList_Cons :: T_MToken -> - T_MTokenList -> - T_MTokenList -sem_MTokenList_Cons hd_ tl_ = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsImtokenPos - _lhsIscopes -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 7739 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOscopes -> - (case (hd_) of - { ( _hdIcopy,_hdImtok,_hdImtokenPos,hd_1) -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 7746 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOmtokenPos -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 7751 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 7756 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 7761 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 7766 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 7771 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOconfig -> - (case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOmtokenPos _hdOscopes) of - { ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdIscopes,_hdIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIscopes - {-# LINE 7778 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOscopes -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdImtokenPos - {-# LINE 7783 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOmtokenPos -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 7788 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIisInModule - {-# LINE 7793 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIglobalDefinitions - {-# LINE 7798 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 7803 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 7808 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOconfig -> - (case (tl_ _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOmtokenPos _tlOscopes) of - { ( _tlIcopy,_tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIwarnings) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 7815 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 7820 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIglobalDefinitions - {-# LINE 7825 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _hdIidentifier _tlIidentifier) - {-# LINE 7830 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIisInModule - {-# LINE 7835 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdImtokenPos - {-# LINE 7840 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIscopes - {-# LINE 7845 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIwarnings ++ _tlIwarnings - {-# LINE 7850 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) -sem_MTokenList_Nil :: T_MTokenList -sem_MTokenList_Nil = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsImtokenPos - _lhsIscopes -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 7865 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 7870 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 7875 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 7880 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 7885 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 7890 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 7895 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 7900 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOwarnings) }) }) }) }) }) }) }) })) --- MaybeMExpr -------------------------------------------------- --- cata -sem_MaybeMExpr :: MaybeMExpr -> - T_MaybeMExpr -sem_MaybeMExpr (Prelude.Just x) = - (sem_MaybeMExpr_Just (sem_MExpr x)) -sem_MaybeMExpr Prelude.Nothing = - sem_MaybeMExpr_Nothing --- semantic domain -type T_MaybeMExpr = ( MaybeMExpr,T_MaybeMExpr_1) -type T_MaybeMExpr_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - (Maybe MToken) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,(Maybe MToken),Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_MaybeMExpr = Inh_MaybeMExpr {config_Inh_MaybeMExpr :: LintSettings,funcName_Inh_MaybeMExpr :: String,globalDefinitions_Inh_MaybeMExpr :: (M.Map String [Region]),isInModule_Inh_MaybeMExpr :: Bool,isMeta_Inh_MaybeMExpr :: Bool,isNegation_Inh_MaybeMExpr :: Bool,loopLevel_Inh_MaybeMExpr :: Int,mtokenPos_Inh_MaybeMExpr :: Region,scopeLevel_Inh_MaybeMExpr :: Int,scopes_Inh_MaybeMExpr :: ([M.Map String (Bool, Region)]),varBeingDefined_Inh_MaybeMExpr :: (Maybe MToken),variableStyle_Inh_MaybeMExpr :: DeterminedVariableStyle} -data Syn_MaybeMExpr = Syn_MaybeMExpr {copy_Syn_MaybeMExpr :: MaybeMExpr,globalDefinitions_Syn_MaybeMExpr :: (M.Map String [Region]),identifier_Syn_MaybeMExpr :: String,isInModule_Syn_MaybeMExpr :: Bool,isSingleVar_Syn_MaybeMExpr :: (Maybe MToken),mtokenPos_Syn_MaybeMExpr :: Region,scopes_Syn_MaybeMExpr :: ([M.Map String (Bool, Region)]),variableStyle_Syn_MaybeMExpr :: DeterminedVariableStyle,warnings_Syn_MaybeMExpr :: ([String -> LintMessage])} -wrap_MaybeMExpr :: T_MaybeMExpr -> - Inh_MaybeMExpr -> - Syn_MaybeMExpr -wrap_MaybeMExpr sem (Inh_MaybeMExpr _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvarBeingDefined _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvarBeingDefined _lhsIvariableStyle - in (Syn_MaybeMExpr _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSingleVar _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_MaybeMExpr_Just :: T_MExpr -> - T_MaybeMExpr -sem_MaybeMExpr_Just just_ = - (case (just_) of - { ( _justIcopy,_justImtokenPos,just_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Just _justIcopy - {-# LINE 7943 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 7948 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_MaybeMExpr_Just_1 :: T_MaybeMExpr_1 - sem_MaybeMExpr_Just_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 179 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvarBeingDefined - {-# LINE 7967 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOvarBeingDefined -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 7972 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 7977 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 7982 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 7987 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 7992 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 7997 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 8002 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 8007 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 8012 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOloopLevel -> - (case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisNegation - {-# LINE 8017 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOisNegation -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 8022 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOfuncName -> - (case (({-# LINE 252 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 8027 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOtopLevel -> - (case (({-# LINE 251 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 8032 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _justOinParentheses -> - (case (just_1 _justOconfig _justOfuncName _justOglobalDefinitions _justOinParentheses _justOisInModule _justOisMeta _justOisNegation _justOloopLevel _justOmtokenPos _justOscopeLevel _justOscopes _justOtopLevel _justOvarBeingDefined _justOvariableStyle) of - { ( _justIglobalDefinitions,_justIidentifier,_justIisInModule,_justIisSimpleExpression,_justIisSingleVar,_justIscopes,_justIvariableStyle,_justIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justIglobalDefinitions - {-# LINE 8039 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justIidentifier - {-# LINE 8044 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justIisInModule - {-# LINE 8049 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justIisSingleVar - {-# LINE 8054 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justImtokenPos - {-# LINE 8059 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justIscopes - {-# LINE 8064 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justIvariableStyle - {-# LINE 8069 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _justIwarnings - {-# LINE 8074 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_MaybeMExpr_Just_1)) of - { ( sem_MaybeMExpr_1) -> - ( _lhsOcopy,sem_MaybeMExpr_1) }) }) }) }) -sem_MaybeMExpr_Nothing :: T_MaybeMExpr -sem_MaybeMExpr_Nothing = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 8085 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 8090 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_MaybeMExpr_Nothing_1 :: T_MaybeMExpr_1 - sem_MaybeMExpr_Nothing_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 8109 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 8114 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 8119 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 8124 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 8129 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 8134 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 8139 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 8144 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) - in sem_MaybeMExpr_Nothing_1)) of - { ( sem_MaybeMExpr_1) -> - ( _lhsOcopy,sem_MaybeMExpr_1) }) }) }) --- PFExprSuffix ------------------------------------------------ --- cata -sem_PFExprSuffix :: PFExprSuffix -> - T_PFExprSuffix -sem_PFExprSuffix (Call _args) = - (sem_PFExprSuffix_Call (sem_Args _args)) -sem_PFExprSuffix (MetaCall _fn _args) = - (sem_PFExprSuffix_MetaCall (sem_MToken _fn) (sem_Args _args)) -sem_PFExprSuffix (ExprIndex _index) = - (sem_PFExprSuffix_ExprIndex (sem_MExpr _index)) -sem_PFExprSuffix (DotIndex _index) = - (sem_PFExprSuffix_DotIndex (sem_MToken _index)) --- semantic domain -type T_PFExprSuffix = ( PFExprSuffix,T_PFExprSuffix_1) -type T_PFExprSuffix_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_PFExprSuffix = Inh_PFExprSuffix {config_Inh_PFExprSuffix :: LintSettings,funcName_Inh_PFExprSuffix :: String,globalDefinitions_Inh_PFExprSuffix :: (M.Map String [Region]),isInModule_Inh_PFExprSuffix :: Bool,isMeta_Inh_PFExprSuffix :: Bool,loopLevel_Inh_PFExprSuffix :: Int,mtokenPos_Inh_PFExprSuffix :: Region,scopeLevel_Inh_PFExprSuffix :: Int,scopes_Inh_PFExprSuffix :: ([M.Map String (Bool, Region)]),variableStyle_Inh_PFExprSuffix :: DeterminedVariableStyle} -data Syn_PFExprSuffix = Syn_PFExprSuffix {copy_Syn_PFExprSuffix :: PFExprSuffix,globalDefinitions_Syn_PFExprSuffix :: (M.Map String [Region]),identifier_Syn_PFExprSuffix :: String,isInModule_Syn_PFExprSuffix :: Bool,isSimpleExpression_Syn_PFExprSuffix :: Bool,mtokenPos_Syn_PFExprSuffix :: Region,scopes_Syn_PFExprSuffix :: ([M.Map String (Bool, Region)]),variableStyle_Syn_PFExprSuffix :: DeterminedVariableStyle,warnings_Syn_PFExprSuffix :: ([String -> LintMessage])} -wrap_PFExprSuffix :: T_PFExprSuffix -> - Inh_PFExprSuffix -> - Syn_PFExprSuffix -wrap_PFExprSuffix sem (Inh_PFExprSuffix _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_PFExprSuffix _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_PFExprSuffix_Call :: T_Args -> - T_PFExprSuffix -sem_PFExprSuffix_Call args_ = - (case (args_) of - { ( _argsIcopy,args_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Call _argsIcopy - {-# LINE 8192 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 8197 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_PFExprSuffix_Call_1 :: T_PFExprSuffix_1 - sem_PFExprSuffix_Call_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 8214 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 8219 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 8224 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 8229 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 8234 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 8239 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 8244 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 8249 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 8254 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 8259 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOfuncName -> - (case (args_1 _argsOconfig _argsOfuncName _argsOglobalDefinitions _argsOisInModule _argsOisMeta _argsOloopLevel _argsOmtokenPos _argsOscopeLevel _argsOscopes _argsOvariableStyle) of - { ( _argsIglobalDefinitions,_argsIidentifier,_argsIisInModule,_argsImtokenPos,_argsIscopes,_argsIvariableStyle,_argsIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIglobalDefinitions - {-# LINE 8266 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIidentifier - {-# LINE 8271 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIisInModule - {-# LINE 8276 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 558 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 8281 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsImtokenPos - {-# LINE 8286 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIscopes - {-# LINE 8291 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIvariableStyle - {-# LINE 8296 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIwarnings - {-# LINE 8301 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_PFExprSuffix_Call_1)) of - { ( sem_PFExprSuffix_1) -> - ( _lhsOcopy,sem_PFExprSuffix_1) }) }) }) }) -sem_PFExprSuffix_MetaCall :: T_MToken -> - T_Args -> - T_PFExprSuffix -sem_PFExprSuffix_MetaCall fn_ args_ = - (case (args_) of - { ( _argsIcopy,args_1) -> - (case (fn_) of - { ( _fnIcopy,_fnImtok,_fnImtokenPos,fn_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - MetaCall _fnIcopy _argsIcopy - {-# LINE 8318 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 8323 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_PFExprSuffix_MetaCall_1 :: T_PFExprSuffix_1 - sem_PFExprSuffix_MetaCall_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 8340 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOscopes -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 8345 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOmtokenPos -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 8350 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 8355 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 8360 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 8365 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 8370 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOconfig -> - (case (fn_1 _fnOconfig _fnOfuncName _fnOglobalDefinitions _fnOisInModule _fnOisMeta _fnOmtokenPos _fnOscopes) of - { ( _fnIglobalDefinitions,_fnIidentifier,_fnIisInModule,_fnIscopes,_fnIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fnIscopes - {-# LINE 8377 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 8382 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fnIisInModule - {-# LINE 8387 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fnIglobalDefinitions - {-# LINE 8392 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 8397 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 8402 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 8407 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fnImtokenPos - {-# LINE 8412 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 8417 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 8422 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argsOfuncName -> - (case (args_1 _argsOconfig _argsOfuncName _argsOglobalDefinitions _argsOisInModule _argsOisMeta _argsOloopLevel _argsOmtokenPos _argsOscopeLevel _argsOscopes _argsOvariableStyle) of - { ( _argsIglobalDefinitions,_argsIidentifier,_argsIisInModule,_argsImtokenPos,_argsIscopes,_argsIvariableStyle,_argsIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIglobalDefinitions - {-# LINE 8429 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _fnIidentifier _argsIidentifier) - {-# LINE 8434 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIisInModule - {-# LINE 8439 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 560 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 8444 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsImtokenPos - {-# LINE 8449 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIscopes - {-# LINE 8454 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _argsIvariableStyle - {-# LINE 8459 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fnIwarnings ++ _argsIwarnings - {-# LINE 8464 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_PFExprSuffix_MetaCall_1)) of - { ( sem_PFExprSuffix_1) -> - ( _lhsOcopy,sem_PFExprSuffix_1) }) }) }) }) }) -sem_PFExprSuffix_ExprIndex :: T_MExpr -> - T_PFExprSuffix -sem_PFExprSuffix_ExprIndex index_ = - (case (index_) of - { ( _indexIcopy,_indexImtokenPos,index_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ExprIndex _indexIcopy - {-# LINE 8478 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 8483 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_PFExprSuffix_ExprIndex_1 :: T_PFExprSuffix_1 - sem_PFExprSuffix_ExprIndex_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 8500 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 8505 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 8510 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 8515 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 8520 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOconfig -> - (case (({-# LINE 565 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 8525 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOvarBeingDefined -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 8530 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 8535 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 8540 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 8545 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 8550 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOfuncName -> - (case (({-# LINE 564 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 8555 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOtopLevel -> - (case (({-# LINE 563 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 8560 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOinParentheses -> - (case (({-# LINE 562 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 8565 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOisNegation -> - (case (index_1 _indexOconfig _indexOfuncName _indexOglobalDefinitions _indexOinParentheses _indexOisInModule _indexOisMeta _indexOisNegation _indexOloopLevel _indexOmtokenPos _indexOscopeLevel _indexOscopes _indexOtopLevel _indexOvarBeingDefined _indexOvariableStyle) of - { ( _indexIglobalDefinitions,_indexIidentifier,_indexIisInModule,_indexIisSimpleExpression,_indexIisSingleVar,_indexIscopes,_indexIvariableStyle,_indexIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _indexIglobalDefinitions - {-# LINE 8572 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _indexIidentifier - {-# LINE 8577 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _indexIisInModule - {-# LINE 8582 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - _indexIisSimpleExpression - {-# LINE 8587 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _indexImtokenPos - {-# LINE 8592 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _indexIscopes - {-# LINE 8597 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _indexIvariableStyle - {-# LINE 8602 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _indexIwarnings - {-# LINE 8607 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_PFExprSuffix_ExprIndex_1)) of - { ( sem_PFExprSuffix_1) -> - ( _lhsOcopy,sem_PFExprSuffix_1) }) }) }) }) -sem_PFExprSuffix_DotIndex :: T_MToken -> - T_PFExprSuffix -sem_PFExprSuffix_DotIndex index_ = - (case (index_) of - { ( _indexIcopy,_indexImtok,_indexImtokenPos,index_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - DotIndex _indexIcopy - {-# LINE 8621 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 8626 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_PFExprSuffix_DotIndex_1 :: T_PFExprSuffix_1 - sem_PFExprSuffix_DotIndex_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 8643 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOglobalDefinitions -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 8648 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOscopes -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 8653 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOmtokenPos -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 8658 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 8663 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOisInModule -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 8668 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 8673 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _indexOconfig -> - (case (index_1 _indexOconfig _indexOfuncName _indexOglobalDefinitions _indexOisInModule _indexOisMeta _indexOmtokenPos _indexOscopes) of - { ( _indexIglobalDefinitions,_indexIidentifier,_indexIisInModule,_indexIscopes,_indexIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _indexIglobalDefinitions - {-# LINE 8680 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _indexIidentifier - {-# LINE 8685 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _indexIisInModule - {-# LINE 8690 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 8695 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _indexImtokenPos - {-# LINE 8700 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _indexIscopes - {-# LINE 8705 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 8710 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _indexIwarnings - {-# LINE 8715 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_PFExprSuffix_DotIndex_1)) of - { ( sem_PFExprSuffix_1) -> - ( _lhsOcopy,sem_PFExprSuffix_1) }) }) }) }) --- PrefixExp --------------------------------------------------- --- cata -sem_PrefixExp :: PrefixExp -> - T_PrefixExp -sem_PrefixExp (PFVar _name _suffixes) = - (sem_PrefixExp_PFVar (sem_MToken _name) (sem_ExprSuffixList _suffixes)) -sem_PrefixExp (ExprVar _expr _suffixes) = - (sem_PrefixExp_ExprVar (sem_MExpr _expr) (sem_ExprSuffixList _suffixes)) --- semantic domain -type T_PrefixExp = ( PrefixExp,Bool,Region,(Maybe MToken),T_PrefixExp_1) -type T_PrefixExp_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Bool -> - Bool -> - Int -> - Region -> - Bool -> - Int -> - ([M.Map String (Bool, Region)]) -> - Bool -> - (Maybe MToken) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Bool,(Maybe MToken),([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_PrefixExp = Inh_PrefixExp {config_Inh_PrefixExp :: LintSettings,funcName_Inh_PrefixExp :: String,globalDefinitions_Inh_PrefixExp :: (M.Map String [Region]),inParentheses_Inh_PrefixExp :: Bool,isInModule_Inh_PrefixExp :: Bool,isMeta_Inh_PrefixExp :: Bool,isNegation_Inh_PrefixExp :: Bool,loopLevel_Inh_PrefixExp :: Int,mtokenPos_Inh_PrefixExp :: Region,registerVarUse_Inh_PrefixExp :: Bool,scopeLevel_Inh_PrefixExp :: Int,scopes_Inh_PrefixExp :: ([M.Map String (Bool, Region)]),topLevel_Inh_PrefixExp :: Bool,varBeingDefined_Inh_PrefixExp :: (Maybe MToken),variableStyle_Inh_PrefixExp :: DeterminedVariableStyle} -data Syn_PrefixExp = Syn_PrefixExp {copy_Syn_PrefixExp :: PrefixExp,globalDefinitions_Syn_PrefixExp :: (M.Map String [Region]),hasSuffixes_Syn_PrefixExp :: Bool,identifier_Syn_PrefixExp :: String,isInModule_Syn_PrefixExp :: Bool,isSimpleExpression_Syn_PrefixExp :: Bool,isSingleVar_Syn_PrefixExp :: (Maybe MToken),mtokenPos_Syn_PrefixExp :: Region,scopes_Syn_PrefixExp :: ([M.Map String (Bool, Region)]),varName_Syn_PrefixExp :: (Maybe MToken),variableStyle_Syn_PrefixExp :: DeterminedVariableStyle,warnings_Syn_PrefixExp :: ([String -> LintMessage])} -wrap_PrefixExp :: T_PrefixExp -> - Inh_PrefixExp -> - Syn_PrefixExp -wrap_PrefixExp sem (Inh_PrefixExp _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIregisterVarUse _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle) = - (let ( _lhsOcopy,_lhsOhasSuffixes,_lhsOmtokenPos,_lhsOvarName,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIregisterVarUse _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle - in (Syn_PrefixExp _lhsOcopy _lhsOglobalDefinitions _lhsOhasSuffixes _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOisSingleVar _lhsOmtokenPos _lhsOscopes _lhsOvarName _lhsOvariableStyle _lhsOwarnings)) -sem_PrefixExp_PFVar :: T_MToken -> - T_ExprSuffixList -> - T_PrefixExp -sem_PrefixExp_PFVar name_ suffixes_ = - (case (suffixes_) of - { ( _suffixesIcopy,suffixes_1) -> - (case (name_) of - { ( _nameIcopy,_nameImtok,_nameImtokenPos,name_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - PFVar _nameIcopy _suffixesIcopy - {-# LINE 8767 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 8772 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 520 "src/GLuaFixer/AG/ASTLint.ag" #-} - not . null $ _suffixesIcopy - {-# LINE 8777 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOhasSuffixes -> - (case (({-# LINE 519 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameImtokenPos - {-# LINE 8782 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 522 "src/GLuaFixer/AG/ASTLint.ag" #-} - Just _nameIcopy - {-# LINE 8787 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varName -> - (case (({-# LINE 193 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varName - {-# LINE 8792 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvarName -> - (case ((let sem_PrefixExp_PFVar_1 :: T_PrefixExp_1 - sem_PrefixExp_PFVar_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIregisterVarUse - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 526 "src/GLuaFixer/AG/ASTLint.ag" #-} - if isJust _lhsIvarBeingDefined && _lhsIvarBeingDefined == _varName then - case _lhsIscopes of - deepestScope : otherScopes -> deepestScope : registerVariable otherScopes _nameImtokenPos (show _nameImtok) _lhsIregisterVarUse - noScopes -> noScopes - else - registerVariable _lhsIscopes _nameImtokenPos (show _nameImtok) _lhsIregisterVarUse - {-# LINE 8819 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _foundVars -> - (case (({-# LINE 536 "src/GLuaFixer/AG/ASTLint.ag" #-} - _foundVars - {-# LINE 8824 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOscopes -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 8829 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOmtokenPos -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 8834 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 8839 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 8844 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 8849 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 8854 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOconfig -> - (case (name_1 _nameOconfig _nameOfuncName _nameOglobalDefinitions _nameOisInModule _nameOisMeta _nameOmtokenPos _nameOscopes) of - { ( _nameIglobalDefinitions,_nameIidentifier,_nameIisInModule,_nameIscopes,_nameIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIscopes - {-# LINE 8861 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 8866 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIisInModule - {-# LINE 8871 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIglobalDefinitions - {-# LINE 8876 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 8881 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 8886 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 8891 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameImtokenPos - {-# LINE 8896 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 8901 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 8906 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOfuncName -> - (case (suffixes_1 _suffixesOconfig _suffixesOfuncName _suffixesOglobalDefinitions _suffixesOisInModule _suffixesOisMeta _suffixesOloopLevel _suffixesOmtokenPos _suffixesOscopeLevel _suffixesOscopes _suffixesOvariableStyle) of - { ( _suffixesIglobalDefinitions,_suffixesIidentifier,_suffixesIisInModule,_suffixesIisSimpleExpression,_suffixesImtokenPos,_suffixesIscopes,_suffixesIvariableStyle,_suffixesIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _suffixesIglobalDefinitions - {-# LINE 8913 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _nameIidentifier _suffixesIidentifier) - {-# LINE 8918 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _suffixesIisInModule - {-# LINE 8923 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - _suffixesIisSimpleExpression - {-# LINE 8928 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 521 "src/GLuaFixer/AG/ASTLint.ag" #-} - if null _suffixesIcopy then _varName else Nothing - {-# LINE 8933 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _suffixesIscopes - {-# LINE 8938 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _suffixesIvariableStyle - {-# LINE 8943 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIwarnings ++ _suffixesIwarnings - {-# LINE 8948 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 535 "src/GLuaFixer/AG/ASTLint.ag" #-} - tokenLabel _nameIcopy - {-# LINE 8953 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _name -> - (case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_beginnerMistakes _lhsIconfig) || _lhsIisMeta || _name /= "self" then id else - (:) $ warn _nameImtokenPos SelfInNonMeta - {-# LINE 8959 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f3 -> - (case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_beginnerMistakes _lhsIconfig) || not _lhsIisMeta || _name /= "self" || - _lhsIfuncName /= "ENT" || _suffixesIidentifier /= "Entity" then id else - (:) $ warn _nameImtokenPos SelfEntity - {-# LINE 8966 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f2 -> - (case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_beginnerMistakes _lhsIconfig) || not _lhsIisMeta || _name /= "self" || - _lhsIfuncName /= "SWEP" || _suffixesIidentifier /= "Weapon" then id else - (:) $ warn _nameImtokenPos SelfWeapon - {-# LINE 8973 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2, _warnings_augmented_f3] - {-# LINE 8978 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_PrefixExp_PFVar_1)) of - { ( sem_PrefixExp_1) -> - ( _lhsOcopy,_lhsOhasSuffixes,_lhsOmtokenPos,_lhsOvarName,sem_PrefixExp_1) }) }) }) }) }) }) }) }) }) -sem_PrefixExp_ExprVar :: T_MExpr -> - T_ExprSuffixList -> - T_PrefixExp -sem_PrefixExp_ExprVar expr_ suffixes_ = - (case (suffixes_) of - { ( _suffixesIcopy,suffixes_1) -> - (case (expr_) of - { ( _exprIcopy,_exprImtokenPos,expr_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ExprVar _exprIcopy _suffixesIcopy - {-# LINE 8995 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 9000 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 549 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 9005 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOhasSuffixes -> - (case (({-# LINE 546 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprImtokenPos - {-# LINE 9010 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 548 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 9015 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvarName -> - (case ((let sem_PrefixExp_ExprVar_1 :: T_PrefixExp_1 - sem_PrefixExp_ExprVar_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIinParentheses - _lhsIisInModule - _lhsIisMeta - _lhsIisNegation - _lhsIloopLevel - _lhsImtokenPos - _lhsIregisterVarUse - _lhsIscopeLevel - _lhsIscopes - _lhsItopLevel - _lhsIvarBeingDefined - _lhsIvariableStyle -> - (case (({-# LINE 179 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvarBeingDefined - {-# LINE 9037 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOvarBeingDefined -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 9042 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 9047 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOisMeta -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 9052 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 9057 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 9062 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 9067 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 9072 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOloopLevel -> - (case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisNegation - {-# LINE 9077 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOisNegation -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 9082 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 9087 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 9092 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOfuncName -> - (case (({-# LINE 551 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 9097 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOtopLevel -> - (case (({-# LINE 550 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 9102 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _exprOinParentheses -> - (case (expr_1 _exprOconfig _exprOfuncName _exprOglobalDefinitions _exprOinParentheses _exprOisInModule _exprOisMeta _exprOisNegation _exprOloopLevel _exprOmtokenPos _exprOscopeLevel _exprOscopes _exprOtopLevel _exprOvarBeingDefined _exprOvariableStyle) of - { ( _exprIglobalDefinitions,_exprIidentifier,_exprIisInModule,_exprIisSimpleExpression,_exprIisSingleVar,_exprIscopes,_exprIvariableStyle,_exprIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprIscopes - {-# LINE 9109 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 9114 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprIisInModule - {-# LINE 9119 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprIglobalDefinitions - {-# LINE 9124 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 9129 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprIvariableStyle - {-# LINE 9134 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 9139 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprImtokenPos - {-# LINE 9144 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 9149 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 9154 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _suffixesOfuncName -> - (case (suffixes_1 _suffixesOconfig _suffixesOfuncName _suffixesOglobalDefinitions _suffixesOisInModule _suffixesOisMeta _suffixesOloopLevel _suffixesOmtokenPos _suffixesOscopeLevel _suffixesOscopes _suffixesOvariableStyle) of - { ( _suffixesIglobalDefinitions,_suffixesIidentifier,_suffixesIisInModule,_suffixesIisSimpleExpression,_suffixesImtokenPos,_suffixesIscopes,_suffixesIvariableStyle,_suffixesIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _suffixesIglobalDefinitions - {-# LINE 9161 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _exprIidentifier _suffixesIidentifier) - {-# LINE 9166 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _suffixesIisInModule - {-# LINE 9171 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprIisSimpleExpression && _suffixesIisSimpleExpression - {-# LINE 9176 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSimpleExpression -> - (case (({-# LINE 547 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 9181 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisSingleVar -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _suffixesIscopes - {-# LINE 9186 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _suffixesIvariableStyle - {-# LINE 9191 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 552 "src/GLuaFixer/AG/ASTLint.ag" #-} - _exprIwarnings ++ _suffixesIwarnings - {-# LINE 9196 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 552 "src/GLuaFixer/AG/ASTLint.ag" #-} - if lint_redundantParentheses _lhsIconfig && null _suffixesIcopy && (_lhsIinParentheses || (not _lhsItopLevel && _exprIisSimpleExpression)) - then (:) $ warn _lhsImtokenPos UnnecessaryParentheses - else id - {-# LINE 9203 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 552 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 9208 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_PrefixExp_ExprVar_1)) of - { ( sem_PrefixExp_1) -> - ( _lhsOcopy,_lhsOhasSuffixes,_lhsOmtokenPos,_lhsOvarName,sem_PrefixExp_1) }) }) }) }) }) }) }) }) --- Stat -------------------------------------------------------- --- cata -sem_Stat :: Stat -> - T_Stat -sem_Stat (Def _vars) = - (sem_Stat_Def (sem_VarsList _vars)) -sem_Stat (LocDef _vars) = - (sem_Stat_LocDef (sem_VarsList _vars)) -sem_Stat (AFuncCall _fn) = - (sem_Stat_AFuncCall (sem_PrefixExp _fn)) -sem_Stat (ALabel _lbl) = - (sem_Stat_ALabel (sem_MToken _lbl)) -sem_Stat (ABreak) = - (sem_Stat_ABreak) -sem_Stat (AContinue) = - (sem_Stat_AContinue) -sem_Stat (AGoto _lbl) = - (sem_Stat_AGoto (sem_MToken _lbl)) -sem_Stat (ADo _body) = - (sem_Stat_ADo (sem_Block _body)) -sem_Stat (AWhile _cond _body) = - (sem_Stat_AWhile (sem_MExpr _cond) (sem_Block _body)) -sem_Stat (ARepeat _body _cond) = - (sem_Stat_ARepeat (sem_Block _body) (sem_MExpr _cond)) -sem_Stat (AIf _cond _body _elifs _els) = - (sem_Stat_AIf (sem_MExpr _cond) (sem_Block _body) (sem_ElseIfList _elifs) (sem_Else _els)) -sem_Stat (ANFor _var _val _to _step _body) = - (sem_Stat_ANFor (sem_MToken _var) (sem_MExpr _val) (sem_MExpr _to) (sem_MExpr _step) (sem_Block _body)) -sem_Stat (AGFor _vars _vals _body) = - (sem_Stat_AGFor _vars (sem_MExprList _vals) (sem_Block _body)) -sem_Stat (AFunc _name _args _body) = - (sem_Stat_AFunc (sem_FuncName _name) _args (sem_Block _body)) -sem_Stat (ALocFunc _name _args _body) = - (sem_Stat_ALocFunc (sem_FuncName _name) _args (sem_Block _body)) --- semantic domain -type T_Stat = ( Stat,T_Stat_1) -type T_Stat_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_Stat = Inh_Stat {config_Inh_Stat :: LintSettings,funcName_Inh_Stat :: String,globalDefinitions_Inh_Stat :: (M.Map String [Region]),isInModule_Inh_Stat :: Bool,isMeta_Inh_Stat :: Bool,loopLevel_Inh_Stat :: Int,mtokenPos_Inh_Stat :: Region,scopeLevel_Inh_Stat :: Int,scopes_Inh_Stat :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Stat :: DeterminedVariableStyle} -data Syn_Stat = Syn_Stat {copy_Syn_Stat :: Stat,globalDefinitions_Syn_Stat :: (M.Map String [Region]),identifier_Syn_Stat :: String,isIfStatement_Syn_Stat :: Bool,isInModule_Syn_Stat :: Bool,mtokenPos_Syn_Stat :: Region,scopes_Syn_Stat :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Stat :: DeterminedVariableStyle,warnings_Syn_Stat :: ([String -> LintMessage])} -wrap_Stat :: T_Stat -> - Inh_Stat -> - Syn_Stat -wrap_Stat sem (Inh_Stat _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_Stat _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisIfStatement _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_Stat_Def :: T_VarsList -> - T_Stat -sem_Stat_Def vars_ = - (case (vars_) of - { ( _varsIcopy,vars_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Def _varsIcopy - {-# LINE 9278 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 9283 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_Def_1 :: T_Stat_1 - sem_Stat_Def_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 9300 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 9305 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 9310 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 9315 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 9320 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOconfig -> - (case (({-# LINE 315 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 9325 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOlocalDefinition -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 9330 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 9335 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 9340 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 9345 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 9350 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOfuncName -> - (case (vars_1 _varsOconfig _varsOfuncName _varsOglobalDefinitions _varsOisInModule _varsOisMeta _varsOlocalDefinition _varsOloopLevel _varsOmtokenPos _varsOscopeLevel _varsOscopes _varsOvariableStyle) of - { ( _varsIglobalDefinitions,_varsIidentifier,_varsIisInModule,_varsImtokenPos,_varsIscopes,_varsIvariableStyle,_varsIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varsIglobalDefinitions - {-# LINE 9357 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varsIidentifier - {-# LINE 9362 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 9367 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varsIisInModule - {-# LINE 9372 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varsImtokenPos - {-# LINE 9377 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varsIscopes - {-# LINE 9382 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varsIvariableStyle - {-# LINE 9387 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varsIwarnings - {-# LINE 9392 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Stat_Def_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) }) -sem_Stat_LocDef :: T_VarsList -> - T_Stat -sem_Stat_LocDef vars_ = - (case (vars_) of - { ( _varsIcopy,vars_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - LocDef _varsIcopy - {-# LINE 9406 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 9411 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_LocDef_1 :: T_Stat_1 - sem_Stat_LocDef_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 9428 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 9433 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 9438 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 9443 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 9448 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOconfig -> - (case (({-# LINE 318 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 9453 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOlocalDefinition -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 9458 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 9463 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 9468 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 9473 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 9478 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varsOfuncName -> - (case (vars_1 _varsOconfig _varsOfuncName _varsOglobalDefinitions _varsOisInModule _varsOisMeta _varsOlocalDefinition _varsOloopLevel _varsOmtokenPos _varsOscopeLevel _varsOscopes _varsOvariableStyle) of - { ( _varsIglobalDefinitions,_varsIidentifier,_varsIisInModule,_varsImtokenPos,_varsIscopes,_varsIvariableStyle,_varsIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varsIglobalDefinitions - {-# LINE 9485 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varsIidentifier - {-# LINE 9490 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 9495 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varsIisInModule - {-# LINE 9500 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varsImtokenPos - {-# LINE 9505 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varsIscopes - {-# LINE 9510 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varsIvariableStyle - {-# LINE 9515 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varsIwarnings - {-# LINE 9520 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Stat_LocDef_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) }) -sem_Stat_AFuncCall :: T_PrefixExp -> - T_Stat -sem_Stat_AFuncCall fn_ = - (case (fn_) of - { ( _fnIcopy,_fnIhasSuffixes,_fnImtokenPos,_fnIvarName,fn_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AFuncCall _fnIcopy - {-# LINE 9534 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 9539 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_AFuncCall_1 :: T_Stat_1 - sem_Stat_AFuncCall_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 9556 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 9561 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 9566 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 9571 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 9576 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOconfig -> - (case (({-# LINE 324 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 9581 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOvarBeingDefined -> - (case (({-# LINE 321 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 9586 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOregisterVarUse -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 9591 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 9596 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 9601 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 9606 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 9611 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOfuncName -> - (case (({-# LINE 323 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 9616 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOtopLevel -> - (case (({-# LINE 322 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 9621 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOinParentheses -> - (case (({-# LINE 320 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 9626 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _fnOisNegation -> - (case (fn_1 _fnOconfig _fnOfuncName _fnOglobalDefinitions _fnOinParentheses _fnOisInModule _fnOisMeta _fnOisNegation _fnOloopLevel _fnOmtokenPos _fnOregisterVarUse _fnOscopeLevel _fnOscopes _fnOtopLevel _fnOvarBeingDefined _fnOvariableStyle) of - { ( _fnIglobalDefinitions,_fnIidentifier,_fnIisInModule,_fnIisSimpleExpression,_fnIisSingleVar,_fnIscopes,_fnIvariableStyle,_fnIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fnIglobalDefinitions - {-# LINE 9633 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fnIidentifier - {-# LINE 9638 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 9643 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 325 "src/GLuaFixer/AG/ASTLint.ag" #-} - (tokenLabel <$> _fnIvarName) == Just "module" - {-# LINE 9648 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _isModuleCall -> - (case (({-# LINE 326 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule || _isModuleCall - {-# LINE 9653 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fnImtokenPos - {-# LINE 9658 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fnIscopes - {-# LINE 9663 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fnIvariableStyle - {-# LINE 9668 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _fnIwarnings - {-# LINE 9673 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Stat_AFuncCall_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) }) -sem_Stat_ALabel :: T_MToken -> - T_Stat -sem_Stat_ALabel lbl_ = - (case (lbl_) of - { ( _lblIcopy,_lblImtok,_lblImtokenPos,lbl_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ALabel _lblIcopy - {-# LINE 9687 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 9692 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_ALabel_1 :: T_Stat_1 - sem_Stat_ALabel_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 9709 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lblOglobalDefinitions -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 9714 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lblOscopes -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 9719 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lblOmtokenPos -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 9724 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lblOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 9729 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lblOisInModule -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 9734 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lblOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 9739 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lblOconfig -> - (case (lbl_1 _lblOconfig _lblOfuncName _lblOglobalDefinitions _lblOisInModule _lblOisMeta _lblOmtokenPos _lblOscopes) of - { ( _lblIglobalDefinitions,_lblIidentifier,_lblIisInModule,_lblIscopes,_lblIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lblIglobalDefinitions - {-# LINE 9746 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lblIidentifier - {-# LINE 9751 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 9756 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lblIisInModule - {-# LINE 9761 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lblImtokenPos - {-# LINE 9766 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lblIscopes - {-# LINE 9771 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 9776 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lblIwarnings - {-# LINE 9781 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Stat_ALabel_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) }) -sem_Stat_ABreak :: T_Stat -sem_Stat_ABreak = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ABreak - {-# LINE 9792 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 9797 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_ABreak_1 :: T_Stat_1 - sem_Stat_ABreak_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 9814 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 9819 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 9824 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 9829 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 9834 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 9839 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 9844 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 9849 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) - in sem_Stat_ABreak_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) -sem_Stat_AContinue :: T_Stat -sem_Stat_AContinue = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AContinue - {-# LINE 9860 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 9865 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_AContinue_1 :: T_Stat_1 - sem_Stat_AContinue_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 9882 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 9887 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 9892 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 9897 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 9902 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 9907 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 9912 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 9917 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) - in sem_Stat_AContinue_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) -sem_Stat_AGoto :: T_MToken -> - T_Stat -sem_Stat_AGoto lbl_ = - (case (lbl_) of - { ( _lblIcopy,_lblImtok,_lblImtokenPos,lbl_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AGoto _lblIcopy - {-# LINE 9931 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 9936 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_AGoto_1 :: T_Stat_1 - sem_Stat_AGoto_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 9953 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lblOglobalDefinitions -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 9958 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lblOscopes -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 9963 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lblOmtokenPos -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 9968 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lblOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 9973 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lblOisInModule -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 9978 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lblOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 9983 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lblOconfig -> - (case (lbl_1 _lblOconfig _lblOfuncName _lblOglobalDefinitions _lblOisInModule _lblOisMeta _lblOmtokenPos _lblOscopes) of - { ( _lblIglobalDefinitions,_lblIidentifier,_lblIisInModule,_lblIscopes,_lblIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lblIglobalDefinitions - {-# LINE 9990 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lblIidentifier - {-# LINE 9995 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 10000 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lblIisInModule - {-# LINE 10005 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lblImtokenPos - {-# LINE 10010 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lblIscopes - {-# LINE 10015 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 10020 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 331 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lblIwarnings - {-# LINE 10025 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 331 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_gotos _lhsIconfig) || _lhsIloopLevel >= 2 then id else - (:) $ warn _lblImtokenPos AvoidGoto - {-# LINE 10031 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 331 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 10036 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Stat_AGoto_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) }) -sem_Stat_ADo :: T_Block -> - T_Stat -sem_Stat_ADo body_ = - (case (body_) of - { ( _bodyIcopy,body_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ADo _bodyIcopy - {-# LINE 10050 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 10055 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_ADo_1 :: T_Stat_1 - sem_Stat_ADo_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 10072 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 10077 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 10082 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 10087 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOconfig -> - (case (({-# LINE 335 "src/GLuaFixer/AG/ASTLint.ag" #-} - M.empty : _lhsIscopes - {-# LINE 10092 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 10097 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 10102 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 10107 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 10112 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 10117 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOfuncName -> - (case (({-# LINE 336 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 10122 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisRepeat -> - (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of - { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIglobalDefinitions - {-# LINE 10129 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIidentifier - {-# LINE 10134 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 334 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 10139 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIisInModule - {-# LINE 10144 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyImtokenPos - {-# LINE 10149 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIscopes - {-# LINE 10154 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIvariableStyle - {-# LINE 10159 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 337 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIwarnings - {-# LINE 10164 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 337 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else - (:) $ warn _lhsImtokenPos EmptyDoBlock - {-# LINE 10170 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 337 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 10175 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Stat_ADo_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) }) -sem_Stat_AWhile :: T_MExpr -> - T_Block -> - T_Stat -sem_Stat_AWhile cond_ body_ = - (case (body_) of - { ( _bodyIcopy,body_1) -> - (case (cond_) of - { ( _condIcopy,_condImtokenPos,cond_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AWhile _condIcopy _bodyIcopy - {-# LINE 10192 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 10197 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_AWhile_1 :: T_Stat_1 - sem_Stat_AWhile_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 10214 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 10219 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOisInModule -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 10224 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 10229 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOscopes -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 10234 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 10239 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 10244 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOloopLevel -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 10249 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOisMeta -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 10254 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 10259 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 10264 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOconfig -> - (case (({-# LINE 345 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 10269 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOvarBeingDefined -> - (case (({-# LINE 344 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 10274 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOtopLevel -> - (case (({-# LINE 343 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 10279 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOinParentheses -> - (case (({-# LINE 342 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 10284 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOisNegation -> - (case (cond_1 _condOconfig _condOfuncName _condOglobalDefinitions _condOinParentheses _condOisInModule _condOisMeta _condOisNegation _condOloopLevel _condOmtokenPos _condOscopeLevel _condOscopes _condOtopLevel _condOvarBeingDefined _condOvariableStyle) of - { ( _condIglobalDefinitions,_condIidentifier,_condIisInModule,_condIisSimpleExpression,_condIisSingleVar,_condIscopes,_condIvariableStyle,_condIwarnings) -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _condIisInModule - {-# LINE 10291 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _condIglobalDefinitions - {-# LINE 10296 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 10301 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOconfig -> - (case (({-# LINE 347 "src/GLuaFixer/AG/ASTLint.ag" #-} - M.empty : _condIscopes - {-# LINE 10306 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _condIvariableStyle - {-# LINE 10311 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 10316 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _condImtokenPos - {-# LINE 10321 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOmtokenPos -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 10326 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOfuncName -> - (case (({-# LINE 346 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 10331 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisRepeat -> - (case (({-# LINE 341 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel + 1 - {-# LINE 10336 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOloopLevel -> - (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of - { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIglobalDefinitions - {-# LINE 10343 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _condIidentifier _bodyIidentifier) - {-# LINE 10348 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 340 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 10353 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIisInModule - {-# LINE 10358 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyImtokenPos - {-# LINE 10363 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIscopes - {-# LINE 10368 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIvariableStyle - {-# LINE 10373 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 348 "src/GLuaFixer/AG/ASTLint.ag" #-} - _condIwarnings ++ _bodyIwarnings - {-# LINE 10378 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 348 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else - (:) $ warn _lhsImtokenPos EmptyWhileLoop - {-# LINE 10384 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 348 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 10389 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Stat_AWhile_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) }) }) -sem_Stat_ARepeat :: T_Block -> - T_MExpr -> - T_Stat -sem_Stat_ARepeat body_ cond_ = - (case (cond_) of - { ( _condIcopy,_condImtokenPos,cond_1) -> - (case (body_) of - { ( _bodyIcopy,body_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ARepeat _bodyIcopy _condIcopy - {-# LINE 10406 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 10411 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_ARepeat_1 :: T_Stat_1 - sem_Stat_ARepeat_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 10428 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisMeta -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 10433 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOconfig -> - (case (({-# LINE 359 "src/GLuaFixer/AG/ASTLint.ag" #-} - M.empty : _lhsIscopes - {-# LINE 10438 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopes -> - (case (({-# LINE 358 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 10443 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisRepeat -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 10448 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 10453 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 10458 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOmtokenPos -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 10463 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 10468 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 10473 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOfuncName -> - (case (({-# LINE 353 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel + 1 - {-# LINE 10478 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOloopLevel -> - (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of - { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIscopes - {-# LINE 10485 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 10490 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIisInModule - {-# LINE 10495 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIglobalDefinitions - {-# LINE 10500 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 10505 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOconfig -> - (case (({-# LINE 357 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 10510 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOvarBeingDefined -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIvariableStyle - {-# LINE 10515 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 10520 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyImtokenPos - {-# LINE 10525 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 10530 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 10535 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOfuncName -> - (case (({-# LINE 356 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 10540 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOtopLevel -> - (case (({-# LINE 355 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 10545 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOinParentheses -> - (case (({-# LINE 354 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 10550 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOisNegation -> - (case (cond_1 _condOconfig _condOfuncName _condOglobalDefinitions _condOinParentheses _condOisInModule _condOisMeta _condOisNegation _condOloopLevel _condOmtokenPos _condOscopeLevel _condOscopes _condOtopLevel _condOvarBeingDefined _condOvariableStyle) of - { ( _condIglobalDefinitions,_condIidentifier,_condIisInModule,_condIisSimpleExpression,_condIisSingleVar,_condIscopes,_condIvariableStyle,_condIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _condIglobalDefinitions - {-# LINE 10557 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _bodyIidentifier _condIidentifier) - {-# LINE 10562 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 352 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 10567 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _condIisInModule - {-# LINE 10572 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _condImtokenPos - {-# LINE 10577 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 360 "src/GLuaFixer/AG/ASTLint.ag" #-} - tail _condIscopes - {-# LINE 10582 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _condIvariableStyle - {-# LINE 10587 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 361 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIwarnings ++ _condIwarnings - {-# LINE 10592 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 361 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else - (:) $ warn _lhsImtokenPos EmptyRepeat - {-# LINE 10598 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 361 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 10603 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Stat_ARepeat_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) }) }) -sem_Stat_AIf :: T_MExpr -> - T_Block -> - T_ElseIfList -> - T_Else -> - T_Stat -sem_Stat_AIf cond_ body_ elifs_ els_ = - (case (els_) of - { ( _elsIcopy,els_1) -> - (case (elifs_) of - { ( _elifsIcopy,elifs_1) -> - (case (body_) of - { ( _bodyIcopy,body_1) -> - (case (cond_) of - { ( _condIcopy,_condImtokenPos,cond_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AIf _condIcopy _bodyIcopy _elifsIcopy _elsIcopy - {-# LINE 10626 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 10631 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_AIf_1 :: T_Stat_1 - sem_Stat_AIf_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 10648 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisMeta -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 10653 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOconfig -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 10658 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 10663 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOisMeta -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 10668 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOconfig -> - (case (({-# LINE 374 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 10673 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisRepeat -> - (case (({-# LINE 372 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 10678 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOvarBeingDefined -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 10683 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 10688 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 10693 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 10698 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOloopLevel -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 10703 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 10708 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 10713 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOfuncName -> - (case (({-# LINE 371 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 10718 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOtopLevel -> - (case (({-# LINE 370 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 10723 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOinParentheses -> - (case (({-# LINE 369 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 10728 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _condOisNegation -> - (case (cond_1 _condOconfig _condOfuncName _condOglobalDefinitions _condOinParentheses _condOisInModule _condOisMeta _condOisNegation _condOloopLevel _condOmtokenPos _condOscopeLevel _condOscopes _condOtopLevel _condOvarBeingDefined _condOvariableStyle) of - { ( _condIglobalDefinitions,_condIidentifier,_condIisInModule,_condIisSimpleExpression,_condIisSingleVar,_condIscopes,_condIvariableStyle,_condIwarnings) -> - (case (({-# LINE 373 "src/GLuaFixer/AG/ASTLint.ag" #-} - M.empty : _condIscopes - {-# LINE 10735 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _condIvariableStyle - {-# LINE 10740 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 10745 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _condImtokenPos - {-# LINE 10750 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 10755 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOloopLevel -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _condIisInModule - {-# LINE 10760 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _condIglobalDefinitions - {-# LINE 10765 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 10770 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOfuncName -> - (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of - { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIscopes - {-# LINE 10777 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifsOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 10782 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifsOisMeta -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 10787 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifsOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIvariableStyle - {-# LINE 10792 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifsOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 10797 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifsOscopeLevel -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 10802 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifsOloopLevel -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIisInModule - {-# LINE 10807 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifsOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIglobalDefinitions - {-# LINE 10812 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifsOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 10817 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifsOfuncName -> - (case (({-# LINE 375 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 10822 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elifsOmtokenPos -> - (case (elifs_1 _elifsOconfig _elifsOfuncName _elifsOglobalDefinitions _elifsOisInModule _elifsOisMeta _elifsOloopLevel _elifsOmtokenPos _elifsOscopeLevel _elifsOscopes _elifsOvariableStyle) of - { ( _elifsIelseExists,_elifsIglobalDefinitions,_elifsIidentifier,_elifsIisInModule,_elifsImtokenPos,_elifsIscopes,_elifsIvariableStyle,_elifsIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elifsIscopes - {-# LINE 10829 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elsOscopes -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 10834 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elsOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elifsIisInModule - {-# LINE 10839 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elsOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elifsIglobalDefinitions - {-# LINE 10844 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elsOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 10849 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elsOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elifsIvariableStyle - {-# LINE 10854 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elsOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 10859 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elsOscopeLevel -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 10864 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elsOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 10869 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elsOfuncName -> - (case (({-# LINE 376 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 10874 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _elsOmtokenPos -> - (case (els_1 _elsOconfig _elsOfuncName _elsOglobalDefinitions _elsOisInModule _elsOisMeta _elsOloopLevel _elsOmtokenPos _elsOscopeLevel _elsOscopes _elsOvariableStyle) of - { ( _elsIelseExists,_elsIglobalDefinitions,_elsIidentifier,_elsIisInModule,_elsImtokenPos,_elsIscopes,_elsIvariableStyle,_elsIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elsIglobalDefinitions - {-# LINE 10881 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _condIidentifier (const _bodyIidentifier (const _elifsIidentifier _elsIidentifier))) - {-# LINE 10886 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 368 "src/GLuaFixer/AG/ASTLint.ag" #-} - not _elifsIelseExists && not _elsIelseExists - {-# LINE 10891 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elsIisInModule - {-# LINE 10896 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elsImtokenPos - {-# LINE 10901 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elsIscopes - {-# LINE 10906 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _elsIvariableStyle - {-# LINE 10911 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 392 "src/GLuaFixer/AG/ASTLint.ag" #-} - _condIwarnings ++ _bodyIwarnings ++ _elifsIwarnings ++ _elsIwarnings - {-# LINE 10916 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 377 "src/GLuaFixer/AG/ASTLint.ag" #-} - case (_elifsIelseExists, _elsIelseExists) of - (False, False) -> _lhsImtokenPos - (True, _) -> Region (rgStart _lhsImtokenPos) (rgStart _elifsImtokenPos) - (False, True) -> Region (rgStart _lhsImtokenPos) (rgStart _elsImtokenPos) - {-# LINE 10924 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _ifBlockPos -> - (case (({-# LINE 392 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else - (:) $ warn _ifBlockPos EmptyIf - {-# LINE 10930 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f2 -> - (case (({-# LINE 392 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_redundantIfStatements _lhsIconfig) || _bodyIstatementCount /= 1 || not _bodyIisIfStatement || _elifsIelseExists || _elsIelseExists then id else - (:) $ warn _bodyImtokenPos DoubleIf - {-# LINE 10936 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 392 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2] - {-# LINE 10941 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Stat_AIf_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) }) }) }) }) -sem_Stat_ANFor :: T_MToken -> - T_MExpr -> - T_MExpr -> - T_MExpr -> - T_Block -> - T_Stat -sem_Stat_ANFor var_ val_ to_ step_ body_ = - (case (body_) of - { ( _bodyIcopy,body_1) -> - (case (step_) of - { ( _stepIcopy,_stepImtokenPos,step_1) -> - (case (to_) of - { ( _toIcopy,_toImtokenPos,to_1) -> - (case (val_) of - { ( _valIcopy,_valImtokenPos,val_1) -> - (case (var_) of - { ( _varIcopy,_varImtok,_varImtokenPos,var_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ANFor _varIcopy _valIcopy _toIcopy _stepIcopy _bodyIcopy - {-# LINE 10967 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 10972 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_ANFor_1 :: T_Stat_1 - sem_Stat_ANFor_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 10989 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 10994 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varOisInModule -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 10999 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varOscopes -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 11004 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varOmtokenPos -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 11009 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varOisMeta -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 11014 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 11019 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 11024 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _varOconfig -> - (case (var_1 _varOconfig _varOfuncName _varOglobalDefinitions _varOisInModule _varOisMeta _varOmtokenPos _varOscopes) of - { ( _varIglobalDefinitions,_varIidentifier,_varIisInModule,_varIscopes,_varIwarnings) -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varIisInModule - {-# LINE 11031 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valOisInModule -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 11036 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valOvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varIscopes - {-# LINE 11041 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valOscopes -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 11046 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varImtokenPos - {-# LINE 11051 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 11056 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valOloopLevel -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 11061 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valOisMeta -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varIglobalDefinitions - {-# LINE 11066 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 11071 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 11076 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valOconfig -> - (case (({-# LINE 400 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 11081 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valOvarBeingDefined -> - (case (({-# LINE 399 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 11086 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valOtopLevel -> - (case (({-# LINE 398 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 11091 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valOinParentheses -> - (case (({-# LINE 397 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 11096 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valOisNegation -> - (case (val_1 _valOconfig _valOfuncName _valOglobalDefinitions _valOinParentheses _valOisInModule _valOisMeta _valOisNegation _valOloopLevel _valOmtokenPos _valOscopeLevel _valOscopes _valOtopLevel _valOvarBeingDefined _valOvariableStyle) of - { ( _valIglobalDefinitions,_valIidentifier,_valIisInModule,_valIisSimpleExpression,_valIisSingleVar,_valIscopes,_valIvariableStyle,_valIwarnings) -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valIisInModule - {-# LINE 11103 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _toOisInModule -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valIvariableStyle - {-# LINE 11108 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _toOvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valIscopes - {-# LINE 11113 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _toOscopes -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 11118 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _toOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valImtokenPos - {-# LINE 11123 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _toOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 11128 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _toOloopLevel -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 11133 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _toOisMeta -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valIglobalDefinitions - {-# LINE 11138 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _toOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 11143 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _toOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 11148 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _toOconfig -> - (case (({-# LINE 404 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 11153 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _toOvarBeingDefined -> - (case (({-# LINE 403 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 11158 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _toOtopLevel -> - (case (({-# LINE 402 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 11163 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _toOinParentheses -> - (case (({-# LINE 401 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 11168 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _toOisNegation -> - (case (to_1 _toOconfig _toOfuncName _toOglobalDefinitions _toOinParentheses _toOisInModule _toOisMeta _toOisNegation _toOloopLevel _toOmtokenPos _toOscopeLevel _toOscopes _toOtopLevel _toOvarBeingDefined _toOvariableStyle) of - { ( _toIglobalDefinitions,_toIidentifier,_toIisInModule,_toIisSimpleExpression,_toIisSingleVar,_toIscopes,_toIvariableStyle,_toIwarnings) -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _toIisInModule - {-# LINE 11175 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stepOisInModule -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _toIvariableStyle - {-# LINE 11180 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stepOvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _toIscopes - {-# LINE 11185 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stepOscopes -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 11190 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stepOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _toImtokenPos - {-# LINE 11195 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stepOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 11200 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stepOloopLevel -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 11205 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stepOisMeta -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _toIglobalDefinitions - {-# LINE 11210 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stepOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 11215 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stepOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 11220 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stepOconfig -> - (case (({-# LINE 409 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nothing - {-# LINE 11225 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stepOvarBeingDefined -> - (case (({-# LINE 408 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 11230 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stepOtopLevel -> - (case (({-# LINE 407 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 11235 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stepOinParentheses -> - (case (({-# LINE 406 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 11240 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _stepOisNegation -> - (case (step_1 _stepOconfig _stepOfuncName _stepOglobalDefinitions _stepOinParentheses _stepOisInModule _stepOisMeta _stepOisNegation _stepOloopLevel _stepOmtokenPos _stepOscopeLevel _stepOscopes _stepOtopLevel _stepOvarBeingDefined _stepOvariableStyle) of - { ( _stepIglobalDefinitions,_stepIidentifier,_stepIisInModule,_stepIisSimpleExpression,_stepIisSingleVar,_stepIscopes,_stepIvariableStyle,_stepIwarnings) -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _stepIisInModule - {-# LINE 11247 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _stepIglobalDefinitions - {-# LINE 11252 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 11257 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOconfig -> - (case (({-# LINE 410 "src/GLuaFixer/AG/ASTLint.ag" #-} - M.singleton _varIidentifier (not (lint_unusedLoopVars _lhsIconfig), _varImtokenPos) : _stepIscopes - {-# LINE 11262 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _stepIvariableStyle - {-# LINE 11267 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 11272 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _stepImtokenPos - {-# LINE 11277 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOmtokenPos -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 11282 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOfuncName -> - (case (({-# LINE 405 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 11287 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisRepeat -> - (case (({-# LINE 396 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel + 1 - {-# LINE 11292 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOloopLevel -> - (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of - { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIglobalDefinitions - {-# LINE 11299 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _varIidentifier (const _valIidentifier (const _toIidentifier (const _stepIidentifier _bodyIidentifier)))) - {-# LINE 11304 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 395 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 11309 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIisInModule - {-# LINE 11314 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyImtokenPos - {-# LINE 11319 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIscopes - {-# LINE 11324 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIvariableStyle - {-# LINE 11329 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 414 "src/GLuaFixer/AG/ASTLint.ag" #-} - _varIwarnings ++ _valIwarnings ++ _toIwarnings ++ _stepIwarnings ++ _bodyIwarnings - {-# LINE 11334 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 411 "src/GLuaFixer/AG/ASTLint.ag" #-} - checkShadows _lhsIscopes _varIcopy - {-# LINE 11339 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _shadowWarning -> - (case (({-# LINE 414 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_shadowing _lhsIconfig) || isNothing _shadowWarning then id else - (:) . fromMaybe (error "fromMaybe ANFor +warnings") $ _shadowWarning - {-# LINE 11345 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f2 -> - (case (({-# LINE 414 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else - (:) $ warn _lhsImtokenPos EmptyFor - {-# LINE 11351 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 414 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2] - {-# LINE 11356 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Stat_ANFor_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) }) }) }) }) }) -sem_Stat_AGFor :: ([MToken]) -> - T_MExprList -> - T_Block -> - T_Stat -sem_Stat_AGFor vars_ vals_ body_ = - (case (body_) of - { ( _bodyIcopy,body_1) -> - (case (vals_) of - { ( _valsIcopy,vals_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AGFor vars_ _valsIcopy _bodyIcopy - {-# LINE 11374 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 11379 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_AGFor_1 :: T_Stat_1 - sem_Stat_AGFor_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 11396 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 11401 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valsOisInModule -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 11406 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valsOvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 11411 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valsOscopes -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 11416 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valsOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 11421 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valsOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 11426 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valsOloopLevel -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 11431 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valsOisMeta -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 11436 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valsOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 11441 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valsOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 11446 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valsOconfig -> - (case (({-# LINE 419 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 11451 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valsOtopLevel -> - (case (({-# LINE 418 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 11456 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _valsOinParentheses -> - (case (vals_1 _valsOconfig _valsOfuncName _valsOglobalDefinitions _valsOinParentheses _valsOisInModule _valsOisMeta _valsOloopLevel _valsOmtokenPos _valsOscopeLevel _valsOscopes _valsOtopLevel _valsOvariableStyle) of - { ( _valsIglobalDefinitions,_valsIidentifier,_valsIisInModule,_valsImtokenPos,_valsIscopes,_valsIvariableStyle,_valsIwarnings) -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valsIisInModule - {-# LINE 11463 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valsIglobalDefinitions - {-# LINE 11468 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 11473 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOconfig -> - (case (({-# LINE 423 "src/GLuaFixer/AG/ASTLint.ag" #-} - M.fromList $ map (\mt -> (tokenLabel mt, (not (lint_unusedLoopVars _lhsIconfig), mpos mt))) vars_ - {-# LINE 11478 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _introduces -> - (case (({-# LINE 424 "src/GLuaFixer/AG/ASTLint.ag" #-} - _introduces : _valsIscopes - {-# LINE 11483 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valsIvariableStyle - {-# LINE 11488 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 11493 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valsImtokenPos - {-# LINE 11498 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOmtokenPos -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 11503 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOfuncName -> - (case (({-# LINE 421 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 11508 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisRepeat -> - (case (({-# LINE 420 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel + 1 - {-# LINE 11513 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOloopLevel -> - (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of - { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIglobalDefinitions - {-# LINE 11520 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _valsIidentifier _bodyIidentifier) - {-# LINE 11525 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 417 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 11530 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIisInModule - {-# LINE 11535 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyImtokenPos - {-# LINE 11540 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIscopes - {-# LINE 11545 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIvariableStyle - {-# LINE 11550 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 427 "src/GLuaFixer/AG/ASTLint.ag" #-} - _valsIwarnings ++ _bodyIwarnings - {-# LINE 11555 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 427 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_shadowing _lhsIconfig) then id else - (++) . catMaybes . map (checkShadows _lhsIscopes) $ vars_ - {-# LINE 11561 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f2 -> - (case (({-# LINE 427 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else - (:) $ warn _lhsImtokenPos EmptyFor - {-# LINE 11567 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 427 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2] - {-# LINE 11572 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Stat_AGFor_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) }) }) -sem_Stat_AFunc :: T_FuncName -> - ([MToken]) -> - T_Block -> - T_Stat -sem_Stat_AFunc name_ args_ body_ = - (case (body_) of - { ( _bodyIcopy,body_1) -> - (case (name_) of - { ( _nameIcopy,_nameIisMeta,name_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AFunc _nameIcopy args_ _bodyIcopy - {-# LINE 11590 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 11595 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_AFunc_1 :: T_Stat_1 - sem_Stat_AFunc_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 11612 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOisInModule -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 11617 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 11622 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOscopes -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 11627 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 11632 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 11637 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOloopLevel -> - (case (({-# LINE 442 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIisMeta || findSelf args_ || _lhsIisMeta - {-# LINE 11642 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _isMeta -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _isMeta - {-# LINE 11647 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOisMeta -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 11652 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 11657 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 11662 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOconfig -> - (case (name_1 _nameOconfig _nameOfuncName _nameOglobalDefinitions _nameOisInModule _nameOisMeta _nameOloopLevel _nameOmtokenPos _nameOscopeLevel _nameOscopes _nameOvariableStyle) of - { ( _nameIglobalDefinitions,_nameIhasSuffixes,_nameIidentifier,_nameIisInModule,_nameImtokenPos,_nameIscopes,_nameIvariableStyle,_nameIwarnings) -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIisInModule - {-# LINE 11669 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIglobalDefinitions - {-# LINE 11674 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 11679 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOconfig -> - (case (({-# LINE 443 "src/GLuaFixer/AG/ASTLint.ag" #-} - _isMeta - {-# LINE 11684 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisMeta -> - (case (({-# LINE 431 "src/GLuaFixer/AG/ASTLint.ag" #-} - filter (/= MToken emptyRg VarArg) $ args_ - {-# LINE 11689 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argIdentifiers -> - (case (({-# LINE 433 "src/GLuaFixer/AG/ASTLint.ag" #-} - (if _isMeta then M.insert "self" (True, _nameImtokenPos) else id) $ - M.fromList . map (\mt -> (tokenLabel mt, (not . lint_unusedParameters $ _lhsIconfig, mpos mt))) $ _argIdentifiers - {-# LINE 11695 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _introduces -> - (case (({-# LINE 435 "src/GLuaFixer/AG/ASTLint.ag" #-} - _introduces : (registerVariable _nameIscopes _nameImtokenPos _nameIidentifier True) - {-# LINE 11700 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIvariableStyle - {-# LINE 11705 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 11710 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameImtokenPos - {-# LINE 11715 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 11720 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOloopLevel -> - (case (({-# LINE 444 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIidentifier - {-# LINE 11725 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOfuncName -> - (case (({-# LINE 432 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 11730 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisRepeat -> - (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of - { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> - (case (({-# LINE 437 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIglobalDefinitions - {-# LINE 11737 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _globalDefinitions_augmented_syn -> - (case (({-# LINE 437 "src/GLuaFixer/AG/ASTLint.ag" #-} - if _lhsIisInModule || isVariableLocal _lhsIscopes _nameIidentifier || _nameIisMeta || _nameIhasSuffixes then id else - M.insertWith (++) _nameIidentifier [_nameImtokenPos] - {-# LINE 11743 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _globalDefinitions_augmented_f1 -> - (case (({-# LINE 437 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _globalDefinitions_augmented_syn [_globalDefinitions_augmented_f1] - {-# LINE 11748 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _nameIidentifier _bodyIidentifier) - {-# LINE 11753 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 430 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 11758 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIisInModule - {-# LINE 11763 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyImtokenPos - {-# LINE 11768 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIscopes - {-# LINE 11773 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIvariableStyle - {-# LINE 11778 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 440 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIwarnings ++ _bodyIwarnings - {-# LINE 11783 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 440 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_shadowing _lhsIconfig) then id else - (++) . catMaybes . map (checkShadows _lhsIscopes) $ _argIdentifiers - {-# LINE 11789 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 440 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 11794 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Stat_AFunc_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) }) }) -sem_Stat_ALocFunc :: T_FuncName -> - ([MToken]) -> - T_Block -> - T_Stat -sem_Stat_ALocFunc name_ args_ body_ = - (case (body_) of - { ( _bodyIcopy,body_1) -> - (case (name_) of - { ( _nameIcopy,_nameIisMeta,name_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ALocFunc _nameIcopy args_ _bodyIcopy - {-# LINE 11812 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 11817 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_Stat_ALocFunc_1 :: T_Stat_1 - sem_Stat_ALocFunc_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 11834 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOisInModule -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 11839 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 11844 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOscopes -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 11849 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 11854 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 11859 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOloopLevel -> - (case (({-# LINE 455 "src/GLuaFixer/AG/ASTLint.ag" #-} - findSelf args_ || _lhsIisMeta - {-# LINE 11864 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _isMeta -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _isMeta - {-# LINE 11869 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOisMeta -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 11874 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 11879 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOfuncName -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 11884 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _nameOconfig -> - (case (name_1 _nameOconfig _nameOfuncName _nameOglobalDefinitions _nameOisInModule _nameOisMeta _nameOloopLevel _nameOmtokenPos _nameOscopeLevel _nameOscopes _nameOvariableStyle) of - { ( _nameIglobalDefinitions,_nameIhasSuffixes,_nameIidentifier,_nameIisInModule,_nameImtokenPos,_nameIscopes,_nameIvariableStyle,_nameIwarnings) -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIisInModule - {-# LINE 11891 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIglobalDefinitions - {-# LINE 11896 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 11901 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOconfig -> - (case (({-# LINE 456 "src/GLuaFixer/AG/ASTLint.ag" #-} - _isMeta - {-# LINE 11906 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisMeta -> - (case (({-# LINE 453 "src/GLuaFixer/AG/ASTLint.ag" #-} - M.insert _nameIidentifier (False, _nameImtokenPos) (head _nameIscopes) : tail _nameIscopes - {-# LINE 11911 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _passedScopes -> - (case (({-# LINE 447 "src/GLuaFixer/AG/ASTLint.ag" #-} - filter (/= MToken emptyRg VarArg) $ args_ - {-# LINE 11916 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _argIdentifiers -> - (case (({-# LINE 449 "src/GLuaFixer/AG/ASTLint.ag" #-} - (if _isMeta then M.insert "self" (True, _nameImtokenPos) else id) $ - M.fromList . map (\mt -> (tokenLabel mt, (not . lint_unusedParameters $ _lhsIconfig, mpos mt))) $ _argIdentifiers - {-# LINE 11922 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _introduces -> - (case (({-# LINE 454 "src/GLuaFixer/AG/ASTLint.ag" #-} - _introduces : _passedScopes - {-# LINE 11927 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIvariableStyle - {-# LINE 11932 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 11937 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameImtokenPos - {-# LINE 11942 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 11947 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOloopLevel -> - (case (({-# LINE 457 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIidentifier - {-# LINE 11952 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOfuncName -> - (case (({-# LINE 448 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 11957 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _bodyOisRepeat -> - (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of - { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIglobalDefinitions - {-# LINE 11964 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _nameIidentifier _bodyIidentifier) - {-# LINE 11969 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 446 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 11974 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisIfStatement -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIisInModule - {-# LINE 11979 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyImtokenPos - {-# LINE 11984 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIscopes - {-# LINE 11989 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _bodyIvariableStyle - {-# LINE 11994 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 463 "src/GLuaFixer/AG/ASTLint.ag" #-} - _nameIwarnings ++ _bodyIwarnings - {-# LINE 11999 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 452 "src/GLuaFixer/AG/ASTLint.ag" #-} - MToken _nameImtokenPos (Identifier _nameIidentifier) - {-# LINE 12004 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _funcname -> - (case (({-# LINE 462 "src/GLuaFixer/AG/ASTLint.ag" #-} - checkShadows _lhsIscopes _funcname - {-# LINE 12009 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _funcNameShadows -> - (case (({-# LINE 463 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_shadowing _lhsIconfig) then id else - (++) . catMaybes . map (checkShadows _lhsIscopes) $ _argIdentifiers - {-# LINE 12015 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f2 -> - (case (({-# LINE 463 "src/GLuaFixer/AG/ASTLint.ag" #-} - if not (lint_shadowing _lhsIconfig) || isNothing _funcNameShadows then id else - (:) . fromMaybe (error "fromMaybe ALocFunc +warnings") $ _funcNameShadows - {-# LINE 12021 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 463 "src/GLuaFixer/AG/ASTLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2] - {-# LINE 12026 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Stat_ALocFunc_1)) of - { ( sem_Stat_1) -> - ( _lhsOcopy,sem_Stat_1) }) }) }) }) }) --- Token ------------------------------------------------------- --- cata -sem_Token :: Token -> - T_Token -sem_Token (Whitespace _space) = - (sem_Token_Whitespace _space) -sem_Token (DashComment _comment) = - (sem_Token_DashComment _comment) -sem_Token (DashBlockComment _depth _comment) = - (sem_Token_DashBlockComment _depth _comment) -sem_Token (SlashComment _comment) = - (sem_Token_SlashComment _comment) -sem_Token (SlashBlockComment _comment) = - (sem_Token_SlashBlockComment _comment) -sem_Token (Semicolon) = - (sem_Token_Semicolon) -sem_Token (TNumber _num) = - (sem_Token_TNumber _num) -sem_Token (DQString _str) = - (sem_Token_DQString _str) -sem_Token (SQString _str) = - (sem_Token_SQString _str) -sem_Token (MLString _str) = - (sem_Token_MLString _str) -sem_Token (TTrue) = - (sem_Token_TTrue) -sem_Token (TFalse) = - (sem_Token_TFalse) -sem_Token (Nil) = - (sem_Token_Nil) -sem_Token (VarArg) = - (sem_Token_VarArg) -sem_Token (Plus) = - (sem_Token_Plus) -sem_Token (Minus) = - (sem_Token_Minus) -sem_Token (Multiply) = - (sem_Token_Multiply) -sem_Token (Divide) = - (sem_Token_Divide) -sem_Token (Modulus) = - (sem_Token_Modulus) -sem_Token (Power) = - (sem_Token_Power) -sem_Token (TEq) = - (sem_Token_TEq) -sem_Token (TNEq) = - (sem_Token_TNEq) -sem_Token (TCNEq) = - (sem_Token_TCNEq) -sem_Token (TLEQ) = - (sem_Token_TLEQ) -sem_Token (TGEQ) = - (sem_Token_TGEQ) -sem_Token (TLT) = - (sem_Token_TLT) -sem_Token (TGT) = - (sem_Token_TGT) -sem_Token (Equals) = - (sem_Token_Equals) -sem_Token (Concatenate) = - (sem_Token_Concatenate) -sem_Token (Colon) = - (sem_Token_Colon) -sem_Token (Dot) = - (sem_Token_Dot) -sem_Token (Comma) = - (sem_Token_Comma) -sem_Token (Hash) = - (sem_Token_Hash) -sem_Token (Not) = - (sem_Token_Not) -sem_Token (CNot) = - (sem_Token_CNot) -sem_Token (And) = - (sem_Token_And) -sem_Token (CAnd) = - (sem_Token_CAnd) -sem_Token (Or) = - (sem_Token_Or) -sem_Token (COr) = - (sem_Token_COr) -sem_Token (Function) = - (sem_Token_Function) -sem_Token (Local) = - (sem_Token_Local) -sem_Token (If) = - (sem_Token_If) -sem_Token (Then) = - (sem_Token_Then) -sem_Token (Elseif) = - (sem_Token_Elseif) -sem_Token (Else) = - (sem_Token_Else) -sem_Token (For) = - (sem_Token_For) -sem_Token (In) = - (sem_Token_In) -sem_Token (Do) = - (sem_Token_Do) -sem_Token (While) = - (sem_Token_While) -sem_Token (Until) = - (sem_Token_Until) -sem_Token (Repeat) = - (sem_Token_Repeat) -sem_Token (Continue) = - (sem_Token_Continue) -sem_Token (Break) = - (sem_Token_Break) -sem_Token (Return) = - (sem_Token_Return) -sem_Token (End) = - (sem_Token_End) -sem_Token (LRound) = - (sem_Token_LRound) -sem_Token (RRound) = - (sem_Token_RRound) -sem_Token (LCurly) = - (sem_Token_LCurly) -sem_Token (RCurly) = - (sem_Token_RCurly) -sem_Token (LSquare) = - (sem_Token_LSquare) -sem_Token (RSquare) = - (sem_Token_RSquare) -sem_Token (Label _whitespaceBefore _lbl _whitespaceAfter) = - (sem_Token_Label _whitespaceBefore _lbl _whitespaceAfter) -sem_Token (Identifier _ident) = - (sem_Token_Identifier _ident) --- semantic domain -type T_Token = ( Token,String,([String -> LintMessage])) -data Inh_Token = Inh_Token {} -data Syn_Token = Syn_Token {copy_Syn_Token :: Token,identifier_Syn_Token :: String,warnings_Syn_Token :: ([String -> LintMessage])} -wrap_Token :: T_Token -> - Inh_Token -> - Syn_Token -wrap_Token sem (Inh_Token) = - (let ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) = sem - in (Syn_Token _lhsOcopy _lhsOidentifier _lhsOwarnings)) -sem_Token_Whitespace :: String -> - T_Token -sem_Token_Whitespace space_ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Whitespace space_ - {-# LINE 12178 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12183 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12188 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12193 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_DashComment :: String -> - T_Token -sem_Token_DashComment comment_ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - DashComment comment_ - {-# LINE 12202 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12207 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12212 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12217 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_DashBlockComment :: Int -> - String -> - T_Token -sem_Token_DashBlockComment depth_ comment_ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - DashBlockComment depth_ comment_ - {-# LINE 12227 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12232 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12237 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12242 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_SlashComment :: String -> - T_Token -sem_Token_SlashComment comment_ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - SlashComment comment_ - {-# LINE 12251 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12256 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12261 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12266 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_SlashBlockComment :: String -> - T_Token -sem_Token_SlashBlockComment comment_ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - SlashBlockComment comment_ - {-# LINE 12275 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12280 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12285 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12290 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Semicolon :: T_Token -sem_Token_Semicolon = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Semicolon - {-# LINE 12298 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12303 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12308 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12313 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_TNumber :: String -> - T_Token -sem_Token_TNumber num_ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - TNumber num_ - {-# LINE 12322 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12327 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12332 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12337 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_DQString :: String -> - T_Token -sem_Token_DQString str_ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - DQString str_ - {-# LINE 12346 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12351 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12356 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12361 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_SQString :: String -> - T_Token -sem_Token_SQString str_ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - SQString str_ - {-# LINE 12370 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12375 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12380 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12385 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_MLString :: String -> - T_Token -sem_Token_MLString str_ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - MLString str_ - {-# LINE 12394 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12399 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12404 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12409 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_TTrue :: T_Token -sem_Token_TTrue = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - TTrue - {-# LINE 12417 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12422 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12427 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12432 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_TFalse :: T_Token -sem_Token_TFalse = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - TFalse - {-# LINE 12440 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12445 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12450 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12455 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Nil :: T_Token -sem_Token_Nil = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Nil - {-# LINE 12463 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12468 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12473 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12478 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_VarArg :: T_Token -sem_Token_VarArg = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - VarArg - {-# LINE 12486 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12491 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12496 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12501 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Plus :: T_Token -sem_Token_Plus = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Plus - {-# LINE 12509 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12514 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12519 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12524 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Minus :: T_Token -sem_Token_Minus = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Minus - {-# LINE 12532 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12537 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12542 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12547 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Multiply :: T_Token -sem_Token_Multiply = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Multiply - {-# LINE 12555 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12560 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12565 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12570 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Divide :: T_Token -sem_Token_Divide = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Divide - {-# LINE 12578 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12583 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12588 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12593 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Modulus :: T_Token -sem_Token_Modulus = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Modulus - {-# LINE 12601 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12606 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12611 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12616 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Power :: T_Token -sem_Token_Power = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Power - {-# LINE 12624 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12629 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12634 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12639 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_TEq :: T_Token -sem_Token_TEq = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - TEq - {-# LINE 12647 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12652 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12657 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12662 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_TNEq :: T_Token -sem_Token_TNEq = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - TNEq - {-# LINE 12670 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12675 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12680 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12685 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_TCNEq :: T_Token -sem_Token_TCNEq = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - TCNEq - {-# LINE 12693 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12698 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12703 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12708 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_TLEQ :: T_Token -sem_Token_TLEQ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - TLEQ - {-# LINE 12716 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12721 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12726 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12731 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_TGEQ :: T_Token -sem_Token_TGEQ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - TGEQ - {-# LINE 12739 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12744 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12749 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12754 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_TLT :: T_Token -sem_Token_TLT = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - TLT - {-# LINE 12762 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12767 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12772 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12777 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_TGT :: T_Token -sem_Token_TGT = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - TGT - {-# LINE 12785 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12790 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12795 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12800 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Equals :: T_Token -sem_Token_Equals = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Equals - {-# LINE 12808 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12813 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12818 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12823 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Concatenate :: T_Token -sem_Token_Concatenate = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Concatenate - {-# LINE 12831 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12836 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12841 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12846 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Colon :: T_Token -sem_Token_Colon = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Colon - {-# LINE 12854 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12859 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12864 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12869 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Dot :: T_Token -sem_Token_Dot = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Dot - {-# LINE 12877 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12882 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12887 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12892 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Comma :: T_Token -sem_Token_Comma = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Comma - {-# LINE 12900 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12905 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12910 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12915 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Hash :: T_Token -sem_Token_Hash = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Hash - {-# LINE 12923 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12928 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12933 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12938 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Not :: T_Token -sem_Token_Not = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Not - {-# LINE 12946 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12951 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12956 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12961 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_CNot :: T_Token -sem_Token_CNot = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - CNot - {-# LINE 12969 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12974 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 12979 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 12984 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_And :: T_Token -sem_Token_And = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - And - {-# LINE 12992 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 12997 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13002 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13007 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_CAnd :: T_Token -sem_Token_CAnd = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - CAnd - {-# LINE 13015 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13020 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13025 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13030 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Or :: T_Token -sem_Token_Or = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Or - {-# LINE 13038 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13043 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13048 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13053 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_COr :: T_Token -sem_Token_COr = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - COr - {-# LINE 13061 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13066 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13071 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13076 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Function :: T_Token -sem_Token_Function = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Function - {-# LINE 13084 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13089 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13094 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13099 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Local :: T_Token -sem_Token_Local = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Local - {-# LINE 13107 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13112 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13117 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13122 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_If :: T_Token -sem_Token_If = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - If - {-# LINE 13130 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13135 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13140 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13145 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Then :: T_Token -sem_Token_Then = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Then - {-# LINE 13153 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13158 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13163 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13168 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Elseif :: T_Token -sem_Token_Elseif = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Elseif - {-# LINE 13176 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13181 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13186 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13191 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Else :: T_Token -sem_Token_Else = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Else - {-# LINE 13199 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13204 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13209 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13214 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_For :: T_Token -sem_Token_For = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - For - {-# LINE 13222 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13227 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13232 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13237 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_In :: T_Token -sem_Token_In = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - In - {-# LINE 13245 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13250 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13255 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13260 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Do :: T_Token -sem_Token_Do = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Do - {-# LINE 13268 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13273 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13278 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13283 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_While :: T_Token -sem_Token_While = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - While - {-# LINE 13291 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13296 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13301 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13306 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Until :: T_Token -sem_Token_Until = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Until - {-# LINE 13314 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13319 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13324 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13329 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Repeat :: T_Token -sem_Token_Repeat = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Repeat - {-# LINE 13337 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13342 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13347 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13352 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Continue :: T_Token -sem_Token_Continue = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Continue - {-# LINE 13360 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13365 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13370 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13375 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Break :: T_Token -sem_Token_Break = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Break - {-# LINE 13383 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13388 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13393 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13398 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Return :: T_Token -sem_Token_Return = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Return - {-# LINE 13406 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13411 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13416 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13421 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_End :: T_Token -sem_Token_End = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - End - {-# LINE 13429 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13434 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13439 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13444 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_LRound :: T_Token -sem_Token_LRound = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - LRound - {-# LINE 13452 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13457 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13462 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13467 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_RRound :: T_Token -sem_Token_RRound = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - RRound - {-# LINE 13475 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13480 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13485 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13490 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_LCurly :: T_Token -sem_Token_LCurly = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - LCurly - {-# LINE 13498 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13503 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13508 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13513 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_RCurly :: T_Token -sem_Token_RCurly = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - RCurly - {-# LINE 13521 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13526 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13531 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13536 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_LSquare :: T_Token -sem_Token_LSquare = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - LSquare - {-# LINE 13544 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13549 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13554 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13559 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_RSquare :: T_Token -sem_Token_RSquare = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - RSquare - {-# LINE 13567 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13572 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13577 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13582 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Label :: String -> - String -> - String -> - T_Token -sem_Token_Label whitespaceBefore_ lbl_ whitespaceAfter_ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Label whitespaceBefore_ lbl_ whitespaceAfter_ - {-# LINE 13593 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13598 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 221 "src/GLuaFixer/AG/ASTLint.ag" #-} - lbl_ - {-# LINE 13603 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13608 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) -sem_Token_Identifier :: String -> - T_Token -sem_Token_Identifier ident_ = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - Identifier ident_ - {-# LINE 13617 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13622 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 223 "src/GLuaFixer/AG/ASTLint.ag" #-} - ident_ - {-# LINE 13627 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13632 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) --- UnOp -------------------------------------------------------- --- cata -sem_UnOp :: UnOp -> - T_UnOp -sem_UnOp (UnMinus) = - (sem_UnOp_UnMinus) -sem_UnOp (ANot) = - (sem_UnOp_ANot) -sem_UnOp (AHash) = - (sem_UnOp_AHash) --- semantic domain -type T_UnOp = ( UnOp,T_UnOp_1) -type T_UnOp_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_UnOp = Inh_UnOp {config_Inh_UnOp :: LintSettings,funcName_Inh_UnOp :: String,globalDefinitions_Inh_UnOp :: (M.Map String [Region]),isInModule_Inh_UnOp :: Bool,isMeta_Inh_UnOp :: Bool,loopLevel_Inh_UnOp :: Int,mtokenPos_Inh_UnOp :: Region,scopeLevel_Inh_UnOp :: Int,scopes_Inh_UnOp :: ([M.Map String (Bool, Region)]),variableStyle_Inh_UnOp :: DeterminedVariableStyle} -data Syn_UnOp = Syn_UnOp {copy_Syn_UnOp :: UnOp,globalDefinitions_Syn_UnOp :: (M.Map String [Region]),identifier_Syn_UnOp :: String,isInModule_Syn_UnOp :: Bool,isNegation_Syn_UnOp :: Bool,mtokenPos_Syn_UnOp :: Region,scopes_Syn_UnOp :: ([M.Map String (Bool, Region)]),variableStyle_Syn_UnOp :: DeterminedVariableStyle,warnings_Syn_UnOp :: ([String -> LintMessage])} -wrap_UnOp :: T_UnOp -> - Inh_UnOp -> - Syn_UnOp -wrap_UnOp sem (Inh_UnOp _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisNegation,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_UnOp _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisNegation _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_UnOp_UnMinus :: T_UnOp -sem_UnOp_UnMinus = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - UnMinus - {-# LINE 13672 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13677 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_UnOp_UnMinus_1 :: T_UnOp_1 - sem_UnOp_UnMinus_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 13694 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13699 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 13704 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 652 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 13709 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisNegation -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 13714 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 13719 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 13724 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13729 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisNegation,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) - in sem_UnOp_UnMinus_1)) of - { ( sem_UnOp_1) -> - ( _lhsOcopy,sem_UnOp_1) }) }) }) -sem_UnOp_ANot :: T_UnOp -sem_UnOp_ANot = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - ANot - {-# LINE 13740 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13745 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_UnOp_ANot_1 :: T_UnOp_1 - sem_UnOp_ANot_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 13762 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13767 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 13772 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 654 "src/GLuaFixer/AG/ASTLint.ag" #-} - True - {-# LINE 13777 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisNegation -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 13782 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 13787 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 13792 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13797 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisNegation,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) - in sem_UnOp_ANot_1)) of - { ( sem_UnOp_1) -> - ( _lhsOcopy,sem_UnOp_1) }) }) }) -sem_UnOp_AHash :: T_UnOp -sem_UnOp_AHash = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - AHash - {-# LINE 13808 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13813 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_UnOp_AHash_1 :: T_UnOp_1 - sem_UnOp_AHash_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 13830 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 13835 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 13840 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 656 "src/GLuaFixer/AG/ASTLint.ag" #-} - False - {-# LINE 13845 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisNegation -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 13850 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 13855 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 13860 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 13865 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisNegation,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) - in sem_UnOp_AHash_1)) of - { ( sem_UnOp_1) -> - ( _lhsOcopy,sem_UnOp_1) }) }) }) --- VarsList ---------------------------------------------------- --- cata -sem_VarsList :: VarsList -> - T_VarsList -sem_VarsList list = - (Prelude.foldr sem_VarsList_Cons sem_VarsList_Nil (Prelude.map sem_Declaration list)) --- semantic domain -type T_VarsList = ( VarsList,T_VarsList_1) -type T_VarsList_1 = LintSettings -> - String -> - (M.Map String [Region]) -> - Bool -> - Bool -> - Bool -> - Int -> - Region -> - Int -> - ([M.Map String (Bool, Region)]) -> - DeterminedVariableStyle -> - ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) -data Inh_VarsList = Inh_VarsList {config_Inh_VarsList :: LintSettings,funcName_Inh_VarsList :: String,globalDefinitions_Inh_VarsList :: (M.Map String [Region]),isInModule_Inh_VarsList :: Bool,isMeta_Inh_VarsList :: Bool,localDefinition_Inh_VarsList :: Bool,loopLevel_Inh_VarsList :: Int,mtokenPos_Inh_VarsList :: Region,scopeLevel_Inh_VarsList :: Int,scopes_Inh_VarsList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_VarsList :: DeterminedVariableStyle} -data Syn_VarsList = Syn_VarsList {copy_Syn_VarsList :: VarsList,globalDefinitions_Syn_VarsList :: (M.Map String [Region]),identifier_Syn_VarsList :: String,isInModule_Syn_VarsList :: Bool,mtokenPos_Syn_VarsList :: Region,scopes_Syn_VarsList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_VarsList :: DeterminedVariableStyle,warnings_Syn_VarsList :: ([String -> LintMessage])} -wrap_VarsList :: T_VarsList -> - Inh_VarsList -> - Syn_VarsList -wrap_VarsList sem (Inh_VarsList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIlocalDefinition _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = - (let ( _lhsOcopy,sem_1) = sem - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIlocalDefinition _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle - in (Syn_VarsList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) -sem_VarsList_Cons :: T_Declaration -> - T_VarsList -> - T_VarsList -sem_VarsList_Cons hd_ tl_ = - (case (tl_) of - { ( _tlIcopy,tl_1) -> - (case (hd_) of - { ( _hdIcopy,hd_1) -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 13911 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 13916 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_VarsList_Cons_1 :: T_VarsList_1 - sem_VarsList_Cons_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIlocalDefinition - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 13934 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOscopes -> - (case (({-# LINE 190 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIlocalDefinition - {-# LINE 13939 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOlocalDefinition -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 13944 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisMeta -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 13949 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 13954 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 13959 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 13964 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 13969 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOloopLevel -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 13974 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 13979 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOglobalDefinitions -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 13984 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _hdOfuncName -> - (case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOlocalDefinition _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of - { ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdImtokenPos,_hdIscopes,_hdIvariableStyle,_hdIwarnings) -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIscopes - {-# LINE 13991 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOscopes -> - (case (({-# LINE 190 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIlocalDefinition - {-# LINE 13996 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOlocalDefinition -> - (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisMeta - {-# LINE 14001 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOisMeta -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIisInModule - {-# LINE 14006 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOisInModule -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIglobalDefinitions - {-# LINE 14011 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOglobalDefinitions -> - (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIconfig - {-# LINE 14016 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOconfig -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIvariableStyle - {-# LINE 14021 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOvariableStyle -> - (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopeLevel - {-# LINE 14026 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOscopeLevel -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdImtokenPos - {-# LINE 14031 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOmtokenPos -> - (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIloopLevel - {-# LINE 14036 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOloopLevel -> - (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIfuncName - {-# LINE 14041 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _tlOfuncName -> - (case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOlocalDefinition _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of - { ( _tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIglobalDefinitions - {-# LINE 14048 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - (const _hdIidentifier _tlIidentifier) - {-# LINE 14053 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIisInModule - {-# LINE 14058 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdImtokenPos - {-# LINE 14063 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIscopes - {-# LINE 14068 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _tlIvariableStyle - {-# LINE 14073 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - _hdIwarnings ++ _tlIwarnings - {-# LINE 14078 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_VarsList_Cons_1)) of - { ( sem_VarsList_1) -> - ( _lhsOcopy,sem_VarsList_1) }) }) }) }) }) -sem_VarsList_Nil :: T_VarsList -sem_VarsList_Nil = - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 14089 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} - _copy - {-# LINE 14094 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOcopy -> - (case ((let sem_VarsList_Nil_1 :: T_VarsList_1 - sem_VarsList_Nil_1 = - (\ _lhsIconfig - _lhsIfuncName - _lhsIglobalDefinitions - _lhsIisInModule - _lhsIisMeta - _lhsIlocalDefinition - _lhsIloopLevel - _lhsImtokenPos - _lhsIscopeLevel - _lhsIscopes - _lhsIvariableStyle -> - (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIglobalDefinitions - {-# LINE 14112 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOglobalDefinitions -> - (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} - unknownIdentifier - {-# LINE 14117 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOidentifier -> - (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIisInModule - {-# LINE 14122 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOisInModule -> - (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsImtokenPos - {-# LINE 14127 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOmtokenPos -> - (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIscopes - {-# LINE 14132 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOscopes -> - (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} - _lhsIvariableStyle - {-# LINE 14137 "src/GLuaFixer/AG/ASTLint.hs" #-} - )) of - { _lhsOvariableStyle -> - (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} - [] - {-# LINE 14142 "src/GLuaFixer/AG/ASTLint.hs" #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# LANGUAGE LambdaCase #-} +-- UUAGC 0.9.56 (src/GLuaFixer/AG/ASTLint.ag) +module GLuaFixer.AG.ASTLint where + +{-# LINE 8 "src/GLuaFixer/AG/../../GLua/AG/Token.ag" #-} + +import GLua.Position +{-# LINE 16 "src/GLuaFixer/AG/ASTLint.hs" #-} + +{-# LINE 9 "src/GLuaFixer/AG/../../GLua/AG/AST.ag" #-} + +import GLua.AG.Token +import GLua.Position +import GLua.TokenTypes () +import Data.Aeson +{-# LINE 24 "src/GLuaFixer/AG/ASTLint.hs" #-} + +{-# LINE 10 "src/GLuaFixer/AG/ASTLint.ag" #-} + +import GLua.AG.AST +import qualified GLua.AG.PrettyPrint as PP +import qualified GLua.AG.Token as T +import GLua.TokenTypes +import qualified Data.Set as S +import qualified Data.Map.Strict as M +import Data.Char (isLower, isUpper) +import Data.Maybe +import GLua.Position (LineColPos(..), Region(..)) +import GLuaFixer.LintMessage +import GLuaFixer.LintSettings +{-# LINE 39 "src/GLuaFixer/AG/ASTLint.hs" #-} +{-# LINE 29 "src/GLuaFixer/AG/ASTLint.ag" #-} + +warn :: Region -> Issue -> FilePath -> LintMessage +warn pos issue = LintMessage LintWarning pos issue + +-- Used in detecting "not (a == b)" kind of things +oppositeBinOp :: BinOp -> Maybe String +oppositeBinOp ALT = Just ">=" +oppositeBinOp AGT = Just "<=" +oppositeBinOp ALEQ = Just ">" +oppositeBinOp AGEQ = Just "<" +oppositeBinOp ANEq = Just "==" +oppositeBinOp AEq = Just "~=" +oppositeBinOp _ = Nothing + +-- Checks whether a variable shadows existing variables +checkShadows :: [M.Map String (Bool, Region)] -> MToken -> Maybe (FilePath -> LintMessage) +checkShadows [] _ = Nothing +checkShadows _ (MToken _ (Identifier "_")) = Nothing -- Exception for vars named '_' +checkShadows (scope : scs) mtok' = + if M.member lbl scope then + Just $ warn (mpos mtok') $ VariableShadows lbl location + else + checkShadows scs mtok' + where + lbl = tokenLabel mtok' + location = snd $ fromMaybe (error "checkShadows fromMaybe") $ M.lookup lbl scope + +-- Determines whether a variable is local +-- It is local if it does not exist in any but the topmost (global) scope +-- it may or may not exist in the topmost scope. +isVariableLocal :: [M.Map String (Bool, Region)] -> String -> Bool +isVariableLocal [] _ = False +isVariableLocal [_] _ = False +isVariableLocal (scope : scs) var = + case M.lookup var scope of + Just _ -> True + Nothing -> isVariableLocal scs var + + +-- Registers a variable as global variable when it hasn't been +-- introduced in any of the visible scopes +registerVariable :: [M.Map String (Bool, Region)] -> Region -> String -> Bool -> [M.Map String (Bool, Region)] +registerVariable [] _ _ _ = error "cannot register top level variable" +registerVariable (scope : []) pos var used = + [ case M.lookup var scope of + Just (used', pos') -> M.insert var (used || used', pos') scope + Nothing -> M.insert var (used, pos) scope + ] -- global scope +registerVariable (scope : scs) pos var used = case M.lookup var scope of + Just (True, _) -> scope : scs + Just (False, pos') -> M.insert var (used, pos') scope : scs + Nothing -> scope : registerVariable scs pos var used + +findSelf :: [MToken] -> Bool +findSelf ((MToken _ (Identifier "self")) : _) = True +findSelf _ = False + +data VariableStyle + = StartsLowerCase + | StartsUpperCase + | VariableStyleNeither + deriving (Eq) + +data DeterminedVariableStyle + = VarStyleNotDetermined + | VarStyleDetermined !VariableStyle + +combineDeterminedVarStyle :: DeterminedVariableStyle -> VariableStyle -> DeterminedVariableStyle +combineDeterminedVarStyle old new = case old of + VarStyleNotDetermined -> VarStyleDetermined new + VarStyleDetermined VariableStyleNeither -> VarStyleDetermined new + _ -> old + +determineVariableStyle :: String -> VariableStyle +determineVariableStyle = \case + [] -> VariableStyleNeither + (c : _) + | isLower c -> StartsLowerCase + | isUpper c -> StartsUpperCase + | otherwise -> VariableStyleNeither + +variableStyleInconsistent :: DeterminedVariableStyle -> VariableStyle -> Bool +variableStyleInconsistent determinedStyle varStyle = case determinedStyle of + VarStyleNotDetermined -> False + VarStyleDetermined VariableStyleNeither -> False + VarStyleDetermined existing -> case varStyle of + VariableStyleNeither -> False + _ -> existing /= varStyle + +unknownIdentifier :: String +unknownIdentifier = "Unknown identifier" + +{-# LINE 133 "src/GLuaFixer/AG/ASTLint.hs" #-} + +{-# LINE 661 "src/GLuaFixer/AG/ASTLint.ag" #-} + +inh_AST :: LintSettings -> Inh_AST +inh_AST conf = Inh_AST { + config_Inh_AST = conf, + isMeta_Inh_AST = False, + loopLevel_Inh_AST = 0, + globalDefinitions_Inh_AST = M.empty, + mtokenPos_Inh_AST = emptyRg, + scopeLevel_Inh_AST = 0, + scopes_Inh_AST = [M.empty], + funcName_Inh_AST = "", + isInModule_Inh_AST = False, + variableStyle_Inh_AST = VarStyleNotDetermined + } + +allAttributes :: LintSettings -> AST -> Syn_AST +allAttributes conf p = wrap_AST (sem_AST p) (inh_AST conf) + +astWarnings :: LintSettings -> AST -> [String -> LintMessage] +astWarnings conf p = warnings_Syn_AST $ allAttributes conf p + +globalDefinitions :: LintSettings -> AST -> M.Map String [Region] +globalDefinitions conf p = globalDefinitions_Syn_AST $ allAttributes conf p +{-# LINE 159 "src/GLuaFixer/AG/ASTLint.hs" #-} +-- AReturn ----------------------------------------------------- +-- cata +sem_AReturn :: AReturn -> + T_AReturn +sem_AReturn (AReturn _pos _values) = + (sem_AReturn_AReturn _pos (sem_MExprList _values)) +sem_AReturn (NoReturn) = + (sem_AReturn_NoReturn) +-- semantic domain +type T_AReturn = ( AReturn,T_AReturn_1) +type T_AReturn_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage])) +data Inh_AReturn = Inh_AReturn {config_Inh_AReturn :: LintSettings,funcName_Inh_AReturn :: String,globalDefinitions_Inh_AReturn :: (M.Map String [Region]),isInModule_Inh_AReturn :: Bool,isMeta_Inh_AReturn :: Bool,loopLevel_Inh_AReturn :: Int,mtokenPos_Inh_AReturn :: Region,scopeLevel_Inh_AReturn :: Int,scopes_Inh_AReturn :: ([M.Map String (Bool, Region)]),variableStyle_Inh_AReturn :: DeterminedVariableStyle} +data Syn_AReturn = Syn_AReturn {copy_Syn_AReturn :: AReturn,globalDefinitions_Syn_AReturn :: (M.Map String [Region]),identifier_Syn_AReturn :: String,isInModule_Syn_AReturn :: Bool,mtokenPos_Syn_AReturn :: Region,scopes_Syn_AReturn :: ([M.Map String (Bool, Region)]),statementCount_Syn_AReturn :: Int,variableStyle_Syn_AReturn :: DeterminedVariableStyle,warnings_Syn_AReturn :: ([String -> LintMessage])} +wrap_AReturn :: T_AReturn -> + Inh_AReturn -> + Syn_AReturn +wrap_AReturn sem (Inh_AReturn _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_AReturn _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings)) +sem_AReturn_AReturn :: Region -> + T_MExprList -> + T_AReturn +sem_AReturn_AReturn pos_ values_ = + (case (values_) of + { ( _valuesIcopy,values_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AReturn pos_ _valuesIcopy + {-# LINE 198 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 203 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_AReturn_AReturn_1 :: T_AReturn_1 + sem_AReturn_AReturn_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 220 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valuesOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 225 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valuesOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 230 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valuesOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 235 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valuesOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 240 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valuesOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 245 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valuesOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 250 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valuesOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 255 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valuesOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 260 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valuesOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 265 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valuesOfuncName -> + (case (({-# LINE 505 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 270 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valuesOtopLevel -> + (case (({-# LINE 504 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 275 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valuesOinParentheses -> + (case (values_1 _valuesOconfig _valuesOfuncName _valuesOglobalDefinitions _valuesOinParentheses _valuesOisInModule _valuesOisMeta _valuesOloopLevel _valuesOmtokenPos _valuesOscopeLevel _valuesOscopes _valuesOtopLevel _valuesOvariableStyle) of + { ( _valuesIglobalDefinitions,_valuesIidentifier,_valuesIisInModule,_valuesImtokenPos,_valuesIscopes,_valuesIvariableStyle,_valuesIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valuesIglobalDefinitions + {-# LINE 282 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valuesIidentifier + {-# LINE 287 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valuesIisInModule + {-# LINE 292 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 506 "src/GLuaFixer/AG/ASTLint.ag" #-} + pos_ + {-# LINE 297 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valuesIscopes + {-# LINE 302 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-} + 1 + {-# LINE 307 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOstatementCount -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valuesIvariableStyle + {-# LINE 312 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valuesIwarnings + {-# LINE 317 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_AReturn_AReturn_1)) of + { ( sem_AReturn_1) -> + ( _lhsOcopy,sem_AReturn_1) }) }) }) }) +sem_AReturn_NoReturn :: T_AReturn +sem_AReturn_NoReturn = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + NoReturn + {-# LINE 328 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 333 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_AReturn_NoReturn_1 :: T_AReturn_1 + sem_AReturn_NoReturn_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 350 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 355 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 360 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 365 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 370 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 508 "src/GLuaFixer/AG/ASTLint.ag" #-} + 0 + {-# LINE 375 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOstatementCount -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 380 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 385 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) + in sem_AReturn_NoReturn_1)) of + { ( sem_AReturn_1) -> + ( _lhsOcopy,sem_AReturn_1) }) }) }) +-- AST --------------------------------------------------------- +-- cata +sem_AST :: AST -> + T_AST +sem_AST (AST _comments _chunk) = + (sem_AST_AST _comments (sem_Block _chunk)) +-- semantic domain +type T_AST = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( AST,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_AST = Inh_AST {config_Inh_AST :: LintSettings,funcName_Inh_AST :: String,globalDefinitions_Inh_AST :: (M.Map String [Region]),isInModule_Inh_AST :: Bool,isMeta_Inh_AST :: Bool,loopLevel_Inh_AST :: Int,mtokenPos_Inh_AST :: Region,scopeLevel_Inh_AST :: Int,scopes_Inh_AST :: ([M.Map String (Bool, Region)]),variableStyle_Inh_AST :: DeterminedVariableStyle} +data Syn_AST = Syn_AST {copy_Syn_AST :: AST,globalDefinitions_Syn_AST :: (M.Map String [Region]),identifier_Syn_AST :: String,isInModule_Syn_AST :: Bool,mtokenPos_Syn_AST :: Region,scopes_Syn_AST :: ([M.Map String (Bool, Region)]),variableStyle_Syn_AST :: DeterminedVariableStyle,warnings_Syn_AST :: ([String -> LintMessage])} +wrap_AST :: T_AST -> + Inh_AST -> + Syn_AST +wrap_AST sem (Inh_AST _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_AST _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_AST_AST :: ([MToken]) -> + T_Block -> + T_AST +sem_AST_AST comments_ chunk_ = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (chunk_) of + { ( _chunkIcopy,chunk_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AST comments_ _chunkIcopy + {-# LINE 436 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 441 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 446 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _chunkOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 451 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _chunkOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 456 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _chunkOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 461 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _chunkOconfig -> + (case (({-# LINE 293 "src/GLuaFixer/AG/ASTLint.ag" #-} + M.empty : _lhsIscopes + {-# LINE 466 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _chunkOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 471 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _chunkOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 476 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _chunkOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 481 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _chunkOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 486 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _chunkOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 491 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _chunkOfuncName -> + (case (({-# LINE 294 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 496 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _chunkOisRepeat -> + (case (chunk_1 _chunkOconfig _chunkOfuncName _chunkOglobalDefinitions _chunkOisInModule _chunkOisMeta _chunkOisRepeat _chunkOloopLevel _chunkOmtokenPos _chunkOscopeLevel _chunkOscopes _chunkOvariableStyle) of + { ( _chunkIglobalDefinitions,_chunkIidentifier,_chunkIisIfStatement,_chunkIisInModule,_chunkImtokenPos,_chunkIscopes,_chunkIstatementCount,_chunkIvariableStyle,_chunkIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _chunkIglobalDefinitions + {-# LINE 503 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _chunkIidentifier + {-# LINE 508 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _chunkIisInModule + {-# LINE 513 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _chunkImtokenPos + {-# LINE 518 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _chunkIscopes + {-# LINE 523 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _chunkIvariableStyle + {-# LINE 528 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _chunkIwarnings + {-# LINE 533 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) +-- Args -------------------------------------------------------- +-- cata +sem_Args :: Args -> + T_Args +sem_Args (ListArgs _args) = + (sem_Args_ListArgs (sem_MExprList _args)) +sem_Args (TableArg _arg) = + (sem_Args_TableArg (sem_FieldList _arg)) +sem_Args (StringArg _arg) = + (sem_Args_StringArg (sem_MToken _arg)) +-- semantic domain +type T_Args = ( Args,T_Args_1) +type T_Args_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_Args = Inh_Args {config_Inh_Args :: LintSettings,funcName_Inh_Args :: String,globalDefinitions_Inh_Args :: (M.Map String [Region]),isInModule_Inh_Args :: Bool,isMeta_Inh_Args :: Bool,loopLevel_Inh_Args :: Int,mtokenPos_Inh_Args :: Region,scopeLevel_Inh_Args :: Int,scopes_Inh_Args :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Args :: DeterminedVariableStyle} +data Syn_Args = Syn_Args {copy_Syn_Args :: Args,globalDefinitions_Syn_Args :: (M.Map String [Region]),identifier_Syn_Args :: String,isInModule_Syn_Args :: Bool,mtokenPos_Syn_Args :: Region,scopes_Syn_Args :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Args :: DeterminedVariableStyle,warnings_Syn_Args :: ([String -> LintMessage])} +wrap_Args :: T_Args -> + Inh_Args -> + Syn_Args +wrap_Args sem (Inh_Args _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_Args _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_Args_ListArgs :: T_MExprList -> + T_Args +sem_Args_ListArgs args_ = + (case (args_) of + { ( _argsIcopy,args_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ListArgs _argsIcopy + {-# LINE 576 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 581 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Args_ListArgs_1 :: T_Args_1 + sem_Args_ListArgs_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 598 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 603 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 608 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 613 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 618 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 623 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 628 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 633 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 638 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 643 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOfuncName -> + (case (({-# LINE 620 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 648 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOtopLevel -> + (case (({-# LINE 619 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 653 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOinParentheses -> + (case (args_1 _argsOconfig _argsOfuncName _argsOglobalDefinitions _argsOinParentheses _argsOisInModule _argsOisMeta _argsOloopLevel _argsOmtokenPos _argsOscopeLevel _argsOscopes _argsOtopLevel _argsOvariableStyle) of + { ( _argsIglobalDefinitions,_argsIidentifier,_argsIisInModule,_argsImtokenPos,_argsIscopes,_argsIvariableStyle,_argsIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIglobalDefinitions + {-# LINE 660 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIidentifier + {-# LINE 665 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIisInModule + {-# LINE 670 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsImtokenPos + {-# LINE 675 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIscopes + {-# LINE 680 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIvariableStyle + {-# LINE 685 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIwarnings + {-# LINE 690 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Args_ListArgs_1)) of + { ( sem_Args_1) -> + ( _lhsOcopy,sem_Args_1) }) }) }) }) +sem_Args_TableArg :: T_FieldList -> + T_Args +sem_Args_TableArg arg_ = + (case (arg_) of + { ( _argIcopy,arg_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + TableArg _argIcopy + {-# LINE 704 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 709 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Args_TableArg_1 :: T_Args_1 + sem_Args_TableArg_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 726 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 731 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 736 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 741 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 746 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 751 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 756 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 761 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 766 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 771 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOfuncName -> + (case (({-# LINE 622 "src/GLuaFixer/AG/ASTLint.ag" #-} + S.empty + {-# LINE 776 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOfieldNames -> + (case (arg_1 _argOconfig _argOfieldNames _argOfuncName _argOglobalDefinitions _argOisInModule _argOisMeta _argOloopLevel _argOmtokenPos _argOscopeLevel _argOscopes _argOvariableStyle) of + { ( _argIfieldNames,_argIglobalDefinitions,_argIidentifier,_argIisInModule,_argImtokenPos,_argIscopes,_argIvariableStyle,_argIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argIglobalDefinitions + {-# LINE 783 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argIidentifier + {-# LINE 788 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argIisInModule + {-# LINE 793 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argImtokenPos + {-# LINE 798 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argIscopes + {-# LINE 803 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argIvariableStyle + {-# LINE 808 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argIwarnings + {-# LINE 813 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Args_TableArg_1)) of + { ( sem_Args_1) -> + ( _lhsOcopy,sem_Args_1) }) }) }) }) +sem_Args_StringArg :: T_MToken -> + T_Args +sem_Args_StringArg arg_ = + (case (arg_) of + { ( _argIcopy,_argImtok,_argImtokenPos,arg_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + StringArg _argIcopy + {-# LINE 827 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 832 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Args_StringArg_1 :: T_Args_1 + sem_Args_StringArg_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 849 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOglobalDefinitions -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 854 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOscopes -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 859 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOmtokenPos -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 864 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 869 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOisInModule -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 874 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 879 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argOconfig -> + (case (arg_1 _argOconfig _argOfuncName _argOglobalDefinitions _argOisInModule _argOisMeta _argOmtokenPos _argOscopes) of + { ( _argIglobalDefinitions,_argIidentifier,_argIisInModule,_argIscopes,_argIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argIglobalDefinitions + {-# LINE 886 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argIidentifier + {-# LINE 891 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argIisInModule + {-# LINE 896 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argImtokenPos + {-# LINE 901 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argIscopes + {-# LINE 906 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 911 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argIwarnings + {-# LINE 916 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Args_StringArg_1)) of + { ( sem_Args_1) -> + ( _lhsOcopy,sem_Args_1) }) }) }) }) +-- BinOp ------------------------------------------------------- +-- cata +sem_BinOp :: BinOp -> + T_BinOp +sem_BinOp (AOr) = + (sem_BinOp_AOr) +sem_BinOp (AAnd) = + (sem_BinOp_AAnd) +sem_BinOp (ALT) = + (sem_BinOp_ALT) +sem_BinOp (AGT) = + (sem_BinOp_AGT) +sem_BinOp (ALEQ) = + (sem_BinOp_ALEQ) +sem_BinOp (AGEQ) = + (sem_BinOp_AGEQ) +sem_BinOp (ANEq) = + (sem_BinOp_ANEq) +sem_BinOp (AEq) = + (sem_BinOp_AEq) +sem_BinOp (AConcatenate) = + (sem_BinOp_AConcatenate) +sem_BinOp (APlus) = + (sem_BinOp_APlus) +sem_BinOp (BinMinus) = + (sem_BinOp_BinMinus) +sem_BinOp (AMultiply) = + (sem_BinOp_AMultiply) +sem_BinOp (ADivide) = + (sem_BinOp_ADivide) +sem_BinOp (AModulus) = + (sem_BinOp_AModulus) +sem_BinOp (APower) = + (sem_BinOp_APower) +-- semantic domain +type T_BinOp = ( BinOp,T_BinOp_1) +type T_BinOp_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_BinOp = Inh_BinOp {config_Inh_BinOp :: LintSettings,funcName_Inh_BinOp :: String,globalDefinitions_Inh_BinOp :: (M.Map String [Region]),isInModule_Inh_BinOp :: Bool,isMeta_Inh_BinOp :: Bool,loopLevel_Inh_BinOp :: Int,mtokenPos_Inh_BinOp :: Region,scopeLevel_Inh_BinOp :: Int,scopes_Inh_BinOp :: ([M.Map String (Bool, Region)]),variableStyle_Inh_BinOp :: DeterminedVariableStyle} +data Syn_BinOp = Syn_BinOp {copy_Syn_BinOp :: BinOp,globalDefinitions_Syn_BinOp :: (M.Map String [Region]),identifier_Syn_BinOp :: String,isInModule_Syn_BinOp :: Bool,mtokenPos_Syn_BinOp :: Region,scopes_Syn_BinOp :: ([M.Map String (Bool, Region)]),variableStyle_Syn_BinOp :: DeterminedVariableStyle,warnings_Syn_BinOp :: ([String -> LintMessage])} +wrap_BinOp :: T_BinOp -> + Inh_BinOp -> + Syn_BinOp +wrap_BinOp sem (Inh_BinOp _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_BinOp _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_BinOp_AOr :: T_BinOp +sem_BinOp_AOr = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AOr + {-# LINE 983 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 988 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_AOr_1 :: T_BinOp_1 + sem_BinOp_AOr_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1005 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1010 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1015 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1020 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1025 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1030 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1035 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_AOr_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +sem_BinOp_AAnd :: T_BinOp +sem_BinOp_AAnd = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AAnd + {-# LINE 1046 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1051 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_AAnd_1 :: T_BinOp_1 + sem_BinOp_AAnd_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1068 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1073 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1078 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1083 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1088 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1093 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1098 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_AAnd_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +sem_BinOp_ALT :: T_BinOp +sem_BinOp_ALT = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ALT + {-# LINE 1109 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1114 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_ALT_1 :: T_BinOp_1 + sem_BinOp_ALT_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1131 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1136 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1141 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1146 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1151 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1156 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1161 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_ALT_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +sem_BinOp_AGT :: T_BinOp +sem_BinOp_AGT = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AGT + {-# LINE 1172 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1177 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_AGT_1 :: T_BinOp_1 + sem_BinOp_AGT_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1194 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1199 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1204 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1209 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1214 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1219 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1224 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_AGT_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +sem_BinOp_ALEQ :: T_BinOp +sem_BinOp_ALEQ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ALEQ + {-# LINE 1235 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1240 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_ALEQ_1 :: T_BinOp_1 + sem_BinOp_ALEQ_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1257 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1262 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1267 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1272 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1277 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1282 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1287 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_ALEQ_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +sem_BinOp_AGEQ :: T_BinOp +sem_BinOp_AGEQ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AGEQ + {-# LINE 1298 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1303 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_AGEQ_1 :: T_BinOp_1 + sem_BinOp_AGEQ_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1320 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1325 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1330 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1335 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1340 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1345 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1350 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_AGEQ_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +sem_BinOp_ANEq :: T_BinOp +sem_BinOp_ANEq = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ANEq + {-# LINE 1361 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1366 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_ANEq_1 :: T_BinOp_1 + sem_BinOp_ANEq_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1383 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1388 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1393 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1398 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1403 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1408 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1413 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_ANEq_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +sem_BinOp_AEq :: T_BinOp +sem_BinOp_AEq = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AEq + {-# LINE 1424 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1429 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_AEq_1 :: T_BinOp_1 + sem_BinOp_AEq_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1446 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1451 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1456 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1461 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1466 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1471 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1476 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_AEq_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +sem_BinOp_AConcatenate :: T_BinOp +sem_BinOp_AConcatenate = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AConcatenate + {-# LINE 1487 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1492 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_AConcatenate_1 :: T_BinOp_1 + sem_BinOp_AConcatenate_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1509 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1514 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1519 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1524 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1529 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1534 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1539 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_AConcatenate_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +sem_BinOp_APlus :: T_BinOp +sem_BinOp_APlus = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + APlus + {-# LINE 1550 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1555 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_APlus_1 :: T_BinOp_1 + sem_BinOp_APlus_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1572 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1577 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1582 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1587 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1592 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1597 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1602 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_APlus_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +sem_BinOp_BinMinus :: T_BinOp +sem_BinOp_BinMinus = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + BinMinus + {-# LINE 1613 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1618 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_BinMinus_1 :: T_BinOp_1 + sem_BinOp_BinMinus_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1635 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1640 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1645 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1650 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1655 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1660 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1665 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_BinMinus_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +sem_BinOp_AMultiply :: T_BinOp +sem_BinOp_AMultiply = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AMultiply + {-# LINE 1676 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1681 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_AMultiply_1 :: T_BinOp_1 + sem_BinOp_AMultiply_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1698 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1703 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1708 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1713 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1718 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1723 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1728 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_AMultiply_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +sem_BinOp_ADivide :: T_BinOp +sem_BinOp_ADivide = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ADivide + {-# LINE 1739 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1744 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_ADivide_1 :: T_BinOp_1 + sem_BinOp_ADivide_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1761 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1766 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1771 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1776 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1781 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1786 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1791 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_ADivide_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +sem_BinOp_AModulus :: T_BinOp +sem_BinOp_AModulus = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AModulus + {-# LINE 1802 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1807 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_AModulus_1 :: T_BinOp_1 + sem_BinOp_AModulus_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1824 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1829 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1834 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1839 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1844 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1849 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1854 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_AModulus_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +sem_BinOp_APower :: T_BinOp +sem_BinOp_APower = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + APower + {-# LINE 1865 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1870 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_BinOp_APower_1 :: T_BinOp_1 + sem_BinOp_APower_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 1887 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 1892 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 1897 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 1902 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1907 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 1912 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 1917 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_BinOp_APower_1)) of + { ( sem_BinOp_1) -> + ( _lhsOcopy,sem_BinOp_1) }) }) }) +-- Block ------------------------------------------------------- +-- cata +sem_Block :: Block -> + T_Block +sem_Block (Block _pos _stats _ret) = + (sem_Block_Block _pos (sem_MStatList _stats) (sem_AReturn _ret)) +-- semantic domain +type T_Block = ( Block,T_Block_1) +type T_Block_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage])) +data Inh_Block = Inh_Block {config_Inh_Block :: LintSettings,funcName_Inh_Block :: String,globalDefinitions_Inh_Block :: (M.Map String [Region]),isInModule_Inh_Block :: Bool,isMeta_Inh_Block :: Bool,isRepeat_Inh_Block :: Bool,loopLevel_Inh_Block :: Int,mtokenPos_Inh_Block :: Region,scopeLevel_Inh_Block :: Int,scopes_Inh_Block :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Block :: DeterminedVariableStyle} +data Syn_Block = Syn_Block {copy_Syn_Block :: Block,globalDefinitions_Syn_Block :: (M.Map String [Region]),identifier_Syn_Block :: String,isIfStatement_Syn_Block :: Bool,isInModule_Syn_Block :: Bool,mtokenPos_Syn_Block :: Region,scopes_Syn_Block :: ([M.Map String (Bool, Region)]),statementCount_Syn_Block :: Int,variableStyle_Syn_Block :: DeterminedVariableStyle,warnings_Syn_Block :: ([String -> LintMessage])} +wrap_Block :: T_Block -> + Inh_Block -> + Syn_Block +wrap_Block sem (Inh_Block _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIisRepeat _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIisRepeat _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_Block _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisIfStatement _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings)) +sem_Block_Block :: Region -> + T_MStatList -> + T_AReturn -> + T_Block +sem_Block_Block pos_ stats_ ret_ = + (case (ret_) of + { ( _retIcopy,ret_1) -> + (case (stats_) of + { ( _statsIcopy,stats_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Block pos_ _statsIcopy _retIcopy + {-# LINE 1964 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 1969 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Block_Block_1 :: T_Block_1 + sem_Block_Block_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIisRepeat + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 1987 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statsOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 1992 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statsOisMeta -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 1997 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statsOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 2002 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statsOvariableStyle -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 2007 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statsOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 2012 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statsOloopLevel -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 2017 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statsOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 2022 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statsOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 2027 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statsOfuncName -> + (case (({-# LINE 298 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + 1 + {-# LINE 2032 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statsOscopeLevel -> + (case (stats_1 _statsOconfig _statsOfuncName _statsOglobalDefinitions _statsOisInModule _statsOisMeta _statsOloopLevel _statsOmtokenPos _statsOscopeLevel _statsOscopes _statsOvariableStyle) of + { ( _statsIglobalDefinitions,_statsIidentifier,_statsIisIfStatement,_statsIisInModule,_statsImtokenPos,_statsIscopes,_statsIstatementCount,_statsIvariableStyle,_statsIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statsIscopes + {-# LINE 2039 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _retOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 2044 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _retOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statsIisInModule + {-# LINE 2049 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _retOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statsIglobalDefinitions + {-# LINE 2054 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _retOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 2059 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _retOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statsIvariableStyle + {-# LINE 2064 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _retOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 2069 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _retOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statsImtokenPos + {-# LINE 2074 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _retOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 2079 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _retOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 2084 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _retOfuncName -> + (case (ret_1 _retOconfig _retOfuncName _retOglobalDefinitions _retOisInModule _retOisMeta _retOloopLevel _retOmtokenPos _retOscopeLevel _retOscopes _retOvariableStyle) of + { ( _retIglobalDefinitions,_retIidentifier,_retIisInModule,_retImtokenPos,_retIscopes,_retIstatementCount,_retIvariableStyle,_retIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _retIglobalDefinitions + {-# LINE 2091 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _statsIidentifier _retIidentifier) + {-# LINE 2096 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statsIisIfStatement + {-# LINE 2101 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _retIisInModule + {-# LINE 2106 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _retImtokenPos + {-# LINE 2111 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 305 "src/GLuaFixer/AG/ASTLint.ag" #-} + if _lhsIisRepeat then _retIscopes else tail _retIscopes + {-# LINE 2116 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statsIstatementCount + _retIstatementCount + {-# LINE 2121 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOstatementCount -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _retIvariableStyle + {-# LINE 2126 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 303 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statsIwarnings ++ _retIwarnings + {-# LINE 2131 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 302 "src/GLuaFixer/AG/ASTLint.ag" #-} + M.filterWithKey (\k (b, _) -> not (null k) && head k /= '_' && not b) (head _retIscopes) + {-# LINE 2136 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _deadVars -> + (case (({-# LINE 299 "src/GLuaFixer/AG/ASTLint.ag" #-} + lint_maxScopeDepth _lhsIconfig + {-# LINE 2141 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _maxScopeDepth -> + (case (({-# LINE 303 "src/GLuaFixer/AG/ASTLint.ag" #-} + if _maxScopeDepth == 0 || _lhsIscopeLevel /= _maxScopeDepth then id else + (:) $ warn _statsImtokenPos ScopePyramids + {-# LINE 2147 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f2 -> + (case (({-# LINE 303 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_unusedVars _lhsIconfig) || _lhsIisRepeat then id else + (++) $ M.foldrWithKey (\k (_, pos) ls -> warn pos (UnusedVariable k) : ls) [] _deadVars + {-# LINE 2153 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 303 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2] + {-# LINE 2158 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Block_Block_1)) of + { ( sem_Block_1) -> + ( _lhsOcopy,sem_Block_1) }) }) }) }) }) +-- Declaration ------------------------------------------------- +-- cata +sem_Declaration :: Declaration -> + T_Declaration +sem_Declaration ( x1,x2) = + (sem_Declaration_Tuple (sem_PrefixExp x1) (sem_MaybeMExpr x2)) +-- semantic domain +type T_Declaration = ( Declaration,T_Declaration_1) +type T_Declaration_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_Declaration = Inh_Declaration {config_Inh_Declaration :: LintSettings,funcName_Inh_Declaration :: String,globalDefinitions_Inh_Declaration :: (M.Map String [Region]),isInModule_Inh_Declaration :: Bool,isMeta_Inh_Declaration :: Bool,localDefinition_Inh_Declaration :: Bool,loopLevel_Inh_Declaration :: Int,mtokenPos_Inh_Declaration :: Region,scopeLevel_Inh_Declaration :: Int,scopes_Inh_Declaration :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Declaration :: DeterminedVariableStyle} +data Syn_Declaration = Syn_Declaration {copy_Syn_Declaration :: Declaration,globalDefinitions_Syn_Declaration :: (M.Map String [Region]),identifier_Syn_Declaration :: String,isInModule_Syn_Declaration :: Bool,mtokenPos_Syn_Declaration :: Region,scopes_Syn_Declaration :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Declaration :: DeterminedVariableStyle,warnings_Syn_Declaration :: ([String -> LintMessage])} +wrap_Declaration :: T_Declaration -> + Inh_Declaration -> + Syn_Declaration +wrap_Declaration sem (Inh_Declaration _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIlocalDefinition _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIlocalDefinition _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_Declaration _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_Declaration_Tuple :: T_PrefixExp -> + T_MaybeMExpr -> + T_Declaration +sem_Declaration_Tuple x1_ x2_ = + (case (x2_) of + { ( _x2Icopy,x2_1) -> + (case (x1_) of + { ( _x1Icopy,_x1IhasSuffixes,_x1ImtokenPos,_x1IvarName,x1_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + (_x1Icopy,_x2Icopy) + {-# LINE 2204 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 2209 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Declaration_Tuple_1 :: T_Declaration_1 + sem_Declaration_Tuple_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIlocalDefinition + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 2227 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OisMeta -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 2232 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1Oconfig -> + (case (({-# LINE 268 "src/GLuaFixer/AG/ASTLint.ag" #-} + tokenLabel . fromMaybe (error "fromMaybe sem Declaration loc.var") $ _x1IvarName + {-# LINE 2237 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _var -> + (case (({-# LINE 276 "src/GLuaFixer/AG/ASTLint.ag" #-} + if _lhsIlocalDefinition then + M.insert _var (False, _x1ImtokenPos) (head _lhsIscopes) : tail _lhsIscopes + else if isJust _x1IvarName then + registerVariable _lhsIscopes _x1ImtokenPos _var _x1IhasSuffixes + else + _lhsIscopes + {-# LINE 2247 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1Oscopes -> + (case (({-# LINE 264 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 2252 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OvarBeingDefined -> + (case (({-# LINE 260 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 2257 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OregisterVarUse -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 2262 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 2267 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 2272 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 2277 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OloopLevel -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 2282 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 2287 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 2292 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OfuncName -> + (case (({-# LINE 262 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 2297 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OtopLevel -> + (case (({-# LINE 261 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 2302 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OinParentheses -> + (case (({-# LINE 259 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 2307 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OisNegation -> + (case (x1_1 _x1Oconfig _x1OfuncName _x1OglobalDefinitions _x1OinParentheses _x1OisInModule _x1OisMeta _x1OisNegation _x1OloopLevel _x1OmtokenPos _x1OregisterVarUse _x1OscopeLevel _x1Oscopes _x1OtopLevel _x1OvarBeingDefined _x1OvariableStyle) of + { ( _x1IglobalDefinitions,_x1Iidentifier,_x1IisInModule,_x1IisSimpleExpression,_x1IisSingleVar,_x1Iscopes,_x1IvariableStyle,_x1Iwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x1Iscopes + {-# LINE 2314 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2Oscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 2319 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x1IisInModule + {-# LINE 2324 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x1IglobalDefinitions + {-# LINE 2329 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 2334 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2Oconfig -> + (case (({-# LINE 266 "src/GLuaFixer/AG/ASTLint.ag" #-} + if _x1IhasSuffixes || not _lhsIlocalDefinition then Nothing else _x1IvarName + {-# LINE 2339 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OvarBeingDefined -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x1IvariableStyle + {-# LINE 2344 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 2349 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x1ImtokenPos + {-# LINE 2354 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 2359 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 2364 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OfuncName -> + (case (({-# LINE 263 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 2369 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OisNegation -> + (case (x2_1 _x2Oconfig _x2OfuncName _x2OglobalDefinitions _x2OisInModule _x2OisMeta _x2OisNegation _x2OloopLevel _x2OmtokenPos _x2OscopeLevel _x2Oscopes _x2OvarBeingDefined _x2OvariableStyle) of + { ( _x2IglobalDefinitions,_x2Iidentifier,_x2IisInModule,_x2IisSingleVar,_x2ImtokenPos,_x2Iscopes,_x2IvariableStyle,_x2Iwarnings) -> + (case (({-# LINE 283 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x2IglobalDefinitions + {-# LINE 2376 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _globalDefinitions_augmented_syn -> + (case (({-# LINE 283 "src/GLuaFixer/AG/ASTLint.ag" #-} + if _lhsIisInModule || _lhsIlocalDefinition || isVariableLocal _lhsIscopes _var || _x1IhasSuffixes then id else + M.insertWith (++) _var [_x1ImtokenPos] + {-# LINE 2382 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _globalDefinitions_augmented_f1 -> + (case (({-# LINE 283 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _globalDefinitions_augmented_syn [_globalDefinitions_augmented_f1] + {-# LINE 2387 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _x1Iidentifier _x2Iidentifier) + {-# LINE 2392 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x2IisInModule + {-# LINE 2397 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 257 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x1ImtokenPos + {-# LINE 2402 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x2Iscopes + {-# LINE 2407 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 269 "src/GLuaFixer/AG/ASTLint.ag" #-} + determineVariableStyle _var + {-# LINE 2412 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varStyle -> + (case (({-# LINE 258 "src/GLuaFixer/AG/ASTLint.ag" #-} + if _lhsIlocalDefinition then combineDeterminedVarStyle _lhsIvariableStyle _varStyle else _lhsIvariableStyle + {-# LINE 2417 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 288 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x1Iwarnings ++ _x2Iwarnings + {-# LINE 2422 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 270 "src/GLuaFixer/AG/ASTLint.ag" #-} + do + var <- _x1IvarName + if (Just var /= _x2IisSingleVar) then + checkShadows _lhsIscopes var + else Nothing + {-# LINE 2431 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _shadowWarning -> + (case (({-# LINE 288 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_shadowing _lhsIconfig) || not _lhsIlocalDefinition || isNothing _shadowWarning then id else + (:) . fromMaybe (error "fromMaybe sem Declaration +warnings") $ _shadowWarning + {-# LINE 2437 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f2 -> + (case (({-# LINE 288 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_inconsistentVariableStyle _lhsIconfig) || not _lhsIlocalDefinition || not (variableStyleInconsistent _lhsIvariableStyle _varStyle ) then id else + (:) $ warn _x1ImtokenPos InconsistentVariableNaming + {-# LINE 2443 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 288 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2] + {-# LINE 2448 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Declaration_Tuple_1)) of + { ( sem_Declaration_1) -> + ( _lhsOcopy,sem_Declaration_1) }) }) }) }) }) +-- Else -------------------------------------------------------- +-- cata +sem_Else :: Else -> + T_Else +sem_Else (Prelude.Just x) = + (sem_Else_Just (sem_MElse x)) +sem_Else Prelude.Nothing = + sem_Else_Nothing +-- semantic domain +type T_Else = ( Else,T_Else_1) +type T_Else_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( Bool,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_Else = Inh_Else {config_Inh_Else :: LintSettings,funcName_Inh_Else :: String,globalDefinitions_Inh_Else :: (M.Map String [Region]),isInModule_Inh_Else :: Bool,isMeta_Inh_Else :: Bool,loopLevel_Inh_Else :: Int,mtokenPos_Inh_Else :: Region,scopeLevel_Inh_Else :: Int,scopes_Inh_Else :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Else :: DeterminedVariableStyle} +data Syn_Else = Syn_Else {copy_Syn_Else :: Else,elseExists_Syn_Else :: Bool,globalDefinitions_Syn_Else :: (M.Map String [Region]),identifier_Syn_Else :: String,isInModule_Syn_Else :: Bool,mtokenPos_Syn_Else :: Region,scopes_Syn_Else :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Else :: DeterminedVariableStyle,warnings_Syn_Else :: ([String -> LintMessage])} +wrap_Else :: T_Else -> + Inh_Else -> + Syn_Else +wrap_Else sem (Inh_Else _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_Else _lhsOcopy _lhsOelseExists _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_Else_Just :: T_MElse -> + T_Else +sem_Else_Just just_ = + (case (just_) of + { ( _justIcopy,just_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Just _justIcopy + {-# LINE 2492 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 2497 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Else_Just_1 :: T_Else_1 + sem_Else_Just_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 498 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 2514 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOelseExists -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 2519 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 2524 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 2529 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 2534 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOconfig -> + (case (({-# LINE 497 "src/GLuaFixer/AG/ASTLint.ag" #-} + M.empty : _lhsIscopes + {-# LINE 2539 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 2544 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 2549 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 2554 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 2559 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 2564 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOfuncName -> + (case (just_1 _justOconfig _justOfuncName _justOglobalDefinitions _justOisInModule _justOisMeta _justOloopLevel _justOmtokenPos _justOscopeLevel _justOscopes _justOvariableStyle) of + { ( _justIelseExists,_justIglobalDefinitions,_justIidentifier,_justIisInModule,_justImtokenPos,_justIscopes,_justIstatementCount,_justIvariableStyle,_justIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justIglobalDefinitions + {-# LINE 2571 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justIidentifier + {-# LINE 2576 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justIisInModule + {-# LINE 2581 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justImtokenPos + {-# LINE 2586 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justIscopes + {-# LINE 2591 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justIvariableStyle + {-# LINE 2596 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 500 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justIwarnings + {-# LINE 2601 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 499 "src/GLuaFixer/AG/ASTLint.ag" #-} + Region (rgStart _justImtokenPos) (rgEnd _lhsImtokenPos) + {-# LINE 2606 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elsePos -> + (case (({-# LINE 500 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_emptyBlocks _lhsIconfig) || _justIstatementCount > 0 then id else + (:) $ warn _elsePos EmptyElse + {-# LINE 2612 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 500 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 2617 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Else_Just_1)) of + { ( sem_Else_1) -> + ( _lhsOcopy,sem_Else_1) }) }) }) }) +sem_Else_Nothing :: T_Else +sem_Else_Nothing = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 2628 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 2633 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Else_Nothing_1 :: T_Else_1 + sem_Else_Nothing_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 203 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 2650 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOelseExists -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 2655 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 2660 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 2665 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 2670 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 2675 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 2680 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 2685 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) + in sem_Else_Nothing_1)) of + { ( sem_Else_1) -> + ( _lhsOcopy,sem_Else_1) }) }) }) +-- ElseIf ------------------------------------------------------ +-- cata +sem_ElseIf :: ElseIf -> + T_ElseIf +sem_ElseIf ( x1,x2) = + (sem_ElseIf_Tuple (sem_MExpr x1) (sem_Block x2)) +-- semantic domain +type T_ElseIf = ( ElseIf,T_ElseIf_1) +type T_ElseIf_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_ElseIf = Inh_ElseIf {config_Inh_ElseIf :: LintSettings,funcName_Inh_ElseIf :: String,globalDefinitions_Inh_ElseIf :: (M.Map String [Region]),isInModule_Inh_ElseIf :: Bool,isMeta_Inh_ElseIf :: Bool,loopLevel_Inh_ElseIf :: Int,mtokenPos_Inh_ElseIf :: Region,scopeLevel_Inh_ElseIf :: Int,scopes_Inh_ElseIf :: ([M.Map String (Bool, Region)]),variableStyle_Inh_ElseIf :: DeterminedVariableStyle} +data Syn_ElseIf = Syn_ElseIf {copy_Syn_ElseIf :: ElseIf,globalDefinitions_Syn_ElseIf :: (M.Map String [Region]),identifier_Syn_ElseIf :: String,isInModule_Syn_ElseIf :: Bool,mtokenPos_Syn_ElseIf :: Region,scopes_Syn_ElseIf :: ([M.Map String (Bool, Region)]),variableStyle_Syn_ElseIf :: DeterminedVariableStyle,warnings_Syn_ElseIf :: ([String -> LintMessage])} +wrap_ElseIf :: T_ElseIf -> + Inh_ElseIf -> + Syn_ElseIf +wrap_ElseIf sem (Inh_ElseIf _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_ElseIf _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_ElseIf_Tuple :: T_MExpr -> + T_Block -> + T_ElseIf +sem_ElseIf_Tuple x1_ x2_ = + (case (x2_) of + { ( _x2Icopy,x2_1) -> + (case (x1_) of + { ( _x1Icopy,_x1ImtokenPos,x1_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + (_x1Icopy,_x2Icopy) + {-# LINE 2730 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 2735 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_ElseIf_Tuple_1 :: T_ElseIf_1 + sem_ElseIf_Tuple_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 2752 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 2757 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OisInModule -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 2762 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 2767 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1Oscopes -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 2772 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 2777 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 2782 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OloopLevel -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 2787 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OisMeta -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 2792 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 2797 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 2802 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1Oconfig -> + (case (({-# LINE 484 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 2807 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OvarBeingDefined -> + (case (({-# LINE 483 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 2812 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OtopLevel -> + (case (({-# LINE 482 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 2817 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OinParentheses -> + (case (({-# LINE 481 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 2822 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x1OisNegation -> + (case (x1_1 _x1Oconfig _x1OfuncName _x1OglobalDefinitions _x1OinParentheses _x1OisInModule _x1OisMeta _x1OisNegation _x1OloopLevel _x1OmtokenPos _x1OscopeLevel _x1Oscopes _x1OtopLevel _x1OvarBeingDefined _x1OvariableStyle) of + { ( _x1IglobalDefinitions,_x1Iidentifier,_x1IisInModule,_x1IisSimpleExpression,_x1IisSingleVar,_x1Iscopes,_x1IvariableStyle,_x1Iwarnings) -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x1IisInModule + {-# LINE 2829 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x1IglobalDefinitions + {-# LINE 2834 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 2839 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2Oconfig -> + (case (({-# LINE 485 "src/GLuaFixer/AG/ASTLint.ag" #-} + M.empty : _x1Iscopes + {-# LINE 2844 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2Oscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x1IvariableStyle + {-# LINE 2849 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 2854 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x1ImtokenPos + {-# LINE 2859 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 2864 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 2869 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OfuncName -> + (case (({-# LINE 486 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 2874 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _x2OisRepeat -> + (case (x2_1 _x2Oconfig _x2OfuncName _x2OglobalDefinitions _x2OisInModule _x2OisMeta _x2OisRepeat _x2OloopLevel _x2OmtokenPos _x2OscopeLevel _x2Oscopes _x2OvariableStyle) of + { ( _x2IglobalDefinitions,_x2Iidentifier,_x2IisIfStatement,_x2IisInModule,_x2ImtokenPos,_x2Iscopes,_x2IstatementCount,_x2IvariableStyle,_x2Iwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x2IglobalDefinitions + {-# LINE 2881 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _x1Iidentifier _x2Iidentifier) + {-# LINE 2886 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x2IisInModule + {-# LINE 2891 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x2ImtokenPos + {-# LINE 2896 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x2Iscopes + {-# LINE 2901 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x2IvariableStyle + {-# LINE 2906 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 487 "src/GLuaFixer/AG/ASTLint.ag" #-} + _x1Iwarnings ++ _x2Iwarnings + {-# LINE 2911 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 487 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_emptyBlocks _lhsIconfig) || _x2IstatementCount > 0 then id else + (:) $ warn _lhsImtokenPos EmptyElseIf + {-# LINE 2917 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 487 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 2922 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_ElseIf_Tuple_1)) of + { ( sem_ElseIf_1) -> + ( _lhsOcopy,sem_ElseIf_1) }) }) }) }) }) +-- ElseIfList -------------------------------------------------- +-- cata +sem_ElseIfList :: ElseIfList -> + T_ElseIfList +sem_ElseIfList list = + (Prelude.foldr sem_ElseIfList_Cons sem_ElseIfList_Nil (Prelude.map sem_MElseIf list)) +-- semantic domain +type T_ElseIfList = ( ElseIfList,T_ElseIfList_1) +type T_ElseIfList_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( Bool,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_ElseIfList = Inh_ElseIfList {config_Inh_ElseIfList :: LintSettings,funcName_Inh_ElseIfList :: String,globalDefinitions_Inh_ElseIfList :: (M.Map String [Region]),isInModule_Inh_ElseIfList :: Bool,isMeta_Inh_ElseIfList :: Bool,loopLevel_Inh_ElseIfList :: Int,mtokenPos_Inh_ElseIfList :: Region,scopeLevel_Inh_ElseIfList :: Int,scopes_Inh_ElseIfList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_ElseIfList :: DeterminedVariableStyle} +data Syn_ElseIfList = Syn_ElseIfList {copy_Syn_ElseIfList :: ElseIfList,elseExists_Syn_ElseIfList :: Bool,globalDefinitions_Syn_ElseIfList :: (M.Map String [Region]),identifier_Syn_ElseIfList :: String,isInModule_Syn_ElseIfList :: Bool,mtokenPos_Syn_ElseIfList :: Region,scopes_Syn_ElseIfList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_ElseIfList :: DeterminedVariableStyle,warnings_Syn_ElseIfList :: ([String -> LintMessage])} +wrap_ElseIfList :: T_ElseIfList -> + Inh_ElseIfList -> + Syn_ElseIfList +wrap_ElseIfList sem (Inh_ElseIfList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_ElseIfList _lhsOcopy _lhsOelseExists _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_ElseIfList_Cons :: T_MElseIf -> + T_ElseIfList -> + T_ElseIfList +sem_ElseIfList_Cons hd_ tl_ = + (case (tl_) of + { ( _tlIcopy,tl_1) -> + (case (hd_) of + { ( _hdIcopy,hd_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 2967 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 2972 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_ElseIfList_Cons_1 :: T_ElseIfList_1 + sem_ElseIfList_Cons_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 468 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 2989 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOelseExists -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 2994 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 2999 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisMeta -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 3004 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 3009 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 3014 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 3019 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 3024 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOloopLevel -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 3029 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 3034 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 3039 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOfuncName -> + (case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of + { ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdImtokenPos,_hdIscopes,_hdIvariableStyle,_hdIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIscopes + {-# LINE 3046 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 3051 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIisInModule + {-# LINE 3056 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIglobalDefinitions + {-# LINE 3061 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 3066 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIvariableStyle + {-# LINE 3071 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 3076 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdImtokenPos + {-# LINE 3081 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 3086 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 3091 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOfuncName -> + (case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of + { ( _tlIelseExists,_tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIglobalDefinitions + {-# LINE 3098 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _hdIidentifier _tlIidentifier) + {-# LINE 3103 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIisInModule + {-# LINE 3108 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 469 "src/GLuaFixer/AG/ASTLint.ag" #-} + Region + (rgStart _hdImtokenPos) + (rgEnd $ if _tlIelseExists then _tlImtokenPos else _hdImtokenPos) + {-# LINE 3115 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIscopes + {-# LINE 3120 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIvariableStyle + {-# LINE 3125 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIwarnings ++ _tlIwarnings + {-# LINE 3130 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_ElseIfList_Cons_1)) of + { ( sem_ElseIfList_1) -> + ( _lhsOcopy,sem_ElseIfList_1) }) }) }) }) }) +sem_ElseIfList_Nil :: T_ElseIfList +sem_ElseIfList_Nil = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 3141 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 3146 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_ElseIfList_Nil_1 :: T_ElseIfList_1 + sem_ElseIfList_Nil_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 203 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 3163 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOelseExists -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 3168 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 3173 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 3178 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 3183 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 3188 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 3193 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 3198 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) + in sem_ElseIfList_Nil_1)) of + { ( sem_ElseIfList_1) -> + ( _lhsOcopy,sem_ElseIfList_1) }) }) }) +-- Expr -------------------------------------------------------- +-- cata +sem_Expr :: Expr -> + T_Expr +sem_Expr (ANil) = + (sem_Expr_ANil) +sem_Expr (AFalse) = + (sem_Expr_AFalse) +sem_Expr (ATrue) = + (sem_Expr_ATrue) +sem_Expr (ANumber _num) = + (sem_Expr_ANumber _num) +sem_Expr (AString _str) = + (sem_Expr_AString (sem_MToken _str)) +sem_Expr (AVarArg) = + (sem_Expr_AVarArg) +sem_Expr (AnonymousFunc _pars _body) = + (sem_Expr_AnonymousFunc _pars (sem_Block _body)) +sem_Expr (APrefixExpr _pexpr) = + (sem_Expr_APrefixExpr (sem_PrefixExp _pexpr)) +sem_Expr (ATableConstructor _fields) = + (sem_Expr_ATableConstructor (sem_FieldList _fields)) +sem_Expr (BinOpExpr _op _left _right) = + (sem_Expr_BinOpExpr (sem_BinOp _op) (sem_MExpr _left) (sem_MExpr _right)) +sem_Expr (UnOpExpr _op _right) = + (sem_Expr_UnOpExpr (sem_UnOp _op) (sem_MExpr _right)) +-- semantic domain +type T_Expr = ( Expr,T_Expr_1) +type T_Expr_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + Bool -> + (Maybe MToken) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Bool,(Maybe MToken),Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_Expr = Inh_Expr {config_Inh_Expr :: LintSettings,funcName_Inh_Expr :: String,globalDefinitions_Inh_Expr :: (M.Map String [Region]),inParentheses_Inh_Expr :: Bool,isInModule_Inh_Expr :: Bool,isMeta_Inh_Expr :: Bool,isNegation_Inh_Expr :: Bool,loopLevel_Inh_Expr :: Int,mtokenPos_Inh_Expr :: Region,scopeLevel_Inh_Expr :: Int,scopes_Inh_Expr :: ([M.Map String (Bool, Region)]),topLevel_Inh_Expr :: Bool,varBeingDefined_Inh_Expr :: (Maybe MToken),variableStyle_Inh_Expr :: DeterminedVariableStyle} +data Syn_Expr = Syn_Expr {copy_Syn_Expr :: Expr,globalDefinitions_Syn_Expr :: (M.Map String [Region]),identifier_Syn_Expr :: String,isInModule_Syn_Expr :: Bool,isSimpleExpression_Syn_Expr :: Bool,isSingleVar_Syn_Expr :: (Maybe MToken),mtokenPos_Syn_Expr :: Region,scopes_Syn_Expr :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Expr :: DeterminedVariableStyle,warnings_Syn_Expr :: ([String -> LintMessage])} +wrap_Expr :: T_Expr -> + Inh_Expr -> + Syn_Expr +wrap_Expr sem (Inh_Expr _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle + in (Syn_Expr _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOisSingleVar _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_Expr_ANil :: T_Expr +sem_Expr_ANil = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ANil + {-# LINE 3261 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 3266 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Expr_ANil_1 :: T_Expr_1 + sem_Expr_ANil_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 3287 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 3292 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 3297 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 3302 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 3307 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 3312 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 3317 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 3322 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 3327 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) })) + in sem_Expr_ANil_1)) of + { ( sem_Expr_1) -> + ( _lhsOcopy,sem_Expr_1) }) }) }) +sem_Expr_AFalse :: T_Expr +sem_Expr_AFalse = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AFalse + {-# LINE 3338 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 3343 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Expr_AFalse_1 :: T_Expr_1 + sem_Expr_AFalse_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 3364 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 3369 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 3374 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 3379 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 3384 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 3389 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 3394 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 3399 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 3404 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) })) + in sem_Expr_AFalse_1)) of + { ( sem_Expr_1) -> + ( _lhsOcopy,sem_Expr_1) }) }) }) +sem_Expr_ATrue :: T_Expr +sem_Expr_ATrue = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ATrue + {-# LINE 3415 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 3420 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Expr_ATrue_1 :: T_Expr_1 + sem_Expr_ATrue_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 3441 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 3446 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 3451 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 3456 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 3461 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 3466 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 3471 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 3476 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 3481 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) })) + in sem_Expr_ATrue_1)) of + { ( sem_Expr_1) -> + ( _lhsOcopy,sem_Expr_1) }) }) }) +sem_Expr_ANumber :: String -> + T_Expr +sem_Expr_ANumber num_ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ANumber num_ + {-# LINE 3493 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 3498 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Expr_ANumber_1 :: T_Expr_1 + sem_Expr_ANumber_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 3519 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 3524 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 3529 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 3534 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 3539 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 3544 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 3549 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 3554 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 3559 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) })) + in sem_Expr_ANumber_1)) of + { ( sem_Expr_1) -> + ( _lhsOcopy,sem_Expr_1) }) }) }) +sem_Expr_AString :: T_MToken -> + T_Expr +sem_Expr_AString str_ = + (case (str_) of + { ( _strIcopy,_strImtok,_strImtokenPos,str_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AString _strIcopy + {-# LINE 3573 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 3578 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Expr_AString_1 :: T_Expr_1 + sem_Expr_AString_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 3599 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _strOglobalDefinitions -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 3604 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _strOscopes -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 3609 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _strOmtokenPos -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 3614 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _strOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 3619 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _strOisInModule -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 3624 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _strOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 3629 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _strOconfig -> + (case (str_1 _strOconfig _strOfuncName _strOglobalDefinitions _strOisInModule _strOisMeta _strOmtokenPos _strOscopes) of + { ( _strIglobalDefinitions,_strIidentifier,_strIisInModule,_strIscopes,_strIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _strIglobalDefinitions + {-# LINE 3636 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _strIidentifier + {-# LINE 3641 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _strIisInModule + {-# LINE 3646 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 3651 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 3656 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _strImtokenPos + {-# LINE 3661 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _strIscopes + {-# LINE 3666 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 3671 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _strIwarnings + {-# LINE 3676 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Expr_AString_1)) of + { ( sem_Expr_1) -> + ( _lhsOcopy,sem_Expr_1) }) }) }) }) +sem_Expr_AVarArg :: T_Expr +sem_Expr_AVarArg = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AVarArg + {-# LINE 3687 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 3692 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Expr_AVarArg_1 :: T_Expr_1 + sem_Expr_AVarArg_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 3713 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 3718 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 3723 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 581 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 3728 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 3733 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 3738 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 3743 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 3748 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 3753 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) })) + in sem_Expr_AVarArg_1)) of + { ( sem_Expr_1) -> + ( _lhsOcopy,sem_Expr_1) }) }) }) +sem_Expr_AnonymousFunc :: ([MToken]) -> + T_Block -> + T_Expr +sem_Expr_AnonymousFunc pars_ body_ = + (case (body_) of + { ( _bodyIcopy,body_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AnonymousFunc pars_ _bodyIcopy + {-# LINE 3768 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 3773 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Expr_AnonymousFunc_1 :: T_Expr_1 + sem_Expr_AnonymousFunc_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 3794 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 3799 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 3804 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOconfig -> + (case (({-# LINE 586 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta || findSelf pars_ + {-# LINE 3809 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisMeta -> + (case (({-# LINE 583 "src/GLuaFixer/AG/ASTLint.ag" #-} + M.fromList $ map (\mt -> (tokenLabel mt, (not . lint_unusedParameters $ _lhsIconfig, mpos mt))) pars_ + {-# LINE 3814 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _introduces -> + (case (({-# LINE 584 "src/GLuaFixer/AG/ASTLint.ag" #-} + _introduces : _lhsIscopes + {-# LINE 3819 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 3824 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 3829 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 3834 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 3839 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 3844 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOfuncName -> + (case (({-# LINE 585 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 3849 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisRepeat -> + (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of + { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIglobalDefinitions + {-# LINE 3856 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIidentifier + {-# LINE 3861 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIisInModule + {-# LINE 3866 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 3871 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 3876 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyImtokenPos + {-# LINE 3881 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIscopes + {-# LINE 3886 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIvariableStyle + {-# LINE 3891 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 589 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIwarnings + {-# LINE 3896 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 587 "src/GLuaFixer/AG/ASTLint.ag" #-} + filter (/= MToken emptyRg VarArg) $ pars_ + {-# LINE 3901 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argIdentifiers -> + (case (({-# LINE 589 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_shadowing _lhsIconfig) then id else + (++) . catMaybes . map (checkShadows _lhsIscopes) $ _argIdentifiers + {-# LINE 3907 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 589 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 3912 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Expr_AnonymousFunc_1)) of + { ( sem_Expr_1) -> + ( _lhsOcopy,sem_Expr_1) }) }) }) }) +sem_Expr_APrefixExpr :: T_PrefixExp -> + T_Expr +sem_Expr_APrefixExpr pexpr_ = + (case (pexpr_) of + { ( _pexprIcopy,_pexprIhasSuffixes,_pexprImtokenPos,_pexprIvarName,pexpr_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + APrefixExpr _pexprIcopy + {-# LINE 3926 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 3931 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Expr_APrefixExpr_1 :: T_Expr_1 + sem_Expr_APrefixExpr_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 179 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvarBeingDefined + {-# LINE 3952 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOvarBeingDefined -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 3957 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 3962 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 3967 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 3972 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 3977 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOconfig -> + (case (({-# LINE 592 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 3982 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOregisterVarUse -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 3987 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOvariableStyle -> + (case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsItopLevel + {-# LINE 3992 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOtopLevel -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 3997 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 4002 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 4007 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOloopLevel -> + (case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisNegation + {-# LINE 4012 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOisNegation -> + (case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIinParentheses + {-# LINE 4017 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOinParentheses -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 4022 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _pexprOfuncName -> + (case (pexpr_1 _pexprOconfig _pexprOfuncName _pexprOglobalDefinitions _pexprOinParentheses _pexprOisInModule _pexprOisMeta _pexprOisNegation _pexprOloopLevel _pexprOmtokenPos _pexprOregisterVarUse _pexprOscopeLevel _pexprOscopes _pexprOtopLevel _pexprOvarBeingDefined _pexprOvariableStyle) of + { ( _pexprIglobalDefinitions,_pexprIidentifier,_pexprIisInModule,_pexprIisSimpleExpression,_pexprIisSingleVar,_pexprIscopes,_pexprIvariableStyle,_pexprIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _pexprIglobalDefinitions + {-# LINE 4029 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _pexprIidentifier + {-# LINE 4034 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _pexprIisInModule + {-# LINE 4039 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + _pexprIisSimpleExpression + {-# LINE 4044 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} + _pexprIisSingleVar + {-# LINE 4049 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _pexprImtokenPos + {-# LINE 4054 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _pexprIscopes + {-# LINE 4059 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _pexprIvariableStyle + {-# LINE 4064 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _pexprIwarnings + {-# LINE 4069 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Expr_APrefixExpr_1)) of + { ( sem_Expr_1) -> + ( _lhsOcopy,sem_Expr_1) }) }) }) }) +sem_Expr_ATableConstructor :: T_FieldList -> + T_Expr +sem_Expr_ATableConstructor fields_ = + (case (fields_) of + { ( _fieldsIcopy,fields_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ATableConstructor _fieldsIcopy + {-# LINE 4083 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 4088 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Expr_ATableConstructor_1 :: T_Expr_1 + sem_Expr_ATableConstructor_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 4109 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fieldsOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 4114 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fieldsOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 4119 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fieldsOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 4124 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fieldsOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 4129 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fieldsOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 4134 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fieldsOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 4139 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fieldsOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 4144 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fieldsOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 4149 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fieldsOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 4154 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fieldsOfuncName -> + (case (({-# LINE 594 "src/GLuaFixer/AG/ASTLint.ag" #-} + S.empty + {-# LINE 4159 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fieldsOfieldNames -> + (case (fields_1 _fieldsOconfig _fieldsOfieldNames _fieldsOfuncName _fieldsOglobalDefinitions _fieldsOisInModule _fieldsOisMeta _fieldsOloopLevel _fieldsOmtokenPos _fieldsOscopeLevel _fieldsOscopes _fieldsOvariableStyle) of + { ( _fieldsIfieldNames,_fieldsIglobalDefinitions,_fieldsIidentifier,_fieldsIisInModule,_fieldsImtokenPos,_fieldsIscopes,_fieldsIvariableStyle,_fieldsIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fieldsIglobalDefinitions + {-# LINE 4166 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fieldsIidentifier + {-# LINE 4171 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fieldsIisInModule + {-# LINE 4176 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 4181 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 4186 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fieldsImtokenPos + {-# LINE 4191 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fieldsIscopes + {-# LINE 4196 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fieldsIvariableStyle + {-# LINE 4201 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fieldsIwarnings + {-# LINE 4206 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Expr_ATableConstructor_1)) of + { ( sem_Expr_1) -> + ( _lhsOcopy,sem_Expr_1) }) }) }) }) +sem_Expr_BinOpExpr :: T_BinOp -> + T_MExpr -> + T_MExpr -> + T_Expr +sem_Expr_BinOpExpr op_ left_ right_ = + (case (right_) of + { ( _rightIcopy,_rightImtokenPos,right_1) -> + (case (left_) of + { ( _leftIcopy,_leftImtokenPos,left_1) -> + (case (op_) of + { ( _opIcopy,op_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + BinOpExpr _opIcopy _leftIcopy _rightIcopy + {-# LINE 4226 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 4231 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Expr_BinOpExpr_1 :: T_Expr_1 + sem_Expr_BinOpExpr_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 4252 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 4257 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 4262 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 4267 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 4272 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOloopLevel -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 4277 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 4282 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 4287 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 4292 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 4297 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOconfig -> + (case (op_1 _opOconfig _opOfuncName _opOglobalDefinitions _opOisInModule _opOisMeta _opOloopLevel _opOmtokenPos _opOscopeLevel _opOscopes _opOvariableStyle) of + { ( _opIglobalDefinitions,_opIidentifier,_opIisInModule,_opImtokenPos,_opIscopes,_opIvariableStyle,_opIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _opIscopes + {-# LINE 4304 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _leftOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 4309 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _leftOisMeta -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 4314 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _leftOconfig -> + (case (({-# LINE 600 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 4319 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _leftOvarBeingDefined -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _opIvariableStyle + {-# LINE 4324 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _leftOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 4329 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _leftOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _opImtokenPos + {-# LINE 4334 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _leftOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 4339 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _leftOloopLevel -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _opIisInModule + {-# LINE 4344 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _leftOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _opIglobalDefinitions + {-# LINE 4349 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _leftOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 4354 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _leftOfuncName -> + (case (({-# LINE 599 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 4359 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _leftOtopLevel -> + (case (({-# LINE 598 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 4364 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _leftOinParentheses -> + (case (({-# LINE 597 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 4369 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _leftOisNegation -> + (case (left_1 _leftOconfig _leftOfuncName _leftOglobalDefinitions _leftOinParentheses _leftOisInModule _leftOisMeta _leftOisNegation _leftOloopLevel _leftOmtokenPos _leftOscopeLevel _leftOscopes _leftOtopLevel _leftOvarBeingDefined _leftOvariableStyle) of + { ( _leftIglobalDefinitions,_leftIidentifier,_leftIisInModule,_leftIisSimpleExpression,_leftIisSingleVar,_leftIscopes,_leftIvariableStyle,_leftIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _leftIscopes + {-# LINE 4376 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 4381 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _leftIisInModule + {-# LINE 4386 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _leftIglobalDefinitions + {-# LINE 4391 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 4396 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOconfig -> + (case (({-# LINE 604 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 4401 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOvarBeingDefined -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _leftIvariableStyle + {-# LINE 4406 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 4411 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _leftImtokenPos + {-# LINE 4416 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 4421 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 4426 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOfuncName -> + (case (({-# LINE 603 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 4431 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOtopLevel -> + (case (({-# LINE 602 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 4436 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOinParentheses -> + (case (({-# LINE 601 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 4441 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOisNegation -> + (case (right_1 _rightOconfig _rightOfuncName _rightOglobalDefinitions _rightOinParentheses _rightOisInModule _rightOisMeta _rightOisNegation _rightOloopLevel _rightOmtokenPos _rightOscopeLevel _rightOscopes _rightOtopLevel _rightOvarBeingDefined _rightOvariableStyle) of + { ( _rightIglobalDefinitions,_rightIidentifier,_rightIisInModule,_rightIisSimpleExpression,_rightIisSingleVar,_rightIscopes,_rightIvariableStyle,_rightIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _rightIglobalDefinitions + {-# LINE 4448 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _opIidentifier (const _leftIidentifier _rightIidentifier)) + {-# LINE 4453 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _rightIisInModule + {-# LINE 4458 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 596 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 4463 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const (const Nothing) _leftIisSingleVar _rightIisSingleVar) + {-# LINE 4468 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _rightImtokenPos + {-# LINE 4473 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _rightIscopes + {-# LINE 4478 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _rightIvariableStyle + {-# LINE 4483 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 608 "src/GLuaFixer/AG/ASTLint.ag" #-} + _opIwarnings ++ _leftIwarnings ++ _rightIwarnings + {-# LINE 4488 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 607 "src/GLuaFixer/AG/ASTLint.ag" #-} + oppositeBinOp _opIcopy + {-# LINE 4493 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stupidNegation -> + (case (({-# LINE 608 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_doubleNegations _lhsIconfig) || not _lhsIisNegation || isNothing _stupidNegation then id else + (:) $ warn _lhsImtokenPos $ SillyNegation$ fromMaybe (error "fromMaybe sem Expr loc.stupidNegation") _stupidNegation + {-# LINE 4499 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 608 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 4504 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Expr_BinOpExpr_1)) of + { ( sem_Expr_1) -> + ( _lhsOcopy,sem_Expr_1) }) }) }) }) }) }) +sem_Expr_UnOpExpr :: T_UnOp -> + T_MExpr -> + T_Expr +sem_Expr_UnOpExpr op_ right_ = + (case (right_) of + { ( _rightIcopy,_rightImtokenPos,right_1) -> + (case (op_) of + { ( _opIcopy,op_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + UnOpExpr _opIcopy _rightIcopy + {-# LINE 4521 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 4526 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Expr_UnOpExpr_1 :: T_Expr_1 + sem_Expr_UnOpExpr_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 4547 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 4552 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 4557 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 4562 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 4567 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOloopLevel -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 4572 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 4577 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 4582 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 4587 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 4592 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _opOconfig -> + (case (op_1 _opOconfig _opOfuncName _opOglobalDefinitions _opOisInModule _opOisMeta _opOloopLevel _opOmtokenPos _opOscopeLevel _opOscopes _opOvariableStyle) of + { ( _opIglobalDefinitions,_opIidentifier,_opIisInModule,_opIisNegation,_opImtokenPos,_opIscopes,_opIvariableStyle,_opIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _opIscopes + {-# LINE 4599 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 4604 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _opIisInModule + {-# LINE 4609 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _opIglobalDefinitions + {-# LINE 4614 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 4619 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOconfig -> + (case (({-# LINE 615 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 4624 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOvarBeingDefined -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _opIvariableStyle + {-# LINE 4629 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 4634 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _opImtokenPos + {-# LINE 4639 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 4644 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 4649 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOfuncName -> + (case (({-# LINE 614 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 4654 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOtopLevel -> + (case (({-# LINE 613 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 4659 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOinParentheses -> + (case (({-# LINE 612 "src/GLuaFixer/AG/ASTLint.ag" #-} + _opIisNegation + {-# LINE 4664 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _rightOisNegation -> + (case (right_1 _rightOconfig _rightOfuncName _rightOglobalDefinitions _rightOinParentheses _rightOisInModule _rightOisMeta _rightOisNegation _rightOloopLevel _rightOmtokenPos _rightOscopeLevel _rightOscopes _rightOtopLevel _rightOvarBeingDefined _rightOvariableStyle) of + { ( _rightIglobalDefinitions,_rightIidentifier,_rightIisInModule,_rightIisSimpleExpression,_rightIisSingleVar,_rightIscopes,_rightIvariableStyle,_rightIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _rightIglobalDefinitions + {-# LINE 4671 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _opIidentifier _rightIidentifier) + {-# LINE 4676 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _rightIisInModule + {-# LINE 4681 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 611 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 4686 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} + _rightIisSingleVar + {-# LINE 4691 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _rightImtokenPos + {-# LINE 4696 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _rightIscopes + {-# LINE 4701 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _rightIvariableStyle + {-# LINE 4706 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _opIwarnings ++ _rightIwarnings + {-# LINE 4711 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Expr_UnOpExpr_1)) of + { ( sem_Expr_1) -> + ( _lhsOcopy,sem_Expr_1) }) }) }) }) }) +-- ExprSuffixList ---------------------------------------------- +-- cata +sem_ExprSuffixList :: ExprSuffixList -> + T_ExprSuffixList +sem_ExprSuffixList list = + (Prelude.foldr sem_ExprSuffixList_Cons sem_ExprSuffixList_Nil (Prelude.map sem_PFExprSuffix list)) +-- semantic domain +type T_ExprSuffixList = ( ExprSuffixList,T_ExprSuffixList_1) +type T_ExprSuffixList_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_ExprSuffixList = Inh_ExprSuffixList {config_Inh_ExprSuffixList :: LintSettings,funcName_Inh_ExprSuffixList :: String,globalDefinitions_Inh_ExprSuffixList :: (M.Map String [Region]),isInModule_Inh_ExprSuffixList :: Bool,isMeta_Inh_ExprSuffixList :: Bool,loopLevel_Inh_ExprSuffixList :: Int,mtokenPos_Inh_ExprSuffixList :: Region,scopeLevel_Inh_ExprSuffixList :: Int,scopes_Inh_ExprSuffixList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_ExprSuffixList :: DeterminedVariableStyle} +data Syn_ExprSuffixList = Syn_ExprSuffixList {copy_Syn_ExprSuffixList :: ExprSuffixList,globalDefinitions_Syn_ExprSuffixList :: (M.Map String [Region]),identifier_Syn_ExprSuffixList :: String,isInModule_Syn_ExprSuffixList :: Bool,isSimpleExpression_Syn_ExprSuffixList :: Bool,mtokenPos_Syn_ExprSuffixList :: Region,scopes_Syn_ExprSuffixList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_ExprSuffixList :: DeterminedVariableStyle,warnings_Syn_ExprSuffixList :: ([String -> LintMessage])} +wrap_ExprSuffixList :: T_ExprSuffixList -> + Inh_ExprSuffixList -> + Syn_ExprSuffixList +wrap_ExprSuffixList sem (Inh_ExprSuffixList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_ExprSuffixList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_ExprSuffixList_Cons :: T_PFExprSuffix -> + T_ExprSuffixList -> + T_ExprSuffixList +sem_ExprSuffixList_Cons hd_ tl_ = + (case (tl_) of + { ( _tlIcopy,tl_1) -> + (case (hd_) of + { ( _hdIcopy,hd_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 4756 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 4761 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_ExprSuffixList_Cons_1 :: T_ExprSuffixList_1 + sem_ExprSuffixList_Cons_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 4778 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 4783 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisMeta -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 4788 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 4793 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 4798 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 4803 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 4808 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOloopLevel -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 4813 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 4818 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 4823 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOfuncName -> + (case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of + { ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdIisSimpleExpression,_hdImtokenPos,_hdIscopes,_hdIvariableStyle,_hdIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIscopes + {-# LINE 4830 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 4835 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIisInModule + {-# LINE 4840 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIglobalDefinitions + {-# LINE 4845 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 4850 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIvariableStyle + {-# LINE 4855 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 4860 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdImtokenPos + {-# LINE 4865 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 4870 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 4875 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOfuncName -> + (case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of + { ( _tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlIisSimpleExpression,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIglobalDefinitions + {-# LINE 4882 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _hdIidentifier _tlIidentifier) + {-# LINE 4887 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIisInModule + {-# LINE 4892 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIisSimpleExpression && _tlIisSimpleExpression + {-# LINE 4897 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlImtokenPos + {-# LINE 4902 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIscopes + {-# LINE 4907 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIvariableStyle + {-# LINE 4912 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIwarnings ++ _tlIwarnings + {-# LINE 4917 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_ExprSuffixList_Cons_1)) of + { ( sem_ExprSuffixList_1) -> + ( _lhsOcopy,sem_ExprSuffixList_1) }) }) }) }) }) +sem_ExprSuffixList_Nil :: T_ExprSuffixList +sem_ExprSuffixList_Nil = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 4928 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 4933 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_ExprSuffixList_Nil_1 :: T_ExprSuffixList_1 + sem_ExprSuffixList_Nil_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 4950 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 4955 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 4960 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 4965 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 4970 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 4975 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 4980 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 4985 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) + in sem_ExprSuffixList_Nil_1)) of + { ( sem_ExprSuffixList_1) -> + ( _lhsOcopy,sem_ExprSuffixList_1) }) }) }) +-- Field ------------------------------------------------------- +-- cata +sem_Field :: Field -> + T_Field +sem_Field (ExprField _key _value _sep) = + (sem_Field_ExprField (sem_MExpr _key) (sem_MExpr _value) (sem_FieldSep _sep)) +sem_Field (NamedField _key _value _sep) = + (sem_Field_NamedField (sem_MToken _key) (sem_MExpr _value) (sem_FieldSep _sep)) +sem_Field (UnnamedField _value _sep) = + (sem_Field_UnnamedField (sem_MExpr _value) (sem_FieldSep _sep)) +-- semantic domain +type T_Field = ( Field,T_Field_1) +type T_Field_1 = LintSettings -> + (S.Set Token) -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (S.Set Token),(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_Field = Inh_Field {config_Inh_Field :: LintSettings,fieldNames_Inh_Field :: (S.Set Token),funcName_Inh_Field :: String,globalDefinitions_Inh_Field :: (M.Map String [Region]),isInModule_Inh_Field :: Bool,isMeta_Inh_Field :: Bool,loopLevel_Inh_Field :: Int,mtokenPos_Inh_Field :: Region,scopeLevel_Inh_Field :: Int,scopes_Inh_Field :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Field :: DeterminedVariableStyle} +data Syn_Field = Syn_Field {copy_Syn_Field :: Field,fieldNames_Syn_Field :: (S.Set Token),globalDefinitions_Syn_Field :: (M.Map String [Region]),identifier_Syn_Field :: String,isInModule_Syn_Field :: Bool,mtokenPos_Syn_Field :: Region,scopes_Syn_Field :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Field :: DeterminedVariableStyle,warnings_Syn_Field :: ([String -> LintMessage])} +wrap_Field :: T_Field -> + Inh_Field -> + Syn_Field +wrap_Field sem (Inh_Field _lhsIconfig _lhsIfieldNames _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfieldNames _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_Field _lhsOcopy _lhsOfieldNames _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_Field_ExprField :: T_MExpr -> + T_MExpr -> + T_FieldSep -> + T_Field +sem_Field_ExprField key_ value_ sep_ = + (case (sep_) of + { ( _sepIcopy,sep_1) -> + (case (value_) of + { ( _valueIcopy,_valueImtokenPos,value_1) -> + (case (key_) of + { ( _keyIcopy,_keyImtokenPos,key_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ExprField _keyIcopy _valueIcopy _sepIcopy + {-# LINE 5038 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 5043 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Field_ExprField_1 :: T_Field_1 + sem_Field_ExprField_1 = + (\ _lhsIconfig + _lhsIfieldNames + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfieldNames + {-# LINE 5061 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOfieldNames -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 5066 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 5071 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOisMeta -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 5076 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOconfig -> + (case (({-# LINE 631 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 5081 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOvarBeingDefined -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 5086 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 5091 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 5096 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 5101 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOloopLevel -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 5106 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 5111 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 5116 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOfuncName -> + (case (({-# LINE 630 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 5121 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOtopLevel -> + (case (({-# LINE 629 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 5126 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOinParentheses -> + (case (({-# LINE 628 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 5131 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOisNegation -> + (case (key_1 _keyOconfig _keyOfuncName _keyOglobalDefinitions _keyOinParentheses _keyOisInModule _keyOisMeta _keyOisNegation _keyOloopLevel _keyOmtokenPos _keyOscopeLevel _keyOscopes _keyOtopLevel _keyOvarBeingDefined _keyOvariableStyle) of + { ( _keyIglobalDefinitions,_keyIidentifier,_keyIisInModule,_keyIisSimpleExpression,_keyIisSingleVar,_keyIscopes,_keyIvariableStyle,_keyIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _keyIscopes + {-# LINE 5138 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 5143 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _keyIisInModule + {-# LINE 5148 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _keyIglobalDefinitions + {-# LINE 5153 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 5158 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOconfig -> + (case (({-# LINE 635 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 5163 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOvarBeingDefined -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _keyIvariableStyle + {-# LINE 5168 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 5173 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _keyImtokenPos + {-# LINE 5178 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 5183 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 5188 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOfuncName -> + (case (({-# LINE 634 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 5193 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOtopLevel -> + (case (({-# LINE 633 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 5198 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOinParentheses -> + (case (({-# LINE 632 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 5203 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOisNegation -> + (case (value_1 _valueOconfig _valueOfuncName _valueOglobalDefinitions _valueOinParentheses _valueOisInModule _valueOisMeta _valueOisNegation _valueOloopLevel _valueOmtokenPos _valueOscopeLevel _valueOscopes _valueOtopLevel _valueOvarBeingDefined _valueOvariableStyle) of + { ( _valueIglobalDefinitions,_valueIidentifier,_valueIisInModule,_valueIisSimpleExpression,_valueIisSingleVar,_valueIscopes,_valueIvariableStyle,_valueIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueIglobalDefinitions + {-# LINE 5210 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOglobalDefinitions -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueIvariableStyle + {-# LINE 5215 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueIscopes + {-# LINE 5220 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOscopes -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 5225 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueImtokenPos + {-# LINE 5230 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 5235 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOloopLevel -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 5240 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueIisInModule + {-# LINE 5245 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOisInModule -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 5250 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 5255 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOconfig -> + (case (sep_1 _sepOconfig _sepOfuncName _sepOglobalDefinitions _sepOisInModule _sepOisMeta _sepOloopLevel _sepOmtokenPos _sepOscopeLevel _sepOscopes _sepOvariableStyle) of + { ( _sepIglobalDefinitions,_sepIidentifier,_sepIisInModule,_sepImtokenPos,_sepIscopes,_sepIvariableStyle,_sepIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _sepIglobalDefinitions + {-# LINE 5262 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _keyIidentifier (const _valueIidentifier _sepIidentifier)) + {-# LINE 5267 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _sepIisInModule + {-# LINE 5272 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 627 "src/GLuaFixer/AG/ASTLint.ag" #-} + _keyImtokenPos + {-# LINE 5277 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _sepIscopes + {-# LINE 5282 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _sepIvariableStyle + {-# LINE 5287 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _keyIwarnings ++ _valueIwarnings ++ _sepIwarnings + {-# LINE 5292 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Field_ExprField_1)) of + { ( sem_Field_1) -> + ( _lhsOcopy,sem_Field_1) }) }) }) }) }) }) +sem_Field_NamedField :: T_MToken -> + T_MExpr -> + T_FieldSep -> + T_Field +sem_Field_NamedField key_ value_ sep_ = + (case (sep_) of + { ( _sepIcopy,sep_1) -> + (case (value_) of + { ( _valueIcopy,_valueImtokenPos,value_1) -> + (case (key_) of + { ( _keyIcopy,_keyImtok,_keyImtokenPos,key_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + NamedField _keyIcopy _valueIcopy _sepIcopy + {-# LINE 5312 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 5317 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Field_NamedField_1 :: T_Field_1 + sem_Field_NamedField_1 = + (\ _lhsIconfig + _lhsIfieldNames + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 638 "src/GLuaFixer/AG/ASTLint.ag" #-} + S.insert _keyImtok _lhsIfieldNames + {-# LINE 5335 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOfieldNames -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 5340 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOscopes -> + (case (({-# LINE 637 "src/GLuaFixer/AG/ASTLint.ag" #-} + _keyImtokenPos + {-# LINE 5345 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _mtokenPos -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _mtokenPos + {-# LINE 5350 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOmtokenPos -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 5355 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 5360 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 5365 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 5370 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 5375 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _keyOconfig -> + (case (key_1 _keyOconfig _keyOfuncName _keyOglobalDefinitions _keyOisInModule _keyOisMeta _keyOmtokenPos _keyOscopes) of + { ( _keyIglobalDefinitions,_keyIidentifier,_keyIisInModule,_keyIscopes,_keyIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _keyIscopes + {-# LINE 5382 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 5387 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _keyIisInModule + {-# LINE 5392 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _keyIglobalDefinitions + {-# LINE 5397 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 5402 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOconfig -> + (case (({-# LINE 639 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 5407 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOvarBeingDefined -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 5412 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 5417 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _mtokenPos + {-# LINE 5422 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 5427 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 5432 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOfuncName -> + (case (({-# LINE 642 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 5437 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOtopLevel -> + (case (({-# LINE 641 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 5442 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOinParentheses -> + (case (({-# LINE 640 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 5447 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOisNegation -> + (case (value_1 _valueOconfig _valueOfuncName _valueOglobalDefinitions _valueOinParentheses _valueOisInModule _valueOisMeta _valueOisNegation _valueOloopLevel _valueOmtokenPos _valueOscopeLevel _valueOscopes _valueOtopLevel _valueOvarBeingDefined _valueOvariableStyle) of + { ( _valueIglobalDefinitions,_valueIidentifier,_valueIisInModule,_valueIisSimpleExpression,_valueIisSingleVar,_valueIscopes,_valueIvariableStyle,_valueIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueIglobalDefinitions + {-# LINE 5454 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOglobalDefinitions -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueIvariableStyle + {-# LINE 5459 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueIscopes + {-# LINE 5464 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOscopes -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 5469 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _mtokenPos + {-# LINE 5474 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 5479 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOloopLevel -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 5484 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueIisInModule + {-# LINE 5489 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOisInModule -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 5494 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 5499 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOconfig -> + (case (sep_1 _sepOconfig _sepOfuncName _sepOglobalDefinitions _sepOisInModule _sepOisMeta _sepOloopLevel _sepOmtokenPos _sepOscopeLevel _sepOscopes _sepOvariableStyle) of + { ( _sepIglobalDefinitions,_sepIidentifier,_sepIisInModule,_sepImtokenPos,_sepIscopes,_sepIvariableStyle,_sepIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _sepIglobalDefinitions + {-# LINE 5506 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _keyIidentifier (const _valueIidentifier _sepIidentifier)) + {-# LINE 5511 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _sepIisInModule + {-# LINE 5516 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _mtokenPos + {-# LINE 5521 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _sepIscopes + {-# LINE 5526 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _sepIvariableStyle + {-# LINE 5531 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 643 "src/GLuaFixer/AG/ASTLint.ag" #-} + _keyIwarnings ++ _valueIwarnings ++ _sepIwarnings + {-# LINE 5536 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 643 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_duplicateTableKeys _lhsIconfig) || not (S.member _keyImtok _lhsIfieldNames) then id else + (:) $ warn _keyImtokenPos $ DuplicateKeyInTable _keyImtok + {-# LINE 5542 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 643 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 5547 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Field_NamedField_1)) of + { ( sem_Field_1) -> + ( _lhsOcopy,sem_Field_1) }) }) }) }) }) }) +sem_Field_UnnamedField :: T_MExpr -> + T_FieldSep -> + T_Field +sem_Field_UnnamedField value_ sep_ = + (case (sep_) of + { ( _sepIcopy,sep_1) -> + (case (value_) of + { ( _valueIcopy,_valueImtokenPos,value_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + UnnamedField _valueIcopy _sepIcopy + {-# LINE 5564 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 5569 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Field_UnnamedField_1 :: T_Field_1 + sem_Field_UnnamedField_1 = + (\ _lhsIconfig + _lhsIfieldNames + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfieldNames + {-# LINE 5587 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOfieldNames -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 5592 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 5597 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 5602 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 5607 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 5612 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOconfig -> + (case (({-# LINE 649 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 5617 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOvarBeingDefined -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 5622 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 5627 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 5632 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 5637 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 5642 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOfuncName -> + (case (({-# LINE 648 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 5647 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOtopLevel -> + (case (({-# LINE 647 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 5652 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOinParentheses -> + (case (({-# LINE 646 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 5657 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valueOisNegation -> + (case (value_1 _valueOconfig _valueOfuncName _valueOglobalDefinitions _valueOinParentheses _valueOisInModule _valueOisMeta _valueOisNegation _valueOloopLevel _valueOmtokenPos _valueOscopeLevel _valueOscopes _valueOtopLevel _valueOvarBeingDefined _valueOvariableStyle) of + { ( _valueIglobalDefinitions,_valueIidentifier,_valueIisInModule,_valueIisSimpleExpression,_valueIisSingleVar,_valueIscopes,_valueIvariableStyle,_valueIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueIglobalDefinitions + {-# LINE 5664 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOglobalDefinitions -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueIvariableStyle + {-# LINE 5669 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueIscopes + {-# LINE 5674 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOscopes -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 5679 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueImtokenPos + {-# LINE 5684 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 5689 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOloopLevel -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 5694 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueIisInModule + {-# LINE 5699 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOisInModule -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 5704 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 5709 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _sepOconfig -> + (case (sep_1 _sepOconfig _sepOfuncName _sepOglobalDefinitions _sepOisInModule _sepOisMeta _sepOloopLevel _sepOmtokenPos _sepOscopeLevel _sepOscopes _sepOvariableStyle) of + { ( _sepIglobalDefinitions,_sepIidentifier,_sepIisInModule,_sepImtokenPos,_sepIscopes,_sepIvariableStyle,_sepIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _sepIglobalDefinitions + {-# LINE 5716 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _valueIidentifier _sepIidentifier) + {-# LINE 5721 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _sepIisInModule + {-# LINE 5726 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _sepImtokenPos + {-# LINE 5731 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _sepIscopes + {-# LINE 5736 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _sepIvariableStyle + {-# LINE 5741 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valueIwarnings ++ _sepIwarnings + {-# LINE 5746 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Field_UnnamedField_1)) of + { ( sem_Field_1) -> + ( _lhsOcopy,sem_Field_1) }) }) }) }) }) +-- FieldList --------------------------------------------------- +-- cata +sem_FieldList :: FieldList -> + T_FieldList +sem_FieldList list = + (Prelude.foldr sem_FieldList_Cons sem_FieldList_Nil (Prelude.map sem_Field list)) +-- semantic domain +type T_FieldList = ( FieldList,T_FieldList_1) +type T_FieldList_1 = LintSettings -> + (S.Set Token) -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (S.Set Token),(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_FieldList = Inh_FieldList {config_Inh_FieldList :: LintSettings,fieldNames_Inh_FieldList :: (S.Set Token),funcName_Inh_FieldList :: String,globalDefinitions_Inh_FieldList :: (M.Map String [Region]),isInModule_Inh_FieldList :: Bool,isMeta_Inh_FieldList :: Bool,loopLevel_Inh_FieldList :: Int,mtokenPos_Inh_FieldList :: Region,scopeLevel_Inh_FieldList :: Int,scopes_Inh_FieldList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_FieldList :: DeterminedVariableStyle} +data Syn_FieldList = Syn_FieldList {copy_Syn_FieldList :: FieldList,fieldNames_Syn_FieldList :: (S.Set Token),globalDefinitions_Syn_FieldList :: (M.Map String [Region]),identifier_Syn_FieldList :: String,isInModule_Syn_FieldList :: Bool,mtokenPos_Syn_FieldList :: Region,scopes_Syn_FieldList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_FieldList :: DeterminedVariableStyle,warnings_Syn_FieldList :: ([String -> LintMessage])} +wrap_FieldList :: T_FieldList -> + Inh_FieldList -> + Syn_FieldList +wrap_FieldList sem (Inh_FieldList _lhsIconfig _lhsIfieldNames _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfieldNames _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_FieldList _lhsOcopy _lhsOfieldNames _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_FieldList_Cons :: T_Field -> + T_FieldList -> + T_FieldList +sem_FieldList_Cons hd_ tl_ = + (case (tl_) of + { ( _tlIcopy,tl_1) -> + (case (hd_) of + { ( _hdIcopy,hd_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 5792 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 5797 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_FieldList_Cons_1 :: T_FieldList_1 + sem_FieldList_Cons_1 = + (\ _lhsIconfig + _lhsIfieldNames + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfieldNames + {-# LINE 5815 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOfieldNames -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 5820 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 5825 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOscopes -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 5830 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 5835 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 5840 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOloopLevel -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 5845 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 5850 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 5855 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 5860 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 5865 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOconfig -> + (case (hd_1 _hdOconfig _hdOfieldNames _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of + { ( _hdIfieldNames,_hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdImtokenPos,_hdIscopes,_hdIvariableStyle,_hdIwarnings) -> + (case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIfieldNames + {-# LINE 5872 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOfieldNames -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIvariableStyle + {-# LINE 5877 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIscopes + {-# LINE 5882 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOscopes -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 5887 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdImtokenPos + {-# LINE 5892 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 5897 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOloopLevel -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 5902 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIisInModule + {-# LINE 5907 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIglobalDefinitions + {-# LINE 5912 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 5917 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 5922 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOconfig -> + (case (tl_1 _tlOconfig _tlOfieldNames _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of + { ( _tlIfieldNames,_tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) -> + (case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIfieldNames + {-# LINE 5929 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOfieldNames -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIglobalDefinitions + {-# LINE 5934 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _hdIidentifier _tlIidentifier) + {-# LINE 5939 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIisInModule + {-# LINE 5944 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdImtokenPos + {-# LINE 5949 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIscopes + {-# LINE 5954 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIvariableStyle + {-# LINE 5959 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIwarnings ++ _tlIwarnings + {-# LINE 5964 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_FieldList_Cons_1)) of + { ( sem_FieldList_1) -> + ( _lhsOcopy,sem_FieldList_1) }) }) }) }) }) +sem_FieldList_Nil :: T_FieldList +sem_FieldList_Nil = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 5975 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 5980 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_FieldList_Nil_1 :: T_FieldList_1 + sem_FieldList_Nil_1 = + (\ _lhsIconfig + _lhsIfieldNames + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 164 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfieldNames + {-# LINE 5998 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOfieldNames -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 6003 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 6008 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 6013 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 6018 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 6023 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 6028 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 6033 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOfieldNames,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) + in sem_FieldList_Nil_1)) of + { ( sem_FieldList_1) -> + ( _lhsOcopy,sem_FieldList_1) }) }) }) +-- FieldSep ---------------------------------------------------- +-- cata +sem_FieldSep :: FieldSep -> + T_FieldSep +sem_FieldSep (CommaSep) = + (sem_FieldSep_CommaSep) +sem_FieldSep (SemicolonSep) = + (sem_FieldSep_SemicolonSep) +sem_FieldSep (NoSep) = + (sem_FieldSep_NoSep) +-- semantic domain +type T_FieldSep = ( FieldSep,T_FieldSep_1) +type T_FieldSep_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_FieldSep = Inh_FieldSep {config_Inh_FieldSep :: LintSettings,funcName_Inh_FieldSep :: String,globalDefinitions_Inh_FieldSep :: (M.Map String [Region]),isInModule_Inh_FieldSep :: Bool,isMeta_Inh_FieldSep :: Bool,loopLevel_Inh_FieldSep :: Int,mtokenPos_Inh_FieldSep :: Region,scopeLevel_Inh_FieldSep :: Int,scopes_Inh_FieldSep :: ([M.Map String (Bool, Region)]),variableStyle_Inh_FieldSep :: DeterminedVariableStyle} +data Syn_FieldSep = Syn_FieldSep {copy_Syn_FieldSep :: FieldSep,globalDefinitions_Syn_FieldSep :: (M.Map String [Region]),identifier_Syn_FieldSep :: String,isInModule_Syn_FieldSep :: Bool,mtokenPos_Syn_FieldSep :: Region,scopes_Syn_FieldSep :: ([M.Map String (Bool, Region)]),variableStyle_Syn_FieldSep :: DeterminedVariableStyle,warnings_Syn_FieldSep :: ([String -> LintMessage])} +wrap_FieldSep :: T_FieldSep -> + Inh_FieldSep -> + Syn_FieldSep +wrap_FieldSep sem (Inh_FieldSep _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_FieldSep _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_FieldSep_CommaSep :: T_FieldSep +sem_FieldSep_CommaSep = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + CommaSep + {-# LINE 6076 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 6081 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_FieldSep_CommaSep_1 :: T_FieldSep_1 + sem_FieldSep_CommaSep_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 6098 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 6103 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 6108 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 6113 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 6118 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 6123 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 6128 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_FieldSep_CommaSep_1)) of + { ( sem_FieldSep_1) -> + ( _lhsOcopy,sem_FieldSep_1) }) }) }) +sem_FieldSep_SemicolonSep :: T_FieldSep +sem_FieldSep_SemicolonSep = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + SemicolonSep + {-# LINE 6139 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 6144 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_FieldSep_SemicolonSep_1 :: T_FieldSep_1 + sem_FieldSep_SemicolonSep_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 6161 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 6166 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 6171 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 6176 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 6181 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 6186 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 6191 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_FieldSep_SemicolonSep_1)) of + { ( sem_FieldSep_1) -> + ( _lhsOcopy,sem_FieldSep_1) }) }) }) +sem_FieldSep_NoSep :: T_FieldSep +sem_FieldSep_NoSep = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + NoSep + {-# LINE 6202 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 6207 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_FieldSep_NoSep_1 :: T_FieldSep_1 + sem_FieldSep_NoSep_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 6224 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 6229 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 6234 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 6239 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 6244 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 6249 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 6254 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_FieldSep_NoSep_1)) of + { ( sem_FieldSep_1) -> + ( _lhsOcopy,sem_FieldSep_1) }) }) }) +-- FuncName ---------------------------------------------------- +-- cata +sem_FuncName :: FuncName -> + T_FuncName +sem_FuncName (FuncName _names _meta) = + (sem_FuncName_FuncName _names _meta) +-- semantic domain +type T_FuncName = ( FuncName,Bool,T_FuncName_1) +type T_FuncName_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),Bool,String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_FuncName = Inh_FuncName {config_Inh_FuncName :: LintSettings,funcName_Inh_FuncName :: String,globalDefinitions_Inh_FuncName :: (M.Map String [Region]),isInModule_Inh_FuncName :: Bool,isMeta_Inh_FuncName :: Bool,loopLevel_Inh_FuncName :: Int,mtokenPos_Inh_FuncName :: Region,scopeLevel_Inh_FuncName :: Int,scopes_Inh_FuncName :: ([M.Map String (Bool, Region)]),variableStyle_Inh_FuncName :: DeterminedVariableStyle} +data Syn_FuncName = Syn_FuncName {copy_Syn_FuncName :: FuncName,globalDefinitions_Syn_FuncName :: (M.Map String [Region]),hasSuffixes_Syn_FuncName :: Bool,identifier_Syn_FuncName :: String,isInModule_Syn_FuncName :: Bool,isMeta_Syn_FuncName :: Bool,mtokenPos_Syn_FuncName :: Region,scopes_Syn_FuncName :: ([M.Map String (Bool, Region)]),variableStyle_Syn_FuncName :: DeterminedVariableStyle,warnings_Syn_FuncName :: ([String -> LintMessage])} +wrap_FuncName :: T_FuncName -> + Inh_FuncName -> + Syn_FuncName +wrap_FuncName sem (Inh_FuncName _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,_lhsOisMeta,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOhasSuffixes,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_FuncName _lhsOcopy _lhsOglobalDefinitions _lhsOhasSuffixes _lhsOidentifier _lhsOisInModule _lhsOisMeta _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_FuncName_FuncName :: ([MToken]) -> + (Maybe MToken) -> + T_FuncName +sem_FuncName_FuncName names_ meta_ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + FuncName names_ meta_ + {-# LINE 6295 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 6300 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 514 "src/GLuaFixer/AG/ASTLint.ag" #-} + isJust meta_ + {-# LINE 6305 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisMeta -> + (case ((let sem_FuncName_FuncName_1 :: T_FuncName_1 + sem_FuncName_FuncName_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 6322 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 515 "src/GLuaFixer/AG/ASTLint.ag" #-} + length names_ > 1 + {-# LINE 6327 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOhasSuffixes -> + (case (({-# LINE 513 "src/GLuaFixer/AG/ASTLint.ag" #-} + tokenLabel . head $ names_ + {-# LINE 6332 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 6337 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 512 "src/GLuaFixer/AG/ASTLint.ag" #-} + mpos (head names_) + {-# LINE 6342 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 6347 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 6352 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 6357 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOhasSuffixes,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) + in sem_FuncName_FuncName_1)) of + { ( sem_FuncName_1) -> + ( _lhsOcopy,_lhsOisMeta,sem_FuncName_1) }) }) }) }) +-- MElse ------------------------------------------------------- +-- cata +sem_MElse :: MElse -> + T_MElse +sem_MElse (MElse _pos _body) = + (sem_MElse_MElse _pos (sem_Block _body)) +-- semantic domain +type T_MElse = ( MElse,T_MElse_1) +type T_MElse_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( Bool,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage])) +data Inh_MElse = Inh_MElse {config_Inh_MElse :: LintSettings,funcName_Inh_MElse :: String,globalDefinitions_Inh_MElse :: (M.Map String [Region]),isInModule_Inh_MElse :: Bool,isMeta_Inh_MElse :: Bool,loopLevel_Inh_MElse :: Int,mtokenPos_Inh_MElse :: Region,scopeLevel_Inh_MElse :: Int,scopes_Inh_MElse :: ([M.Map String (Bool, Region)]),variableStyle_Inh_MElse :: DeterminedVariableStyle} +data Syn_MElse = Syn_MElse {copy_Syn_MElse :: MElse,elseExists_Syn_MElse :: Bool,globalDefinitions_Syn_MElse :: (M.Map String [Region]),identifier_Syn_MElse :: String,isInModule_Syn_MElse :: Bool,mtokenPos_Syn_MElse :: Region,scopes_Syn_MElse :: ([M.Map String (Bool, Region)]),statementCount_Syn_MElse :: Int,variableStyle_Syn_MElse :: DeterminedVariableStyle,warnings_Syn_MElse :: ([String -> LintMessage])} +wrap_MElse :: T_MElse -> + Inh_MElse -> + Syn_MElse +wrap_MElse sem (Inh_MElse _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_MElse _lhsOcopy _lhsOelseExists _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings)) +sem_MElse_MElse :: Region -> + T_Block -> + T_MElse +sem_MElse_MElse pos_ body_ = + (case (body_) of + { ( _bodyIcopy,body_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + MElse pos_ _bodyIcopy + {-# LINE 6400 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 6405 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_MElse_MElse_1 :: T_MElse_1 + sem_MElse_MElse_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 203 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 6422 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOelseExists -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 6427 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 6432 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 6437 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 6442 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 6447 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 6452 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 6457 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 6462 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 6467 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 6472 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOfuncName -> + (case (({-# LINE 492 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 6477 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisRepeat -> + (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of + { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIglobalDefinitions + {-# LINE 6484 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIidentifier + {-# LINE 6489 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIisInModule + {-# LINE 6494 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 493 "src/GLuaFixer/AG/ASTLint.ag" #-} + pos_ + {-# LINE 6499 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIscopes + {-# LINE 6504 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIstatementCount + {-# LINE 6509 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOstatementCount -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIvariableStyle + {-# LINE 6514 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIwarnings + {-# LINE 6519 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOelseExists,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_MElse_MElse_1)) of + { ( sem_MElse_1) -> + ( _lhsOcopy,sem_MElse_1) }) }) }) }) +-- MElseIf ----------------------------------------------------- +-- cata +sem_MElseIf :: MElseIf -> + T_MElseIf +sem_MElseIf (MElseIf _pos _elif) = + (sem_MElseIf_MElseIf _pos (sem_ElseIf _elif)) +-- semantic domain +type T_MElseIf = ( MElseIf,T_MElseIf_1) +type T_MElseIf_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_MElseIf = Inh_MElseIf {config_Inh_MElseIf :: LintSettings,funcName_Inh_MElseIf :: String,globalDefinitions_Inh_MElseIf :: (M.Map String [Region]),isInModule_Inh_MElseIf :: Bool,isMeta_Inh_MElseIf :: Bool,loopLevel_Inh_MElseIf :: Int,mtokenPos_Inh_MElseIf :: Region,scopeLevel_Inh_MElseIf :: Int,scopes_Inh_MElseIf :: ([M.Map String (Bool, Region)]),variableStyle_Inh_MElseIf :: DeterminedVariableStyle} +data Syn_MElseIf = Syn_MElseIf {copy_Syn_MElseIf :: MElseIf,globalDefinitions_Syn_MElseIf :: (M.Map String [Region]),identifier_Syn_MElseIf :: String,isInModule_Syn_MElseIf :: Bool,mtokenPos_Syn_MElseIf :: Region,scopes_Syn_MElseIf :: ([M.Map String (Bool, Region)]),variableStyle_Syn_MElseIf :: DeterminedVariableStyle,warnings_Syn_MElseIf :: ([String -> LintMessage])} +wrap_MElseIf :: T_MElseIf -> + Inh_MElseIf -> + Syn_MElseIf +wrap_MElseIf sem (Inh_MElseIf _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_MElseIf _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_MElseIf_MElseIf :: Region -> + T_ElseIf -> + T_MElseIf +sem_MElseIf_MElseIf pos_ elif_ = + (case (elif_) of + { ( _elifIcopy,elif_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + MElseIf pos_ _elifIcopy + {-# LINE 6562 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 6567 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_MElseIf_MElseIf_1 :: T_MElseIf_1 + sem_MElseIf_MElseIf_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 6584 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 6589 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 6594 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 6599 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 6604 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 6609 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 6614 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifOscopeLevel -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 6619 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 6624 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifOfuncName -> + (case (({-# LINE 476 "src/GLuaFixer/AG/ASTLint.ag" #-} + pos_ + {-# LINE 6629 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifOmtokenPos -> + (case (elif_1 _elifOconfig _elifOfuncName _elifOglobalDefinitions _elifOisInModule _elifOisMeta _elifOloopLevel _elifOmtokenPos _elifOscopeLevel _elifOscopes _elifOvariableStyle) of + { ( _elifIglobalDefinitions,_elifIidentifier,_elifIisInModule,_elifImtokenPos,_elifIscopes,_elifIvariableStyle,_elifIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elifIglobalDefinitions + {-# LINE 6636 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elifIidentifier + {-# LINE 6641 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elifIisInModule + {-# LINE 6646 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 477 "src/GLuaFixer/AG/ASTLint.ag" #-} + pos_ + {-# LINE 6651 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elifIscopes + {-# LINE 6656 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elifIvariableStyle + {-# LINE 6661 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elifIwarnings + {-# LINE 6666 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_MElseIf_MElseIf_1)) of + { ( sem_MElseIf_1) -> + ( _lhsOcopy,sem_MElseIf_1) }) }) }) }) +-- MExpr ------------------------------------------------------- +-- cata +sem_MExpr :: MExpr -> + T_MExpr +sem_MExpr (MExpr _pos _expr) = + (sem_MExpr_MExpr _pos (sem_Expr _expr)) +-- semantic domain +type T_MExpr = ( MExpr,Region,T_MExpr_1) +type T_MExpr_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + Bool -> + (Maybe MToken) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Bool,(Maybe MToken),([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_MExpr = Inh_MExpr {config_Inh_MExpr :: LintSettings,funcName_Inh_MExpr :: String,globalDefinitions_Inh_MExpr :: (M.Map String [Region]),inParentheses_Inh_MExpr :: Bool,isInModule_Inh_MExpr :: Bool,isMeta_Inh_MExpr :: Bool,isNegation_Inh_MExpr :: Bool,loopLevel_Inh_MExpr :: Int,mtokenPos_Inh_MExpr :: Region,scopeLevel_Inh_MExpr :: Int,scopes_Inh_MExpr :: ([M.Map String (Bool, Region)]),topLevel_Inh_MExpr :: Bool,varBeingDefined_Inh_MExpr :: (Maybe MToken),variableStyle_Inh_MExpr :: DeterminedVariableStyle} +data Syn_MExpr = Syn_MExpr {copy_Syn_MExpr :: MExpr,globalDefinitions_Syn_MExpr :: (M.Map String [Region]),identifier_Syn_MExpr :: String,isInModule_Syn_MExpr :: Bool,isSimpleExpression_Syn_MExpr :: Bool,isSingleVar_Syn_MExpr :: (Maybe MToken),mtokenPos_Syn_MExpr :: Region,scopes_Syn_MExpr :: ([M.Map String (Bool, Region)]),variableStyle_Syn_MExpr :: DeterminedVariableStyle,warnings_Syn_MExpr :: ([String -> LintMessage])} +wrap_MExpr :: T_MExpr -> + Inh_MExpr -> + Syn_MExpr +wrap_MExpr sem (Inh_MExpr _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle) = + (let ( _lhsOcopy,_lhsOmtokenPos,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle + in (Syn_MExpr _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOisSingleVar _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_MExpr_MExpr :: Region -> + T_Expr -> + T_MExpr +sem_MExpr_MExpr pos_ expr_ = + (case (expr_) of + { ( _exprIcopy,expr_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + MExpr pos_ _exprIcopy + {-# LINE 6713 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 6718 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 571 "src/GLuaFixer/AG/ASTLint.ag" #-} + pos_ + {-# LINE 6723 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case ((let sem_MExpr_MExpr_1 :: T_MExpr_1 + sem_MExpr_MExpr_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 179 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvarBeingDefined + {-# LINE 6744 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOvarBeingDefined -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 6749 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 6754 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 6759 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 6764 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 6769 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 6774 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOvariableStyle -> + (case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsItopLevel + {-# LINE 6779 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOtopLevel -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 6784 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOscopeLevel -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 6789 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOloopLevel -> + (case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisNegation + {-# LINE 6794 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOisNegation -> + (case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIinParentheses + {-# LINE 6799 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOinParentheses -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 6804 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOfuncName -> + (case (({-# LINE 572 "src/GLuaFixer/AG/ASTLint.ag" #-} + pos_ + {-# LINE 6809 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOmtokenPos -> + (case (expr_1 _exprOconfig _exprOfuncName _exprOglobalDefinitions _exprOinParentheses _exprOisInModule _exprOisMeta _exprOisNegation _exprOloopLevel _exprOmtokenPos _exprOscopeLevel _exprOscopes _exprOtopLevel _exprOvarBeingDefined _exprOvariableStyle) of + { ( _exprIglobalDefinitions,_exprIidentifier,_exprIisInModule,_exprIisSimpleExpression,_exprIisSingleVar,_exprImtokenPos,_exprIscopes,_exprIvariableStyle,_exprIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprIglobalDefinitions + {-# LINE 6816 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprIidentifier + {-# LINE 6821 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprIisInModule + {-# LINE 6826 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprIisSimpleExpression + {-# LINE 6831 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprIisSingleVar + {-# LINE 6836 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprIscopes + {-# LINE 6841 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprIvariableStyle + {-# LINE 6846 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprIwarnings + {-# LINE 6851 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_MExpr_MExpr_1)) of + { ( sem_MExpr_1) -> + ( _lhsOcopy,_lhsOmtokenPos,sem_MExpr_1) }) }) }) }) }) +-- MExprList --------------------------------------------------- +-- cata +sem_MExprList :: MExprList -> + T_MExprList +sem_MExprList list = + (Prelude.foldr sem_MExprList_Cons sem_MExprList_Nil (Prelude.map sem_MExpr list)) +-- semantic domain +type T_MExprList = ( MExprList,T_MExprList_1) +type T_MExprList_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + Bool -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_MExprList = Inh_MExprList {config_Inh_MExprList :: LintSettings,funcName_Inh_MExprList :: String,globalDefinitions_Inh_MExprList :: (M.Map String [Region]),inParentheses_Inh_MExprList :: Bool,isInModule_Inh_MExprList :: Bool,isMeta_Inh_MExprList :: Bool,loopLevel_Inh_MExprList :: Int,mtokenPos_Inh_MExprList :: Region,scopeLevel_Inh_MExprList :: Int,scopes_Inh_MExprList :: ([M.Map String (Bool, Region)]),topLevel_Inh_MExprList :: Bool,variableStyle_Inh_MExprList :: DeterminedVariableStyle} +data Syn_MExprList = Syn_MExprList {copy_Syn_MExprList :: MExprList,globalDefinitions_Syn_MExprList :: (M.Map String [Region]),identifier_Syn_MExprList :: String,isInModule_Syn_MExprList :: Bool,mtokenPos_Syn_MExprList :: Region,scopes_Syn_MExprList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_MExprList :: DeterminedVariableStyle,warnings_Syn_MExprList :: ([String -> LintMessage])} +wrap_MExprList :: T_MExprList -> + Inh_MExprList -> + Syn_MExprList +wrap_MExprList sem (Inh_MExprList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvariableStyle + in (Syn_MExprList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_MExprList_Cons :: T_MExpr -> + T_MExprList -> + T_MExprList +sem_MExprList_Cons hd_ tl_ = + (case (tl_) of + { ( _tlIcopy,tl_1) -> + (case (hd_) of + { ( _hdIcopy,_hdImtokenPos,hd_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 6898 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 6903 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_MExprList_Cons_1 :: T_MExprList_1 + sem_MExprList_Cons_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 6922 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 6927 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisMeta -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 6932 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOconfig -> + (case (({-# LINE 246 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 6937 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOvarBeingDefined -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 6942 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOvariableStyle -> + (case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsItopLevel + {-# LINE 6947 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOtopLevel -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 6952 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 6957 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 6962 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOloopLevel -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 6967 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisInModule -> + (case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIinParentheses + {-# LINE 6972 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOinParentheses -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 6977 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 6982 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOfuncName -> + (case (({-# LINE 245 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 6987 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisNegation -> + (case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOinParentheses _hdOisInModule _hdOisMeta _hdOisNegation _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOtopLevel _hdOvarBeingDefined _hdOvariableStyle) of + { ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdIisSimpleExpression,_hdIisSingleVar,_hdIscopes,_hdIvariableStyle,_hdIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIscopes + {-# LINE 6994 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 6999 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIisInModule + {-# LINE 7004 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIglobalDefinitions + {-# LINE 7009 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 7014 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIvariableStyle + {-# LINE 7019 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOvariableStyle -> + (case (({-# LINE 183 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsItopLevel + {-# LINE 7024 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOtopLevel -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 7029 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdImtokenPos + {-# LINE 7034 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 7039 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOloopLevel -> + (case (({-# LINE 182 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIinParentheses + {-# LINE 7044 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOinParentheses -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 7049 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOfuncName -> + (case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOinParentheses _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOtopLevel _tlOvariableStyle) of + { ( _tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIglobalDefinitions + {-# LINE 7056 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _hdIidentifier _tlIidentifier) + {-# LINE 7061 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIisInModule + {-# LINE 7066 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdImtokenPos + {-# LINE 7071 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIscopes + {-# LINE 7076 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIvariableStyle + {-# LINE 7081 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIwarnings ++ _tlIwarnings + {-# LINE 7086 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_MExprList_Cons_1)) of + { ( sem_MExprList_1) -> + ( _lhsOcopy,sem_MExprList_1) }) }) }) }) }) +sem_MExprList_Nil :: T_MExprList +sem_MExprList_Nil = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 7097 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 7102 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_MExprList_Nil_1 :: T_MExprList_1 + sem_MExprList_Nil_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 7121 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 7126 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 7131 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 7136 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 7141 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 7146 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 7151 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_MExprList_Nil_1)) of + { ( sem_MExprList_1) -> + ( _lhsOcopy,sem_MExprList_1) }) }) }) +-- MStat ------------------------------------------------------- +-- cata +sem_MStat :: MStat -> + T_MStat +sem_MStat (MStat _pos _stat) = + (sem_MStat_MStat _pos (sem_Stat _stat)) +-- semantic domain +type T_MStat = ( MStat,T_MStat_1) +type T_MStat_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage])) +data Inh_MStat = Inh_MStat {config_Inh_MStat :: LintSettings,funcName_Inh_MStat :: String,globalDefinitions_Inh_MStat :: (M.Map String [Region]),isInModule_Inh_MStat :: Bool,isMeta_Inh_MStat :: Bool,loopLevel_Inh_MStat :: Int,mtokenPos_Inh_MStat :: Region,scopeLevel_Inh_MStat :: Int,scopes_Inh_MStat :: ([M.Map String (Bool, Region)]),variableStyle_Inh_MStat :: DeterminedVariableStyle} +data Syn_MStat = Syn_MStat {copy_Syn_MStat :: MStat,globalDefinitions_Syn_MStat :: (M.Map String [Region]),identifier_Syn_MStat :: String,isIfStatement_Syn_MStat :: Bool,isInModule_Syn_MStat :: Bool,mtokenPos_Syn_MStat :: Region,scopes_Syn_MStat :: ([M.Map String (Bool, Region)]),statementCount_Syn_MStat :: Int,variableStyle_Syn_MStat :: DeterminedVariableStyle,warnings_Syn_MStat :: ([String -> LintMessage])} +wrap_MStat :: T_MStat -> + Inh_MStat -> + Syn_MStat +wrap_MStat sem (Inh_MStat _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_MStat _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisIfStatement _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings)) +sem_MStat_MStat :: Region -> + T_Stat -> + T_MStat +sem_MStat_MStat pos_ stat_ = + (case (stat_) of + { ( _statIcopy,stat_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + MStat pos_ _statIcopy + {-# LINE 7194 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 7199 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_MStat_MStat_1 :: T_MStat_1 + sem_MStat_MStat_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 7216 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 7221 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 7226 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 7231 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 7236 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 7241 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 7246 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statOscopeLevel -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 7251 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 7256 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statOfuncName -> + (case (({-# LINE 310 "src/GLuaFixer/AG/ASTLint.ag" #-} + pos_ + {-# LINE 7261 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _statOmtokenPos -> + (case (stat_1 _statOconfig _statOfuncName _statOglobalDefinitions _statOisInModule _statOisMeta _statOloopLevel _statOmtokenPos _statOscopeLevel _statOscopes _statOvariableStyle) of + { ( _statIglobalDefinitions,_statIidentifier,_statIisIfStatement,_statIisInModule,_statImtokenPos,_statIscopes,_statIvariableStyle,_statIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statIglobalDefinitions + {-# LINE 7268 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statIidentifier + {-# LINE 7273 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statIisIfStatement + {-# LINE 7278 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statIisInModule + {-# LINE 7283 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 309 "src/GLuaFixer/AG/ASTLint.ag" #-} + pos_ + {-# LINE 7288 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statIscopes + {-# LINE 7293 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-} + 1 + {-# LINE 7298 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOstatementCount -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statIvariableStyle + {-# LINE 7303 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _statIwarnings + {-# LINE 7308 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_MStat_MStat_1)) of + { ( sem_MStat_1) -> + ( _lhsOcopy,sem_MStat_1) }) }) }) }) +-- MStatList --------------------------------------------------- +-- cata +sem_MStatList :: MStatList -> + T_MStatList +sem_MStatList list = + (Prelude.foldr sem_MStatList_Cons sem_MStatList_Nil (Prelude.map sem_MStat list)) +-- semantic domain +type T_MStatList = ( MStatList,T_MStatList_1) +type T_MStatList_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),Int,DeterminedVariableStyle,([String -> LintMessage])) +data Inh_MStatList = Inh_MStatList {config_Inh_MStatList :: LintSettings,funcName_Inh_MStatList :: String,globalDefinitions_Inh_MStatList :: (M.Map String [Region]),isInModule_Inh_MStatList :: Bool,isMeta_Inh_MStatList :: Bool,loopLevel_Inh_MStatList :: Int,mtokenPos_Inh_MStatList :: Region,scopeLevel_Inh_MStatList :: Int,scopes_Inh_MStatList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_MStatList :: DeterminedVariableStyle} +data Syn_MStatList = Syn_MStatList {copy_Syn_MStatList :: MStatList,globalDefinitions_Syn_MStatList :: (M.Map String [Region]),identifier_Syn_MStatList :: String,isIfStatement_Syn_MStatList :: Bool,isInModule_Syn_MStatList :: Bool,mtokenPos_Syn_MStatList :: Region,scopes_Syn_MStatList :: ([M.Map String (Bool, Region)]),statementCount_Syn_MStatList :: Int,variableStyle_Syn_MStatList :: DeterminedVariableStyle,warnings_Syn_MStatList :: ([String -> LintMessage])} +wrap_MStatList :: T_MStatList -> + Inh_MStatList -> + Syn_MStatList +wrap_MStatList sem (Inh_MStatList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_MStatList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisIfStatement _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOstatementCount _lhsOvariableStyle _lhsOwarnings)) +sem_MStatList_Cons :: T_MStat -> + T_MStatList -> + T_MStatList +sem_MStatList_Cons hd_ tl_ = + (case (tl_) of + { ( _tlIcopy,tl_1) -> + (case (hd_) of + { ( _hdIcopy,hd_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 7353 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 7358 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_MStatList_Cons_1 :: T_MStatList_1 + sem_MStatList_Cons_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 7375 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 7380 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisMeta -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 7385 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 7390 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 7395 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 7400 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 7405 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOloopLevel -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 7410 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 7415 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 7420 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOfuncName -> + (case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of + { ( _hdIglobalDefinitions,_hdIidentifier,_hdIisIfStatement,_hdIisInModule,_hdImtokenPos,_hdIscopes,_hdIstatementCount,_hdIvariableStyle,_hdIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIscopes + {-# LINE 7427 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 7432 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIisInModule + {-# LINE 7437 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIglobalDefinitions + {-# LINE 7442 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 7447 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIvariableStyle + {-# LINE 7452 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 7457 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdImtokenPos + {-# LINE 7462 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 7467 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 7472 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOfuncName -> + (case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of + { ( _tlIglobalDefinitions,_tlIidentifier,_tlIisIfStatement,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIstatementCount,_tlIvariableStyle,_tlIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIglobalDefinitions + {-# LINE 7479 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _hdIidentifier _tlIidentifier) + {-# LINE 7484 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIisIfStatement || _tlIisIfStatement + {-# LINE 7489 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIisInModule + {-# LINE 7494 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdImtokenPos + {-# LINE 7499 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIscopes + {-# LINE 7504 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 158 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIstatementCount + _tlIstatementCount + {-# LINE 7509 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOstatementCount -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIvariableStyle + {-# LINE 7514 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIwarnings ++ _tlIwarnings + {-# LINE 7519 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_MStatList_Cons_1)) of + { ( sem_MStatList_1) -> + ( _lhsOcopy,sem_MStatList_1) }) }) }) }) }) +sem_MStatList_Nil :: T_MStatList +sem_MStatList_Nil = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 7530 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 7535 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_MStatList_Nil_1 :: T_MStatList_1 + sem_MStatList_Nil_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 7552 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 7557 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 7562 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 7567 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 7572 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 7577 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 241 "src/GLuaFixer/AG/ASTLint.ag" #-} + 0 + {-# LINE 7582 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOstatementCount -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 7587 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 7592 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOstatementCount,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) })) + in sem_MStatList_Nil_1)) of + { ( sem_MStatList_1) -> + ( _lhsOcopy,sem_MStatList_1) }) }) }) +-- MToken ------------------------------------------------------ +-- cata +sem_MToken :: MToken -> + T_MToken +sem_MToken (MToken _mpos _mtok) = + (sem_MToken_MToken _mpos (sem_Token _mtok)) +-- semantic domain +type T_MToken = ( MToken,Token,Region,T_MToken_1) +type T_MToken_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Region -> + ([M.Map String (Bool, Region)]) -> + ( (M.Map String [Region]),String,Bool,([M.Map String (Bool, Region)]),([String -> LintMessage])) +data Inh_MToken = Inh_MToken {config_Inh_MToken :: LintSettings,funcName_Inh_MToken :: String,globalDefinitions_Inh_MToken :: (M.Map String [Region]),isInModule_Inh_MToken :: Bool,isMeta_Inh_MToken :: Bool,mtokenPos_Inh_MToken :: Region,scopes_Inh_MToken :: ([M.Map String (Bool, Region)])} +data Syn_MToken = Syn_MToken {copy_Syn_MToken :: MToken,globalDefinitions_Syn_MToken :: (M.Map String [Region]),identifier_Syn_MToken :: String,isInModule_Syn_MToken :: Bool,mtok_Syn_MToken :: Token,mtokenPos_Syn_MToken :: Region,scopes_Syn_MToken :: ([M.Map String (Bool, Region)]),warnings_Syn_MToken :: ([String -> LintMessage])} +wrap_MToken :: T_MToken -> + Inh_MToken -> + Syn_MToken +wrap_MToken sem (Inh_MToken _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsImtokenPos _lhsIscopes) = + (let ( _lhsOcopy,_lhsOmtok,_lhsOmtokenPos,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOscopes,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsImtokenPos _lhsIscopes + in (Syn_MToken _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtok _lhsOmtokenPos _lhsOscopes _lhsOwarnings)) +sem_MToken_MToken :: Region -> + T_Token -> + T_MToken +sem_MToken_MToken mpos_ mtok_ = + (case (mtok_) of + { ( _mtokIcopy,_mtokIidentifier,_mtokIwarnings) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + MToken mpos_ _mtokIcopy + {-# LINE 7632 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 7637 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 228 "src/GLuaFixer/AG/ASTLint.ag" #-} + _mtokIcopy + {-# LINE 7642 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtok -> + (case (({-# LINE 227 "src/GLuaFixer/AG/ASTLint.ag" #-} + mpos_ + {-# LINE 7647 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case ((let sem_MToken_MToken_1 :: T_MToken_1 + sem_MToken_MToken_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsImtokenPos + _lhsIscopes -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 7661 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 229 "src/GLuaFixer/AG/ASTLint.ag" #-} + _mtokIidentifier + {-# LINE 7666 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 7671 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 7676 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 230 "src/GLuaFixer/AG/ASTLint.ag" #-} + _mtokIwarnings + {-# LINE 7681 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 230 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_goto_identifier _lhsIconfig) || _mtokIidentifier /= "goto" then id else + (:) $ warn mpos_ GotoAsIdentifier + {-# LINE 7687 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 230 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 7692 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOscopes,_lhsOwarnings) }) }) }) }) }) }) })) + in sem_MToken_MToken_1)) of + { ( sem_MToken_1) -> + ( _lhsOcopy,_lhsOmtok,_lhsOmtokenPos,sem_MToken_1) }) }) }) }) }) }) +-- MTokenList -------------------------------------------------- +-- cata +sem_MTokenList :: MTokenList -> + T_MTokenList +sem_MTokenList list = + (Prelude.foldr sem_MTokenList_Cons sem_MTokenList_Nil (Prelude.map sem_MToken list)) +-- semantic domain +type T_MTokenList = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Region -> + ([M.Map String (Bool, Region)]) -> + ( MTokenList,(M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),([String -> LintMessage])) +data Inh_MTokenList = Inh_MTokenList {config_Inh_MTokenList :: LintSettings,funcName_Inh_MTokenList :: String,globalDefinitions_Inh_MTokenList :: (M.Map String [Region]),isInModule_Inh_MTokenList :: Bool,isMeta_Inh_MTokenList :: Bool,mtokenPos_Inh_MTokenList :: Region,scopes_Inh_MTokenList :: ([M.Map String (Bool, Region)])} +data Syn_MTokenList = Syn_MTokenList {copy_Syn_MTokenList :: MTokenList,globalDefinitions_Syn_MTokenList :: (M.Map String [Region]),identifier_Syn_MTokenList :: String,isInModule_Syn_MTokenList :: Bool,mtokenPos_Syn_MTokenList :: Region,scopes_Syn_MTokenList :: ([M.Map String (Bool, Region)]),warnings_Syn_MTokenList :: ([String -> LintMessage])} +wrap_MTokenList :: T_MTokenList -> + Inh_MTokenList -> + Syn_MTokenList +wrap_MTokenList sem (Inh_MTokenList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsImtokenPos _lhsIscopes) = + (let ( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOwarnings) = sem _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsImtokenPos _lhsIscopes + in (Syn_MTokenList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOwarnings)) +sem_MTokenList_Cons :: T_MToken -> + T_MTokenList -> + T_MTokenList +sem_MTokenList_Cons hd_ tl_ = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsImtokenPos + _lhsIscopes -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 7735 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOscopes -> + (case (hd_) of + { ( _hdIcopy,_hdImtok,_hdImtokenPos,hd_1) -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 7742 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOmtokenPos -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 7747 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 7752 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 7757 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 7762 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 7767 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOconfig -> + (case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOmtokenPos _hdOscopes) of + { ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdIscopes,_hdIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIscopes + {-# LINE 7774 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOscopes -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdImtokenPos + {-# LINE 7779 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOmtokenPos -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 7784 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIisInModule + {-# LINE 7789 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIglobalDefinitions + {-# LINE 7794 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 7799 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 7804 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOconfig -> + (case (tl_ _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOmtokenPos _tlOscopes) of + { ( _tlIcopy,_tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIwarnings) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 7811 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 7816 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIglobalDefinitions + {-# LINE 7821 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _hdIidentifier _tlIidentifier) + {-# LINE 7826 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIisInModule + {-# LINE 7831 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdImtokenPos + {-# LINE 7836 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIscopes + {-# LINE 7841 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIwarnings ++ _tlIwarnings + {-# LINE 7846 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) +sem_MTokenList_Nil :: T_MTokenList +sem_MTokenList_Nil = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsImtokenPos + _lhsIscopes -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 7861 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 7866 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 7871 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 7876 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 7881 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 7886 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 7891 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 7896 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOwarnings) }) }) }) }) }) }) }) })) +-- MaybeMExpr -------------------------------------------------- +-- cata +sem_MaybeMExpr :: MaybeMExpr -> + T_MaybeMExpr +sem_MaybeMExpr (Prelude.Just x) = + (sem_MaybeMExpr_Just (sem_MExpr x)) +sem_MaybeMExpr Prelude.Nothing = + sem_MaybeMExpr_Nothing +-- semantic domain +type T_MaybeMExpr = ( MaybeMExpr,T_MaybeMExpr_1) +type T_MaybeMExpr_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + (Maybe MToken) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,(Maybe MToken),Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_MaybeMExpr = Inh_MaybeMExpr {config_Inh_MaybeMExpr :: LintSettings,funcName_Inh_MaybeMExpr :: String,globalDefinitions_Inh_MaybeMExpr :: (M.Map String [Region]),isInModule_Inh_MaybeMExpr :: Bool,isMeta_Inh_MaybeMExpr :: Bool,isNegation_Inh_MaybeMExpr :: Bool,loopLevel_Inh_MaybeMExpr :: Int,mtokenPos_Inh_MaybeMExpr :: Region,scopeLevel_Inh_MaybeMExpr :: Int,scopes_Inh_MaybeMExpr :: ([M.Map String (Bool, Region)]),varBeingDefined_Inh_MaybeMExpr :: (Maybe MToken),variableStyle_Inh_MaybeMExpr :: DeterminedVariableStyle} +data Syn_MaybeMExpr = Syn_MaybeMExpr {copy_Syn_MaybeMExpr :: MaybeMExpr,globalDefinitions_Syn_MaybeMExpr :: (M.Map String [Region]),identifier_Syn_MaybeMExpr :: String,isInModule_Syn_MaybeMExpr :: Bool,isSingleVar_Syn_MaybeMExpr :: (Maybe MToken),mtokenPos_Syn_MaybeMExpr :: Region,scopes_Syn_MaybeMExpr :: ([M.Map String (Bool, Region)]),variableStyle_Syn_MaybeMExpr :: DeterminedVariableStyle,warnings_Syn_MaybeMExpr :: ([String -> LintMessage])} +wrap_MaybeMExpr :: T_MaybeMExpr -> + Inh_MaybeMExpr -> + Syn_MaybeMExpr +wrap_MaybeMExpr sem (Inh_MaybeMExpr _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvarBeingDefined _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvarBeingDefined _lhsIvariableStyle + in (Syn_MaybeMExpr _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSingleVar _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_MaybeMExpr_Just :: T_MExpr -> + T_MaybeMExpr +sem_MaybeMExpr_Just just_ = + (case (just_) of + { ( _justIcopy,_justImtokenPos,just_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Just _justIcopy + {-# LINE 7939 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 7944 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_MaybeMExpr_Just_1 :: T_MaybeMExpr_1 + sem_MaybeMExpr_Just_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 179 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvarBeingDefined + {-# LINE 7963 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOvarBeingDefined -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 7968 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 7973 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 7978 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 7983 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 7988 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 7993 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 7998 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 8003 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 8008 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOloopLevel -> + (case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisNegation + {-# LINE 8013 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOisNegation -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 8018 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOfuncName -> + (case (({-# LINE 252 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 8023 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOtopLevel -> + (case (({-# LINE 251 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 8028 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _justOinParentheses -> + (case (just_1 _justOconfig _justOfuncName _justOglobalDefinitions _justOinParentheses _justOisInModule _justOisMeta _justOisNegation _justOloopLevel _justOmtokenPos _justOscopeLevel _justOscopes _justOtopLevel _justOvarBeingDefined _justOvariableStyle) of + { ( _justIglobalDefinitions,_justIidentifier,_justIisInModule,_justIisSimpleExpression,_justIisSingleVar,_justIscopes,_justIvariableStyle,_justIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justIglobalDefinitions + {-# LINE 8035 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justIidentifier + {-# LINE 8040 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justIisInModule + {-# LINE 8045 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justIisSingleVar + {-# LINE 8050 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justImtokenPos + {-# LINE 8055 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justIscopes + {-# LINE 8060 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justIvariableStyle + {-# LINE 8065 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _justIwarnings + {-# LINE 8070 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_MaybeMExpr_Just_1)) of + { ( sem_MaybeMExpr_1) -> + ( _lhsOcopy,sem_MaybeMExpr_1) }) }) }) }) +sem_MaybeMExpr_Nothing :: T_MaybeMExpr +sem_MaybeMExpr_Nothing = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 8081 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 8086 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_MaybeMExpr_Nothing_1 :: T_MaybeMExpr_1 + sem_MaybeMExpr_Nothing_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 8105 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 8110 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 8115 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 214 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 8120 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 8125 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 8130 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 8135 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 8140 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSingleVar,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) + in sem_MaybeMExpr_Nothing_1)) of + { ( sem_MaybeMExpr_1) -> + ( _lhsOcopy,sem_MaybeMExpr_1) }) }) }) +-- PFExprSuffix ------------------------------------------------ +-- cata +sem_PFExprSuffix :: PFExprSuffix -> + T_PFExprSuffix +sem_PFExprSuffix (Call _args) = + (sem_PFExprSuffix_Call (sem_Args _args)) +sem_PFExprSuffix (MetaCall _fn _args) = + (sem_PFExprSuffix_MetaCall (sem_MToken _fn) (sem_Args _args)) +sem_PFExprSuffix (ExprIndex _index) = + (sem_PFExprSuffix_ExprIndex (sem_MExpr _index)) +sem_PFExprSuffix (DotIndex _index) = + (sem_PFExprSuffix_DotIndex (sem_MToken _index)) +-- semantic domain +type T_PFExprSuffix = ( PFExprSuffix,T_PFExprSuffix_1) +type T_PFExprSuffix_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_PFExprSuffix = Inh_PFExprSuffix {config_Inh_PFExprSuffix :: LintSettings,funcName_Inh_PFExprSuffix :: String,globalDefinitions_Inh_PFExprSuffix :: (M.Map String [Region]),isInModule_Inh_PFExprSuffix :: Bool,isMeta_Inh_PFExprSuffix :: Bool,loopLevel_Inh_PFExprSuffix :: Int,mtokenPos_Inh_PFExprSuffix :: Region,scopeLevel_Inh_PFExprSuffix :: Int,scopes_Inh_PFExprSuffix :: ([M.Map String (Bool, Region)]),variableStyle_Inh_PFExprSuffix :: DeterminedVariableStyle} +data Syn_PFExprSuffix = Syn_PFExprSuffix {copy_Syn_PFExprSuffix :: PFExprSuffix,globalDefinitions_Syn_PFExprSuffix :: (M.Map String [Region]),identifier_Syn_PFExprSuffix :: String,isInModule_Syn_PFExprSuffix :: Bool,isSimpleExpression_Syn_PFExprSuffix :: Bool,mtokenPos_Syn_PFExprSuffix :: Region,scopes_Syn_PFExprSuffix :: ([M.Map String (Bool, Region)]),variableStyle_Syn_PFExprSuffix :: DeterminedVariableStyle,warnings_Syn_PFExprSuffix :: ([String -> LintMessage])} +wrap_PFExprSuffix :: T_PFExprSuffix -> + Inh_PFExprSuffix -> + Syn_PFExprSuffix +wrap_PFExprSuffix sem (Inh_PFExprSuffix _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_PFExprSuffix _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_PFExprSuffix_Call :: T_Args -> + T_PFExprSuffix +sem_PFExprSuffix_Call args_ = + (case (args_) of + { ( _argsIcopy,args_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Call _argsIcopy + {-# LINE 8188 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 8193 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_PFExprSuffix_Call_1 :: T_PFExprSuffix_1 + sem_PFExprSuffix_Call_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 8210 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 8215 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 8220 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 8225 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 8230 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 8235 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 8240 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 8245 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 8250 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 8255 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOfuncName -> + (case (args_1 _argsOconfig _argsOfuncName _argsOglobalDefinitions _argsOisInModule _argsOisMeta _argsOloopLevel _argsOmtokenPos _argsOscopeLevel _argsOscopes _argsOvariableStyle) of + { ( _argsIglobalDefinitions,_argsIidentifier,_argsIisInModule,_argsImtokenPos,_argsIscopes,_argsIvariableStyle,_argsIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIglobalDefinitions + {-# LINE 8262 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIidentifier + {-# LINE 8267 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIisInModule + {-# LINE 8272 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 559 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 8277 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsImtokenPos + {-# LINE 8282 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIscopes + {-# LINE 8287 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIvariableStyle + {-# LINE 8292 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIwarnings + {-# LINE 8297 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_PFExprSuffix_Call_1)) of + { ( sem_PFExprSuffix_1) -> + ( _lhsOcopy,sem_PFExprSuffix_1) }) }) }) }) +sem_PFExprSuffix_MetaCall :: T_MToken -> + T_Args -> + T_PFExprSuffix +sem_PFExprSuffix_MetaCall fn_ args_ = + (case (args_) of + { ( _argsIcopy,args_1) -> + (case (fn_) of + { ( _fnIcopy,_fnImtok,_fnImtokenPos,fn_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + MetaCall _fnIcopy _argsIcopy + {-# LINE 8314 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 8319 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_PFExprSuffix_MetaCall_1 :: T_PFExprSuffix_1 + sem_PFExprSuffix_MetaCall_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 8336 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOscopes -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 8341 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOmtokenPos -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 8346 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 8351 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 8356 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 8361 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 8366 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOconfig -> + (case (fn_1 _fnOconfig _fnOfuncName _fnOglobalDefinitions _fnOisInModule _fnOisMeta _fnOmtokenPos _fnOscopes) of + { ( _fnIglobalDefinitions,_fnIidentifier,_fnIisInModule,_fnIscopes,_fnIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fnIscopes + {-# LINE 8373 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 8378 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fnIisInModule + {-# LINE 8383 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fnIglobalDefinitions + {-# LINE 8388 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 8393 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 8398 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 8403 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fnImtokenPos + {-# LINE 8408 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 8413 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 8418 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argsOfuncName -> + (case (args_1 _argsOconfig _argsOfuncName _argsOglobalDefinitions _argsOisInModule _argsOisMeta _argsOloopLevel _argsOmtokenPos _argsOscopeLevel _argsOscopes _argsOvariableStyle) of + { ( _argsIglobalDefinitions,_argsIidentifier,_argsIisInModule,_argsImtokenPos,_argsIscopes,_argsIvariableStyle,_argsIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIglobalDefinitions + {-# LINE 8425 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _fnIidentifier _argsIidentifier) + {-# LINE 8430 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIisInModule + {-# LINE 8435 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 561 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 8440 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsImtokenPos + {-# LINE 8445 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIscopes + {-# LINE 8450 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _argsIvariableStyle + {-# LINE 8455 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fnIwarnings ++ _argsIwarnings + {-# LINE 8460 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_PFExprSuffix_MetaCall_1)) of + { ( sem_PFExprSuffix_1) -> + ( _lhsOcopy,sem_PFExprSuffix_1) }) }) }) }) }) +sem_PFExprSuffix_ExprIndex :: T_MExpr -> + T_PFExprSuffix +sem_PFExprSuffix_ExprIndex index_ = + (case (index_) of + { ( _indexIcopy,_indexImtokenPos,index_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ExprIndex _indexIcopy + {-# LINE 8474 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 8479 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_PFExprSuffix_ExprIndex_1 :: T_PFExprSuffix_1 + sem_PFExprSuffix_ExprIndex_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 8496 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 8501 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 8506 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 8511 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 8516 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOconfig -> + (case (({-# LINE 566 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 8521 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOvarBeingDefined -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 8526 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 8531 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 8536 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 8541 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 8546 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOfuncName -> + (case (({-# LINE 565 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 8551 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOtopLevel -> + (case (({-# LINE 564 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 8556 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOinParentheses -> + (case (({-# LINE 563 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 8561 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOisNegation -> + (case (index_1 _indexOconfig _indexOfuncName _indexOglobalDefinitions _indexOinParentheses _indexOisInModule _indexOisMeta _indexOisNegation _indexOloopLevel _indexOmtokenPos _indexOscopeLevel _indexOscopes _indexOtopLevel _indexOvarBeingDefined _indexOvariableStyle) of + { ( _indexIglobalDefinitions,_indexIidentifier,_indexIisInModule,_indexIisSimpleExpression,_indexIisSingleVar,_indexIscopes,_indexIvariableStyle,_indexIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _indexIglobalDefinitions + {-# LINE 8568 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _indexIidentifier + {-# LINE 8573 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _indexIisInModule + {-# LINE 8578 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + _indexIisSimpleExpression + {-# LINE 8583 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _indexImtokenPos + {-# LINE 8588 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _indexIscopes + {-# LINE 8593 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _indexIvariableStyle + {-# LINE 8598 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _indexIwarnings + {-# LINE 8603 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_PFExprSuffix_ExprIndex_1)) of + { ( sem_PFExprSuffix_1) -> + ( _lhsOcopy,sem_PFExprSuffix_1) }) }) }) }) +sem_PFExprSuffix_DotIndex :: T_MToken -> + T_PFExprSuffix +sem_PFExprSuffix_DotIndex index_ = + (case (index_) of + { ( _indexIcopy,_indexImtok,_indexImtokenPos,index_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + DotIndex _indexIcopy + {-# LINE 8617 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 8622 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_PFExprSuffix_DotIndex_1 :: T_PFExprSuffix_1 + sem_PFExprSuffix_DotIndex_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 8639 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOglobalDefinitions -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 8644 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOscopes -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 8649 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOmtokenPos -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 8654 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 8659 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOisInModule -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 8664 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 8669 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _indexOconfig -> + (case (index_1 _indexOconfig _indexOfuncName _indexOglobalDefinitions _indexOisInModule _indexOisMeta _indexOmtokenPos _indexOscopes) of + { ( _indexIglobalDefinitions,_indexIidentifier,_indexIisInModule,_indexIscopes,_indexIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _indexIglobalDefinitions + {-# LINE 8676 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _indexIidentifier + {-# LINE 8681 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _indexIisInModule + {-# LINE 8686 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 8691 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _indexImtokenPos + {-# LINE 8696 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _indexIscopes + {-# LINE 8701 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 8706 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _indexIwarnings + {-# LINE 8711 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_PFExprSuffix_DotIndex_1)) of + { ( sem_PFExprSuffix_1) -> + ( _lhsOcopy,sem_PFExprSuffix_1) }) }) }) }) +-- PrefixExp --------------------------------------------------- +-- cata +sem_PrefixExp :: PrefixExp -> + T_PrefixExp +sem_PrefixExp (PFVar _name _suffixes) = + (sem_PrefixExp_PFVar (sem_MToken _name) (sem_ExprSuffixList _suffixes)) +sem_PrefixExp (ExprVar _expr _suffixes) = + (sem_PrefixExp_ExprVar (sem_MExpr _expr) (sem_ExprSuffixList _suffixes)) +-- semantic domain +type T_PrefixExp = ( PrefixExp,Bool,Region,(Maybe MToken),T_PrefixExp_1) +type T_PrefixExp_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Bool -> + Bool -> + Int -> + Region -> + Bool -> + Int -> + ([M.Map String (Bool, Region)]) -> + Bool -> + (Maybe MToken) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Bool,(Maybe MToken),([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_PrefixExp = Inh_PrefixExp {config_Inh_PrefixExp :: LintSettings,funcName_Inh_PrefixExp :: String,globalDefinitions_Inh_PrefixExp :: (M.Map String [Region]),inParentheses_Inh_PrefixExp :: Bool,isInModule_Inh_PrefixExp :: Bool,isMeta_Inh_PrefixExp :: Bool,isNegation_Inh_PrefixExp :: Bool,loopLevel_Inh_PrefixExp :: Int,mtokenPos_Inh_PrefixExp :: Region,registerVarUse_Inh_PrefixExp :: Bool,scopeLevel_Inh_PrefixExp :: Int,scopes_Inh_PrefixExp :: ([M.Map String (Bool, Region)]),topLevel_Inh_PrefixExp :: Bool,varBeingDefined_Inh_PrefixExp :: (Maybe MToken),variableStyle_Inh_PrefixExp :: DeterminedVariableStyle} +data Syn_PrefixExp = Syn_PrefixExp {copy_Syn_PrefixExp :: PrefixExp,globalDefinitions_Syn_PrefixExp :: (M.Map String [Region]),hasSuffixes_Syn_PrefixExp :: Bool,identifier_Syn_PrefixExp :: String,isInModule_Syn_PrefixExp :: Bool,isSimpleExpression_Syn_PrefixExp :: Bool,isSingleVar_Syn_PrefixExp :: (Maybe MToken),mtokenPos_Syn_PrefixExp :: Region,scopes_Syn_PrefixExp :: ([M.Map String (Bool, Region)]),varName_Syn_PrefixExp :: (Maybe MToken),variableStyle_Syn_PrefixExp :: DeterminedVariableStyle,warnings_Syn_PrefixExp :: ([String -> LintMessage])} +wrap_PrefixExp :: T_PrefixExp -> + Inh_PrefixExp -> + Syn_PrefixExp +wrap_PrefixExp sem (Inh_PrefixExp _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIregisterVarUse _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle) = + (let ( _lhsOcopy,_lhsOhasSuffixes,_lhsOmtokenPos,_lhsOvarName,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIinParentheses _lhsIisInModule _lhsIisMeta _lhsIisNegation _lhsIloopLevel _lhsImtokenPos _lhsIregisterVarUse _lhsIscopeLevel _lhsIscopes _lhsItopLevel _lhsIvarBeingDefined _lhsIvariableStyle + in (Syn_PrefixExp _lhsOcopy _lhsOglobalDefinitions _lhsOhasSuffixes _lhsOidentifier _lhsOisInModule _lhsOisSimpleExpression _lhsOisSingleVar _lhsOmtokenPos _lhsOscopes _lhsOvarName _lhsOvariableStyle _lhsOwarnings)) +sem_PrefixExp_PFVar :: T_MToken -> + T_ExprSuffixList -> + T_PrefixExp +sem_PrefixExp_PFVar name_ suffixes_ = + (case (suffixes_) of + { ( _suffixesIcopy,suffixes_1) -> + (case (name_) of + { ( _nameIcopy,_nameImtok,_nameImtokenPos,name_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + PFVar _nameIcopy _suffixesIcopy + {-# LINE 8763 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 8768 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 520 "src/GLuaFixer/AG/ASTLint.ag" #-} + not . null $ _suffixesIcopy + {-# LINE 8773 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOhasSuffixes -> + (case (({-# LINE 519 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameImtokenPos + {-# LINE 8778 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 522 "src/GLuaFixer/AG/ASTLint.ag" #-} + Just _nameIcopy + {-# LINE 8783 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varName -> + (case (({-# LINE 193 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varName + {-# LINE 8788 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvarName -> + (case ((let sem_PrefixExp_PFVar_1 :: T_PrefixExp_1 + sem_PrefixExp_PFVar_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIregisterVarUse + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 526 "src/GLuaFixer/AG/ASTLint.ag" #-} + if isJust _lhsIvarBeingDefined && _lhsIvarBeingDefined == _varName then + case _lhsIscopes of + deepestScope : otherScopes -> deepestScope : registerVariable otherScopes _nameImtokenPos (show _nameImtok) _lhsIregisterVarUse + noScopes -> noScopes + else + registerVariable _lhsIscopes _nameImtokenPos (show _nameImtok) _lhsIregisterVarUse + {-# LINE 8815 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _foundVars -> + (case (({-# LINE 536 "src/GLuaFixer/AG/ASTLint.ag" #-} + _foundVars + {-# LINE 8820 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOscopes -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 8825 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOmtokenPos -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 8830 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 8835 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 8840 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 8845 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 8850 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOconfig -> + (case (name_1 _nameOconfig _nameOfuncName _nameOglobalDefinitions _nameOisInModule _nameOisMeta _nameOmtokenPos _nameOscopes) of + { ( _nameIglobalDefinitions,_nameIidentifier,_nameIisInModule,_nameIscopes,_nameIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIscopes + {-# LINE 8857 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 8862 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIisInModule + {-# LINE 8867 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIglobalDefinitions + {-# LINE 8872 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 8877 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 8882 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 8887 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameImtokenPos + {-# LINE 8892 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 8897 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 8902 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOfuncName -> + (case (suffixes_1 _suffixesOconfig _suffixesOfuncName _suffixesOglobalDefinitions _suffixesOisInModule _suffixesOisMeta _suffixesOloopLevel _suffixesOmtokenPos _suffixesOscopeLevel _suffixesOscopes _suffixesOvariableStyle) of + { ( _suffixesIglobalDefinitions,_suffixesIidentifier,_suffixesIisInModule,_suffixesIisSimpleExpression,_suffixesImtokenPos,_suffixesIscopes,_suffixesIvariableStyle,_suffixesIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _suffixesIglobalDefinitions + {-# LINE 8909 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _nameIidentifier _suffixesIidentifier) + {-# LINE 8914 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _suffixesIisInModule + {-# LINE 8919 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + _suffixesIisSimpleExpression + {-# LINE 8924 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 521 "src/GLuaFixer/AG/ASTLint.ag" #-} + if null _suffixesIcopy then _varName else Nothing + {-# LINE 8929 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _suffixesIscopes + {-# LINE 8934 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _suffixesIvariableStyle + {-# LINE 8939 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIwarnings ++ _suffixesIwarnings + {-# LINE 8944 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 535 "src/GLuaFixer/AG/ASTLint.ag" #-} + tokenLabel _nameIcopy + {-# LINE 8949 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _name -> + (case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_beginnerMistakes _lhsIconfig) || _lhsIisMeta || _name /= "self" then id else + (:) $ warn _nameImtokenPos SelfInNonMeta + {-# LINE 8955 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f3 -> + (case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_beginnerMistakes _lhsIconfig) || not _lhsIisMeta || _name /= "self" || + _lhsIfuncName /= "ENT" || _suffixesIidentifier /= "Entity" then id else + (:) $ warn _nameImtokenPos SelfEntity + {-# LINE 8962 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f2 -> + (case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_beginnerMistakes _lhsIconfig) || not _lhsIisMeta || _name /= "self" || + _lhsIfuncName /= "SWEP" || _suffixesIidentifier /= "Weapon" then id else + (:) $ warn _nameImtokenPos SelfWeapon + {-# LINE 8969 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 542 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2, _warnings_augmented_f3] + {-# LINE 8974 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_PrefixExp_PFVar_1)) of + { ( sem_PrefixExp_1) -> + ( _lhsOcopy,_lhsOhasSuffixes,_lhsOmtokenPos,_lhsOvarName,sem_PrefixExp_1) }) }) }) }) }) }) }) }) }) +sem_PrefixExp_ExprVar :: T_MExpr -> + T_ExprSuffixList -> + T_PrefixExp +sem_PrefixExp_ExprVar expr_ suffixes_ = + (case (suffixes_) of + { ( _suffixesIcopy,suffixes_1) -> + (case (expr_) of + { ( _exprIcopy,_exprImtokenPos,expr_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ExprVar _exprIcopy _suffixesIcopy + {-# LINE 8991 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 8996 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 549 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 9001 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOhasSuffixes -> + (case (({-# LINE 546 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprImtokenPos + {-# LINE 9006 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 548 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 9011 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvarName -> + (case ((let sem_PrefixExp_ExprVar_1 :: T_PrefixExp_1 + sem_PrefixExp_ExprVar_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIinParentheses + _lhsIisInModule + _lhsIisMeta + _lhsIisNegation + _lhsIloopLevel + _lhsImtokenPos + _lhsIregisterVarUse + _lhsIscopeLevel + _lhsIscopes + _lhsItopLevel + _lhsIvarBeingDefined + _lhsIvariableStyle -> + (case (({-# LINE 179 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvarBeingDefined + {-# LINE 9033 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOvarBeingDefined -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 9038 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 9043 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOisMeta -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 9048 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 9053 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 9058 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 9063 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 9068 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOloopLevel -> + (case (({-# LINE 170 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisNegation + {-# LINE 9073 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOisNegation -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 9078 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 9083 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 9088 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOfuncName -> + (case (({-# LINE 551 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 9093 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOtopLevel -> + (case (({-# LINE 550 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 9098 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _exprOinParentheses -> + (case (expr_1 _exprOconfig _exprOfuncName _exprOglobalDefinitions _exprOinParentheses _exprOisInModule _exprOisMeta _exprOisNegation _exprOloopLevel _exprOmtokenPos _exprOscopeLevel _exprOscopes _exprOtopLevel _exprOvarBeingDefined _exprOvariableStyle) of + { ( _exprIglobalDefinitions,_exprIidentifier,_exprIisInModule,_exprIisSimpleExpression,_exprIisSingleVar,_exprIscopes,_exprIvariableStyle,_exprIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprIscopes + {-# LINE 9105 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 9110 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprIisInModule + {-# LINE 9115 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprIglobalDefinitions + {-# LINE 9120 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 9125 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprIvariableStyle + {-# LINE 9130 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 9135 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprImtokenPos + {-# LINE 9140 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 9145 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 9150 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _suffixesOfuncName -> + (case (suffixes_1 _suffixesOconfig _suffixesOfuncName _suffixesOglobalDefinitions _suffixesOisInModule _suffixesOisMeta _suffixesOloopLevel _suffixesOmtokenPos _suffixesOscopeLevel _suffixesOscopes _suffixesOvariableStyle) of + { ( _suffixesIglobalDefinitions,_suffixesIidentifier,_suffixesIisInModule,_suffixesIisSimpleExpression,_suffixesImtokenPos,_suffixesIscopes,_suffixesIvariableStyle,_suffixesIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _suffixesIglobalDefinitions + {-# LINE 9157 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _exprIidentifier _suffixesIidentifier) + {-# LINE 9162 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _suffixesIisInModule + {-# LINE 9167 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 187 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprIisSimpleExpression && _suffixesIisSimpleExpression + {-# LINE 9172 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSimpleExpression -> + (case (({-# LINE 547 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 9177 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisSingleVar -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _suffixesIscopes + {-# LINE 9182 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _suffixesIvariableStyle + {-# LINE 9187 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 552 "src/GLuaFixer/AG/ASTLint.ag" #-} + _exprIwarnings ++ _suffixesIwarnings + {-# LINE 9192 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 552 "src/GLuaFixer/AG/ASTLint.ag" #-} + if lint_redundantParentheses _lhsIconfig && null _suffixesIcopy && + ( _lhsIinParentheses || (not _lhsItopLevel && _exprIisSimpleExpression)) + then (:) $ warn _lhsImtokenPos UnnecessaryParentheses + else id + {-# LINE 9200 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 552 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 9205 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisSimpleExpression,_lhsOisSingleVar,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_PrefixExp_ExprVar_1)) of + { ( sem_PrefixExp_1) -> + ( _lhsOcopy,_lhsOhasSuffixes,_lhsOmtokenPos,_lhsOvarName,sem_PrefixExp_1) }) }) }) }) }) }) }) }) +-- Stat -------------------------------------------------------- +-- cata +sem_Stat :: Stat -> + T_Stat +sem_Stat (Def _vars) = + (sem_Stat_Def (sem_VarsList _vars)) +sem_Stat (LocDef _vars) = + (sem_Stat_LocDef (sem_VarsList _vars)) +sem_Stat (AFuncCall _fn) = + (sem_Stat_AFuncCall (sem_PrefixExp _fn)) +sem_Stat (ALabel _lbl) = + (sem_Stat_ALabel (sem_MToken _lbl)) +sem_Stat (ABreak) = + (sem_Stat_ABreak) +sem_Stat (AContinue) = + (sem_Stat_AContinue) +sem_Stat (AGoto _lbl) = + (sem_Stat_AGoto (sem_MToken _lbl)) +sem_Stat (ADo _body) = + (sem_Stat_ADo (sem_Block _body)) +sem_Stat (AWhile _cond _body) = + (sem_Stat_AWhile (sem_MExpr _cond) (sem_Block _body)) +sem_Stat (ARepeat _body _cond) = + (sem_Stat_ARepeat (sem_Block _body) (sem_MExpr _cond)) +sem_Stat (AIf _cond _body _elifs _els) = + (sem_Stat_AIf (sem_MExpr _cond) (sem_Block _body) (sem_ElseIfList _elifs) (sem_Else _els)) +sem_Stat (ANFor _var _val _to _step _body) = + (sem_Stat_ANFor (sem_MToken _var) (sem_MExpr _val) (sem_MExpr _to) (sem_MExpr _step) (sem_Block _body)) +sem_Stat (AGFor _vars _vals _body) = + (sem_Stat_AGFor _vars (sem_MExprList _vals) (sem_Block _body)) +sem_Stat (AFunc _name _args _body) = + (sem_Stat_AFunc (sem_FuncName _name) _args (sem_Block _body)) +sem_Stat (ALocFunc _name _args _body) = + (sem_Stat_ALocFunc (sem_FuncName _name) _args (sem_Block _body)) +-- semantic domain +type T_Stat = ( Stat,T_Stat_1) +type T_Stat_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_Stat = Inh_Stat {config_Inh_Stat :: LintSettings,funcName_Inh_Stat :: String,globalDefinitions_Inh_Stat :: (M.Map String [Region]),isInModule_Inh_Stat :: Bool,isMeta_Inh_Stat :: Bool,loopLevel_Inh_Stat :: Int,mtokenPos_Inh_Stat :: Region,scopeLevel_Inh_Stat :: Int,scopes_Inh_Stat :: ([M.Map String (Bool, Region)]),variableStyle_Inh_Stat :: DeterminedVariableStyle} +data Syn_Stat = Syn_Stat {copy_Syn_Stat :: Stat,globalDefinitions_Syn_Stat :: (M.Map String [Region]),identifier_Syn_Stat :: String,isIfStatement_Syn_Stat :: Bool,isInModule_Syn_Stat :: Bool,mtokenPos_Syn_Stat :: Region,scopes_Syn_Stat :: ([M.Map String (Bool, Region)]),variableStyle_Syn_Stat :: DeterminedVariableStyle,warnings_Syn_Stat :: ([String -> LintMessage])} +wrap_Stat :: T_Stat -> + Inh_Stat -> + Syn_Stat +wrap_Stat sem (Inh_Stat _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_Stat _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisIfStatement _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_Stat_Def :: T_VarsList -> + T_Stat +sem_Stat_Def vars_ = + (case (vars_) of + { ( _varsIcopy,vars_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Def _varsIcopy + {-# LINE 9275 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 9280 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_Def_1 :: T_Stat_1 + sem_Stat_Def_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 9297 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 9302 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 9307 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 9312 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 9317 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOconfig -> + (case (({-# LINE 315 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 9322 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOlocalDefinition -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 9327 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 9332 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 9337 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 9342 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 9347 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOfuncName -> + (case (vars_1 _varsOconfig _varsOfuncName _varsOglobalDefinitions _varsOisInModule _varsOisMeta _varsOlocalDefinition _varsOloopLevel _varsOmtokenPos _varsOscopeLevel _varsOscopes _varsOvariableStyle) of + { ( _varsIglobalDefinitions,_varsIidentifier,_varsIisInModule,_varsImtokenPos,_varsIscopes,_varsIvariableStyle,_varsIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varsIglobalDefinitions + {-# LINE 9354 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varsIidentifier + {-# LINE 9359 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 9364 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varsIisInModule + {-# LINE 9369 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varsImtokenPos + {-# LINE 9374 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varsIscopes + {-# LINE 9379 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varsIvariableStyle + {-# LINE 9384 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varsIwarnings + {-# LINE 9389 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Stat_Def_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) }) +sem_Stat_LocDef :: T_VarsList -> + T_Stat +sem_Stat_LocDef vars_ = + (case (vars_) of + { ( _varsIcopy,vars_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + LocDef _varsIcopy + {-# LINE 9403 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 9408 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_LocDef_1 :: T_Stat_1 + sem_Stat_LocDef_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 9425 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 9430 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 9435 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 9440 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 9445 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOconfig -> + (case (({-# LINE 318 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 9450 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOlocalDefinition -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 9455 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 9460 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 9465 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 9470 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 9475 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varsOfuncName -> + (case (vars_1 _varsOconfig _varsOfuncName _varsOglobalDefinitions _varsOisInModule _varsOisMeta _varsOlocalDefinition _varsOloopLevel _varsOmtokenPos _varsOscopeLevel _varsOscopes _varsOvariableStyle) of + { ( _varsIglobalDefinitions,_varsIidentifier,_varsIisInModule,_varsImtokenPos,_varsIscopes,_varsIvariableStyle,_varsIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varsIglobalDefinitions + {-# LINE 9482 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varsIidentifier + {-# LINE 9487 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 9492 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varsIisInModule + {-# LINE 9497 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varsImtokenPos + {-# LINE 9502 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varsIscopes + {-# LINE 9507 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varsIvariableStyle + {-# LINE 9512 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varsIwarnings + {-# LINE 9517 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Stat_LocDef_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) }) +sem_Stat_AFuncCall :: T_PrefixExp -> + T_Stat +sem_Stat_AFuncCall fn_ = + (case (fn_) of + { ( _fnIcopy,_fnIhasSuffixes,_fnImtokenPos,_fnIvarName,fn_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AFuncCall _fnIcopy + {-# LINE 9531 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 9536 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_AFuncCall_1 :: T_Stat_1 + sem_Stat_AFuncCall_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 9553 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 9558 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 9563 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 9568 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 9573 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOconfig -> + (case (({-# LINE 324 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 9578 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOvarBeingDefined -> + (case (({-# LINE 321 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 9583 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOregisterVarUse -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 9588 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 9593 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 9598 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 9603 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 9608 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOfuncName -> + (case (({-# LINE 323 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 9613 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOtopLevel -> + (case (({-# LINE 322 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 9618 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOinParentheses -> + (case (({-# LINE 320 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 9623 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _fnOisNegation -> + (case (fn_1 _fnOconfig _fnOfuncName _fnOglobalDefinitions _fnOinParentheses _fnOisInModule _fnOisMeta _fnOisNegation _fnOloopLevel _fnOmtokenPos _fnOregisterVarUse _fnOscopeLevel _fnOscopes _fnOtopLevel _fnOvarBeingDefined _fnOvariableStyle) of + { ( _fnIglobalDefinitions,_fnIidentifier,_fnIisInModule,_fnIisSimpleExpression,_fnIisSingleVar,_fnIscopes,_fnIvariableStyle,_fnIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fnIglobalDefinitions + {-# LINE 9630 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fnIidentifier + {-# LINE 9635 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 9640 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 325 "src/GLuaFixer/AG/ASTLint.ag" #-} + (tokenLabel <$> _fnIvarName) == Just "module" + {-# LINE 9645 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _isModuleCall -> + (case (({-# LINE 326 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule || _isModuleCall + {-# LINE 9650 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fnImtokenPos + {-# LINE 9655 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fnIscopes + {-# LINE 9660 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fnIvariableStyle + {-# LINE 9665 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _fnIwarnings + {-# LINE 9670 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Stat_AFuncCall_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) }) +sem_Stat_ALabel :: T_MToken -> + T_Stat +sem_Stat_ALabel lbl_ = + (case (lbl_) of + { ( _lblIcopy,_lblImtok,_lblImtokenPos,lbl_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ALabel _lblIcopy + {-# LINE 9684 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 9689 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_ALabel_1 :: T_Stat_1 + sem_Stat_ALabel_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 9706 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lblOglobalDefinitions -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 9711 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lblOscopes -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 9716 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lblOmtokenPos -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 9721 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lblOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 9726 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lblOisInModule -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 9731 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lblOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 9736 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lblOconfig -> + (case (lbl_1 _lblOconfig _lblOfuncName _lblOglobalDefinitions _lblOisInModule _lblOisMeta _lblOmtokenPos _lblOscopes) of + { ( _lblIglobalDefinitions,_lblIidentifier,_lblIisInModule,_lblIscopes,_lblIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lblIglobalDefinitions + {-# LINE 9743 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lblIidentifier + {-# LINE 9748 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 9753 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lblIisInModule + {-# LINE 9758 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lblImtokenPos + {-# LINE 9763 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lblIscopes + {-# LINE 9768 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 9773 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lblIwarnings + {-# LINE 9778 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Stat_ALabel_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) }) +sem_Stat_ABreak :: T_Stat +sem_Stat_ABreak = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ABreak + {-# LINE 9789 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 9794 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_ABreak_1 :: T_Stat_1 + sem_Stat_ABreak_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 9811 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 9816 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 9821 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 9826 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 9831 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 9836 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 9841 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 9846 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) + in sem_Stat_ABreak_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) +sem_Stat_AContinue :: T_Stat +sem_Stat_AContinue = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AContinue + {-# LINE 9857 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 9862 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_AContinue_1 :: T_Stat_1 + sem_Stat_AContinue_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 9879 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 9884 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 9889 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 9894 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 9899 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 9904 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 9909 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 9914 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) + in sem_Stat_AContinue_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) +sem_Stat_AGoto :: T_MToken -> + T_Stat +sem_Stat_AGoto lbl_ = + (case (lbl_) of + { ( _lblIcopy,_lblImtok,_lblImtokenPos,lbl_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AGoto _lblIcopy + {-# LINE 9928 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 9933 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_AGoto_1 :: T_Stat_1 + sem_Stat_AGoto_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 9950 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lblOglobalDefinitions -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 9955 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lblOscopes -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 9960 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lblOmtokenPos -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 9965 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lblOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 9970 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lblOisInModule -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 9975 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lblOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 9980 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lblOconfig -> + (case (lbl_1 _lblOconfig _lblOfuncName _lblOglobalDefinitions _lblOisInModule _lblOisMeta _lblOmtokenPos _lblOscopes) of + { ( _lblIglobalDefinitions,_lblIidentifier,_lblIisInModule,_lblIscopes,_lblIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lblIglobalDefinitions + {-# LINE 9987 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lblIidentifier + {-# LINE 9992 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 209 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 9997 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lblIisInModule + {-# LINE 10002 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lblImtokenPos + {-# LINE 10007 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lblIscopes + {-# LINE 10012 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 10017 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 331 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lblIwarnings + {-# LINE 10022 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 331 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_gotos _lhsIconfig) || _lhsIloopLevel >= 2 then id else + (:) $ warn _lblImtokenPos AvoidGoto + {-# LINE 10028 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 331 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 10033 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Stat_AGoto_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) }) +sem_Stat_ADo :: T_Block -> + T_Stat +sem_Stat_ADo body_ = + (case (body_) of + { ( _bodyIcopy,body_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ADo _bodyIcopy + {-# LINE 10047 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 10052 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_ADo_1 :: T_Stat_1 + sem_Stat_ADo_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 10069 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 10074 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 10079 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 10084 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOconfig -> + (case (({-# LINE 335 "src/GLuaFixer/AG/ASTLint.ag" #-} + M.empty : _lhsIscopes + {-# LINE 10089 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 10094 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 10099 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 10104 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 10109 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 10114 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOfuncName -> + (case (({-# LINE 336 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 10119 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisRepeat -> + (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of + { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIglobalDefinitions + {-# LINE 10126 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIidentifier + {-# LINE 10131 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 334 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 10136 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIisInModule + {-# LINE 10141 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyImtokenPos + {-# LINE 10146 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIscopes + {-# LINE 10151 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIvariableStyle + {-# LINE 10156 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 337 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIwarnings + {-# LINE 10161 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 337 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else + (:) $ warn _lhsImtokenPos EmptyDoBlock + {-# LINE 10167 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 337 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 10172 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Stat_ADo_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) }) +sem_Stat_AWhile :: T_MExpr -> + T_Block -> + T_Stat +sem_Stat_AWhile cond_ body_ = + (case (body_) of + { ( _bodyIcopy,body_1) -> + (case (cond_) of + { ( _condIcopy,_condImtokenPos,cond_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AWhile _condIcopy _bodyIcopy + {-# LINE 10189 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 10194 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_AWhile_1 :: T_Stat_1 + sem_Stat_AWhile_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 10211 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 10216 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOisInModule -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 10221 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 10226 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOscopes -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 10231 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 10236 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 10241 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOloopLevel -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 10246 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOisMeta -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 10251 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 10256 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 10261 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOconfig -> + (case (({-# LINE 345 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 10266 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOvarBeingDefined -> + (case (({-# LINE 344 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 10271 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOtopLevel -> + (case (({-# LINE 343 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 10276 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOinParentheses -> + (case (({-# LINE 342 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 10281 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOisNegation -> + (case (cond_1 _condOconfig _condOfuncName _condOglobalDefinitions _condOinParentheses _condOisInModule _condOisMeta _condOisNegation _condOloopLevel _condOmtokenPos _condOscopeLevel _condOscopes _condOtopLevel _condOvarBeingDefined _condOvariableStyle) of + { ( _condIglobalDefinitions,_condIidentifier,_condIisInModule,_condIisSimpleExpression,_condIisSingleVar,_condIscopes,_condIvariableStyle,_condIwarnings) -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _condIisInModule + {-# LINE 10288 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _condIglobalDefinitions + {-# LINE 10293 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 10298 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOconfig -> + (case (({-# LINE 347 "src/GLuaFixer/AG/ASTLint.ag" #-} + M.empty : _condIscopes + {-# LINE 10303 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _condIvariableStyle + {-# LINE 10308 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 10313 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _condImtokenPos + {-# LINE 10318 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOmtokenPos -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 10323 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOfuncName -> + (case (({-# LINE 346 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 10328 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisRepeat -> + (case (({-# LINE 341 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + 1 + {-# LINE 10333 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOloopLevel -> + (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of + { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIglobalDefinitions + {-# LINE 10340 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _condIidentifier _bodyIidentifier) + {-# LINE 10345 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 340 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 10350 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIisInModule + {-# LINE 10355 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyImtokenPos + {-# LINE 10360 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIscopes + {-# LINE 10365 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIvariableStyle + {-# LINE 10370 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 348 "src/GLuaFixer/AG/ASTLint.ag" #-} + _condIwarnings ++ _bodyIwarnings + {-# LINE 10375 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 348 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else + (:) $ warn _lhsImtokenPos EmptyWhileLoop + {-# LINE 10381 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 348 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 10386 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Stat_AWhile_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) }) }) +sem_Stat_ARepeat :: T_Block -> + T_MExpr -> + T_Stat +sem_Stat_ARepeat body_ cond_ = + (case (cond_) of + { ( _condIcopy,_condImtokenPos,cond_1) -> + (case (body_) of + { ( _bodyIcopy,body_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ARepeat _bodyIcopy _condIcopy + {-# LINE 10403 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 10408 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_ARepeat_1 :: T_Stat_1 + sem_Stat_ARepeat_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 10425 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisMeta -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 10430 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOconfig -> + (case (({-# LINE 359 "src/GLuaFixer/AG/ASTLint.ag" #-} + M.empty : _lhsIscopes + {-# LINE 10435 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopes -> + (case (({-# LINE 358 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 10440 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisRepeat -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 10445 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 10450 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 10455 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOmtokenPos -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 10460 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 10465 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 10470 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOfuncName -> + (case (({-# LINE 353 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + 1 + {-# LINE 10475 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOloopLevel -> + (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of + { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIscopes + {-# LINE 10482 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 10487 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIisInModule + {-# LINE 10492 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIglobalDefinitions + {-# LINE 10497 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 10502 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOconfig -> + (case (({-# LINE 357 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 10507 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOvarBeingDefined -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIvariableStyle + {-# LINE 10512 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 10517 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyImtokenPos + {-# LINE 10522 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 10527 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 10532 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOfuncName -> + (case (({-# LINE 356 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 10537 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOtopLevel -> + (case (({-# LINE 355 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 10542 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOinParentheses -> + (case (({-# LINE 354 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 10547 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOisNegation -> + (case (cond_1 _condOconfig _condOfuncName _condOglobalDefinitions _condOinParentheses _condOisInModule _condOisMeta _condOisNegation _condOloopLevel _condOmtokenPos _condOscopeLevel _condOscopes _condOtopLevel _condOvarBeingDefined _condOvariableStyle) of + { ( _condIglobalDefinitions,_condIidentifier,_condIisInModule,_condIisSimpleExpression,_condIisSingleVar,_condIscopes,_condIvariableStyle,_condIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _condIglobalDefinitions + {-# LINE 10554 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _bodyIidentifier _condIidentifier) + {-# LINE 10559 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 352 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 10564 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _condIisInModule + {-# LINE 10569 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _condImtokenPos + {-# LINE 10574 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 360 "src/GLuaFixer/AG/ASTLint.ag" #-} + tail _condIscopes + {-# LINE 10579 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _condIvariableStyle + {-# LINE 10584 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 361 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIwarnings ++ _condIwarnings + {-# LINE 10589 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 361 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else + (:) $ warn _lhsImtokenPos EmptyRepeat + {-# LINE 10595 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 361 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 10600 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Stat_ARepeat_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) }) }) +sem_Stat_AIf :: T_MExpr -> + T_Block -> + T_ElseIfList -> + T_Else -> + T_Stat +sem_Stat_AIf cond_ body_ elifs_ els_ = + (case (els_) of + { ( _elsIcopy,els_1) -> + (case (elifs_) of + { ( _elifsIcopy,elifs_1) -> + (case (body_) of + { ( _bodyIcopy,body_1) -> + (case (cond_) of + { ( _condIcopy,_condImtokenPos,cond_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AIf _condIcopy _bodyIcopy _elifsIcopy _elsIcopy + {-# LINE 10623 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 10628 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_AIf_1 :: T_Stat_1 + sem_Stat_AIf_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 10645 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisMeta -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 10650 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOconfig -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 10655 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 10660 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOisMeta -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 10665 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOconfig -> + (case (({-# LINE 374 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 10670 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisRepeat -> + (case (({-# LINE 372 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 10675 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOvarBeingDefined -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 10680 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 10685 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 10690 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 10695 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOloopLevel -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 10700 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 10705 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 10710 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOfuncName -> + (case (({-# LINE 371 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 10715 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOtopLevel -> + (case (({-# LINE 370 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 10720 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOinParentheses -> + (case (({-# LINE 369 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 10725 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _condOisNegation -> + (case (cond_1 _condOconfig _condOfuncName _condOglobalDefinitions _condOinParentheses _condOisInModule _condOisMeta _condOisNegation _condOloopLevel _condOmtokenPos _condOscopeLevel _condOscopes _condOtopLevel _condOvarBeingDefined _condOvariableStyle) of + { ( _condIglobalDefinitions,_condIidentifier,_condIisInModule,_condIisSimpleExpression,_condIisSingleVar,_condIscopes,_condIvariableStyle,_condIwarnings) -> + (case (({-# LINE 373 "src/GLuaFixer/AG/ASTLint.ag" #-} + M.empty : _condIscopes + {-# LINE 10732 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _condIvariableStyle + {-# LINE 10737 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 10742 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _condImtokenPos + {-# LINE 10747 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 10752 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOloopLevel -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _condIisInModule + {-# LINE 10757 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _condIglobalDefinitions + {-# LINE 10762 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 10767 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOfuncName -> + (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of + { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIscopes + {-# LINE 10774 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifsOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 10779 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifsOisMeta -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 10784 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifsOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIvariableStyle + {-# LINE 10789 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifsOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 10794 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifsOscopeLevel -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 10799 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifsOloopLevel -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIisInModule + {-# LINE 10804 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifsOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIglobalDefinitions + {-# LINE 10809 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifsOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 10814 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifsOfuncName -> + (case (({-# LINE 375 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 10819 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elifsOmtokenPos -> + (case (elifs_1 _elifsOconfig _elifsOfuncName _elifsOglobalDefinitions _elifsOisInModule _elifsOisMeta _elifsOloopLevel _elifsOmtokenPos _elifsOscopeLevel _elifsOscopes _elifsOvariableStyle) of + { ( _elifsIelseExists,_elifsIglobalDefinitions,_elifsIidentifier,_elifsIisInModule,_elifsImtokenPos,_elifsIscopes,_elifsIvariableStyle,_elifsIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elifsIscopes + {-# LINE 10826 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elsOscopes -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 10831 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elsOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elifsIisInModule + {-# LINE 10836 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elsOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elifsIglobalDefinitions + {-# LINE 10841 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elsOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 10846 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elsOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elifsIvariableStyle + {-# LINE 10851 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elsOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 10856 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elsOscopeLevel -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 10861 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elsOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 10866 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elsOfuncName -> + (case (({-# LINE 376 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 10871 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _elsOmtokenPos -> + (case (els_1 _elsOconfig _elsOfuncName _elsOglobalDefinitions _elsOisInModule _elsOisMeta _elsOloopLevel _elsOmtokenPos _elsOscopeLevel _elsOscopes _elsOvariableStyle) of + { ( _elsIelseExists,_elsIglobalDefinitions,_elsIidentifier,_elsIisInModule,_elsImtokenPos,_elsIscopes,_elsIvariableStyle,_elsIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elsIglobalDefinitions + {-# LINE 10878 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _condIidentifier (const _bodyIidentifier (const _elifsIidentifier _elsIidentifier))) + {-# LINE 10883 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 368 "src/GLuaFixer/AG/ASTLint.ag" #-} + not _elifsIelseExists && not _elsIelseExists + {-# LINE 10888 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elsIisInModule + {-# LINE 10893 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elsImtokenPos + {-# LINE 10898 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elsIscopes + {-# LINE 10903 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _elsIvariableStyle + {-# LINE 10908 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 392 "src/GLuaFixer/AG/ASTLint.ag" #-} + _condIwarnings ++ _bodyIwarnings ++ _elifsIwarnings ++ _elsIwarnings + {-# LINE 10913 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 377 "src/GLuaFixer/AG/ASTLint.ag" #-} + case (_elifsIelseExists, _elsIelseExists) of + (False, False) -> _lhsImtokenPos + (True, _) -> Region (rgStart _lhsImtokenPos) (rgStart _elifsImtokenPos) + (False, True) -> Region (rgStart _lhsImtokenPos) (rgStart _elsImtokenPos) + {-# LINE 10921 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _ifBlockPos -> + (case (({-# LINE 392 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else + (:) $ warn _ifBlockPos EmptyIf + {-# LINE 10927 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f2 -> + (case (({-# LINE 392 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_redundantIfStatements _lhsIconfig) || _bodyIstatementCount /= 1 || not _bodyIisIfStatement || _elifsIelseExists || _elsIelseExists then id else + (:) $ warn _bodyImtokenPos DoubleIf + {-# LINE 10933 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 392 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2] + {-# LINE 10938 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Stat_AIf_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) }) }) }) }) +sem_Stat_ANFor :: T_MToken -> + T_MExpr -> + T_MExpr -> + T_MExpr -> + T_Block -> + T_Stat +sem_Stat_ANFor var_ val_ to_ step_ body_ = + (case (body_) of + { ( _bodyIcopy,body_1) -> + (case (step_) of + { ( _stepIcopy,_stepImtokenPos,step_1) -> + (case (to_) of + { ( _toIcopy,_toImtokenPos,to_1) -> + (case (val_) of + { ( _valIcopy,_valImtokenPos,val_1) -> + (case (var_) of + { ( _varIcopy,_varImtok,_varImtokenPos,var_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ANFor _varIcopy _valIcopy _toIcopy _stepIcopy _bodyIcopy + {-# LINE 10964 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 10969 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_ANFor_1 :: T_Stat_1 + sem_Stat_ANFor_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 10986 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 10991 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varOisInModule -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 10996 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varOscopes -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 11001 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varOmtokenPos -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 11006 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varOisMeta -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 11011 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 11016 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 11021 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _varOconfig -> + (case (var_1 _varOconfig _varOfuncName _varOglobalDefinitions _varOisInModule _varOisMeta _varOmtokenPos _varOscopes) of + { ( _varIglobalDefinitions,_varIidentifier,_varIisInModule,_varIscopes,_varIwarnings) -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varIisInModule + {-# LINE 11028 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valOisInModule -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 11033 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valOvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varIscopes + {-# LINE 11038 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valOscopes -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 11043 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varImtokenPos + {-# LINE 11048 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 11053 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valOloopLevel -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 11058 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valOisMeta -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varIglobalDefinitions + {-# LINE 11063 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 11068 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 11073 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valOconfig -> + (case (({-# LINE 400 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 11078 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valOvarBeingDefined -> + (case (({-# LINE 399 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 11083 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valOtopLevel -> + (case (({-# LINE 398 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 11088 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valOinParentheses -> + (case (({-# LINE 397 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 11093 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valOisNegation -> + (case (val_1 _valOconfig _valOfuncName _valOglobalDefinitions _valOinParentheses _valOisInModule _valOisMeta _valOisNegation _valOloopLevel _valOmtokenPos _valOscopeLevel _valOscopes _valOtopLevel _valOvarBeingDefined _valOvariableStyle) of + { ( _valIglobalDefinitions,_valIidentifier,_valIisInModule,_valIisSimpleExpression,_valIisSingleVar,_valIscopes,_valIvariableStyle,_valIwarnings) -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valIisInModule + {-# LINE 11100 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _toOisInModule -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valIvariableStyle + {-# LINE 11105 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _toOvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valIscopes + {-# LINE 11110 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _toOscopes -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 11115 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _toOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valImtokenPos + {-# LINE 11120 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _toOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 11125 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _toOloopLevel -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 11130 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _toOisMeta -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valIglobalDefinitions + {-# LINE 11135 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _toOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 11140 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _toOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 11145 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _toOconfig -> + (case (({-# LINE 404 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 11150 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _toOvarBeingDefined -> + (case (({-# LINE 403 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 11155 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _toOtopLevel -> + (case (({-# LINE 402 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 11160 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _toOinParentheses -> + (case (({-# LINE 401 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 11165 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _toOisNegation -> + (case (to_1 _toOconfig _toOfuncName _toOglobalDefinitions _toOinParentheses _toOisInModule _toOisMeta _toOisNegation _toOloopLevel _toOmtokenPos _toOscopeLevel _toOscopes _toOtopLevel _toOvarBeingDefined _toOvariableStyle) of + { ( _toIglobalDefinitions,_toIidentifier,_toIisInModule,_toIisSimpleExpression,_toIisSingleVar,_toIscopes,_toIvariableStyle,_toIwarnings) -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _toIisInModule + {-# LINE 11172 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stepOisInModule -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _toIvariableStyle + {-# LINE 11177 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stepOvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _toIscopes + {-# LINE 11182 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stepOscopes -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 11187 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stepOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _toImtokenPos + {-# LINE 11192 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stepOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 11197 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stepOloopLevel -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 11202 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stepOisMeta -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _toIglobalDefinitions + {-# LINE 11207 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stepOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 11212 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stepOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 11217 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stepOconfig -> + (case (({-# LINE 409 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nothing + {-# LINE 11222 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stepOvarBeingDefined -> + (case (({-# LINE 408 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 11227 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stepOtopLevel -> + (case (({-# LINE 407 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 11232 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stepOinParentheses -> + (case (({-# LINE 406 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 11237 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _stepOisNegation -> + (case (step_1 _stepOconfig _stepOfuncName _stepOglobalDefinitions _stepOinParentheses _stepOisInModule _stepOisMeta _stepOisNegation _stepOloopLevel _stepOmtokenPos _stepOscopeLevel _stepOscopes _stepOtopLevel _stepOvarBeingDefined _stepOvariableStyle) of + { ( _stepIglobalDefinitions,_stepIidentifier,_stepIisInModule,_stepIisSimpleExpression,_stepIisSingleVar,_stepIscopes,_stepIvariableStyle,_stepIwarnings) -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _stepIisInModule + {-# LINE 11244 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _stepIglobalDefinitions + {-# LINE 11249 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 11254 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOconfig -> + (case (({-# LINE 410 "src/GLuaFixer/AG/ASTLint.ag" #-} + M.singleton _varIidentifier (not (lint_unusedLoopVars _lhsIconfig), _varImtokenPos) : _stepIscopes + {-# LINE 11259 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _stepIvariableStyle + {-# LINE 11264 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 11269 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _stepImtokenPos + {-# LINE 11274 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOmtokenPos -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 11279 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOfuncName -> + (case (({-# LINE 405 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 11284 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisRepeat -> + (case (({-# LINE 396 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + 1 + {-# LINE 11289 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOloopLevel -> + (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of + { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIglobalDefinitions + {-# LINE 11296 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _varIidentifier (const _valIidentifier (const _toIidentifier (const _stepIidentifier _bodyIidentifier)))) + {-# LINE 11301 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 395 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 11306 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIisInModule + {-# LINE 11311 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyImtokenPos + {-# LINE 11316 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIscopes + {-# LINE 11321 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIvariableStyle + {-# LINE 11326 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 414 "src/GLuaFixer/AG/ASTLint.ag" #-} + _varIwarnings ++ _valIwarnings ++ _toIwarnings ++ _stepIwarnings ++ _bodyIwarnings + {-# LINE 11331 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 411 "src/GLuaFixer/AG/ASTLint.ag" #-} + checkShadows _lhsIscopes _varIcopy + {-# LINE 11336 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _shadowWarning -> + (case (({-# LINE 414 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_shadowing _lhsIconfig) || isNothing _shadowWarning then id else + (:) . fromMaybe (error "fromMaybe ANFor +warnings") $ _shadowWarning + {-# LINE 11342 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f2 -> + (case (({-# LINE 414 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else + (:) $ warn _lhsImtokenPos EmptyFor + {-# LINE 11348 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 414 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2] + {-# LINE 11353 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Stat_ANFor_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) }) }) }) }) }) +sem_Stat_AGFor :: ([MToken]) -> + T_MExprList -> + T_Block -> + T_Stat +sem_Stat_AGFor vars_ vals_ body_ = + (case (body_) of + { ( _bodyIcopy,body_1) -> + (case (vals_) of + { ( _valsIcopy,vals_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AGFor vars_ _valsIcopy _bodyIcopy + {-# LINE 11371 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 11376 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_AGFor_1 :: T_Stat_1 + sem_Stat_AGFor_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 11393 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 11398 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valsOisInModule -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 11403 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valsOvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 11408 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valsOscopes -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 11413 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valsOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 11418 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valsOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 11423 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valsOloopLevel -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 11428 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valsOisMeta -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 11433 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valsOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 11438 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valsOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 11443 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valsOconfig -> + (case (({-# LINE 419 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 11448 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valsOtopLevel -> + (case (({-# LINE 418 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 11453 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _valsOinParentheses -> + (case (vals_1 _valsOconfig _valsOfuncName _valsOglobalDefinitions _valsOinParentheses _valsOisInModule _valsOisMeta _valsOloopLevel _valsOmtokenPos _valsOscopeLevel _valsOscopes _valsOtopLevel _valsOvariableStyle) of + { ( _valsIglobalDefinitions,_valsIidentifier,_valsIisInModule,_valsImtokenPos,_valsIscopes,_valsIvariableStyle,_valsIwarnings) -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valsIisInModule + {-# LINE 11460 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valsIglobalDefinitions + {-# LINE 11465 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 11470 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOconfig -> + (case (({-# LINE 423 "src/GLuaFixer/AG/ASTLint.ag" #-} + M.fromList $ map (\mt -> (tokenLabel mt, (not (lint_unusedLoopVars _lhsIconfig), mpos mt))) vars_ + {-# LINE 11475 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _introduces -> + (case (({-# LINE 424 "src/GLuaFixer/AG/ASTLint.ag" #-} + _introduces : _valsIscopes + {-# LINE 11480 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valsIvariableStyle + {-# LINE 11485 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 11490 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valsImtokenPos + {-# LINE 11495 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOmtokenPos -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 11500 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOfuncName -> + (case (({-# LINE 421 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 11505 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisRepeat -> + (case (({-# LINE 420 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + 1 + {-# LINE 11510 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOloopLevel -> + (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of + { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIglobalDefinitions + {-# LINE 11517 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _valsIidentifier _bodyIidentifier) + {-# LINE 11522 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 417 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 11527 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIisInModule + {-# LINE 11532 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyImtokenPos + {-# LINE 11537 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIscopes + {-# LINE 11542 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIvariableStyle + {-# LINE 11547 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 427 "src/GLuaFixer/AG/ASTLint.ag" #-} + _valsIwarnings ++ _bodyIwarnings + {-# LINE 11552 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 427 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_shadowing _lhsIconfig) then id else + (++) . catMaybes . map (checkShadows _lhsIscopes) $ vars_ + {-# LINE 11558 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f2 -> + (case (({-# LINE 427 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_emptyBlocks _lhsIconfig) || _bodyIstatementCount > 0 then id else + (:) $ warn _lhsImtokenPos EmptyFor + {-# LINE 11564 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 427 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2] + {-# LINE 11569 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Stat_AGFor_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) }) }) +sem_Stat_AFunc :: T_FuncName -> + ([MToken]) -> + T_Block -> + T_Stat +sem_Stat_AFunc name_ args_ body_ = + (case (body_) of + { ( _bodyIcopy,body_1) -> + (case (name_) of + { ( _nameIcopy,_nameIisMeta,name_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AFunc _nameIcopy args_ _bodyIcopy + {-# LINE 11587 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 11592 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_AFunc_1 :: T_Stat_1 + sem_Stat_AFunc_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 11609 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOisInModule -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 11614 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 11619 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOscopes -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 11624 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 11629 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 11634 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOloopLevel -> + (case (({-# LINE 442 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIisMeta || findSelf args_ || _lhsIisMeta + {-# LINE 11639 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _isMeta -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _isMeta + {-# LINE 11644 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOisMeta -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 11649 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 11654 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 11659 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOconfig -> + (case (name_1 _nameOconfig _nameOfuncName _nameOglobalDefinitions _nameOisInModule _nameOisMeta _nameOloopLevel _nameOmtokenPos _nameOscopeLevel _nameOscopes _nameOvariableStyle) of + { ( _nameIglobalDefinitions,_nameIhasSuffixes,_nameIidentifier,_nameIisInModule,_nameImtokenPos,_nameIscopes,_nameIvariableStyle,_nameIwarnings) -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIisInModule + {-# LINE 11666 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIglobalDefinitions + {-# LINE 11671 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 11676 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOconfig -> + (case (({-# LINE 443 "src/GLuaFixer/AG/ASTLint.ag" #-} + _isMeta + {-# LINE 11681 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisMeta -> + (case (({-# LINE 431 "src/GLuaFixer/AG/ASTLint.ag" #-} + filter (/= MToken emptyRg VarArg) $ args_ + {-# LINE 11686 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argIdentifiers -> + (case (({-# LINE 433 "src/GLuaFixer/AG/ASTLint.ag" #-} + (if _isMeta then M.insert "self" (True, _nameImtokenPos) else id) $ + M.fromList . map (\mt -> (tokenLabel mt, (not . lint_unusedParameters $ _lhsIconfig, mpos mt))) $ _argIdentifiers + {-# LINE 11692 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _introduces -> + (case (({-# LINE 435 "src/GLuaFixer/AG/ASTLint.ag" #-} + _introduces : (registerVariable _nameIscopes _nameImtokenPos _nameIidentifier True) + {-# LINE 11697 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIvariableStyle + {-# LINE 11702 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 11707 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameImtokenPos + {-# LINE 11712 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 11717 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOloopLevel -> + (case (({-# LINE 444 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIidentifier + {-# LINE 11722 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOfuncName -> + (case (({-# LINE 432 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 11727 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisRepeat -> + (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of + { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> + (case (({-# LINE 437 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIglobalDefinitions + {-# LINE 11734 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _globalDefinitions_augmented_syn -> + (case (({-# LINE 437 "src/GLuaFixer/AG/ASTLint.ag" #-} + if _lhsIisInModule || isVariableLocal _lhsIscopes _nameIidentifier || _nameIisMeta || _nameIhasSuffixes then id else + M.insertWith (++) _nameIidentifier [_nameImtokenPos] + {-# LINE 11740 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _globalDefinitions_augmented_f1 -> + (case (({-# LINE 437 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _globalDefinitions_augmented_syn [_globalDefinitions_augmented_f1] + {-# LINE 11745 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _nameIidentifier _bodyIidentifier) + {-# LINE 11750 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 430 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 11755 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIisInModule + {-# LINE 11760 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyImtokenPos + {-# LINE 11765 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIscopes + {-# LINE 11770 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIvariableStyle + {-# LINE 11775 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 440 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIwarnings ++ _bodyIwarnings + {-# LINE 11780 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 440 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_shadowing _lhsIconfig) then id else + (++) . catMaybes . map (checkShadows _lhsIscopes) $ _argIdentifiers + {-# LINE 11786 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 440 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 11791 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Stat_AFunc_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) }) }) +sem_Stat_ALocFunc :: T_FuncName -> + ([MToken]) -> + T_Block -> + T_Stat +sem_Stat_ALocFunc name_ args_ body_ = + (case (body_) of + { ( _bodyIcopy,body_1) -> + (case (name_) of + { ( _nameIcopy,_nameIisMeta,name_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ALocFunc _nameIcopy args_ _bodyIcopy + {-# LINE 11809 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 11814 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_Stat_ALocFunc_1 :: T_Stat_1 + sem_Stat_ALocFunc_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 11831 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOisInModule -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 11836 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 11841 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOscopes -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 11846 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 11851 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 11856 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOloopLevel -> + (case (({-# LINE 455 "src/GLuaFixer/AG/ASTLint.ag" #-} + findSelf args_ || _lhsIisMeta + {-# LINE 11861 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _isMeta -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _isMeta + {-# LINE 11866 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOisMeta -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 11871 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 11876 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOfuncName -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 11881 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _nameOconfig -> + (case (name_1 _nameOconfig _nameOfuncName _nameOglobalDefinitions _nameOisInModule _nameOisMeta _nameOloopLevel _nameOmtokenPos _nameOscopeLevel _nameOscopes _nameOvariableStyle) of + { ( _nameIglobalDefinitions,_nameIhasSuffixes,_nameIidentifier,_nameIisInModule,_nameImtokenPos,_nameIscopes,_nameIvariableStyle,_nameIwarnings) -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIisInModule + {-# LINE 11888 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIglobalDefinitions + {-# LINE 11893 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 11898 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOconfig -> + (case (({-# LINE 456 "src/GLuaFixer/AG/ASTLint.ag" #-} + _isMeta + {-# LINE 11903 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisMeta -> + (case (({-# LINE 453 "src/GLuaFixer/AG/ASTLint.ag" #-} + M.insert _nameIidentifier (False, _nameImtokenPos) (head _nameIscopes) : tail _nameIscopes + {-# LINE 11908 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _passedScopes -> + (case (({-# LINE 447 "src/GLuaFixer/AG/ASTLint.ag" #-} + filter (/= MToken emptyRg VarArg) $ args_ + {-# LINE 11913 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _argIdentifiers -> + (case (({-# LINE 449 "src/GLuaFixer/AG/ASTLint.ag" #-} + (if _isMeta then M.insert "self" (True, _nameImtokenPos) else id) $ + M.fromList . map (\mt -> (tokenLabel mt, (not . lint_unusedParameters $ _lhsIconfig, mpos mt))) $ _argIdentifiers + {-# LINE 11919 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _introduces -> + (case (({-# LINE 454 "src/GLuaFixer/AG/ASTLint.ag" #-} + _introduces : _passedScopes + {-# LINE 11924 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIvariableStyle + {-# LINE 11929 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 11934 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameImtokenPos + {-# LINE 11939 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 11944 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOloopLevel -> + (case (({-# LINE 457 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIidentifier + {-# LINE 11949 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOfuncName -> + (case (({-# LINE 448 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 11954 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _bodyOisRepeat -> + (case (body_1 _bodyOconfig _bodyOfuncName _bodyOglobalDefinitions _bodyOisInModule _bodyOisMeta _bodyOisRepeat _bodyOloopLevel _bodyOmtokenPos _bodyOscopeLevel _bodyOscopes _bodyOvariableStyle) of + { ( _bodyIglobalDefinitions,_bodyIidentifier,_bodyIisIfStatement,_bodyIisInModule,_bodyImtokenPos,_bodyIscopes,_bodyIstatementCount,_bodyIvariableStyle,_bodyIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIglobalDefinitions + {-# LINE 11961 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _nameIidentifier _bodyIidentifier) + {-# LINE 11966 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 446 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 11971 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisIfStatement -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIisInModule + {-# LINE 11976 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyImtokenPos + {-# LINE 11981 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIscopes + {-# LINE 11986 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _bodyIvariableStyle + {-# LINE 11991 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 463 "src/GLuaFixer/AG/ASTLint.ag" #-} + _nameIwarnings ++ _bodyIwarnings + {-# LINE 11996 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 452 "src/GLuaFixer/AG/ASTLint.ag" #-} + MToken _nameImtokenPos (Identifier _nameIidentifier) + {-# LINE 12001 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _funcname -> + (case (({-# LINE 462 "src/GLuaFixer/AG/ASTLint.ag" #-} + checkShadows _lhsIscopes _funcname + {-# LINE 12006 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _funcNameShadows -> + (case (({-# LINE 463 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_shadowing _lhsIconfig) then id else + (++) . catMaybes . map (checkShadows _lhsIscopes) $ _argIdentifiers + {-# LINE 12012 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f2 -> + (case (({-# LINE 463 "src/GLuaFixer/AG/ASTLint.ag" #-} + if not (lint_shadowing _lhsIconfig) || isNothing _funcNameShadows then id else + (:) . fromMaybe (error "fromMaybe ALocFunc +warnings") $ _funcNameShadows + {-# LINE 12018 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 463 "src/GLuaFixer/AG/ASTLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2] + {-# LINE 12023 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisIfStatement,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Stat_ALocFunc_1)) of + { ( sem_Stat_1) -> + ( _lhsOcopy,sem_Stat_1) }) }) }) }) }) +-- Token ------------------------------------------------------- +-- cata +sem_Token :: Token -> + T_Token +sem_Token (Whitespace _space) = + (sem_Token_Whitespace _space) +sem_Token (DashComment _comment) = + (sem_Token_DashComment _comment) +sem_Token (DashBlockComment _depth _comment) = + (sem_Token_DashBlockComment _depth _comment) +sem_Token (SlashComment _comment) = + (sem_Token_SlashComment _comment) +sem_Token (SlashBlockComment _comment) = + (sem_Token_SlashBlockComment _comment) +sem_Token (Semicolon) = + (sem_Token_Semicolon) +sem_Token (TNumber _num) = + (sem_Token_TNumber _num) +sem_Token (DQString _str) = + (sem_Token_DQString _str) +sem_Token (SQString _str) = + (sem_Token_SQString _str) +sem_Token (MLString _str) = + (sem_Token_MLString _str) +sem_Token (TTrue) = + (sem_Token_TTrue) +sem_Token (TFalse) = + (sem_Token_TFalse) +sem_Token (Nil) = + (sem_Token_Nil) +sem_Token (VarArg) = + (sem_Token_VarArg) +sem_Token (Plus) = + (sem_Token_Plus) +sem_Token (Minus) = + (sem_Token_Minus) +sem_Token (Multiply) = + (sem_Token_Multiply) +sem_Token (Divide) = + (sem_Token_Divide) +sem_Token (Modulus) = + (sem_Token_Modulus) +sem_Token (Power) = + (sem_Token_Power) +sem_Token (TEq) = + (sem_Token_TEq) +sem_Token (TNEq) = + (sem_Token_TNEq) +sem_Token (TCNEq) = + (sem_Token_TCNEq) +sem_Token (TLEQ) = + (sem_Token_TLEQ) +sem_Token (TGEQ) = + (sem_Token_TGEQ) +sem_Token (TLT) = + (sem_Token_TLT) +sem_Token (TGT) = + (sem_Token_TGT) +sem_Token (Equals) = + (sem_Token_Equals) +sem_Token (Concatenate) = + (sem_Token_Concatenate) +sem_Token (Colon) = + (sem_Token_Colon) +sem_Token (Dot) = + (sem_Token_Dot) +sem_Token (Comma) = + (sem_Token_Comma) +sem_Token (Hash) = + (sem_Token_Hash) +sem_Token (Not) = + (sem_Token_Not) +sem_Token (CNot) = + (sem_Token_CNot) +sem_Token (And) = + (sem_Token_And) +sem_Token (CAnd) = + (sem_Token_CAnd) +sem_Token (Or) = + (sem_Token_Or) +sem_Token (COr) = + (sem_Token_COr) +sem_Token (Function) = + (sem_Token_Function) +sem_Token (Local) = + (sem_Token_Local) +sem_Token (If) = + (sem_Token_If) +sem_Token (Then) = + (sem_Token_Then) +sem_Token (Elseif) = + (sem_Token_Elseif) +sem_Token (Else) = + (sem_Token_Else) +sem_Token (For) = + (sem_Token_For) +sem_Token (In) = + (sem_Token_In) +sem_Token (Do) = + (sem_Token_Do) +sem_Token (While) = + (sem_Token_While) +sem_Token (Until) = + (sem_Token_Until) +sem_Token (Repeat) = + (sem_Token_Repeat) +sem_Token (Continue) = + (sem_Token_Continue) +sem_Token (Break) = + (sem_Token_Break) +sem_Token (Return) = + (sem_Token_Return) +sem_Token (End) = + (sem_Token_End) +sem_Token (LRound) = + (sem_Token_LRound) +sem_Token (RRound) = + (sem_Token_RRound) +sem_Token (LCurly) = + (sem_Token_LCurly) +sem_Token (RCurly) = + (sem_Token_RCurly) +sem_Token (LSquare) = + (sem_Token_LSquare) +sem_Token (RSquare) = + (sem_Token_RSquare) +sem_Token (Label _whitespaceBefore _lbl _whitespaceAfter) = + (sem_Token_Label _whitespaceBefore _lbl _whitespaceAfter) +sem_Token (Identifier _ident) = + (sem_Token_Identifier _ident) +-- semantic domain +type T_Token = ( Token,String,([String -> LintMessage])) +data Inh_Token = Inh_Token {} +data Syn_Token = Syn_Token {copy_Syn_Token :: Token,identifier_Syn_Token :: String,warnings_Syn_Token :: ([String -> LintMessage])} +wrap_Token :: T_Token -> + Inh_Token -> + Syn_Token +wrap_Token sem (Inh_Token) = + (let ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) = sem + in (Syn_Token _lhsOcopy _lhsOidentifier _lhsOwarnings)) +sem_Token_Whitespace :: String -> + T_Token +sem_Token_Whitespace space_ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Whitespace space_ + {-# LINE 12175 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12180 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12185 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12190 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_DashComment :: String -> + T_Token +sem_Token_DashComment comment_ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + DashComment comment_ + {-# LINE 12199 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12204 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12209 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12214 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_DashBlockComment :: Int -> + String -> + T_Token +sem_Token_DashBlockComment depth_ comment_ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + DashBlockComment depth_ comment_ + {-# LINE 12224 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12229 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12234 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12239 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_SlashComment :: String -> + T_Token +sem_Token_SlashComment comment_ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + SlashComment comment_ + {-# LINE 12248 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12253 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12258 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12263 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_SlashBlockComment :: String -> + T_Token +sem_Token_SlashBlockComment comment_ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + SlashBlockComment comment_ + {-# LINE 12272 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12277 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12282 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12287 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Semicolon :: T_Token +sem_Token_Semicolon = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Semicolon + {-# LINE 12295 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12300 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12305 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12310 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_TNumber :: String -> + T_Token +sem_Token_TNumber num_ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + TNumber num_ + {-# LINE 12319 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12324 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12329 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12334 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_DQString :: String -> + T_Token +sem_Token_DQString str_ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + DQString str_ + {-# LINE 12343 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12348 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12353 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12358 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_SQString :: String -> + T_Token +sem_Token_SQString str_ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + SQString str_ + {-# LINE 12367 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12372 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12377 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12382 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_MLString :: String -> + T_Token +sem_Token_MLString str_ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + MLString str_ + {-# LINE 12391 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12396 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12401 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12406 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_TTrue :: T_Token +sem_Token_TTrue = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + TTrue + {-# LINE 12414 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12419 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12424 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12429 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_TFalse :: T_Token +sem_Token_TFalse = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + TFalse + {-# LINE 12437 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12442 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12447 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12452 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Nil :: T_Token +sem_Token_Nil = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Nil + {-# LINE 12460 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12465 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12470 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12475 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_VarArg :: T_Token +sem_Token_VarArg = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + VarArg + {-# LINE 12483 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12488 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12493 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12498 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Plus :: T_Token +sem_Token_Plus = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Plus + {-# LINE 12506 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12511 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12516 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12521 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Minus :: T_Token +sem_Token_Minus = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Minus + {-# LINE 12529 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12534 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12539 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12544 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Multiply :: T_Token +sem_Token_Multiply = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Multiply + {-# LINE 12552 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12557 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12562 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12567 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Divide :: T_Token +sem_Token_Divide = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Divide + {-# LINE 12575 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12580 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12585 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12590 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Modulus :: T_Token +sem_Token_Modulus = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Modulus + {-# LINE 12598 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12603 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12608 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12613 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Power :: T_Token +sem_Token_Power = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Power + {-# LINE 12621 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12626 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12631 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12636 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_TEq :: T_Token +sem_Token_TEq = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + TEq + {-# LINE 12644 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12649 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12654 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12659 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_TNEq :: T_Token +sem_Token_TNEq = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + TNEq + {-# LINE 12667 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12672 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12677 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12682 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_TCNEq :: T_Token +sem_Token_TCNEq = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + TCNEq + {-# LINE 12690 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12695 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12700 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12705 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_TLEQ :: T_Token +sem_Token_TLEQ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + TLEQ + {-# LINE 12713 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12718 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12723 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12728 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_TGEQ :: T_Token +sem_Token_TGEQ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + TGEQ + {-# LINE 12736 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12741 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12746 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12751 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_TLT :: T_Token +sem_Token_TLT = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + TLT + {-# LINE 12759 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12764 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12769 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12774 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_TGT :: T_Token +sem_Token_TGT = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + TGT + {-# LINE 12782 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12787 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12792 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12797 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Equals :: T_Token +sem_Token_Equals = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Equals + {-# LINE 12805 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12810 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12815 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12820 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Concatenate :: T_Token +sem_Token_Concatenate = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Concatenate + {-# LINE 12828 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12833 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12838 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12843 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Colon :: T_Token +sem_Token_Colon = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Colon + {-# LINE 12851 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12856 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12861 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12866 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Dot :: T_Token +sem_Token_Dot = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Dot + {-# LINE 12874 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12879 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12884 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12889 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Comma :: T_Token +sem_Token_Comma = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Comma + {-# LINE 12897 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12902 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12907 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12912 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Hash :: T_Token +sem_Token_Hash = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Hash + {-# LINE 12920 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12925 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12930 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12935 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Not :: T_Token +sem_Token_Not = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Not + {-# LINE 12943 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12948 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12953 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12958 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_CNot :: T_Token +sem_Token_CNot = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + CNot + {-# LINE 12966 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12971 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12976 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 12981 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_And :: T_Token +sem_Token_And = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + And + {-# LINE 12989 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 12994 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 12999 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13004 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_CAnd :: T_Token +sem_Token_CAnd = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + CAnd + {-# LINE 13012 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13017 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13022 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13027 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Or :: T_Token +sem_Token_Or = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Or + {-# LINE 13035 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13040 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13045 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13050 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_COr :: T_Token +sem_Token_COr = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + COr + {-# LINE 13058 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13063 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13068 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13073 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Function :: T_Token +sem_Token_Function = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Function + {-# LINE 13081 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13086 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13091 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13096 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Local :: T_Token +sem_Token_Local = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Local + {-# LINE 13104 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13109 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13114 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13119 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_If :: T_Token +sem_Token_If = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + If + {-# LINE 13127 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13132 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13137 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13142 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Then :: T_Token +sem_Token_Then = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Then + {-# LINE 13150 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13155 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13160 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13165 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Elseif :: T_Token +sem_Token_Elseif = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Elseif + {-# LINE 13173 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13178 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13183 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13188 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Else :: T_Token +sem_Token_Else = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Else + {-# LINE 13196 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13201 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13206 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13211 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_For :: T_Token +sem_Token_For = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + For + {-# LINE 13219 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13224 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13229 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13234 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_In :: T_Token +sem_Token_In = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + In + {-# LINE 13242 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13247 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13252 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13257 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Do :: T_Token +sem_Token_Do = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Do + {-# LINE 13265 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13270 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13275 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13280 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_While :: T_Token +sem_Token_While = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + While + {-# LINE 13288 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13293 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13298 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13303 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Until :: T_Token +sem_Token_Until = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Until + {-# LINE 13311 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13316 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13321 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13326 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Repeat :: T_Token +sem_Token_Repeat = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Repeat + {-# LINE 13334 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13339 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13344 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13349 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Continue :: T_Token +sem_Token_Continue = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Continue + {-# LINE 13357 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13362 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13367 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13372 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Break :: T_Token +sem_Token_Break = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Break + {-# LINE 13380 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13385 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13390 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13395 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Return :: T_Token +sem_Token_Return = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Return + {-# LINE 13403 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13408 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13413 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13418 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_End :: T_Token +sem_Token_End = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + End + {-# LINE 13426 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13431 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13436 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13441 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_LRound :: T_Token +sem_Token_LRound = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + LRound + {-# LINE 13449 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13454 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13459 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13464 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_RRound :: T_Token +sem_Token_RRound = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + RRound + {-# LINE 13472 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13477 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13482 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13487 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_LCurly :: T_Token +sem_Token_LCurly = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + LCurly + {-# LINE 13495 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13500 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13505 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13510 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_RCurly :: T_Token +sem_Token_RCurly = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + RCurly + {-# LINE 13518 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13523 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13528 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13533 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_LSquare :: T_Token +sem_Token_LSquare = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + LSquare + {-# LINE 13541 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13546 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13551 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13556 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_RSquare :: T_Token +sem_Token_RSquare = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + RSquare + {-# LINE 13564 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13569 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13574 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13579 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Label :: String -> + String -> + String -> + T_Token +sem_Token_Label whitespaceBefore_ lbl_ whitespaceAfter_ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Label whitespaceBefore_ lbl_ whitespaceAfter_ + {-# LINE 13590 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13595 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 221 "src/GLuaFixer/AG/ASTLint.ag" #-} + lbl_ + {-# LINE 13600 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13605 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +sem_Token_Identifier :: String -> + T_Token +sem_Token_Identifier ident_ = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + Identifier ident_ + {-# LINE 13614 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13619 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 223 "src/GLuaFixer/AG/ASTLint.ag" #-} + ident_ + {-# LINE 13624 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13629 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOcopy,_lhsOidentifier,_lhsOwarnings) }) }) }) }) +-- UnOp -------------------------------------------------------- +-- cata +sem_UnOp :: UnOp -> + T_UnOp +sem_UnOp (UnMinus) = + (sem_UnOp_UnMinus) +sem_UnOp (ANot) = + (sem_UnOp_ANot) +sem_UnOp (AHash) = + (sem_UnOp_AHash) +-- semantic domain +type T_UnOp = ( UnOp,T_UnOp_1) +type T_UnOp_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_UnOp = Inh_UnOp {config_Inh_UnOp :: LintSettings,funcName_Inh_UnOp :: String,globalDefinitions_Inh_UnOp :: (M.Map String [Region]),isInModule_Inh_UnOp :: Bool,isMeta_Inh_UnOp :: Bool,loopLevel_Inh_UnOp :: Int,mtokenPos_Inh_UnOp :: Region,scopeLevel_Inh_UnOp :: Int,scopes_Inh_UnOp :: ([M.Map String (Bool, Region)]),variableStyle_Inh_UnOp :: DeterminedVariableStyle} +data Syn_UnOp = Syn_UnOp {copy_Syn_UnOp :: UnOp,globalDefinitions_Syn_UnOp :: (M.Map String [Region]),identifier_Syn_UnOp :: String,isInModule_Syn_UnOp :: Bool,isNegation_Syn_UnOp :: Bool,mtokenPos_Syn_UnOp :: Region,scopes_Syn_UnOp :: ([M.Map String (Bool, Region)]),variableStyle_Syn_UnOp :: DeterminedVariableStyle,warnings_Syn_UnOp :: ([String -> LintMessage])} +wrap_UnOp :: T_UnOp -> + Inh_UnOp -> + Syn_UnOp +wrap_UnOp sem (Inh_UnOp _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisNegation,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_UnOp _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOisNegation _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_UnOp_UnMinus :: T_UnOp +sem_UnOp_UnMinus = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + UnMinus + {-# LINE 13669 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13674 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_UnOp_UnMinus_1 :: T_UnOp_1 + sem_UnOp_UnMinus_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 13691 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13696 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 13701 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 653 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 13706 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisNegation -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 13711 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 13716 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 13721 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13726 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisNegation,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) + in sem_UnOp_UnMinus_1)) of + { ( sem_UnOp_1) -> + ( _lhsOcopy,sem_UnOp_1) }) }) }) +sem_UnOp_ANot :: T_UnOp +sem_UnOp_ANot = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + ANot + {-# LINE 13737 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13742 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_UnOp_ANot_1 :: T_UnOp_1 + sem_UnOp_ANot_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 13759 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13764 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 13769 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 655 "src/GLuaFixer/AG/ASTLint.ag" #-} + True + {-# LINE 13774 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisNegation -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 13779 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 13784 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 13789 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13794 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisNegation,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) + in sem_UnOp_ANot_1)) of + { ( sem_UnOp_1) -> + ( _lhsOcopy,sem_UnOp_1) }) }) }) +sem_UnOp_AHash :: T_UnOp +sem_UnOp_AHash = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + AHash + {-# LINE 13805 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13810 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_UnOp_AHash_1 :: T_UnOp_1 + sem_UnOp_AHash_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 13827 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 13832 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 13837 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 657 "src/GLuaFixer/AG/ASTLint.ag" #-} + False + {-# LINE 13842 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisNegation -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 13847 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 13852 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 13857 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 13862 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOisNegation,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) })) + in sem_UnOp_AHash_1)) of + { ( sem_UnOp_1) -> + ( _lhsOcopy,sem_UnOp_1) }) }) }) +-- VarsList ---------------------------------------------------- +-- cata +sem_VarsList :: VarsList -> + T_VarsList +sem_VarsList list = + (Prelude.foldr sem_VarsList_Cons sem_VarsList_Nil (Prelude.map sem_Declaration list)) +-- semantic domain +type T_VarsList = ( VarsList,T_VarsList_1) +type T_VarsList_1 = LintSettings -> + String -> + (M.Map String [Region]) -> + Bool -> + Bool -> + Bool -> + Int -> + Region -> + Int -> + ([M.Map String (Bool, Region)]) -> + DeterminedVariableStyle -> + ( (M.Map String [Region]),String,Bool,Region,([M.Map String (Bool, Region)]),DeterminedVariableStyle,([String -> LintMessage])) +data Inh_VarsList = Inh_VarsList {config_Inh_VarsList :: LintSettings,funcName_Inh_VarsList :: String,globalDefinitions_Inh_VarsList :: (M.Map String [Region]),isInModule_Inh_VarsList :: Bool,isMeta_Inh_VarsList :: Bool,localDefinition_Inh_VarsList :: Bool,loopLevel_Inh_VarsList :: Int,mtokenPos_Inh_VarsList :: Region,scopeLevel_Inh_VarsList :: Int,scopes_Inh_VarsList :: ([M.Map String (Bool, Region)]),variableStyle_Inh_VarsList :: DeterminedVariableStyle} +data Syn_VarsList = Syn_VarsList {copy_Syn_VarsList :: VarsList,globalDefinitions_Syn_VarsList :: (M.Map String [Region]),identifier_Syn_VarsList :: String,isInModule_Syn_VarsList :: Bool,mtokenPos_Syn_VarsList :: Region,scopes_Syn_VarsList :: ([M.Map String (Bool, Region)]),variableStyle_Syn_VarsList :: DeterminedVariableStyle,warnings_Syn_VarsList :: ([String -> LintMessage])} +wrap_VarsList :: T_VarsList -> + Inh_VarsList -> + Syn_VarsList +wrap_VarsList sem (Inh_VarsList _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIlocalDefinition _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle) = + (let ( _lhsOcopy,sem_1) = sem + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) = sem_1 _lhsIconfig _lhsIfuncName _lhsIglobalDefinitions _lhsIisInModule _lhsIisMeta _lhsIlocalDefinition _lhsIloopLevel _lhsImtokenPos _lhsIscopeLevel _lhsIscopes _lhsIvariableStyle + in (Syn_VarsList _lhsOcopy _lhsOglobalDefinitions _lhsOidentifier _lhsOisInModule _lhsOmtokenPos _lhsOscopes _lhsOvariableStyle _lhsOwarnings)) +sem_VarsList_Cons :: T_Declaration -> + T_VarsList -> + T_VarsList +sem_VarsList_Cons hd_ tl_ = + (case (tl_) of + { ( _tlIcopy,tl_1) -> + (case (hd_) of + { ( _hdIcopy,hd_1) -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 13908 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 13913 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_VarsList_Cons_1 :: T_VarsList_1 + sem_VarsList_Cons_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIlocalDefinition + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 13931 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOscopes -> + (case (({-# LINE 190 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIlocalDefinition + {-# LINE 13936 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOlocalDefinition -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 13941 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisMeta -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 13946 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 13951 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 13956 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 13961 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 13966 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOloopLevel -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 13971 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 13976 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOglobalDefinitions -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 13981 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _hdOfuncName -> + (case (hd_1 _hdOconfig _hdOfuncName _hdOglobalDefinitions _hdOisInModule _hdOisMeta _hdOlocalDefinition _hdOloopLevel _hdOmtokenPos _hdOscopeLevel _hdOscopes _hdOvariableStyle) of + { ( _hdIglobalDefinitions,_hdIidentifier,_hdIisInModule,_hdImtokenPos,_hdIscopes,_hdIvariableStyle,_hdIwarnings) -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIscopes + {-# LINE 13988 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOscopes -> + (case (({-# LINE 190 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIlocalDefinition + {-# LINE 13993 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOlocalDefinition -> + (case (({-# LINE 146 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisMeta + {-# LINE 13998 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOisMeta -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIisInModule + {-# LINE 14003 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOisInModule -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIglobalDefinitions + {-# LINE 14008 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOglobalDefinitions -> + (case (({-# LINE 135 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIconfig + {-# LINE 14013 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOconfig -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIvariableStyle + {-# LINE 14018 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOvariableStyle -> + (case (({-# LINE 128 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopeLevel + {-# LINE 14023 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOscopeLevel -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdImtokenPos + {-# LINE 14028 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOmtokenPos -> + (case (({-# LINE 129 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIloopLevel + {-# LINE 14033 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOloopLevel -> + (case (({-# LINE 147 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIfuncName + {-# LINE 14038 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _tlOfuncName -> + (case (tl_1 _tlOconfig _tlOfuncName _tlOglobalDefinitions _tlOisInModule _tlOisMeta _tlOlocalDefinition _tlOloopLevel _tlOmtokenPos _tlOscopeLevel _tlOscopes _tlOvariableStyle) of + { ( _tlIglobalDefinitions,_tlIidentifier,_tlIisInModule,_tlImtokenPos,_tlIscopes,_tlIvariableStyle,_tlIwarnings) -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIglobalDefinitions + {-# LINE 14045 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + (const _hdIidentifier _tlIidentifier) + {-# LINE 14050 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIisInModule + {-# LINE 14055 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 235 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdImtokenPos + {-# LINE 14060 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIscopes + {-# LINE 14065 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _tlIvariableStyle + {-# LINE 14070 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + _hdIwarnings ++ _tlIwarnings + {-# LINE 14075 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_VarsList_Cons_1)) of + { ( sem_VarsList_1) -> + ( _lhsOcopy,sem_VarsList_1) }) }) }) }) }) +sem_VarsList_Nil :: T_VarsList +sem_VarsList_Nil = + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 14086 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 154 "src/GLuaFixer/AG/ASTLint.ag" #-} + _copy + {-# LINE 14091 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOcopy -> + (case ((let sem_VarsList_Nil_1 :: T_VarsList_1 + sem_VarsList_Nil_1 = + (\ _lhsIconfig + _lhsIfuncName + _lhsIglobalDefinitions + _lhsIisInModule + _lhsIisMeta + _lhsIlocalDefinition + _lhsIloopLevel + _lhsImtokenPos + _lhsIscopeLevel + _lhsIscopes + _lhsIvariableStyle -> + (case (({-# LINE 139 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIglobalDefinitions + {-# LINE 14109 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOglobalDefinitions -> + (case (({-# LINE 155 "src/GLuaFixer/AG/ASTLint.ag" #-} + unknownIdentifier + {-# LINE 14114 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOidentifier -> + (case (({-# LINE 144 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIisInModule + {-# LINE 14119 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOisInModule -> + (case (({-# LINE 136 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsImtokenPos + {-# LINE 14124 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOmtokenPos -> + (case (({-# LINE 145 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIscopes + {-# LINE 14129 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOscopes -> + (case (({-# LINE 132 "src/GLuaFixer/AG/ASTLint.ag" #-} + _lhsIvariableStyle + {-# LINE 14134 "src/GLuaFixer/AG/ASTLint.hs" #-} + )) of + { _lhsOvariableStyle -> + (case (({-# LINE 153 "src/GLuaFixer/AG/ASTLint.ag" #-} + [] + {-# LINE 14139 "src/GLuaFixer/AG/ASTLint.hs" #-} )) of { _lhsOwarnings -> ( _lhsOglobalDefinitions,_lhsOidentifier,_lhsOisInModule,_lhsOmtokenPos,_lhsOscopes,_lhsOvariableStyle,_lhsOwarnings) }) }) }) }) }) }) })) diff --git a/src/GLuaFixer/AG/LexLint.hs b/src/GLuaFixer/AG/LexLint.hs --- a/src/GLuaFixer/AG/LexLint.hs +++ b/src/GLuaFixer/AG/LexLint.hs @@ -1,6117 +1,6115 @@ -{-# LANGUAGE DeriveGeneric #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# LANGUAGE CPP #-} --- UUAGC 0.9.53.1 (src/GLuaFixer/AG/LexLint.ag) -module GLuaFixer.AG.LexLint( - lintWarnings, - fixedLexPositions -) where - -{-# LINE 9 "src/GLuaFixer/AG/../../GLua/AG/Token.ag" #-} - -import GHC.Generics -import GLua.Position -{-# LINE 19 "src/GLuaFixer/AG/LexLint.hs" #-} - -{-# LINE 15 "src/GLuaFixer/AG/LexLint.ag" #-} - -import Control.Applicative ((<|>)) -import Data.List -import GLua.TokenTypes -import GLua.AG.Token -import GLua.Position -import GLuaFixer.LintMessage -import GLuaFixer.LintSettings -{-# LINE 30 "src/GLuaFixer/AG/LexLint.hs" #-} -{-# LINE 27 "src/GLuaFixer/AG/LexLint.ag" #-} - - ----------------------------------------- --- C-style / Lua-style syntax inconsistencies ----------------------------------------- --- For detecting the usage of Lua/C syntax inconsistently. 'Nothing' means no evidence of the style, --- and 'Just Region' represents the last place where the style was found to be used. -data SyntaxUsed = SyntaxUsed - { lastLuaExample :: Maybe Region - , lastCExample :: Maybe Region - } - deriving (Show) - -instance Semigroup SyntaxUsed where - -- Later uses have preference over earlier uses - (SyntaxUsed l1 c1) <> (SyntaxUsed l2 c2) = SyntaxUsed (l2 <|> l1) (c2 <|> c1) - --- Monoid instance -instance Monoid SyntaxUsed where - mempty = SyntaxUsed Nothing Nothing - -previousSyntaxUsedRegion :: SyntaxUsed -> Maybe Region -previousSyntaxUsedRegion syntaxUsed = case syntaxUsed of - SyntaxUsed (Just l) (Just c) -> Just $ min l c - -- There is no previous region if there is no syntax inconsistency - SyntaxUsed {} -> Nothing - --- | Whether there is evidence of Lua style code -luaUsed :: SyntaxUsed -> Bool -luaUsed (SyntaxUsed (Just _) _) = True -luaUsed _ = False - --- | Whether there is evidence of C style code -cUsed :: SyntaxUsed -> Bool -cUsed (SyntaxUsed _ (Just _)) = True -cUsed _ = False - --- | Quick helper to turn a bool and region into a member for 'SyntaxUsed' -mkSyntax :: Bool -> Region -> Maybe Region -mkSyntax b region = if b then Just region else Nothing - --- | Whether the syntax is consistent -consistent :: SyntaxUsed -> Bool -consistent syntaxUsed = case syntaxUsed of - SyntaxUsed (Just _) (Just _) -> False - _ -> True - -mTokenWarning :: Region -> Issue -> FilePath -> LintMessage -mTokenWarning pos issue = LintMessage LintWarning pos issue - --- | Shorthand for throwing _two_ warnings when an inconsistency occurs: one at the original place --- and one at the new place. -warnInconsistency :: SyntaxUsed -> Issue -> [FilePath -> LintMessage] -> [FilePath -> LintMessage] -warnInconsistency syntaxUsed issue messages = case syntaxUsed of - SyntaxUsed (Just luaRegion) (Just cRegion) -> - LintMessage LintWarning luaRegion issue : - LintMessage LintWarning cRegion issue : - messages - _ -> messages - --- | Handy function to reset the built up knowledge of 'SyntaxUsed' when it is found to be --- inconsistent. -resetIfInconsistent :: SyntaxUsed -> SyntaxUsed -resetIfInconsistent syntaxUsed = case syntaxUsed of - SyntaxUsed (Just {}) (Just {}) -> SyntaxUsed Nothing Nothing - _ -> syntaxUsed - -isSingleChar :: String -> Bool -isSingleChar [] = True -isSingleChar ('\\' : xs) = length xs == 1 -isSingleChar (_ : []) = True -isSingleChar _ = False - --- Locate the exact position of trailing whitespace -locateTrailingWhitespace :: LineColPos -> String -> (LineColPos, String) -locateTrailingWhitespace pos (' ' : xs) = (pos, xs) -locateTrailingWhitespace pos ('\t' : xs) = (pos, xs) -locateTrailingWhitespace pos (x : xs) = locateTrailingWhitespace (customAdvanceChr pos x) xs -locateTrailingWhitespace pos [] = (pos, "") - --- Locate the start of a line's indentation in a string of whitespace -indentationStart :: LineColPos -> String -> LineColPos -indentationStart pos = go pos pos - where - go :: LineColPos -> LineColPos -> String -> LineColPos - go _ cur ('\n' : xs) = let next = customAdvanceChr cur '\n' in go next next xs - go found cur (x : xs) = go found (customAdvanceChr cur x) xs - go found _ [] = found - -endOfTrailingWhitespace :: (LineColPos, String) -> LineColPos -endOfTrailingWhitespace (pos, ('\n' : _)) = pos -endOfTrailingWhitespace (pos, (x : xs)) = endOfTrailingWhitespace (customAdvanceChr pos x, xs) -endOfTrailingWhitespace (pos, []) = pos - - -{-# LINE 127 "src/GLuaFixer/AG/LexLint.hs" #-} - -{-# LINE 296 "src/GLuaFixer/AG/LexLint.ag" #-} - - - -inh_MTokenList :: LintSettings -> Inh_MTokenList -inh_MTokenList conf = - Inh_MTokenList { - config_Inh_MTokenList = conf, - andSyntax_Inh_MTokenList = mempty, - indentation_Inh_MTokenList = mempty, - lineCommentSyntax_Inh_MTokenList = mempty, - multilineCommentSyntax_Inh_MTokenList = mempty, - neqSyntax_Inh_MTokenList = mempty, - notSyntax_Inh_MTokenList = mempty, - orSyntax_Inh_MTokenList = mempty, - strSyntax_Inh_MTokenList = mempty, - nextTokenPos_Inh_MTokenList = LineColPos 0 0 0 - } - -lintWarnings :: LintSettings -> [MToken] -> [String -> LintMessage] -lintWarnings conf p = warnings_Syn_MTokenList (wrap_MTokenList (sem_MTokenList p) (inh_MTokenList conf)) - --- Necessary because the parser walks over tabs as though they are 8 spaces. -fixedLexPositions :: [MToken] -> [MToken] -fixedLexPositions p = copy_Syn_MTokenList (wrap_MTokenList (sem_MTokenList p) (inh_MTokenList defaultLintSettings)) -{-# LINE 154 "src/GLuaFixer/AG/LexLint.hs" #-} --- MToken ------------------------------------------------------ --- cata -sem_MToken :: MToken -> - T_MToken -sem_MToken (MToken _mpos _mtok) = - (sem_MToken_MToken _mpos (sem_Token _mtok)) --- semantic domain -type T_MToken = SyntaxUsed -> - LintSettings -> - SyntaxUsed -> - SyntaxUsed -> - SyntaxUsed -> - SyntaxUsed -> - LineColPos -> - SyntaxUsed -> - SyntaxUsed -> - SyntaxUsed -> - ( SyntaxUsed,MToken,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,LineColPos,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage])) -data Inh_MToken = Inh_MToken {andSyntax_Inh_MToken :: SyntaxUsed,config_Inh_MToken :: LintSettings,indentation_Inh_MToken :: SyntaxUsed,lineCommentSyntax_Inh_MToken :: SyntaxUsed,multilineCommentSyntax_Inh_MToken :: SyntaxUsed,neqSyntax_Inh_MToken :: SyntaxUsed,nextTokenPos_Inh_MToken :: LineColPos,notSyntax_Inh_MToken :: SyntaxUsed,orSyntax_Inh_MToken :: SyntaxUsed,strSyntax_Inh_MToken :: SyntaxUsed} -data Syn_MToken = Syn_MToken {andSyntax_Syn_MToken :: SyntaxUsed,copy_Syn_MToken :: MToken,indentation_Syn_MToken :: SyntaxUsed,lineCommentSyntax_Syn_MToken :: SyntaxUsed,multilineCommentSyntax_Syn_MToken :: SyntaxUsed,neqSyntax_Syn_MToken :: SyntaxUsed,nextTokenPos_Syn_MToken :: LineColPos,notSyntax_Syn_MToken :: SyntaxUsed,orSyntax_Syn_MToken :: SyntaxUsed,strSyntax_Syn_MToken :: SyntaxUsed,warnings_Syn_MToken :: ([FilePath -> LintMessage])} -wrap_MToken :: T_MToken -> - Inh_MToken -> - Syn_MToken -wrap_MToken sem (Inh_MToken _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) = - (let ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax - in (Syn_MToken _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings)) -sem_MToken_MToken :: Region -> - T_Token -> - T_MToken -sem_MToken_MToken mpos_ mtok_ = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInextTokenPos - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInextTokenPos - {-# LINE 197 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _mtokOnextTokenPos -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 202 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _mtokOandSyntax -> - (case (mtok_ _mtokOnextTokenPos) of - { ( _mtokInextTokenPos,mtok_1) -> - (case (({-# LINE 156 "src/GLuaFixer/AG/LexLint.ag" #-} - Region _lhsInextTokenPos _mtokInextTokenPos - {-# LINE 209 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _mpos -> - (case (({-# LINE 157 "src/GLuaFixer/AG/LexLint.ag" #-} - _mpos - {-# LINE 214 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _mtokOmpos -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 219 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _mtokOstrSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 224 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _mtokOorSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 229 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _mtokOnotSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 234 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _mtokOneqSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 239 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _mtokOmultilineCommentSyntax -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 244 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _mtokOlineCommentSyntax -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 249 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _mtokOindentation -> - (case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIconfig - {-# LINE 254 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _mtokOconfig -> - (case (mtok_1 _mtokOandSyntax _mtokOconfig _mtokOindentation _mtokOlineCommentSyntax _mtokOmpos _mtokOmultilineCommentSyntax _mtokOneqSyntax _mtokOnotSyntax _mtokOorSyntax _mtokOstrSyntax) of - { ( _mtokIandSyntax,_mtokIcopy,_mtokIindentation,_mtokIlineCommentSyntax,_mtokImultilineCommentSyntax,_mtokIneqSyntax,_mtokInotSyntax,_mtokIorSyntax,_mtokIstrSyntax,_mtokIwarnings) -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _mtokIandSyntax - {-# LINE 261 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 160 "src/GLuaFixer/AG/LexLint.ag" #-} - MToken (const _mpos mpos_) _mtokIcopy - {-# LINE 266 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 271 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _mtokIindentation - {-# LINE 276 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _mtokIlineCommentSyntax - {-# LINE 281 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _mtokImultilineCommentSyntax - {-# LINE 286 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _mtokIneqSyntax - {-# LINE 291 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} - _mtokInextTokenPos - {-# LINE 296 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _mtokInotSyntax - {-# LINE 301 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _mtokIorSyntax - {-# LINE 306 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _mtokIstrSyntax - {-# LINE 311 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - _mtokIwarnings - {-# LINE 316 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) --- MTokenList -------------------------------------------------- --- cata -sem_MTokenList :: MTokenList -> - T_MTokenList -sem_MTokenList list = - (Prelude.foldr sem_MTokenList_Cons sem_MTokenList_Nil (Prelude.map sem_MToken list)) --- semantic domain -type T_MTokenList = SyntaxUsed -> - LintSettings -> - SyntaxUsed -> - SyntaxUsed -> - SyntaxUsed -> - SyntaxUsed -> - LineColPos -> - SyntaxUsed -> - SyntaxUsed -> - SyntaxUsed -> - ( SyntaxUsed,MTokenList,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,LineColPos,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage])) -data Inh_MTokenList = Inh_MTokenList {andSyntax_Inh_MTokenList :: SyntaxUsed,config_Inh_MTokenList :: LintSettings,indentation_Inh_MTokenList :: SyntaxUsed,lineCommentSyntax_Inh_MTokenList :: SyntaxUsed,multilineCommentSyntax_Inh_MTokenList :: SyntaxUsed,neqSyntax_Inh_MTokenList :: SyntaxUsed,nextTokenPos_Inh_MTokenList :: LineColPos,notSyntax_Inh_MTokenList :: SyntaxUsed,orSyntax_Inh_MTokenList :: SyntaxUsed,strSyntax_Inh_MTokenList :: SyntaxUsed} -data Syn_MTokenList = Syn_MTokenList {andSyntax_Syn_MTokenList :: SyntaxUsed,copy_Syn_MTokenList :: MTokenList,indentation_Syn_MTokenList :: SyntaxUsed,lineCommentSyntax_Syn_MTokenList :: SyntaxUsed,multilineCommentSyntax_Syn_MTokenList :: SyntaxUsed,neqSyntax_Syn_MTokenList :: SyntaxUsed,nextTokenPos_Syn_MTokenList :: LineColPos,notSyntax_Syn_MTokenList :: SyntaxUsed,orSyntax_Syn_MTokenList :: SyntaxUsed,strSyntax_Syn_MTokenList :: SyntaxUsed,warnings_Syn_MTokenList :: ([FilePath -> LintMessage])} -wrap_MTokenList :: T_MTokenList -> - Inh_MTokenList -> - Syn_MTokenList -wrap_MTokenList sem (Inh_MTokenList _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) = - (let ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax - in (Syn_MTokenList _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings)) -sem_MTokenList_Cons :: T_MToken -> - T_MTokenList -> - T_MTokenList -sem_MTokenList_Cons hd_ tl_ = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInextTokenPos - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInextTokenPos - {-# LINE 362 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _hdOnextTokenPos -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 367 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _hdOstrSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 372 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _hdOorSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 377 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _hdOnotSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 382 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _hdOneqSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 387 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _hdOmultilineCommentSyntax -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 392 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _hdOlineCommentSyntax -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 397 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _hdOindentation -> - (case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIconfig - {-# LINE 402 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _hdOconfig -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 407 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _hdOandSyntax -> - (case (hd_ _hdOandSyntax _hdOconfig _hdOindentation _hdOlineCommentSyntax _hdOmultilineCommentSyntax _hdOneqSyntax _hdOnextTokenPos _hdOnotSyntax _hdOorSyntax _hdOstrSyntax) of - { ( _hdIandSyntax,_hdIcopy,_hdIindentation,_hdIlineCommentSyntax,_hdImultilineCommentSyntax,_hdIneqSyntax,_hdInextTokenPos,_hdInotSyntax,_hdIorSyntax,_hdIstrSyntax,_hdIwarnings) -> - (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} - _hdInextTokenPos - {-# LINE 414 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _tlOnextTokenPos -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _hdIandSyntax - {-# LINE 419 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _tlOandSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _hdIstrSyntax - {-# LINE 424 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _tlOstrSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _hdIorSyntax - {-# LINE 429 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _tlOorSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _hdInotSyntax - {-# LINE 434 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _tlOnotSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _hdIneqSyntax - {-# LINE 439 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _tlOneqSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _hdImultilineCommentSyntax - {-# LINE 444 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _tlOmultilineCommentSyntax -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _hdIlineCommentSyntax - {-# LINE 449 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _tlOlineCommentSyntax -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _hdIindentation - {-# LINE 454 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _tlOindentation -> - (case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIconfig - {-# LINE 459 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _tlOconfig -> - (case (tl_ _tlOandSyntax _tlOconfig _tlOindentation _tlOlineCommentSyntax _tlOmultilineCommentSyntax _tlOneqSyntax _tlOnextTokenPos _tlOnotSyntax _tlOorSyntax _tlOstrSyntax) of - { ( _tlIandSyntax,_tlIcopy,_tlIindentation,_tlIlineCommentSyntax,_tlImultilineCommentSyntax,_tlIneqSyntax,_tlInextTokenPos,_tlInotSyntax,_tlIorSyntax,_tlIstrSyntax,_tlIwarnings) -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _tlIandSyntax - {-# LINE 466 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 471 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 476 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _tlIindentation - {-# LINE 481 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _tlIlineCommentSyntax - {-# LINE 486 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _tlImultilineCommentSyntax - {-# LINE 491 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _tlIneqSyntax - {-# LINE 496 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} - _tlInextTokenPos - {-# LINE 501 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _tlInotSyntax - {-# LINE 506 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _tlIorSyntax - {-# LINE 511 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _tlIstrSyntax - {-# LINE 516 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - _hdIwarnings ++ _tlIwarnings - {-# LINE 521 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) -sem_MTokenList_Nil :: T_MTokenList -sem_MTokenList_Nil = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInextTokenPos - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 539 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 544 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 549 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 554 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 559 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 564 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 569 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInextTokenPos - {-# LINE 574 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 579 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 584 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 589 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 594 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) })) --- Token ------------------------------------------------------- --- cata -sem_Token :: Token -> - T_Token -sem_Token (Whitespace _space) = - (sem_Token_Whitespace _space) -sem_Token (DashComment _comment) = - (sem_Token_DashComment _comment) -sem_Token (DashBlockComment _depth _comment) = - (sem_Token_DashBlockComment _depth _comment) -sem_Token (SlashComment _comment) = - (sem_Token_SlashComment _comment) -sem_Token (SlashBlockComment _comment) = - (sem_Token_SlashBlockComment _comment) -sem_Token (Semicolon) = - (sem_Token_Semicolon) -sem_Token (TNumber _num) = - (sem_Token_TNumber _num) -sem_Token (DQString _str) = - (sem_Token_DQString _str) -sem_Token (SQString _str) = - (sem_Token_SQString _str) -sem_Token (MLString _str) = - (sem_Token_MLString _str) -sem_Token (TTrue) = - (sem_Token_TTrue) -sem_Token (TFalse) = - (sem_Token_TFalse) -sem_Token (Nil) = - (sem_Token_Nil) -sem_Token (VarArg) = - (sem_Token_VarArg) -sem_Token (Plus) = - (sem_Token_Plus) -sem_Token (Minus) = - (sem_Token_Minus) -sem_Token (Multiply) = - (sem_Token_Multiply) -sem_Token (Divide) = - (sem_Token_Divide) -sem_Token (Modulus) = - (sem_Token_Modulus) -sem_Token (Power) = - (sem_Token_Power) -sem_Token (TEq) = - (sem_Token_TEq) -sem_Token (TNEq) = - (sem_Token_TNEq) -sem_Token (TCNEq) = - (sem_Token_TCNEq) -sem_Token (TLEQ) = - (sem_Token_TLEQ) -sem_Token (TGEQ) = - (sem_Token_TGEQ) -sem_Token (TLT) = - (sem_Token_TLT) -sem_Token (TGT) = - (sem_Token_TGT) -sem_Token (Equals) = - (sem_Token_Equals) -sem_Token (Concatenate) = - (sem_Token_Concatenate) -sem_Token (Colon) = - (sem_Token_Colon) -sem_Token (Dot) = - (sem_Token_Dot) -sem_Token (Comma) = - (sem_Token_Comma) -sem_Token (Hash) = - (sem_Token_Hash) -sem_Token (Not) = - (sem_Token_Not) -sem_Token (CNot) = - (sem_Token_CNot) -sem_Token (And) = - (sem_Token_And) -sem_Token (CAnd) = - (sem_Token_CAnd) -sem_Token (Or) = - (sem_Token_Or) -sem_Token (COr) = - (sem_Token_COr) -sem_Token (Function) = - (sem_Token_Function) -sem_Token (Local) = - (sem_Token_Local) -sem_Token (If) = - (sem_Token_If) -sem_Token (Then) = - (sem_Token_Then) -sem_Token (Elseif) = - (sem_Token_Elseif) -sem_Token (Else) = - (sem_Token_Else) -sem_Token (For) = - (sem_Token_For) -sem_Token (In) = - (sem_Token_In) -sem_Token (Do) = - (sem_Token_Do) -sem_Token (While) = - (sem_Token_While) -sem_Token (Until) = - (sem_Token_Until) -sem_Token (Repeat) = - (sem_Token_Repeat) -sem_Token (Continue) = - (sem_Token_Continue) -sem_Token (Break) = - (sem_Token_Break) -sem_Token (Return) = - (sem_Token_Return) -sem_Token (End) = - (sem_Token_End) -sem_Token (LRound) = - (sem_Token_LRound) -sem_Token (RRound) = - (sem_Token_RRound) -sem_Token (LCurly) = - (sem_Token_LCurly) -sem_Token (RCurly) = - (sem_Token_RCurly) -sem_Token (LSquare) = - (sem_Token_LSquare) -sem_Token (RSquare) = - (sem_Token_RSquare) -sem_Token (Label _whitespaceBefore _lbl _whitespaceAfter) = - (sem_Token_Label _whitespaceBefore _lbl _whitespaceAfter) -sem_Token (Identifier _ident) = - (sem_Token_Identifier _ident) --- semantic domain -type T_Token = LineColPos -> - ( LineColPos,T_Token_1) -type T_Token_1 = SyntaxUsed -> - LintSettings -> - SyntaxUsed -> - SyntaxUsed -> - Region -> - SyntaxUsed -> - SyntaxUsed -> - SyntaxUsed -> - SyntaxUsed -> - SyntaxUsed -> - ( SyntaxUsed,Token,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage])) -data Inh_Token = Inh_Token {andSyntax_Inh_Token :: SyntaxUsed,config_Inh_Token :: LintSettings,indentation_Inh_Token :: SyntaxUsed,lineCommentSyntax_Inh_Token :: SyntaxUsed,mpos_Inh_Token :: Region,multilineCommentSyntax_Inh_Token :: SyntaxUsed,neqSyntax_Inh_Token :: SyntaxUsed,nextTokenPos_Inh_Token :: LineColPos,notSyntax_Inh_Token :: SyntaxUsed,orSyntax_Inh_Token :: SyntaxUsed,strSyntax_Inh_Token :: SyntaxUsed} -data Syn_Token = Syn_Token {andSyntax_Syn_Token :: SyntaxUsed,copy_Syn_Token :: Token,indentation_Syn_Token :: SyntaxUsed,lineCommentSyntax_Syn_Token :: SyntaxUsed,multilineCommentSyntax_Syn_Token :: SyntaxUsed,neqSyntax_Syn_Token :: SyntaxUsed,nextTokenPos_Syn_Token :: LineColPos,notSyntax_Syn_Token :: SyntaxUsed,orSyntax_Syn_Token :: SyntaxUsed,strSyntax_Syn_Token :: SyntaxUsed,warnings_Syn_Token :: ([FilePath -> LintMessage])} -wrap_Token :: T_Token -> - Inh_Token -> - Syn_Token -wrap_Token sem (Inh_Token _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImpos _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) = - (let ( _lhsOnextTokenPos,sem_1) = sem _lhsInextTokenPos - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem_1 _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImpos _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax - in (Syn_Token _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings)) -sem_Token_Whitespace :: String -> - T_Token -sem_Token_Whitespace space_ = - (\ _lhsInextTokenPos -> - (case (({-# LINE 164 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInextTokenPos - {-# LINE 757 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _curTokenPos -> - (case (({-# LINE 165 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceStr _curTokenPos space_ - {-# LINE 762 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _nextTokenPos -> - (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} - _nextTokenPos - {-# LINE 767 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Whitespace_1 :: T_Token_1 - sem_Token_Whitespace_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 784 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Whitespace space_ - {-# LINE 789 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 794 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 177 "src/GLuaFixer/AG/LexLint.ag" #-} - Region (indentationStart _curTokenPos space_) _nextTokenPos - {-# LINE 799 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _indentationRg -> - (case (({-# LINE 168 "src/GLuaFixer/AG/LexLint.ag" #-} - mkSyntax (isInfixOf "\n\t" space_) _indentationRg - {-# LINE 804 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _usesTabs -> - (case (({-# LINE 167 "src/GLuaFixer/AG/LexLint.ag" #-} - mkSyntax (isInfixOf "\n " space_) _indentationRg - {-# LINE 809 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _usesSpaces -> - (case (({-# LINE 169 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation <> SyntaxUsed _usesSpaces _usesTabs - {-# LINE 814 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 170 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 819 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _indentation -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _indentation - {-# LINE 824 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 829 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 834 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 839 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 844 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 849 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 854 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 859 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 173 "src/GLuaFixer/AG/LexLint.ag" #-} - locateTrailingWhitespace _curTokenPos space_ - {-# LINE 864 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _whitespaceStart -> - (case (({-# LINE 174 "src/GLuaFixer/AG/LexLint.ag" #-} - endOfTrailingWhitespace _whitespaceStart - {-# LINE 869 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _whitespaceEnd -> - (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_trailingWhitespace _lhsIconfig) || (not (isInfixOf " \n" space_) && not (isInfixOf "\t\n" space_)) then id else (:) $ mTokenWarning (Region (fst _whitespaceStart ) _whitespaceEnd ) TrailingWhitespace - {-# LINE 874 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f2 -> - (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_whitespaceStyle _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed InconsistentTabsSpaces - {-# LINE 880 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2] - {-# LINE 885 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Whitespace_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) }) })) -sem_Token_DashComment :: String -> - T_Token -sem_Token_DashComment comment_ = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - DashComment comment_ - {-# LINE 898 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 185 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 903 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _nextTokenPos -> - (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} - _nextTokenPos - {-# LINE 908 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_DashComment_1 :: T_Token_1 - sem_Token_DashComment_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 925 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 930 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 935 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 187 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax <> SyntaxUsed (Just _lhsImpos) Nothing - {-# LINE 940 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 188 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 945 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lineCommentSyntax -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lineCommentSyntax - {-# LINE 950 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 955 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 960 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 965 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 970 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 975 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 980 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_syntaxInconsistencies _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "--" "//" - {-# LINE 986 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 991 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_DashComment_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) }) })) -sem_Token_DashBlockComment :: Int -> - String -> - T_Token -sem_Token_DashBlockComment depth_ comment_ = - (\ _lhsInextTokenPos -> - (case (({-# LINE 202 "src/GLuaFixer/AG/LexLint.ag" #-} - showString "--[" . showString (replicate depth_ '-') . showChar '[' . showString comment_ . showChar ']' . showString (replicate depth_ '-') . showChar ']' $ "" - {-# LINE 1005 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _str -> - (case (({-# LINE 203 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceStr _lhsInextTokenPos _str - {-# LINE 1010 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_DashBlockComment_1 :: T_Token_1 - sem_Token_DashBlockComment_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 1027 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - DashBlockComment depth_ comment_ - {-# LINE 1032 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 1037 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 1042 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 1047 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 205 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax <> SyntaxUsed (Just _lhsImpos) Nothing - {-# LINE 1052 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 206 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 1057 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _multilineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _multilineCommentSyntax - {-# LINE 1062 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 1067 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 1072 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 1077 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 1082 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 1087 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_syntaxInconsistencies _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "--[[ ]]" "/* */" - {-# LINE 1093 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 1098 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_DashBlockComment_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_SlashComment :: String -> - T_Token -sem_Token_SlashComment comment_ = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - SlashComment comment_ - {-# LINE 1111 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 193 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 1116 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _nextTokenPos -> - (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} - _nextTokenPos - {-# LINE 1121 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_SlashComment_1 :: T_Token_1 - sem_Token_SlashComment_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 1138 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 1143 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 1148 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 195 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax <> SyntaxUsed Nothing (Just _lhsImpos) - {-# LINE 1153 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 196 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 1158 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lineCommentSyntax -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lineCommentSyntax - {-# LINE 1163 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 1168 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 1173 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 1178 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 1183 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 1188 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 1193 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_syntaxInconsistencies _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "//" "--" - {-# LINE 1199 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 1204 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_SlashComment_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) }) })) -sem_Token_SlashBlockComment :: String -> - T_Token -sem_Token_SlashBlockComment comment_ = - (\ _lhsInextTokenPos -> - (case (({-# LINE 211 "src/GLuaFixer/AG/LexLint.ag" #-} - showString "/*" . showString comment_ . showString "*/" $ "" - {-# LINE 1217 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _str -> - (case (({-# LINE 212 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceStr _lhsInextTokenPos _str - {-# LINE 1222 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_SlashBlockComment_1 :: T_Token_1 - sem_Token_SlashBlockComment_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 1239 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - SlashBlockComment comment_ - {-# LINE 1244 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 1249 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 1254 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 1259 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 214 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax <> SyntaxUsed Nothing (Just _lhsImpos) - {-# LINE 1264 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 215 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 1269 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _multilineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _multilineCommentSyntax - {-# LINE 1274 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 1279 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 1284 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 1289 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 1294 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 1299 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_syntaxInconsistencies _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "/* */" "--[[ ]]" - {-# LINE 1305 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 1310 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_SlashBlockComment_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Semicolon :: T_Token -sem_Token_Semicolon = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Semicolon - {-# LINE 1322 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 1327 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Semicolon_1 :: T_Token_1 - sem_Token_Semicolon_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 1344 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 1349 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 1354 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 1359 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 1364 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 1369 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 1374 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 1379 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 1384 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 1389 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Semicolon_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_TNumber :: String -> - T_Token -sem_Token_TNumber num_ = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - TNumber num_ - {-# LINE 1402 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 1407 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_TNumber_1 :: T_Token_1 - sem_Token_TNumber_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 1424 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 1429 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 1434 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 1439 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 1444 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 1449 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 1454 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 1459 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 1464 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 1469 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_TNumber_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_DQString :: String -> - T_Token -sem_Token_DQString str_ = - (\ _lhsInextTokenPos -> - (case (({-# LINE 224 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceStr _lhsInextTokenPos $ "\"" <> str_ <> "\"" - {-# LINE 1482 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_DQString_1 :: T_Token_1 - sem_Token_DQString_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 1499 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - DQString str_ - {-# LINE 1504 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 1509 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 1514 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 1519 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 1524 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 1529 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 1534 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 1539 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 226 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax <> SyntaxUsed (Just _lhsImpos) Nothing - {-# LINE 1544 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 227 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 1549 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _strSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _strSyntax - {-# LINE 1554 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 1559 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_syntaxInconsistencies _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "double quoted strings" "single quoted strings" - {-# LINE 1565 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 1570 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_DQString_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) })) -sem_Token_SQString :: String -> - T_Token -sem_Token_SQString str_ = - (\ _lhsInextTokenPos -> - (case (({-# LINE 233 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceStr _lhsInextTokenPos $ "'" <> str_ <> "'" - {-# LINE 1583 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_SQString_1 :: T_Token_1 - sem_Token_SQString_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 1600 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - SQString str_ - {-# LINE 1605 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 1610 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 1615 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 1620 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 1625 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 1630 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 1635 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 1640 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 236 "src/GLuaFixer/AG/LexLint.ag" #-} - if isSingleChar str_ then Nothing else Just _lhsImpos - {-# LINE 1645 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _usesSingleQuotedSyntax -> - (case (({-# LINE 237 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax <> SyntaxUsed Nothing _usesSingleQuotedSyntax - {-# LINE 1650 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 238 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 1655 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _strSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _strSyntax - {-# LINE 1660 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 1665 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_syntaxInconsistencies _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "single quoted strings" "double quoted strings" - {-# LINE 1671 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 1676 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_SQString_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) })) -sem_Token_MLString :: String -> - T_Token -sem_Token_MLString str_ = - (\ _lhsInextTokenPos -> - (case (({-# LINE 243 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceStr _lhsInextTokenPos str_ - {-# LINE 1689 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_MLString_1 :: T_Token_1 - sem_Token_MLString_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 1706 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - MLString str_ - {-# LINE 1711 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 1716 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 1721 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 1726 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 1731 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 1736 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 1741 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 1746 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 1751 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 1756 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_MLString_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) })) -sem_Token_TTrue :: T_Token -sem_Token_TTrue = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - TTrue - {-# LINE 1768 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 1773 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_TTrue_1 :: T_Token_1 - sem_Token_TTrue_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 1790 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 1795 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 1800 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 1805 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 1810 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 1815 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 1820 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 1825 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 1830 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 1835 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_TTrue_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_TFalse :: T_Token -sem_Token_TFalse = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - TFalse - {-# LINE 1847 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 1852 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_TFalse_1 :: T_Token_1 - sem_Token_TFalse_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 1869 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 1874 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 1879 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 1884 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 1889 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 1894 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 1899 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 1904 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 1909 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 1914 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_TFalse_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Nil :: T_Token -sem_Token_Nil = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Nil - {-# LINE 1926 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 1931 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Nil_1 :: T_Token_1 - sem_Token_Nil_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 1948 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 1953 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 1958 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 1963 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 1968 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 1973 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 1978 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 1983 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 1988 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 1993 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Nil_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_VarArg :: T_Token -sem_Token_VarArg = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - VarArg - {-# LINE 2005 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 2010 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_VarArg_1 :: T_Token_1 - sem_Token_VarArg_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 2027 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 2032 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 2037 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 2042 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 2047 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 2052 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 2057 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 2062 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 2067 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 2072 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_VarArg_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Plus :: T_Token -sem_Token_Plus = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Plus - {-# LINE 2084 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 2089 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Plus_1 :: T_Token_1 - sem_Token_Plus_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 2106 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 2111 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 2116 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 2121 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 2126 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 2131 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 2136 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 2141 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 2146 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 2151 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Plus_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Minus :: T_Token -sem_Token_Minus = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Minus - {-# LINE 2163 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 2168 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Minus_1 :: T_Token_1 - sem_Token_Minus_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 2185 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 2190 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 2195 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 2200 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 2205 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 2210 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 2215 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 2220 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 2225 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 2230 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Minus_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Multiply :: T_Token -sem_Token_Multiply = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Multiply - {-# LINE 2242 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 2247 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Multiply_1 :: T_Token_1 - sem_Token_Multiply_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 2264 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 2269 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 2274 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 2279 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 2284 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 2289 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 2294 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 2299 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 2304 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 2309 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Multiply_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Divide :: T_Token -sem_Token_Divide = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Divide - {-# LINE 2321 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 2326 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Divide_1 :: T_Token_1 - sem_Token_Divide_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 2343 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 2348 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 2353 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 2358 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 2363 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 2368 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 2373 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 2378 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 2383 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 2388 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Divide_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Modulus :: T_Token -sem_Token_Modulus = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Modulus - {-# LINE 2400 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 2405 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Modulus_1 :: T_Token_1 - sem_Token_Modulus_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 2422 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 2427 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 2432 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 2437 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 2442 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 2447 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 2452 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 2457 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 2462 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 2467 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Modulus_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Power :: T_Token -sem_Token_Power = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Power - {-# LINE 2479 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 2484 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Power_1 :: T_Token_1 - sem_Token_Power_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 2501 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 2506 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 2511 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 2516 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 2521 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 2526 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 2531 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 2536 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 2541 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 2546 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Power_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_TEq :: T_Token -sem_Token_TEq = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - TEq - {-# LINE 2558 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 2563 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_TEq_1 :: T_Token_1 - sem_Token_TEq_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 2580 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 2585 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 2590 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 2595 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 2600 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 2605 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 2610 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 2615 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 2620 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 2625 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_TEq_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_TNEq :: T_Token -sem_Token_TNEq = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - TNEq - {-# LINE 2637 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 2642 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_TNEq_1 :: T_Token_1 - sem_Token_TNEq_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 2659 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 2664 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 2669 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 2674 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 2679 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 282 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax <> SyntaxUsed (Just _lhsImpos) Nothing - {-# LINE 2684 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 283 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 2689 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _neqSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _neqSyntax - {-# LINE 2694 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 2699 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 2704 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 2709 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 2714 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_syntaxInconsistencies _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "~=" "!=" - {-# LINE 2720 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 2725 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_TNEq_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_TCNEq :: T_Token -sem_Token_TCNEq = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - TCNEq - {-# LINE 2737 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 2742 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_TCNEq_1 :: T_Token_1 - sem_Token_TCNEq_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 2759 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 2764 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 2769 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 2774 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 2779 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 288 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax <> SyntaxUsed Nothing (Just _lhsImpos) - {-# LINE 2784 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 289 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 2789 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _neqSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _neqSyntax - {-# LINE 2794 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 2799 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 2804 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 2809 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 2814 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_syntaxInconsistencies _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "!=" "~=" - {-# LINE 2820 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 2825 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_TCNEq_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_TLEQ :: T_Token -sem_Token_TLEQ = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - TLEQ - {-# LINE 2837 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 2842 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_TLEQ_1 :: T_Token_1 - sem_Token_TLEQ_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 2859 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 2864 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 2869 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 2874 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 2879 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 2884 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 2889 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 2894 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 2899 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 2904 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_TLEQ_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_TGEQ :: T_Token -sem_Token_TGEQ = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - TGEQ - {-# LINE 2916 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 2921 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_TGEQ_1 :: T_Token_1 - sem_Token_TGEQ_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 2938 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 2943 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 2948 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 2953 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 2958 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 2963 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 2968 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 2973 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 2978 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 2983 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_TGEQ_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_TLT :: T_Token -sem_Token_TLT = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - TLT - {-# LINE 2995 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 3000 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_TLT_1 :: T_Token_1 - sem_Token_TLT_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 3017 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 3022 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 3027 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 3032 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 3037 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 3042 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 3047 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 3052 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 3057 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 3062 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_TLT_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_TGT :: T_Token -sem_Token_TGT = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - TGT - {-# LINE 3074 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 3079 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_TGT_1 :: T_Token_1 - sem_Token_TGT_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 3096 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 3101 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 3106 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 3111 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 3116 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 3121 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 3126 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 3131 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 3136 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 3141 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_TGT_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Equals :: T_Token -sem_Token_Equals = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Equals - {-# LINE 3153 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 3158 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Equals_1 :: T_Token_1 - sem_Token_Equals_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 3175 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 3180 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 3185 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 3190 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 3195 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 3200 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 3205 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 3210 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 3215 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 3220 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Equals_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Concatenate :: T_Token -sem_Token_Concatenate = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Concatenate - {-# LINE 3232 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 3237 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Concatenate_1 :: T_Token_1 - sem_Token_Concatenate_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 3254 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 3259 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 3264 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 3269 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 3274 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 3279 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 3284 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 3289 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 3294 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 3299 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Concatenate_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Colon :: T_Token -sem_Token_Colon = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Colon - {-# LINE 3311 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 3316 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Colon_1 :: T_Token_1 - sem_Token_Colon_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 3333 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 3338 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 3343 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 3348 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 3353 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 3358 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 3363 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 3368 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 3373 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 3378 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Colon_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Dot :: T_Token -sem_Token_Dot = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Dot - {-# LINE 3390 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 3395 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Dot_1 :: T_Token_1 - sem_Token_Dot_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 3412 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 3417 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 3422 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 3427 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 3432 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 3437 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 3442 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 3447 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 3452 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 3457 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Dot_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Comma :: T_Token -sem_Token_Comma = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Comma - {-# LINE 3469 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 3474 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Comma_1 :: T_Token_1 - sem_Token_Comma_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 3491 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 3496 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 3501 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 3506 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 3511 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 3516 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 3521 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 3526 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 3531 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 3536 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Comma_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Hash :: T_Token -sem_Token_Hash = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Hash - {-# LINE 3548 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 3553 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Hash_1 :: T_Token_1 - sem_Token_Hash_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 3570 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 3575 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 3580 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 3585 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 3590 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 3595 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 3600 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 3605 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 3610 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 3615 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Hash_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Not :: T_Token -sem_Token_Not = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Not - {-# LINE 3627 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 3632 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Not_1 :: T_Token_1 - sem_Token_Not_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 3649 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 3654 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 3659 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 3664 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 3669 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 3674 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 246 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax <> SyntaxUsed (Just _lhsImpos) Nothing - {-# LINE 3679 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 247 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 3684 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _notSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _notSyntax - {-# LINE 3689 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 3694 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 3699 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 3704 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_syntaxInconsistencies _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "not" "!" - {-# LINE 3710 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 3715 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Not_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_CNot :: T_Token -sem_Token_CNot = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - CNot - {-# LINE 3727 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 3732 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_CNot_1 :: T_Token_1 - sem_Token_CNot_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 3749 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 3754 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 3759 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 3764 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 3769 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 3774 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 252 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax <> SyntaxUsed Nothing (Just _lhsImpos) - {-# LINE 3779 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 253 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 3784 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _notSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _notSyntax - {-# LINE 3789 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 3794 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 3799 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 3804 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_syntaxInconsistencies _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "!" "not" - {-# LINE 3810 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 3815 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_CNot_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_And :: T_Token -sem_Token_And = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - And - {-# LINE 3827 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 3832 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_And_1 :: T_Token_1 - sem_Token_And_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 258 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax <> SyntaxUsed (Just _lhsImpos) Nothing - {-# LINE 3849 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 259 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 3854 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _andSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _andSyntax - {-# LINE 3859 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 3864 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 3869 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 3874 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 3879 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 3884 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 3889 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 3894 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 3899 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 3904 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_syntaxInconsistencies _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "and" "&&" - {-# LINE 3910 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 3915 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_And_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_CAnd :: T_Token -sem_Token_CAnd = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - CAnd - {-# LINE 3927 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 3932 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_CAnd_1 :: T_Token_1 - sem_Token_CAnd_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 264 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax <> SyntaxUsed Nothing (Just _lhsImpos) - {-# LINE 3949 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 265 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 3954 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _andSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _andSyntax - {-# LINE 3959 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 3964 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 3969 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 3974 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 3979 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 3984 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 3989 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 3994 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 3999 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 4004 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_syntaxInconsistencies _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "&&" "and" - {-# LINE 4010 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 4015 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_CAnd_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Or :: T_Token -sem_Token_Or = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Or - {-# LINE 4027 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 4032 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Or_1 :: T_Token_1 - sem_Token_Or_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 4049 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 4054 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 4059 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 4064 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 4069 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 4074 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 4079 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 270 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax <> SyntaxUsed (Just _lhsImpos) Nothing - {-# LINE 4084 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 271 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 4089 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _orSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _orSyntax - {-# LINE 4094 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 4099 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 4104 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_syntaxInconsistencies _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "or" "||" - {-# LINE 4110 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 4115 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Or_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_COr :: T_Token -sem_Token_COr = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - COr - {-# LINE 4127 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 4132 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_COr_1 :: T_Token_1 - sem_Token_COr_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 4149 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 4154 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 4159 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 4164 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 4169 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 4174 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 4179 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 276 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax <> SyntaxUsed Nothing (Just _lhsImpos) - {-# LINE 4184 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _combinedSyntaxUsed -> - (case (({-# LINE 277 "src/GLuaFixer/AG/LexLint.ag" #-} - resetIfInconsistent _combinedSyntaxUsed - {-# LINE 4189 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _orSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _orSyntax - {-# LINE 4194 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 4199 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 4204 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_syn -> - (case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-} - if not (lint_syntaxInconsistencies _lhsIconfig) then id else - warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "||" "or" - {-# LINE 4210 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _warnings_augmented_f1 -> - (case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-} - foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] - {-# LINE 4215 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) - in sem_Token_COr_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Function :: T_Token -sem_Token_Function = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Function - {-# LINE 4227 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 4232 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Function_1 :: T_Token_1 - sem_Token_Function_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 4249 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 4254 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 4259 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 4264 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 4269 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 4274 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 4279 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 4284 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 4289 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 4294 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Function_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Local :: T_Token -sem_Token_Local = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Local - {-# LINE 4306 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 4311 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Local_1 :: T_Token_1 - sem_Token_Local_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 4328 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 4333 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 4338 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 4343 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 4348 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 4353 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 4358 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 4363 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 4368 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 4373 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Local_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_If :: T_Token -sem_Token_If = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - If - {-# LINE 4385 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 4390 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_If_1 :: T_Token_1 - sem_Token_If_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 4407 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 4412 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 4417 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 4422 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 4427 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 4432 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 4437 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 4442 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 4447 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 4452 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_If_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Then :: T_Token -sem_Token_Then = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Then - {-# LINE 4464 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 4469 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Then_1 :: T_Token_1 - sem_Token_Then_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 4486 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 4491 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 4496 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 4501 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 4506 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 4511 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 4516 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 4521 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 4526 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 4531 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Then_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Elseif :: T_Token -sem_Token_Elseif = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Elseif - {-# LINE 4543 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 4548 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Elseif_1 :: T_Token_1 - sem_Token_Elseif_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 4565 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 4570 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 4575 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 4580 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 4585 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 4590 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 4595 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 4600 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 4605 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 4610 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Elseif_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Else :: T_Token -sem_Token_Else = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Else - {-# LINE 4622 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 4627 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Else_1 :: T_Token_1 - sem_Token_Else_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 4644 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 4649 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 4654 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 4659 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 4664 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 4669 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 4674 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 4679 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 4684 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 4689 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Else_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_For :: T_Token -sem_Token_For = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - For - {-# LINE 4701 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 4706 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_For_1 :: T_Token_1 - sem_Token_For_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 4723 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 4728 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 4733 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 4738 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 4743 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 4748 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 4753 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 4758 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 4763 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 4768 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_For_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_In :: T_Token -sem_Token_In = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - In - {-# LINE 4780 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 4785 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_In_1 :: T_Token_1 - sem_Token_In_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 4802 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 4807 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 4812 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 4817 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 4822 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 4827 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 4832 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 4837 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 4842 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 4847 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_In_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Do :: T_Token -sem_Token_Do = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Do - {-# LINE 4859 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 4864 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Do_1 :: T_Token_1 - sem_Token_Do_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 4881 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 4886 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 4891 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 4896 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 4901 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 4906 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 4911 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 4916 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 4921 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 4926 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Do_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_While :: T_Token -sem_Token_While = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - While - {-# LINE 4938 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 4943 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_While_1 :: T_Token_1 - sem_Token_While_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 4960 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 4965 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 4970 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 4975 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 4980 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 4985 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 4990 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 4995 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 5000 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 5005 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_While_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Until :: T_Token -sem_Token_Until = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Until - {-# LINE 5017 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 5022 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Until_1 :: T_Token_1 - sem_Token_Until_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 5039 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 5044 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 5049 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 5054 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 5059 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 5064 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 5069 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 5074 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 5079 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 5084 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Until_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Repeat :: T_Token -sem_Token_Repeat = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Repeat - {-# LINE 5096 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 5101 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Repeat_1 :: T_Token_1 - sem_Token_Repeat_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 5118 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 5123 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 5128 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 5133 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 5138 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 5143 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 5148 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 5153 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 5158 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 5163 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Repeat_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Continue :: T_Token -sem_Token_Continue = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Continue - {-# LINE 5175 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 5180 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Continue_1 :: T_Token_1 - sem_Token_Continue_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 5197 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 5202 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 5207 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 5212 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 5217 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 5222 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 5227 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 5232 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 5237 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 5242 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Continue_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Break :: T_Token -sem_Token_Break = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Break - {-# LINE 5254 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 5259 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Break_1 :: T_Token_1 - sem_Token_Break_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 5276 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 5281 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 5286 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 5291 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 5296 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 5301 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 5306 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 5311 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 5316 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 5321 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Break_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Return :: T_Token -sem_Token_Return = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Return - {-# LINE 5333 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 5338 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Return_1 :: T_Token_1 - sem_Token_Return_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 5355 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 5360 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 5365 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 5370 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 5375 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 5380 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 5385 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 5390 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 5395 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 5400 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Return_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_End :: T_Token -sem_Token_End = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - End - {-# LINE 5412 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 5417 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_End_1 :: T_Token_1 - sem_Token_End_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 5434 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 5439 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 5444 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 5449 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 5454 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 5459 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 5464 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 5469 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 5474 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 5479 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_End_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_LRound :: T_Token -sem_Token_LRound = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - LRound - {-# LINE 5491 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 5496 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_LRound_1 :: T_Token_1 - sem_Token_LRound_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 5513 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 5518 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 5523 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 5528 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 5533 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 5538 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 5543 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 5548 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 5553 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 5558 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_LRound_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_RRound :: T_Token -sem_Token_RRound = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - RRound - {-# LINE 5570 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 5575 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_RRound_1 :: T_Token_1 - sem_Token_RRound_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 5592 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 5597 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 5602 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 5607 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 5612 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 5617 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 5622 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 5627 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 5632 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 5637 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_RRound_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_LCurly :: T_Token -sem_Token_LCurly = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - LCurly - {-# LINE 5649 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 5654 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_LCurly_1 :: T_Token_1 - sem_Token_LCurly_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 5671 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 5676 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 5681 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 5686 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 5691 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 5696 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 5701 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 5706 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 5711 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 5716 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_LCurly_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_RCurly :: T_Token -sem_Token_RCurly = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - RCurly - {-# LINE 5728 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 5733 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_RCurly_1 :: T_Token_1 - sem_Token_RCurly_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 5750 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 5755 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 5760 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 5765 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 5770 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 5775 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 5780 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 5785 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 5790 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 5795 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_RCurly_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_LSquare :: T_Token -sem_Token_LSquare = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - LSquare - {-# LINE 5807 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 5812 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_LSquare_1 :: T_Token_1 - sem_Token_LSquare_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 5829 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 5834 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 5839 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 5844 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 5849 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 5854 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 5859 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 5864 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 5869 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 5874 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_LSquare_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_RSquare :: T_Token -sem_Token_RSquare = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - RSquare - {-# LINE 5886 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 5891 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_RSquare_1 :: T_Token_1 - sem_Token_RSquare_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 5908 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 5913 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 5918 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 5923 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 5928 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 5933 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 5938 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 5943 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 5948 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 5953 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_RSquare_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Label :: String -> - String -> - String -> - T_Token -sem_Token_Label whitespaceBefore_ lbl_ whitespaceAfter_ = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Label whitespaceBefore_ lbl_ whitespaceAfter_ - {-# LINE 5968 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 294 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceStr _lhsInextTokenPos (show _copy ) - {-# LINE 5973 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Label_1 :: T_Token_1 - sem_Token_Label_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 5990 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 5995 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 6000 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 6005 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 6010 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 6015 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 6020 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 6025 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 6030 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 6035 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOwarnings -> - ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) - in sem_Token_Label_1)) of - { ( sem_Token_1) -> - ( _lhsOnextTokenPos,sem_Token_1) }) }) })) -sem_Token_Identifier :: String -> - T_Token -sem_Token_Identifier ident_ = - (\ _lhsInextTokenPos -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - Identifier ident_ - {-# LINE 6048 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _copy -> - (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} - customAdvanceToken _lhsInextTokenPos _copy - {-# LINE 6053 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnextTokenPos -> - (case ((let sem_Token_Identifier_1 :: T_Token_1 - sem_Token_Identifier_1 = - (\ _lhsIandSyntax - _lhsIconfig - _lhsIindentation - _lhsIlineCommentSyntax - _lhsImpos - _lhsImultilineCommentSyntax - _lhsIneqSyntax - _lhsInotSyntax - _lhsIorSyntax - _lhsIstrSyntax -> - (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIandSyntax - {-# LINE 6070 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOandSyntax -> - (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} - _copy - {-# LINE 6075 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOcopy -> - (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIindentation - {-# LINE 6080 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOindentation -> - (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIlineCommentSyntax - {-# LINE 6085 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOlineCommentSyntax -> - (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsImultilineCommentSyntax - {-# LINE 6090 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOmultilineCommentSyntax -> - (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIneqSyntax - {-# LINE 6095 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOneqSyntax -> - (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsInotSyntax - {-# LINE 6100 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOnotSyntax -> - (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIorSyntax - {-# LINE 6105 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOorSyntax -> - (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} - _lhsIstrSyntax - {-# LINE 6110 "src/GLuaFixer/AG/LexLint.hs" #-} - )) of - { _lhsOstrSyntax -> - (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} - [] - {-# LINE 6115 "src/GLuaFixer/AG/LexLint.hs" #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# LANGUAGE CPP #-} +-- UUAGC 0.9.56 (src/GLuaFixer/AG/LexLint.ag) +module GLuaFixer.AG.LexLint( + lintWarnings, + fixedLexPositions +) where + +{-# LINE 8 "src/GLuaFixer/AG/../../GLua/AG/Token.ag" #-} + +import GLua.Position +{-# LINE 17 "src/GLuaFixer/AG/LexLint.hs" #-} + +{-# LINE 15 "src/GLuaFixer/AG/LexLint.ag" #-} + +import Control.Applicative ((<|>)) +import Data.List +import GLua.TokenTypes +import GLua.AG.Token +import GLua.Position +import GLuaFixer.LintMessage +import GLuaFixer.LintSettings +{-# LINE 28 "src/GLuaFixer/AG/LexLint.hs" #-} +{-# LINE 27 "src/GLuaFixer/AG/LexLint.ag" #-} + + +---------------------------------------- +-- C-style / Lua-style syntax inconsistencies +---------------------------------------- +-- For detecting the usage of Lua/C syntax inconsistently. 'Nothing' means no evidence of the style, +-- and 'Just Region' represents the last place where the style was found to be used. +data SyntaxUsed = SyntaxUsed + { lastLuaExample :: Maybe Region + , lastCExample :: Maybe Region + } + deriving (Show) + +instance Semigroup SyntaxUsed where + -- Later uses have preference over earlier uses + (SyntaxUsed l1 c1) <> (SyntaxUsed l2 c2) = SyntaxUsed (l2 <|> l1) (c2 <|> c1) + +-- Monoid instance +instance Monoid SyntaxUsed where + mempty = SyntaxUsed Nothing Nothing + +previousSyntaxUsedRegion :: SyntaxUsed -> Maybe Region +previousSyntaxUsedRegion syntaxUsed = case syntaxUsed of + SyntaxUsed (Just l) (Just c) -> Just $ min l c + -- There is no previous region if there is no syntax inconsistency + SyntaxUsed {} -> Nothing + +-- | Whether there is evidence of Lua style code +luaUsed :: SyntaxUsed -> Bool +luaUsed (SyntaxUsed (Just _) _) = True +luaUsed _ = False + +-- | Whether there is evidence of C style code +cUsed :: SyntaxUsed -> Bool +cUsed (SyntaxUsed _ (Just _)) = True +cUsed _ = False + +-- | Quick helper to turn a bool and region into a member for 'SyntaxUsed' +mkSyntax :: Bool -> Region -> Maybe Region +mkSyntax b region = if b then Just region else Nothing + +-- | Whether the syntax is consistent +consistent :: SyntaxUsed -> Bool +consistent syntaxUsed = case syntaxUsed of + SyntaxUsed (Just _) (Just _) -> False + _ -> True + +mTokenWarning :: Region -> Issue -> FilePath -> LintMessage +mTokenWarning pos issue = LintMessage LintWarning pos issue + +-- | Shorthand for throwing _two_ warnings when an inconsistency occurs: one at the original place +-- and one at the new place. +warnInconsistency :: SyntaxUsed -> Issue -> [FilePath -> LintMessage] -> [FilePath -> LintMessage] +warnInconsistency syntaxUsed issue messages = case syntaxUsed of + SyntaxUsed (Just luaRegion) (Just cRegion) -> + LintMessage LintWarning luaRegion issue : + LintMessage LintWarning cRegion issue : + messages + _ -> messages + +-- | Handy function to reset the built up knowledge of 'SyntaxUsed' when it is found to be +-- inconsistent. +resetIfInconsistent :: SyntaxUsed -> SyntaxUsed +resetIfInconsistent syntaxUsed = case syntaxUsed of + SyntaxUsed (Just {}) (Just {}) -> SyntaxUsed Nothing Nothing + _ -> syntaxUsed + +isSingleChar :: String -> Bool +isSingleChar [] = True +isSingleChar ('\\' : xs) = length xs == 1 +isSingleChar (_ : []) = True +isSingleChar _ = False + +-- Locate the exact position of trailing whitespace +locateTrailingWhitespace :: LineColPos -> String -> (LineColPos, String) +locateTrailingWhitespace pos (' ' : xs) = (pos, xs) +locateTrailingWhitespace pos ('\t' : xs) = (pos, xs) +locateTrailingWhitespace pos (x : xs) = locateTrailingWhitespace (customAdvanceChr pos x) xs +locateTrailingWhitespace pos [] = (pos, "") + +-- Locate the start of a line's indentation in a string of whitespace +indentationStart :: LineColPos -> String -> LineColPos +indentationStart pos = go pos pos + where + go :: LineColPos -> LineColPos -> String -> LineColPos + go _ cur ('\n' : xs) = let next = customAdvanceChr cur '\n' in go next next xs + go found cur (x : xs) = go found (customAdvanceChr cur x) xs + go found _ [] = found + +endOfTrailingWhitespace :: (LineColPos, String) -> LineColPos +endOfTrailingWhitespace (pos, ('\n' : _)) = pos +endOfTrailingWhitespace (pos, (x : xs)) = endOfTrailingWhitespace (customAdvanceChr pos x, xs) +endOfTrailingWhitespace (pos, []) = pos + + +{-# LINE 125 "src/GLuaFixer/AG/LexLint.hs" #-} + +{-# LINE 296 "src/GLuaFixer/AG/LexLint.ag" #-} + + + +inh_MTokenList :: LintSettings -> Inh_MTokenList +inh_MTokenList conf = + Inh_MTokenList { + config_Inh_MTokenList = conf, + andSyntax_Inh_MTokenList = mempty, + indentation_Inh_MTokenList = mempty, + lineCommentSyntax_Inh_MTokenList = mempty, + multilineCommentSyntax_Inh_MTokenList = mempty, + neqSyntax_Inh_MTokenList = mempty, + notSyntax_Inh_MTokenList = mempty, + orSyntax_Inh_MTokenList = mempty, + strSyntax_Inh_MTokenList = mempty, + nextTokenPos_Inh_MTokenList = LineColPos 0 0 0 + } + +lintWarnings :: LintSettings -> [MToken] -> [String -> LintMessage] +lintWarnings conf p = warnings_Syn_MTokenList (wrap_MTokenList (sem_MTokenList p) (inh_MTokenList conf)) + +-- Necessary because the parser walks over tabs as though they are 8 spaces. +fixedLexPositions :: [MToken] -> [MToken] +fixedLexPositions p = copy_Syn_MTokenList (wrap_MTokenList (sem_MTokenList p) (inh_MTokenList defaultLintSettings)) +{-# LINE 152 "src/GLuaFixer/AG/LexLint.hs" #-} +-- MToken ------------------------------------------------------ +-- cata +sem_MToken :: MToken -> + T_MToken +sem_MToken (MToken _mpos _mtok) = + (sem_MToken_MToken _mpos (sem_Token _mtok)) +-- semantic domain +type T_MToken = SyntaxUsed -> + LintSettings -> + SyntaxUsed -> + SyntaxUsed -> + SyntaxUsed -> + SyntaxUsed -> + LineColPos -> + SyntaxUsed -> + SyntaxUsed -> + SyntaxUsed -> + ( SyntaxUsed,MToken,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,LineColPos,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage])) +data Inh_MToken = Inh_MToken {andSyntax_Inh_MToken :: SyntaxUsed,config_Inh_MToken :: LintSettings,indentation_Inh_MToken :: SyntaxUsed,lineCommentSyntax_Inh_MToken :: SyntaxUsed,multilineCommentSyntax_Inh_MToken :: SyntaxUsed,neqSyntax_Inh_MToken :: SyntaxUsed,nextTokenPos_Inh_MToken :: LineColPos,notSyntax_Inh_MToken :: SyntaxUsed,orSyntax_Inh_MToken :: SyntaxUsed,strSyntax_Inh_MToken :: SyntaxUsed} +data Syn_MToken = Syn_MToken {andSyntax_Syn_MToken :: SyntaxUsed,copy_Syn_MToken :: MToken,indentation_Syn_MToken :: SyntaxUsed,lineCommentSyntax_Syn_MToken :: SyntaxUsed,multilineCommentSyntax_Syn_MToken :: SyntaxUsed,neqSyntax_Syn_MToken :: SyntaxUsed,nextTokenPos_Syn_MToken :: LineColPos,notSyntax_Syn_MToken :: SyntaxUsed,orSyntax_Syn_MToken :: SyntaxUsed,strSyntax_Syn_MToken :: SyntaxUsed,warnings_Syn_MToken :: ([FilePath -> LintMessage])} +wrap_MToken :: T_MToken -> + Inh_MToken -> + Syn_MToken +wrap_MToken sem (Inh_MToken _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) = + (let ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax + in (Syn_MToken _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings)) +sem_MToken_MToken :: Region -> + T_Token -> + T_MToken +sem_MToken_MToken mpos_ mtok_ = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInextTokenPos + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInextTokenPos + {-# LINE 195 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _mtokOnextTokenPos -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 200 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _mtokOandSyntax -> + (case (mtok_ _mtokOnextTokenPos) of + { ( _mtokInextTokenPos,mtok_1) -> + (case (({-# LINE 156 "src/GLuaFixer/AG/LexLint.ag" #-} + Region _lhsInextTokenPos _mtokInextTokenPos + {-# LINE 207 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _mpos -> + (case (({-# LINE 157 "src/GLuaFixer/AG/LexLint.ag" #-} + _mpos + {-# LINE 212 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _mtokOmpos -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 217 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _mtokOstrSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 222 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _mtokOorSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 227 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _mtokOnotSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 232 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _mtokOneqSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 237 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _mtokOmultilineCommentSyntax -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 242 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _mtokOlineCommentSyntax -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 247 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _mtokOindentation -> + (case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIconfig + {-# LINE 252 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _mtokOconfig -> + (case (mtok_1 _mtokOandSyntax _mtokOconfig _mtokOindentation _mtokOlineCommentSyntax _mtokOmpos _mtokOmultilineCommentSyntax _mtokOneqSyntax _mtokOnotSyntax _mtokOorSyntax _mtokOstrSyntax) of + { ( _mtokIandSyntax,_mtokIcopy,_mtokIindentation,_mtokIlineCommentSyntax,_mtokImultilineCommentSyntax,_mtokIneqSyntax,_mtokInotSyntax,_mtokIorSyntax,_mtokIstrSyntax,_mtokIwarnings) -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _mtokIandSyntax + {-# LINE 259 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 160 "src/GLuaFixer/AG/LexLint.ag" #-} + MToken (const _mpos mpos_) _mtokIcopy + {-# LINE 264 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 269 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _mtokIindentation + {-# LINE 274 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _mtokIlineCommentSyntax + {-# LINE 279 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _mtokImultilineCommentSyntax + {-# LINE 284 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _mtokIneqSyntax + {-# LINE 289 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} + _mtokInextTokenPos + {-# LINE 294 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _mtokInotSyntax + {-# LINE 299 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _mtokIorSyntax + {-# LINE 304 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _mtokIstrSyntax + {-# LINE 309 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + _mtokIwarnings + {-# LINE 314 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) +-- MTokenList -------------------------------------------------- +-- cata +sem_MTokenList :: MTokenList -> + T_MTokenList +sem_MTokenList list = + (Prelude.foldr sem_MTokenList_Cons sem_MTokenList_Nil (Prelude.map sem_MToken list)) +-- semantic domain +type T_MTokenList = SyntaxUsed -> + LintSettings -> + SyntaxUsed -> + SyntaxUsed -> + SyntaxUsed -> + SyntaxUsed -> + LineColPos -> + SyntaxUsed -> + SyntaxUsed -> + SyntaxUsed -> + ( SyntaxUsed,MTokenList,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,LineColPos,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage])) +data Inh_MTokenList = Inh_MTokenList {andSyntax_Inh_MTokenList :: SyntaxUsed,config_Inh_MTokenList :: LintSettings,indentation_Inh_MTokenList :: SyntaxUsed,lineCommentSyntax_Inh_MTokenList :: SyntaxUsed,multilineCommentSyntax_Inh_MTokenList :: SyntaxUsed,neqSyntax_Inh_MTokenList :: SyntaxUsed,nextTokenPos_Inh_MTokenList :: LineColPos,notSyntax_Inh_MTokenList :: SyntaxUsed,orSyntax_Inh_MTokenList :: SyntaxUsed,strSyntax_Inh_MTokenList :: SyntaxUsed} +data Syn_MTokenList = Syn_MTokenList {andSyntax_Syn_MTokenList :: SyntaxUsed,copy_Syn_MTokenList :: MTokenList,indentation_Syn_MTokenList :: SyntaxUsed,lineCommentSyntax_Syn_MTokenList :: SyntaxUsed,multilineCommentSyntax_Syn_MTokenList :: SyntaxUsed,neqSyntax_Syn_MTokenList :: SyntaxUsed,nextTokenPos_Syn_MTokenList :: LineColPos,notSyntax_Syn_MTokenList :: SyntaxUsed,orSyntax_Syn_MTokenList :: SyntaxUsed,strSyntax_Syn_MTokenList :: SyntaxUsed,warnings_Syn_MTokenList :: ([FilePath -> LintMessage])} +wrap_MTokenList :: T_MTokenList -> + Inh_MTokenList -> + Syn_MTokenList +wrap_MTokenList sem (Inh_MTokenList _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) = + (let ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax + in (Syn_MTokenList _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings)) +sem_MTokenList_Cons :: T_MToken -> + T_MTokenList -> + T_MTokenList +sem_MTokenList_Cons hd_ tl_ = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInextTokenPos + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInextTokenPos + {-# LINE 360 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _hdOnextTokenPos -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 365 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _hdOstrSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 370 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _hdOorSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 375 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _hdOnotSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 380 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _hdOneqSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 385 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _hdOmultilineCommentSyntax -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 390 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _hdOlineCommentSyntax -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 395 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _hdOindentation -> + (case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIconfig + {-# LINE 400 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _hdOconfig -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 405 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _hdOandSyntax -> + (case (hd_ _hdOandSyntax _hdOconfig _hdOindentation _hdOlineCommentSyntax _hdOmultilineCommentSyntax _hdOneqSyntax _hdOnextTokenPos _hdOnotSyntax _hdOorSyntax _hdOstrSyntax) of + { ( _hdIandSyntax,_hdIcopy,_hdIindentation,_hdIlineCommentSyntax,_hdImultilineCommentSyntax,_hdIneqSyntax,_hdInextTokenPos,_hdInotSyntax,_hdIorSyntax,_hdIstrSyntax,_hdIwarnings) -> + (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} + _hdInextTokenPos + {-# LINE 412 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _tlOnextTokenPos -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _hdIandSyntax + {-# LINE 417 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _tlOandSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _hdIstrSyntax + {-# LINE 422 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _tlOstrSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _hdIorSyntax + {-# LINE 427 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _tlOorSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _hdInotSyntax + {-# LINE 432 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _tlOnotSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _hdIneqSyntax + {-# LINE 437 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _tlOneqSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _hdImultilineCommentSyntax + {-# LINE 442 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _tlOmultilineCommentSyntax -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _hdIlineCommentSyntax + {-# LINE 447 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _tlOlineCommentSyntax -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _hdIindentation + {-# LINE 452 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _tlOindentation -> + (case (({-# LINE 128 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIconfig + {-# LINE 457 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _tlOconfig -> + (case (tl_ _tlOandSyntax _tlOconfig _tlOindentation _tlOlineCommentSyntax _tlOmultilineCommentSyntax _tlOneqSyntax _tlOnextTokenPos _tlOnotSyntax _tlOorSyntax _tlOstrSyntax) of + { ( _tlIandSyntax,_tlIcopy,_tlIindentation,_tlIlineCommentSyntax,_tlImultilineCommentSyntax,_tlIneqSyntax,_tlInextTokenPos,_tlInotSyntax,_tlIorSyntax,_tlIstrSyntax,_tlIwarnings) -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _tlIandSyntax + {-# LINE 464 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 469 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 474 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _tlIindentation + {-# LINE 479 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _tlIlineCommentSyntax + {-# LINE 484 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _tlImultilineCommentSyntax + {-# LINE 489 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _tlIneqSyntax + {-# LINE 494 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} + _tlInextTokenPos + {-# LINE 499 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _tlInotSyntax + {-# LINE 504 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _tlIorSyntax + {-# LINE 509 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _tlIstrSyntax + {-# LINE 514 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + _hdIwarnings ++ _tlIwarnings + {-# LINE 519 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) +sem_MTokenList_Nil :: T_MTokenList +sem_MTokenList_Nil = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInextTokenPos + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 537 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 542 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 547 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 552 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 557 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 562 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 567 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInextTokenPos + {-# LINE 572 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 577 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 582 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 587 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 592 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnextTokenPos,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) })) +-- Token ------------------------------------------------------- +-- cata +sem_Token :: Token -> + T_Token +sem_Token (Whitespace _space) = + (sem_Token_Whitespace _space) +sem_Token (DashComment _comment) = + (sem_Token_DashComment _comment) +sem_Token (DashBlockComment _depth _comment) = + (sem_Token_DashBlockComment _depth _comment) +sem_Token (SlashComment _comment) = + (sem_Token_SlashComment _comment) +sem_Token (SlashBlockComment _comment) = + (sem_Token_SlashBlockComment _comment) +sem_Token (Semicolon) = + (sem_Token_Semicolon) +sem_Token (TNumber _num) = + (sem_Token_TNumber _num) +sem_Token (DQString _str) = + (sem_Token_DQString _str) +sem_Token (SQString _str) = + (sem_Token_SQString _str) +sem_Token (MLString _str) = + (sem_Token_MLString _str) +sem_Token (TTrue) = + (sem_Token_TTrue) +sem_Token (TFalse) = + (sem_Token_TFalse) +sem_Token (Nil) = + (sem_Token_Nil) +sem_Token (VarArg) = + (sem_Token_VarArg) +sem_Token (Plus) = + (sem_Token_Plus) +sem_Token (Minus) = + (sem_Token_Minus) +sem_Token (Multiply) = + (sem_Token_Multiply) +sem_Token (Divide) = + (sem_Token_Divide) +sem_Token (Modulus) = + (sem_Token_Modulus) +sem_Token (Power) = + (sem_Token_Power) +sem_Token (TEq) = + (sem_Token_TEq) +sem_Token (TNEq) = + (sem_Token_TNEq) +sem_Token (TCNEq) = + (sem_Token_TCNEq) +sem_Token (TLEQ) = + (sem_Token_TLEQ) +sem_Token (TGEQ) = + (sem_Token_TGEQ) +sem_Token (TLT) = + (sem_Token_TLT) +sem_Token (TGT) = + (sem_Token_TGT) +sem_Token (Equals) = + (sem_Token_Equals) +sem_Token (Concatenate) = + (sem_Token_Concatenate) +sem_Token (Colon) = + (sem_Token_Colon) +sem_Token (Dot) = + (sem_Token_Dot) +sem_Token (Comma) = + (sem_Token_Comma) +sem_Token (Hash) = + (sem_Token_Hash) +sem_Token (Not) = + (sem_Token_Not) +sem_Token (CNot) = + (sem_Token_CNot) +sem_Token (And) = + (sem_Token_And) +sem_Token (CAnd) = + (sem_Token_CAnd) +sem_Token (Or) = + (sem_Token_Or) +sem_Token (COr) = + (sem_Token_COr) +sem_Token (Function) = + (sem_Token_Function) +sem_Token (Local) = + (sem_Token_Local) +sem_Token (If) = + (sem_Token_If) +sem_Token (Then) = + (sem_Token_Then) +sem_Token (Elseif) = + (sem_Token_Elseif) +sem_Token (Else) = + (sem_Token_Else) +sem_Token (For) = + (sem_Token_For) +sem_Token (In) = + (sem_Token_In) +sem_Token (Do) = + (sem_Token_Do) +sem_Token (While) = + (sem_Token_While) +sem_Token (Until) = + (sem_Token_Until) +sem_Token (Repeat) = + (sem_Token_Repeat) +sem_Token (Continue) = + (sem_Token_Continue) +sem_Token (Break) = + (sem_Token_Break) +sem_Token (Return) = + (sem_Token_Return) +sem_Token (End) = + (sem_Token_End) +sem_Token (LRound) = + (sem_Token_LRound) +sem_Token (RRound) = + (sem_Token_RRound) +sem_Token (LCurly) = + (sem_Token_LCurly) +sem_Token (RCurly) = + (sem_Token_RCurly) +sem_Token (LSquare) = + (sem_Token_LSquare) +sem_Token (RSquare) = + (sem_Token_RSquare) +sem_Token (Label _whitespaceBefore _lbl _whitespaceAfter) = + (sem_Token_Label _whitespaceBefore _lbl _whitespaceAfter) +sem_Token (Identifier _ident) = + (sem_Token_Identifier _ident) +-- semantic domain +type T_Token = LineColPos -> + ( LineColPos,T_Token_1) +type T_Token_1 = SyntaxUsed -> + LintSettings -> + SyntaxUsed -> + SyntaxUsed -> + Region -> + SyntaxUsed -> + SyntaxUsed -> + SyntaxUsed -> + SyntaxUsed -> + SyntaxUsed -> + ( SyntaxUsed,Token,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,SyntaxUsed,([FilePath -> LintMessage])) +data Inh_Token = Inh_Token {andSyntax_Inh_Token :: SyntaxUsed,config_Inh_Token :: LintSettings,indentation_Inh_Token :: SyntaxUsed,lineCommentSyntax_Inh_Token :: SyntaxUsed,mpos_Inh_Token :: Region,multilineCommentSyntax_Inh_Token :: SyntaxUsed,neqSyntax_Inh_Token :: SyntaxUsed,nextTokenPos_Inh_Token :: LineColPos,notSyntax_Inh_Token :: SyntaxUsed,orSyntax_Inh_Token :: SyntaxUsed,strSyntax_Inh_Token :: SyntaxUsed} +data Syn_Token = Syn_Token {andSyntax_Syn_Token :: SyntaxUsed,copy_Syn_Token :: Token,indentation_Syn_Token :: SyntaxUsed,lineCommentSyntax_Syn_Token :: SyntaxUsed,multilineCommentSyntax_Syn_Token :: SyntaxUsed,neqSyntax_Syn_Token :: SyntaxUsed,nextTokenPos_Syn_Token :: LineColPos,notSyntax_Syn_Token :: SyntaxUsed,orSyntax_Syn_Token :: SyntaxUsed,strSyntax_Syn_Token :: SyntaxUsed,warnings_Syn_Token :: ([FilePath -> LintMessage])} +wrap_Token :: T_Token -> + Inh_Token -> + Syn_Token +wrap_Token sem (Inh_Token _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImpos _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInextTokenPos _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax) = + (let ( _lhsOnextTokenPos,sem_1) = sem _lhsInextTokenPos + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) = sem_1 _lhsIandSyntax _lhsIconfig _lhsIindentation _lhsIlineCommentSyntax _lhsImpos _lhsImultilineCommentSyntax _lhsIneqSyntax _lhsInotSyntax _lhsIorSyntax _lhsIstrSyntax + in (Syn_Token _lhsOandSyntax _lhsOcopy _lhsOindentation _lhsOlineCommentSyntax _lhsOmultilineCommentSyntax _lhsOneqSyntax _lhsOnextTokenPos _lhsOnotSyntax _lhsOorSyntax _lhsOstrSyntax _lhsOwarnings)) +sem_Token_Whitespace :: String -> + T_Token +sem_Token_Whitespace space_ = + (\ _lhsInextTokenPos -> + (case (({-# LINE 164 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInextTokenPos + {-# LINE 755 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _curTokenPos -> + (case (({-# LINE 165 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceStr _curTokenPos space_ + {-# LINE 760 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _nextTokenPos -> + (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} + _nextTokenPos + {-# LINE 765 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Whitespace_1 :: T_Token_1 + sem_Token_Whitespace_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 782 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Whitespace space_ + {-# LINE 787 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 792 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 177 "src/GLuaFixer/AG/LexLint.ag" #-} + Region (indentationStart _curTokenPos space_) _nextTokenPos + {-# LINE 797 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _indentationRg -> + (case (({-# LINE 168 "src/GLuaFixer/AG/LexLint.ag" #-} + mkSyntax (isInfixOf "\n\t" space_) _indentationRg + {-# LINE 802 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _usesTabs -> + (case (({-# LINE 167 "src/GLuaFixer/AG/LexLint.ag" #-} + mkSyntax (isInfixOf "\n " space_) _indentationRg + {-# LINE 807 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _usesSpaces -> + (case (({-# LINE 169 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation <> SyntaxUsed _usesSpaces _usesTabs + {-# LINE 812 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 170 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 817 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _indentation -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _indentation + {-# LINE 822 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 827 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 832 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 837 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 842 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 847 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 852 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 857 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 173 "src/GLuaFixer/AG/LexLint.ag" #-} + locateTrailingWhitespace _curTokenPos space_ + {-# LINE 862 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _whitespaceStart -> + (case (({-# LINE 174 "src/GLuaFixer/AG/LexLint.ag" #-} + endOfTrailingWhitespace _whitespaceStart + {-# LINE 867 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _whitespaceEnd -> + (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_trailingWhitespace _lhsIconfig) || (not (isInfixOf " \n" space_) && not (isInfixOf "\t\n" space_)) then id else (:) $ mTokenWarning (Region (fst _whitespaceStart ) _whitespaceEnd ) TrailingWhitespace + {-# LINE 872 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f2 -> + (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_whitespaceStyle _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed InconsistentTabsSpaces + {-# LINE 878 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 181 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1, _warnings_augmented_f2] + {-# LINE 883 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Whitespace_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) }) })) +sem_Token_DashComment :: String -> + T_Token +sem_Token_DashComment comment_ = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + DashComment comment_ + {-# LINE 896 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 185 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 901 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _nextTokenPos -> + (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} + _nextTokenPos + {-# LINE 906 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_DashComment_1 :: T_Token_1 + sem_Token_DashComment_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 923 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 928 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 933 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 187 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax <> SyntaxUsed (Just _lhsImpos) Nothing + {-# LINE 938 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 188 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 943 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lineCommentSyntax -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lineCommentSyntax + {-# LINE 948 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 953 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 958 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 963 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 968 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 973 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 978 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_syntaxInconsistencies _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "--" "//" + {-# LINE 984 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 189 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 989 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_DashComment_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) }) })) +sem_Token_DashBlockComment :: Int -> + String -> + T_Token +sem_Token_DashBlockComment depth_ comment_ = + (\ _lhsInextTokenPos -> + (case (({-# LINE 202 "src/GLuaFixer/AG/LexLint.ag" #-} + showString "--[" . showString (replicate depth_ '-') . showChar '[' . showString comment_ . showChar ']' . showString (replicate depth_ '-') . showChar ']' $ "" + {-# LINE 1003 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _str -> + (case (({-# LINE 203 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceStr _lhsInextTokenPos _str + {-# LINE 1008 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_DashBlockComment_1 :: T_Token_1 + sem_Token_DashBlockComment_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 1025 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + DashBlockComment depth_ comment_ + {-# LINE 1030 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 1035 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 1040 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 1045 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 205 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax <> SyntaxUsed (Just _lhsImpos) Nothing + {-# LINE 1050 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 206 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 1055 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _multilineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _multilineCommentSyntax + {-# LINE 1060 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 1065 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 1070 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 1075 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 1080 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 1085 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_syntaxInconsistencies _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "--[[ ]]" "/* */" + {-# LINE 1091 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 207 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 1096 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_DashBlockComment_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_SlashComment :: String -> + T_Token +sem_Token_SlashComment comment_ = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + SlashComment comment_ + {-# LINE 1109 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 193 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 1114 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _nextTokenPos -> + (case (({-# LINE 141 "src/GLuaFixer/AG/LexLint.ag" #-} + _nextTokenPos + {-# LINE 1119 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_SlashComment_1 :: T_Token_1 + sem_Token_SlashComment_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 1136 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 1141 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 1146 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 195 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax <> SyntaxUsed Nothing (Just _lhsImpos) + {-# LINE 1151 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 196 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 1156 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lineCommentSyntax -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lineCommentSyntax + {-# LINE 1161 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 1166 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 1171 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 1176 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 1181 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 1186 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 1191 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_syntaxInconsistencies _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "//" "--" + {-# LINE 1197 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 197 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 1202 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_SlashComment_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) }) })) +sem_Token_SlashBlockComment :: String -> + T_Token +sem_Token_SlashBlockComment comment_ = + (\ _lhsInextTokenPos -> + (case (({-# LINE 211 "src/GLuaFixer/AG/LexLint.ag" #-} + showString "/*" . showString comment_ . showString "*/" $ "" + {-# LINE 1215 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _str -> + (case (({-# LINE 212 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceStr _lhsInextTokenPos _str + {-# LINE 1220 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_SlashBlockComment_1 :: T_Token_1 + sem_Token_SlashBlockComment_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 1237 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + SlashBlockComment comment_ + {-# LINE 1242 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 1247 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 1252 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 1257 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 214 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax <> SyntaxUsed Nothing (Just _lhsImpos) + {-# LINE 1262 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 215 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 1267 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _multilineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _multilineCommentSyntax + {-# LINE 1272 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 1277 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 1282 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 1287 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 1292 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 1297 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_syntaxInconsistencies _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "/* */" "--[[ ]]" + {-# LINE 1303 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 216 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 1308 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_SlashBlockComment_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Semicolon :: T_Token +sem_Token_Semicolon = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Semicolon + {-# LINE 1320 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 1325 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Semicolon_1 :: T_Token_1 + sem_Token_Semicolon_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 1342 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 1347 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 1352 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 1357 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 1362 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 1367 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 1372 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 1377 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 1382 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 1387 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Semicolon_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_TNumber :: String -> + T_Token +sem_Token_TNumber num_ = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + TNumber num_ + {-# LINE 1400 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 1405 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_TNumber_1 :: T_Token_1 + sem_Token_TNumber_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 1422 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 1427 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 1432 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 1437 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 1442 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 1447 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 1452 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 1457 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 1462 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 1467 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_TNumber_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_DQString :: String -> + T_Token +sem_Token_DQString str_ = + (\ _lhsInextTokenPos -> + (case (({-# LINE 224 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceStr _lhsInextTokenPos $ "\"" <> str_ <> "\"" + {-# LINE 1480 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_DQString_1 :: T_Token_1 + sem_Token_DQString_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 1497 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + DQString str_ + {-# LINE 1502 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 1507 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 1512 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 1517 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 1522 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 1527 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 1532 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 1537 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 226 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax <> SyntaxUsed (Just _lhsImpos) Nothing + {-# LINE 1542 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 227 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 1547 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _strSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _strSyntax + {-# LINE 1552 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 1557 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_syntaxInconsistencies _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "double quoted strings" "single quoted strings" + {-# LINE 1563 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 228 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 1568 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_DQString_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) })) +sem_Token_SQString :: String -> + T_Token +sem_Token_SQString str_ = + (\ _lhsInextTokenPos -> + (case (({-# LINE 233 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceStr _lhsInextTokenPos $ "'" <> str_ <> "'" + {-# LINE 1581 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_SQString_1 :: T_Token_1 + sem_Token_SQString_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 1598 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + SQString str_ + {-# LINE 1603 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 1608 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 1613 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 1618 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 1623 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 1628 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 1633 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 1638 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 236 "src/GLuaFixer/AG/LexLint.ag" #-} + if isSingleChar str_ then Nothing else Just _lhsImpos + {-# LINE 1643 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _usesSingleQuotedSyntax -> + (case (({-# LINE 237 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax <> SyntaxUsed Nothing _usesSingleQuotedSyntax + {-# LINE 1648 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 238 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 1653 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _strSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _strSyntax + {-# LINE 1658 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 1663 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_syntaxInconsistencies _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "single quoted strings" "double quoted strings" + {-# LINE 1669 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 239 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 1674 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_SQString_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) })) +sem_Token_MLString :: String -> + T_Token +sem_Token_MLString str_ = + (\ _lhsInextTokenPos -> + (case (({-# LINE 243 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceStr _lhsInextTokenPos str_ + {-# LINE 1687 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_MLString_1 :: T_Token_1 + sem_Token_MLString_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 1704 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + MLString str_ + {-# LINE 1709 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 1714 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 1719 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 1724 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 1729 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 1734 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 1739 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 1744 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 1749 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 1754 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_MLString_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) })) +sem_Token_TTrue :: T_Token +sem_Token_TTrue = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + TTrue + {-# LINE 1766 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 1771 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_TTrue_1 :: T_Token_1 + sem_Token_TTrue_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 1788 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 1793 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 1798 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 1803 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 1808 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 1813 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 1818 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 1823 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 1828 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 1833 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_TTrue_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_TFalse :: T_Token +sem_Token_TFalse = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + TFalse + {-# LINE 1845 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 1850 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_TFalse_1 :: T_Token_1 + sem_Token_TFalse_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 1867 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 1872 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 1877 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 1882 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 1887 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 1892 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 1897 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 1902 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 1907 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 1912 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_TFalse_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Nil :: T_Token +sem_Token_Nil = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Nil + {-# LINE 1924 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 1929 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Nil_1 :: T_Token_1 + sem_Token_Nil_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 1946 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 1951 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 1956 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 1961 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 1966 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 1971 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 1976 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 1981 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 1986 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 1991 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Nil_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_VarArg :: T_Token +sem_Token_VarArg = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + VarArg + {-# LINE 2003 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 2008 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_VarArg_1 :: T_Token_1 + sem_Token_VarArg_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 2025 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 2030 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 2035 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 2040 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 2045 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 2050 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 2055 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 2060 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 2065 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 2070 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_VarArg_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Plus :: T_Token +sem_Token_Plus = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Plus + {-# LINE 2082 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 2087 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Plus_1 :: T_Token_1 + sem_Token_Plus_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 2104 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 2109 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 2114 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 2119 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 2124 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 2129 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 2134 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 2139 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 2144 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 2149 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Plus_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Minus :: T_Token +sem_Token_Minus = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Minus + {-# LINE 2161 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 2166 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Minus_1 :: T_Token_1 + sem_Token_Minus_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 2183 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 2188 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 2193 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 2198 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 2203 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 2208 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 2213 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 2218 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 2223 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 2228 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Minus_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Multiply :: T_Token +sem_Token_Multiply = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Multiply + {-# LINE 2240 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 2245 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Multiply_1 :: T_Token_1 + sem_Token_Multiply_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 2262 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 2267 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 2272 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 2277 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 2282 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 2287 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 2292 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 2297 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 2302 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 2307 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Multiply_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Divide :: T_Token +sem_Token_Divide = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Divide + {-# LINE 2319 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 2324 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Divide_1 :: T_Token_1 + sem_Token_Divide_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 2341 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 2346 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 2351 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 2356 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 2361 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 2366 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 2371 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 2376 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 2381 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 2386 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Divide_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Modulus :: T_Token +sem_Token_Modulus = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Modulus + {-# LINE 2398 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 2403 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Modulus_1 :: T_Token_1 + sem_Token_Modulus_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 2420 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 2425 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 2430 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 2435 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 2440 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 2445 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 2450 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 2455 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 2460 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 2465 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Modulus_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Power :: T_Token +sem_Token_Power = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Power + {-# LINE 2477 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 2482 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Power_1 :: T_Token_1 + sem_Token_Power_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 2499 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 2504 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 2509 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 2514 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 2519 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 2524 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 2529 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 2534 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 2539 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 2544 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Power_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_TEq :: T_Token +sem_Token_TEq = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + TEq + {-# LINE 2556 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 2561 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_TEq_1 :: T_Token_1 + sem_Token_TEq_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 2578 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 2583 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 2588 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 2593 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 2598 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 2603 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 2608 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 2613 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 2618 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 2623 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_TEq_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_TNEq :: T_Token +sem_Token_TNEq = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + TNEq + {-# LINE 2635 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 2640 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_TNEq_1 :: T_Token_1 + sem_Token_TNEq_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 2657 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 2662 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 2667 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 2672 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 2677 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 282 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax <> SyntaxUsed (Just _lhsImpos) Nothing + {-# LINE 2682 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 283 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 2687 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _neqSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _neqSyntax + {-# LINE 2692 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 2697 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 2702 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 2707 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 2712 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_syntaxInconsistencies _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "~=" "!=" + {-# LINE 2718 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 284 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 2723 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_TNEq_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_TCNEq :: T_Token +sem_Token_TCNEq = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + TCNEq + {-# LINE 2735 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 2740 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_TCNEq_1 :: T_Token_1 + sem_Token_TCNEq_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 2757 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 2762 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 2767 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 2772 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 2777 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 288 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax <> SyntaxUsed Nothing (Just _lhsImpos) + {-# LINE 2782 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 289 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 2787 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _neqSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _neqSyntax + {-# LINE 2792 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 2797 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 2802 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 2807 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 2812 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_syntaxInconsistencies _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "!=" "~=" + {-# LINE 2818 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 290 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 2823 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_TCNEq_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_TLEQ :: T_Token +sem_Token_TLEQ = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + TLEQ + {-# LINE 2835 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 2840 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_TLEQ_1 :: T_Token_1 + sem_Token_TLEQ_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 2857 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 2862 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 2867 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 2872 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 2877 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 2882 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 2887 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 2892 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 2897 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 2902 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_TLEQ_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_TGEQ :: T_Token +sem_Token_TGEQ = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + TGEQ + {-# LINE 2914 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 2919 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_TGEQ_1 :: T_Token_1 + sem_Token_TGEQ_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 2936 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 2941 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 2946 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 2951 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 2956 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 2961 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 2966 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 2971 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 2976 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 2981 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_TGEQ_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_TLT :: T_Token +sem_Token_TLT = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + TLT + {-# LINE 2993 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 2998 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_TLT_1 :: T_Token_1 + sem_Token_TLT_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 3015 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 3020 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 3025 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 3030 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 3035 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 3040 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 3045 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 3050 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 3055 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 3060 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_TLT_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_TGT :: T_Token +sem_Token_TGT = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + TGT + {-# LINE 3072 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 3077 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_TGT_1 :: T_Token_1 + sem_Token_TGT_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 3094 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 3099 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 3104 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 3109 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 3114 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 3119 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 3124 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 3129 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 3134 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 3139 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_TGT_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Equals :: T_Token +sem_Token_Equals = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Equals + {-# LINE 3151 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 3156 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Equals_1 :: T_Token_1 + sem_Token_Equals_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 3173 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 3178 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 3183 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 3188 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 3193 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 3198 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 3203 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 3208 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 3213 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 3218 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Equals_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Concatenate :: T_Token +sem_Token_Concatenate = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Concatenate + {-# LINE 3230 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 3235 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Concatenate_1 :: T_Token_1 + sem_Token_Concatenate_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 3252 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 3257 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 3262 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 3267 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 3272 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 3277 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 3282 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 3287 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 3292 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 3297 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Concatenate_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Colon :: T_Token +sem_Token_Colon = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Colon + {-# LINE 3309 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 3314 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Colon_1 :: T_Token_1 + sem_Token_Colon_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 3331 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 3336 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 3341 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 3346 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 3351 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 3356 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 3361 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 3366 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 3371 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 3376 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Colon_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Dot :: T_Token +sem_Token_Dot = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Dot + {-# LINE 3388 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 3393 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Dot_1 :: T_Token_1 + sem_Token_Dot_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 3410 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 3415 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 3420 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 3425 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 3430 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 3435 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 3440 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 3445 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 3450 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 3455 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Dot_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Comma :: T_Token +sem_Token_Comma = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Comma + {-# LINE 3467 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 3472 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Comma_1 :: T_Token_1 + sem_Token_Comma_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 3489 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 3494 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 3499 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 3504 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 3509 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 3514 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 3519 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 3524 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 3529 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 3534 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Comma_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Hash :: T_Token +sem_Token_Hash = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Hash + {-# LINE 3546 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 3551 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Hash_1 :: T_Token_1 + sem_Token_Hash_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 3568 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 3573 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 3578 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 3583 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 3588 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 3593 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 3598 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 3603 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 3608 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 3613 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Hash_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Not :: T_Token +sem_Token_Not = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Not + {-# LINE 3625 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 3630 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Not_1 :: T_Token_1 + sem_Token_Not_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 3647 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 3652 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 3657 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 3662 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 3667 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 3672 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 246 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax <> SyntaxUsed (Just _lhsImpos) Nothing + {-# LINE 3677 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 247 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 3682 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _notSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _notSyntax + {-# LINE 3687 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 3692 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 3697 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 3702 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_syntaxInconsistencies _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "not" "!" + {-# LINE 3708 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 248 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 3713 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Not_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_CNot :: T_Token +sem_Token_CNot = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + CNot + {-# LINE 3725 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 3730 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_CNot_1 :: T_Token_1 + sem_Token_CNot_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 3747 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 3752 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 3757 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 3762 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 3767 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 3772 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 252 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax <> SyntaxUsed Nothing (Just _lhsImpos) + {-# LINE 3777 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 253 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 3782 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _notSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _notSyntax + {-# LINE 3787 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 3792 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 3797 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 3802 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_syntaxInconsistencies _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "!" "not" + {-# LINE 3808 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 254 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 3813 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_CNot_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_And :: T_Token +sem_Token_And = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + And + {-# LINE 3825 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 3830 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_And_1 :: T_Token_1 + sem_Token_And_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 258 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax <> SyntaxUsed (Just _lhsImpos) Nothing + {-# LINE 3847 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 259 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 3852 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _andSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _andSyntax + {-# LINE 3857 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 3862 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 3867 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 3872 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 3877 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 3882 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 3887 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 3892 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 3897 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 3902 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_syntaxInconsistencies _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "and" "&&" + {-# LINE 3908 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 260 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 3913 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_And_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_CAnd :: T_Token +sem_Token_CAnd = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + CAnd + {-# LINE 3925 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 3930 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_CAnd_1 :: T_Token_1 + sem_Token_CAnd_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 264 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax <> SyntaxUsed Nothing (Just _lhsImpos) + {-# LINE 3947 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 265 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 3952 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _andSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _andSyntax + {-# LINE 3957 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 3962 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 3967 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 3972 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 3977 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 3982 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 3987 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 3992 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 3997 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 4002 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_syntaxInconsistencies _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "&&" "and" + {-# LINE 4008 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 266 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 4013 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_CAnd_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Or :: T_Token +sem_Token_Or = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Or + {-# LINE 4025 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 4030 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Or_1 :: T_Token_1 + sem_Token_Or_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 4047 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 4052 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 4057 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 4062 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 4067 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 4072 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 4077 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 270 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax <> SyntaxUsed (Just _lhsImpos) Nothing + {-# LINE 4082 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 271 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 4087 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _orSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _orSyntax + {-# LINE 4092 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 4097 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 4102 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_syntaxInconsistencies _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "or" "||" + {-# LINE 4108 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 272 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 4113 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Or_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_COr :: T_Token +sem_Token_COr = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + COr + {-# LINE 4125 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 4130 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_COr_1 :: T_Token_1 + sem_Token_COr_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 4147 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 4152 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 4157 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 4162 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 4167 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 4172 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 4177 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 276 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax <> SyntaxUsed Nothing (Just _lhsImpos) + {-# LINE 4182 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _combinedSyntaxUsed -> + (case (({-# LINE 277 "src/GLuaFixer/AG/LexLint.ag" #-} + resetIfInconsistent _combinedSyntaxUsed + {-# LINE 4187 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _orSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _orSyntax + {-# LINE 4192 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 4197 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 4202 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_syn -> + (case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-} + if not (lint_syntaxInconsistencies _lhsIconfig) then id else + warnInconsistency _combinedSyntaxUsed $ SyntaxInconsistency "||" "or" + {-# LINE 4208 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _warnings_augmented_f1 -> + (case (({-# LINE 278 "src/GLuaFixer/AG/LexLint.ag" #-} + foldr ($) _warnings_augmented_syn [_warnings_augmented_f1] + {-# LINE 4213 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) }) }) }) }) })) + in sem_Token_COr_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Function :: T_Token +sem_Token_Function = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Function + {-# LINE 4225 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 4230 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Function_1 :: T_Token_1 + sem_Token_Function_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 4247 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 4252 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 4257 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 4262 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 4267 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 4272 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 4277 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 4282 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 4287 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 4292 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Function_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Local :: T_Token +sem_Token_Local = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Local + {-# LINE 4304 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 4309 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Local_1 :: T_Token_1 + sem_Token_Local_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 4326 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 4331 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 4336 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 4341 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 4346 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 4351 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 4356 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 4361 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 4366 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 4371 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Local_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_If :: T_Token +sem_Token_If = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + If + {-# LINE 4383 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 4388 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_If_1 :: T_Token_1 + sem_Token_If_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 4405 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 4410 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 4415 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 4420 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 4425 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 4430 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 4435 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 4440 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 4445 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 4450 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_If_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Then :: T_Token +sem_Token_Then = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Then + {-# LINE 4462 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 4467 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Then_1 :: T_Token_1 + sem_Token_Then_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 4484 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 4489 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 4494 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 4499 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 4504 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 4509 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 4514 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 4519 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 4524 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 4529 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Then_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Elseif :: T_Token +sem_Token_Elseif = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Elseif + {-# LINE 4541 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 4546 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Elseif_1 :: T_Token_1 + sem_Token_Elseif_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 4563 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 4568 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 4573 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 4578 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 4583 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 4588 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 4593 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 4598 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 4603 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 4608 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Elseif_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Else :: T_Token +sem_Token_Else = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Else + {-# LINE 4620 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 4625 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Else_1 :: T_Token_1 + sem_Token_Else_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 4642 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 4647 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 4652 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 4657 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 4662 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 4667 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 4672 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 4677 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 4682 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 4687 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Else_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_For :: T_Token +sem_Token_For = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + For + {-# LINE 4699 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 4704 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_For_1 :: T_Token_1 + sem_Token_For_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 4721 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 4726 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 4731 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 4736 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 4741 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 4746 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 4751 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 4756 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 4761 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 4766 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_For_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_In :: T_Token +sem_Token_In = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + In + {-# LINE 4778 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 4783 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_In_1 :: T_Token_1 + sem_Token_In_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 4800 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 4805 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 4810 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 4815 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 4820 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 4825 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 4830 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 4835 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 4840 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 4845 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_In_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Do :: T_Token +sem_Token_Do = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Do + {-# LINE 4857 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 4862 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Do_1 :: T_Token_1 + sem_Token_Do_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 4879 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 4884 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 4889 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 4894 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 4899 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 4904 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 4909 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 4914 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 4919 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 4924 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Do_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_While :: T_Token +sem_Token_While = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + While + {-# LINE 4936 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 4941 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_While_1 :: T_Token_1 + sem_Token_While_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 4958 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 4963 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 4968 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 4973 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 4978 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 4983 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 4988 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 4993 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 4998 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 5003 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_While_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Until :: T_Token +sem_Token_Until = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Until + {-# LINE 5015 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 5020 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Until_1 :: T_Token_1 + sem_Token_Until_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 5037 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 5042 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 5047 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 5052 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 5057 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 5062 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 5067 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 5072 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 5077 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 5082 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Until_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Repeat :: T_Token +sem_Token_Repeat = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Repeat + {-# LINE 5094 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 5099 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Repeat_1 :: T_Token_1 + sem_Token_Repeat_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 5116 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 5121 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 5126 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 5131 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 5136 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 5141 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 5146 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 5151 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 5156 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 5161 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Repeat_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Continue :: T_Token +sem_Token_Continue = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Continue + {-# LINE 5173 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 5178 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Continue_1 :: T_Token_1 + sem_Token_Continue_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 5195 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 5200 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 5205 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 5210 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 5215 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 5220 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 5225 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 5230 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 5235 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 5240 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Continue_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Break :: T_Token +sem_Token_Break = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Break + {-# LINE 5252 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 5257 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Break_1 :: T_Token_1 + sem_Token_Break_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 5274 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 5279 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 5284 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 5289 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 5294 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 5299 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 5304 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 5309 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 5314 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 5319 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Break_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Return :: T_Token +sem_Token_Return = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Return + {-# LINE 5331 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 5336 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Return_1 :: T_Token_1 + sem_Token_Return_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 5353 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 5358 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 5363 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 5368 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 5373 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 5378 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 5383 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 5388 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 5393 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 5398 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Return_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_End :: T_Token +sem_Token_End = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + End + {-# LINE 5410 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 5415 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_End_1 :: T_Token_1 + sem_Token_End_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 5432 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 5437 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 5442 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 5447 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 5452 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 5457 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 5462 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 5467 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 5472 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 5477 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_End_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_LRound :: T_Token +sem_Token_LRound = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + LRound + {-# LINE 5489 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 5494 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_LRound_1 :: T_Token_1 + sem_Token_LRound_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 5511 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 5516 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 5521 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 5526 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 5531 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 5536 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 5541 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 5546 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 5551 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 5556 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_LRound_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_RRound :: T_Token +sem_Token_RRound = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + RRound + {-# LINE 5568 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 5573 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_RRound_1 :: T_Token_1 + sem_Token_RRound_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 5590 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 5595 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 5600 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 5605 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 5610 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 5615 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 5620 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 5625 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 5630 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 5635 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_RRound_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_LCurly :: T_Token +sem_Token_LCurly = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + LCurly + {-# LINE 5647 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 5652 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_LCurly_1 :: T_Token_1 + sem_Token_LCurly_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 5669 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 5674 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 5679 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 5684 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 5689 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 5694 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 5699 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 5704 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 5709 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 5714 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_LCurly_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_RCurly :: T_Token +sem_Token_RCurly = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + RCurly + {-# LINE 5726 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 5731 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_RCurly_1 :: T_Token_1 + sem_Token_RCurly_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 5748 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 5753 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 5758 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 5763 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 5768 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 5773 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 5778 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 5783 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 5788 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 5793 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_RCurly_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_LSquare :: T_Token +sem_Token_LSquare = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + LSquare + {-# LINE 5805 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 5810 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_LSquare_1 :: T_Token_1 + sem_Token_LSquare_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 5827 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 5832 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 5837 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 5842 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 5847 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 5852 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 5857 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 5862 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 5867 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 5872 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_LSquare_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_RSquare :: T_Token +sem_Token_RSquare = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + RSquare + {-# LINE 5884 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 5889 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_RSquare_1 :: T_Token_1 + sem_Token_RSquare_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 5906 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 5911 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 5916 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 5921 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 5926 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 5931 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 5936 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 5941 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 5946 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 5951 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_RSquare_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Label :: String -> + String -> + String -> + T_Token +sem_Token_Label whitespaceBefore_ lbl_ whitespaceAfter_ = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Label whitespaceBefore_ lbl_ whitespaceAfter_ + {-# LINE 5966 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 294 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceStr _lhsInextTokenPos (show _copy ) + {-# LINE 5971 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Label_1 :: T_Token_1 + sem_Token_Label_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 5988 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 5993 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 5998 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 6003 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 6008 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 6013 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 6018 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 6023 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 6028 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 6033 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOwarnings -> + ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) + in sem_Token_Label_1)) of + { ( sem_Token_1) -> + ( _lhsOnextTokenPos,sem_Token_1) }) }) })) +sem_Token_Identifier :: String -> + T_Token +sem_Token_Identifier ident_ = + (\ _lhsInextTokenPos -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + Identifier ident_ + {-# LINE 6046 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _copy -> + (case (({-# LINE 220 "src/GLuaFixer/AG/LexLint.ag" #-} + customAdvanceToken _lhsInextTokenPos _copy + {-# LINE 6051 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnextTokenPos -> + (case ((let sem_Token_Identifier_1 :: T_Token_1 + sem_Token_Identifier_1 = + (\ _lhsIandSyntax + _lhsIconfig + _lhsIindentation + _lhsIlineCommentSyntax + _lhsImpos + _lhsImultilineCommentSyntax + _lhsIneqSyntax + _lhsInotSyntax + _lhsIorSyntax + _lhsIstrSyntax -> + (case (({-# LINE 135 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIandSyntax + {-# LINE 6068 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOandSyntax -> + (case (({-# LINE 127 "src/GLuaFixer/AG/LexLint.ag" #-} + _copy + {-# LINE 6073 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOcopy -> + (case (({-# LINE 139 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIindentation + {-# LINE 6078 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOindentation -> + (case (({-# LINE 132 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIlineCommentSyntax + {-# LINE 6083 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOlineCommentSyntax -> + (case (({-# LINE 133 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsImultilineCommentSyntax + {-# LINE 6088 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOmultilineCommentSyntax -> + (case (({-# LINE 137 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIneqSyntax + {-# LINE 6093 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOneqSyntax -> + (case (({-# LINE 134 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsInotSyntax + {-# LINE 6098 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOnotSyntax -> + (case (({-# LINE 136 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIorSyntax + {-# LINE 6103 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOorSyntax -> + (case (({-# LINE 138 "src/GLuaFixer/AG/LexLint.ag" #-} + _lhsIstrSyntax + {-# LINE 6108 "src/GLuaFixer/AG/LexLint.hs" #-} + )) of + { _lhsOstrSyntax -> + (case (({-# LINE 130 "src/GLuaFixer/AG/LexLint.ag" #-} + [] + {-# LINE 6113 "src/GLuaFixer/AG/LexLint.hs" #-} )) of { _lhsOwarnings -> ( _lhsOandSyntax,_lhsOcopy,_lhsOindentation,_lhsOlineCommentSyntax,_lhsOmultilineCommentSyntax,_lhsOneqSyntax,_lhsOnotSyntax,_lhsOorSyntax,_lhsOstrSyntax,_lhsOwarnings) }) }) }) }) }) }) }) }) }) })) diff --git a/src/GLuaFixer/LintMessage.hs b/src/GLuaFixer/LintMessage.hs --- a/src/GLuaFixer/LintMessage.hs +++ b/src/GLuaFixer/LintMessage.hs @@ -7,8 +7,9 @@ import Data.Aeson import Data.List (sortOn) import Data.Maybe (isJust) -import GLua.AG.PrettyPrint (renderPSError, renderPos, renderRegion) +import GLua.AG.PrettyPrint (renderPos, renderRegion) import GLua.AG.Token (Token) +import GLua.ParseError (renderParseError) import GLua.Position (LineColPos (..), Region (..)) import System.Environment (lookupEnv) import Text.Parsec (ParseError) @@ -128,7 +129,7 @@ issueDescription :: Issue -> String issueDescription = \case - IssueParseError parseError -> renderPSError parseError + IssueParseError parseError -> renderParseError parseError Deprecated reason -> "Deprecated: " ++ reason Profanity -> "Watch your profanity" BeginnerMistake msg -> msg