    {- This module was generated from data in the Kate syntax highlighting file ruby.xml, version 1.17,
       by  Stefan Lang (langstefan@gmx.at), Sebastian Vuorinen (sebastian.vuorinen@helsinki.fi) -}

    module Text.Highlighting.Kate.Syntax.Ruby ( highlight, parseExpression, syntaxName, syntaxExtensions ) where
    import Text.Highlighting.Kate.Definitions
    import Text.Highlighting.Kate.Common
    import Text.ParserCombinators.Parsec
    import Control.Monad (when)
    import Data.Map (fromList)
    import Data.Maybe (fromMaybe, maybeToList)

    import qualified Data.Set as Set
    -- | Full name of language.
    syntaxName :: String
    syntaxName = "Ruby"

    -- | Filename extensions for this language.
    syntaxExtensions :: String
    syntaxExtensions = "*.rb;*.rjs;*.rxml"

    -- | Highlight source code using this syntax definition.
    highlight :: String -> Either String [SourceLine]
    highlight input =
      case runParser parseSource startingState "source" input of
        Left err     -> Left $ show err
        Right result -> Right result

    -- | Parse an expression using appropriate local context.
    parseExpression :: GenParser Char SyntaxState LabeledSource
    parseExpression = do
      st <- getState
      let oldLang = synStLanguage st
      setState $ st { synStLanguage = "Ruby" }
      context <- currentContext <|> (pushContext "Normal" >> currentContext)
      result <- parseRules context
      updateState $ \st -> st { synStLanguage = oldLang }
      return result

    parseSource = do
      lineContents <- lookAhead wholeLine
      updateState $ \st -> st { synStCurrentLine = lineContents }
      result <- manyTill parseSourceLine eof
      return $ map normalizeHighlighting result

    startingState = SyntaxState {synStContexts = fromList [("Ruby",["Normal"])], synStLanguage = "Ruby", synStCurrentLine = "", synStCharsParsedInLine = 0, synStPrevChar = '\n', synStCaseSensitive = True, synStKeywordCaseSensitive = True, synStCaptures = []}

    parseSourceLine = manyTill parseExpressionInternal pEndLine

    pEndLine = do
      newline <|> (eof >> return '\n')
      context <- currentContext
      case context of
        "Normal" -> return ()
        "Line Continue" -> (popContext >> return ())
        "Find closing block brace" -> return ()
        "Quoted String" -> return ()
        "Apostrophed String" -> return ()
        "Command String" -> return ()
        "Embedded documentation" -> return ()
        "RegEx 1" -> return ()
        "Subst" -> return ()
        "Short Subst" -> (popContext >> return ())
        "Member Access" -> (popContext >> return ())
        "Comment Line" -> (popContext >> return ())
        "General Comment" -> (popContext >> return ())
        "RDoc Label" -> (popContext >> return ())
        "find_heredoc" -> (popContext >> return ())
        "find_indented_heredoc" -> (popContext >> return ())
        "indented_heredoc" -> return ()
        "apostrophed_indented_heredoc" -> return ()
        "normal_heredoc" -> return ()
        "apostrophed_normal_heredoc" -> return ()
        "heredoc_rules" -> return ()
        "find_gdl_input" -> (popContext >> return ())
        "gdl_dq_string_1" -> return ()
        "gdl_dq_string_1_nested" -> return ()
        "gdl_dq_string_2" -> return ()
        "gdl_dq_string_2_nested" -> return ()
        "gdl_dq_string_3" -> return ()
        "gdl_dq_string_3_nested" -> return ()
        "gdl_dq_string_4" -> return ()
        "gdl_dq_string_4_nested" -> return ()
        "gdl_dq_string_5" -> return ()
        "dq_string_rules" -> return ()
        "gdl_token_array_1" -> return ()
        "gdl_token_array_1_nested" -> return ()
        "gdl_token_array_2" -> return ()
        "gdl_token_array_2_nested" -> return ()
        "gdl_token_array_3" -> return ()
        "gdl_token_array_3_nested" -> return ()
        "gdl_token_array_4" -> return ()
        "gdl_token_array_4_nested" -> return ()
        "gdl_token_array_5" -> return ()
        "token_array_rules" -> return ()
        "gdl_apostrophed_1" -> return ()
        "gdl_apostrophed_1_nested" -> return ()
        "gdl_apostrophed_2" -> return ()
        "gdl_apostrophed_2_nested" -> return ()
        "gdl_apostrophed_3" -> return ()
        "gdl_apostrophed_3_nested" -> return ()
        "gdl_apostrophed_4" -> return ()
        "gdl_apostrophed_4_nested" -> return ()
        "gdl_apostrophed_5" -> return ()
        "apostrophed_rules" -> return ()
        "gdl_shell_command_1" -> return ()
        "gdl_shell_command_1_nested" -> return ()
        "gdl_shell_command_2" -> return ()
        "gdl_shell_command_2_nested" -> return ()
        "gdl_shell_command_3" -> return ()
        "gdl_shell_command_3_nested" -> return ()
        "gdl_shell_command_4" -> return ()
        "gdl_shell_command_4_nested" -> return ()
        "gdl_shell_command_5" -> return ()
        "shell_command_rules" -> return ()
        "gdl_regexpr_1" -> return ()
        "gdl_regexpr_1_nested" -> return ()
        "gdl_regexpr_2" -> return ()
        "gdl_regexpr_2_nested" -> return ()
        "gdl_regexpr_3" -> return ()
        "gdl_regexpr_3_nested" -> return ()
        "gdl_regexpr_4" -> return ()
        "gdl_regexpr_4_nested" -> return ()
        "gdl_regexpr_5" -> return ()
        "regexpr_rules" -> return ()
        "DATA" -> return ()
        _ -> return ()
      lineContents <- lookAhead wholeLine
      updateState $ \st -> st { synStCurrentLine = lineContents, synStCharsParsedInLine = 0, synStPrevChar = '\n' }

    withAttribute attr txt = do
      when (null txt) $ fail "Parser matched no text"
      let labs = attr : maybeToList (lookup attr styles)
      st <- getState
      let oldCharsParsed = synStCharsParsedInLine st
      let prevchar = if null txt then '\n' else last txt
      updateState $ \st -> st { synStCharsParsedInLine = oldCharsParsed + length txt, synStPrevChar = prevchar }
      return (labs, txt)

    styles = [("Keyword","kw"),("Attribute Definition","ot"),("Access Control","kw"),("Definition","kw"),("Pseudo variable","dv"),("Dec","dv"),("Float","fl"),("Char","ch"),("Octal","bn"),("Hex","bn"),("Bin","bn"),("Symbol","st"),("String","st"),("Raw String","st"),("Command","st"),("Regular Expression","ot"),("Substitution","ot"),("GDL input","ot"),("Default globals","dt"),("Global Variable","dt"),("Global Constant","dt"),("Constant","dt"),("Constant Value","dt"),("Instance Variable","ot"),("Class Variable","ot"),("Comment","co"),("Blockcomment","co"),("RDoc Value","ot"),("Error","er"),("Alert","al"),("Delimiter","ch"),("Expression","ot"),("Operator","ch")]

    parseExpressionInternal = do
      context <- currentContext
      parseRules context <|> (pDefault >>= withAttribute (fromMaybe "" $ lookup context defaultAttributes))

    list_keywords = Set.fromList $ words $ "BEGIN END and begin break case defined? do else elsif end ensure for if in include next not or redo rescue retry return then unless until when while yield"
    list_access'2dcontrol = Set.fromList $ words $ "private_class_method private protected public_class_method public"
    list_attribute'2ddefinitions = Set.fromList $ words $ "attr_reader attr_writer attr_accessor"
    list_definitions = Set.fromList $ words $ "alias module class def undef"
    list_pseudo'2dvariables = Set.fromList $ words $ "self super nil false true caller __FILE__ __LINE__"
    list_default'2dglobals = Set.fromList $ words $ "$stdout $defout $stderr $deferr $stdin"
    list_kernel'2dmethods = Set.fromList $ words $ "abort at_exit autoload autoload? binding block_given? callcc caller catch chomp chomp! chop chop! eval exec exit exit! fail fork format getc gets global_variables gsub gsub! iterator? lambda load local_variables loop method_missing open p print printf proc putc puts raise rand readline readlines require scan select set_trace_func sleep split sprintf srand sub sub! syscall system test throw trace_var trap untrace_var warn"
    list_attention = Set.fromList $ words $ "TODO FIXME NOTE"

    regex_'5f'5fEND'5f'5f'24 = compileRegex "__END__$"
    regex_'23'21'5c'2f'2e'2a = compileRegex "#!\\/.*"
    regex_'28'5c'3d'7c'5c'28'7c'5c'5b'7c'5c'7b'29'5cs'2a'28if'7cunless'7cwhile'7cuntil'29'5cb = compileRegex "(\\=|\\(|\\[|\\{)\\s*(if|unless|while|until)\\b"
    regex_'28while'7cuntil'29'5cb'28'3f'21'2e'2a'5cbdo'5cb'29 = compileRegex "(while|until)\\b(?!.*\\bdo\\b)"
    regex_'5c'3b'5cs'2a'28while'7cuntil'29'5cb'28'3f'21'2e'2a'5cbdo'5cb'29 = compileRegex "\\;\\s*(while|until)\\b(?!.*\\bdo\\b)"
    regex_'28if'7cunless'29'5cb = compileRegex "(if|unless)\\b"
    regex_'5c'3b'5cs'2a'28if'7cunless'29'5cb = compileRegex "\\;\\s*(if|unless)\\b"
    regex_'5cbclass'5cb = compileRegex "\\bclass\\b"
    regex_'5cbmodule'5cb = compileRegex "\\bmodule\\b"
    regex_'5cbbegin'5cb = compileRegex "\\bbegin\\b"
    regex_'5cbfor'5cb'28'3f'21'2e'2a'5cbdo'5cb'29 = compileRegex "\\bfor\\b(?!.*\\bdo\\b)"
    regex_'5cbcase'5cb = compileRegex "\\bcase\\b"
    regex_'5cbdo'5cb = compileRegex "\\bdo\\b"
    regex_'5cbdef'5cb = compileRegex "\\bdef\\b"
    regex_'5cbend'5cb = compileRegex "\\bend\\b"
    regex_'28'5cb'7c'5e'5cs'2a'29'28else'7celsif'7crescue'7censure'29'28'5cb'7c'24'29 = compileRegex "(\\b|^\\s*)(else|elsif|rescue|ensure)(\\b|$)"
    regex_'5c'2e'5b'5fa'2dz'5d'5b'5fa'2dzA'2dZ0'2d9'5d'2a'28'5c'3f'7c'5c'21'7c'5cb'29 = compileRegex "\\.[_a-z][_a-zA-Z0-9]*(\\?|\\!|\\b)"
    regex_'5cs'5c'3f'28'5c'5cM'5c'2d'29'3f'28'5c'5cC'5c'2d'29'3f'5c'5c'3f'5cS = compileRegex "\\s\\?(\\\\M\\-)?(\\\\C\\-)?\\\\?\\S"
    regex_'5c'24'5ba'2dzA'2dZ'5f0'2d9'5d'2b = compileRegex "\\$[a-zA-Z_0-9]+"
    regex_'5c'24'5c'2d'5ba'2dzA'2dz'5f'5d'5cb = compileRegex "\\$\\-[a-zA-z_]\\b"
    regex_'5c'24'5b'5cd'5f'2a'60'5c'21'3a'3f'27'2f'5c'5c'5c'2d'5c'26'22'5d = compileRegex "\\$[\\d_*`\\!:?'/\\\\\\-\\&\"]"
    regex_'5cb'5b'5fA'2dZ'5d'2b'5bA'2dZ'5f0'2d9'5d'2b'5cb = compileRegex "\\b[_A-Z]+[A-Z_0-9]+\\b"
    regex_'5cb'5bA'2dZ'5d'2b'5f'2a'28'5b0'2d9'5d'7c'5ba'2dz'5d'29'5b'5fa'2dzA'2dZ0'2d9'5d'2a'5cb = compileRegex "\\b[A-Z]+_*([0-9]|[a-z])[_a-zA-Z0-9]*\\b"
    regex_'5cb'5c'2d'3f0'5bxX'5d'5b'5f0'2d9a'2dfA'2dF'5d'2b = compileRegex "\\b\\-?0[xX][_0-9a-fA-F]+"
    regex_'5cb'5c'2d'3f0'5bbB'5d'5b'5f01'5d'2b = compileRegex "\\b\\-?0[bB][_01]+"
    regex_'5cb'5c'2d'3f0'5b1'2d7'5d'5b'5f0'2d7'5d'2a = compileRegex "\\b\\-?0[1-7][_0-7]*"
    regex_'5cb'5c'2d'3f'5b0'2d9'5d'5b0'2d9'5f'5d'2a'5c'2e'5b0'2d9'5d'5b0'2d9'5f'5d'2a'28'5beE'5d'5c'2d'3f'5b1'2d9'5d'5b0'2d9'5d'2a'28'5c'2e'5b0'2d9'5d'2a'29'3f'29'3f = compileRegex "\\b\\-?[0-9][0-9_]*\\.[0-9][0-9_]*([eE]\\-?[1-9][0-9]*(\\.[0-9]*)?)?"
    regex_'5cb'5c'2d'3f'5b1'2d9'5d'5b0'2d9'5f'5d'2a'5cb = compileRegex "\\b\\-?[1-9][0-9_]*\\b"
    regex_'5cs'2a'3c'3c'2d'28'3f'3d'5cw'2b'7c'5b'22'27'5d'29 = compileRegex "\\s*<<-(?=\\w+|[\"'])"
    regex_'5cs'2a'3c'3c'28'3f'3d'5cw'2b'7c'5b'22'27'5d'29 = compileRegex "\\s*<<(?=\\w+|[\"'])"
    regex_'5cs'5b'5c'3f'5c'3a'5c'25'2f'5d'5cs = compileRegex "\\s[\\?\\:\\%/]\\s"
    regex_'5b'7c'26'3c'3e'5c'5e'5c'2b'2a'7e'5c'2d'3d'5d'2b = compileRegex "[|&<>\\^\\+*~\\-=]+"
    regex_'5cs'21 = compileRegex "\\s!"
    regex_'2f'3d'5cs = compileRegex "/=\\s"
    regex_'3a'5ba'2dzA'2dZ'5f'5d'5ba'2dzA'2dZ0'2d9'5f'5d'2a = compileRegex ":[a-zA-Z_][a-zA-Z0-9_]*"
    regex_'23'5cs'2aBEGIN'2e'2a'24 = compileRegex "#\\s*BEGIN.*$"
    regex_'23'5cs'2aEND'2e'2a'24 = compileRegex "#\\s*END.*$"
    regex_'23 = compileRegex "#"
    regex_'28'5cb'7c'5cs'29'23 = compileRegex "(\\b|\\s)#"
    regex_'5b'5c'5b'5c'5d'5d'2b = compileRegex "[\\[\\]]+"
    regex_'40'5ba'2dzA'2dZ'5f0'2d9'5d'2b = compileRegex "@[a-zA-Z_0-9]+"
    regex_'40'40'5ba'2dzA'2dZ'5f0'2d9'5d'2b = compileRegex "@@[a-zA-Z_0-9]+"
    regex_'5cs'2a'5b'25'5d'28'3f'3d'5bQqxw'5d'3f'5b'5e'5cs'5d'29 = compileRegex "\\s*[%](?=[Qqxw]?[^\\s])"
    regex_'5c'5c'5c'22 = compileRegex "\\\\\\\""
    regex_'23'40'7b1'2c2'7d = compileRegex "#@{1,2}"
    regex_'5c'5c'5c'27 = compileRegex "\\\\\\'"
    regex_'5c'5c'5c'60 = compileRegex "\\\\\\`"
    regex_'5c'5c'5c'2f = compileRegex "\\\\\\/"
    regex_'5b'5e'5c'5c'5d'24 = compileRegex "[^\\\\]$"
    regex_'2f'5buiomxn'5d'2a = compileRegex "/[uiomxn]*"
    regex_'5cw'28'3f'21'5cw'29 = compileRegex "\\w(?!\\w)"
    regex_'5c'2e'3f'5b'5fa'2dz'5d'5cw'2a'28'5c'3f'7c'5c'21'29'3f'28'3f'3d'5b'5e'5cw'5cd'5c'2e'5c'3a'5d'29 = compileRegex "\\.?[_a-z]\\w*(\\?|\\!)?(?=[^\\w\\d\\.\\:])"
    regex_'5c'2e'3f'5b'5fa'2dz'5d'5cw'2a'28'5c'3f'7c'5c'21'29'3f = compileRegex "\\.?[_a-z]\\w*(\\?|\\!)?"
    regex_'5bA'2dZ'5d'2b'5f'2a'28'5cd'7c'5ba'2dz'5d'29'5cw'2a'28'3f'3d'5b'5e'5cw'5cd'5c'2e'5c'3a'5d'29 = compileRegex "[A-Z]+_*(\\d|[a-z])\\w*(?=[^\\w\\d\\.\\:])"
    regex_'5bA'2dZ'5d'2b'5f'2a'28'5b0'2d9'5d'7c'5ba'2dz'5d'29'5cw'2a = compileRegex "[A-Z]+_*([0-9]|[a-z])\\w*"
    regex_'5b'5fA'2dZ'5d'5b'5fA'2dZ0'2d9'5d'2a'28'3f'3d'5b'5e'5cw'5cd'5c'2e'5c'3a'5d'29 = compileRegex "[_A-Z][_A-Z0-9]*(?=[^\\w\\d\\.\\:])"
    regex_'5b'5fA'2dZ'5d'5b'5fA'2dZ0'2d9'5d'2a = compileRegex "[_A-Z][_A-Z0-9]*"
    regex_'5cW = compileRegex "\\W"
    regex_'5cw'5c'3a'5c'3a'5cs = compileRegex "\\w\\:\\:\\s"
    regex_'27'28'5cw'2b'29'27 = compileRegex "'(\\w+)'"
    regex_'22'3f'28'5cw'2b'29'22'3f = compileRegex "\"?(\\w+)\"?"
    regex_w'5c'28 = compileRegex "w\\("
    regex_w'5c'7b = compileRegex "w\\{"
    regex_w'5c'5b = compileRegex "w\\["
    regex_w'3c = compileRegex "w<"
    regex_w'28'5b'5e'5cs'5cw'5d'29 = compileRegex "w([^\\s\\w])"
    regex_q'5c'28 = compileRegex "q\\("
    regex_q'5c'7b = compileRegex "q\\{"
    regex_q'5c'5b = compileRegex "q\\["
    regex_q'3c = compileRegex "q<"
    regex_q'28'5b'5e'5cs'5cw'5d'29 = compileRegex "q([^\\s\\w])"
    regex_x'5c'28 = compileRegex "x\\("
    regex_x'5c'7b = compileRegex "x\\{"
    regex_x'5c'5b = compileRegex "x\\["
    regex_x'3c = compileRegex "x<"
    regex_x'28'5b'5e'5cs'5cw'5d'29 = compileRegex "x([^\\s\\w])"
    regex_r'5c'28 = compileRegex "r\\("
    regex_r'5c'7b = compileRegex "r\\{"
    regex_r'5c'5b = compileRegex "r\\["
    regex_r'3c = compileRegex "r<"
    regex_r'28'5b'5e'5cs'5cw'5d'29 = compileRegex "r([^\\s\\w])"
    regex_Q'3f'5c'28 = compileRegex "Q?\\("
    regex_Q'3f'5c'7b = compileRegex "Q?\\{"
    regex_Q'3f'5c'5b = compileRegex "Q?\\["
    regex_Q'3f'3c = compileRegex "Q?<"
    regex_Q'3f'28'5b'5e'5cs'5cw'5d'29 = compileRegex "Q?([^\\s\\w])"
    regex_'5c'29'5buiomxn'5d'2a = compileRegex "\\)[uiomxn]*"
    regex_'5c'7d'5buiomxn'5d'2a = compileRegex "\\}[uiomxn]*"
    regex_'5c'5d'5buiomxn'5d'2a = compileRegex "\\][uiomxn]*"
    regex_'3e'5buiomxn'5d'2a = compileRegex ">[uiomxn]*"

    defaultAttributes = [("Normal","Normal Text"),("Line Continue","Normal Text"),("Find closing block brace","Normal Text"),("Quoted String","String"),("Apostrophed String","Raw String"),("Command String","Command"),("Embedded documentation","Comment"),("RegEx 1","Regular Expression"),("Subst","Normal Text"),("Short Subst","Substitution"),("Member Access","Member"),("Comment Line","Comment"),("General Comment","Comment"),("RDoc Label","RDoc Value"),("find_heredoc","Normal Text"),("find_indented_heredoc","Normal Text"),("indented_heredoc","Normal Text"),("apostrophed_indented_heredoc","Normal Text"),("normal_heredoc","Normal Text"),("apostrophed_normal_heredoc","Normal Text"),("heredoc_rules","Normal Text"),("find_gdl_input","Normal Text"),("gdl_dq_string_1","String"),("gdl_dq_string_1_nested","String"),("gdl_dq_string_2","String"),("gdl_dq_string_2_nested","String"),("gdl_dq_string_3","String"),("gdl_dq_string_3_nested","String"),("gdl_dq_string_4","String"),("gdl_dq_string_4_nested","String"),("gdl_dq_string_5","String"),("dq_string_rules","String"),("gdl_token_array_1","String"),("gdl_token_array_1_nested","String"),("gdl_token_array_2","String"),("gdl_token_array_2_nested","String"),("gdl_token_array_3","String"),("gdl_token_array_3_nested","String"),("gdl_token_array_4","String"),("gdl_token_array_4_nested","String"),("gdl_token_array_5","String"),("token_array_rules","String"),("gdl_apostrophed_1","Raw String"),("gdl_apostrophed_1_nested","Raw String"),("gdl_apostrophed_2","Raw String"),("gdl_apostrophed_2_nested","Raw String"),("gdl_apostrophed_3","Raw String"),("gdl_apostrophed_3_nested","Raw String"),("gdl_apostrophed_4","Raw String"),("gdl_apostrophed_4_nested","Raw String"),("gdl_apostrophed_5","Raw String"),("apostrophed_rules","Raw String"),("gdl_shell_command_1","Command"),("gdl_shell_command_1_nested","Command"),("gdl_shell_command_2","Command"),("gdl_shell_command_2_nested","Command"),("gdl_shell_command_3","Command"),("gdl_shell_command_3_nested","Command"),("gdl_shell_command_4","Command"),("gdl_shell_command_4_nested","Command"),("gdl_shell_command_5","Command"),("shell_command_rules","Command"),("gdl_regexpr_1","Regular Expression"),("gdl_regexpr_1_nested","Regular Expression"),("gdl_regexpr_2","Regular Expression"),("gdl_regexpr_2_nested","Regular Expression"),("gdl_regexpr_3","Regular Expression"),("gdl_regexpr_3_nested","Regular Expression"),("gdl_regexpr_4","Regular Expression"),("gdl_regexpr_4_nested","Regular Expression"),("gdl_regexpr_5","Regular Expression"),("regexpr_rules","Regular Expression"),("DATA","Data")]

    parseRules "Normal" =
      do (attr, result) <- (((pLineContinue >>= withAttribute "Normal Text") >>~ pushContext "Line Continue")
                            <|>
                            ((pColumn 0 >> pRegExpr regex_'5f'5fEND'5f'5f'24 >>= withAttribute "Keyword") >>~ pushContext "DATA")
                            <|>
                            ((pColumn 0 >> pRegExpr regex_'23'21'5c'2f'2e'2a >>= withAttribute "Keyword"))
                            <|>
                            ((pDetectChar False '{' >>= withAttribute "Operator") >>~ pushContext "Find closing block brace")
                            <|>
                            ((pRegExpr regex_'28'5c'3d'7c'5c'28'7c'5c'5b'7c'5c'7b'29'5cs'2a'28if'7cunless'7cwhile'7cuntil'29'5cb >>= withAttribute "Keyword"))
                            <|>
                            ((pFirstNonSpace >> pRegExpr regex_'28while'7cuntil'29'5cb'28'3f'21'2e'2a'5cbdo'5cb'29 >>= withAttribute "Keyword"))
                            <|>
                            ((pRegExpr regex_'5c'3b'5cs'2a'28while'7cuntil'29'5cb'28'3f'21'2e'2a'5cbdo'5cb'29 >>= withAttribute "Keyword"))
                            <|>
                            ((pFirstNonSpace >> pRegExpr regex_'28if'7cunless'29'5cb >>= withAttribute "Keyword"))
                            <|>
                            ((pRegExpr regex_'5c'3b'5cs'2a'28if'7cunless'29'5cb >>= withAttribute "Keyword"))
                            <|>
                            ((pRegExpr regex_'5cbclass'5cb >>= withAttribute "Keyword"))
                            <|>
                            ((pRegExpr regex_'5cbmodule'5cb >>= withAttribute "Keyword"))
                            <|>
                            ((pRegExpr regex_'5cbbegin'5cb >>= withAttribute "Keyword"))
                            <|>
                            ((pRegExpr regex_'5cbfor'5cb'28'3f'21'2e'2a'5cbdo'5cb'29 >>= withAttribute "Keyword"))
                            <|>
                            ((pRegExpr regex_'5cbcase'5cb >>= withAttribute "Keyword"))
                            <|>
                            ((pRegExpr regex_'5cbdo'5cb >>= withAttribute "Keyword"))
                            <|>
                            ((pRegExpr regex_'5cbdef'5cb >>= withAttribute "Keyword"))
                            <|>
                            ((pRegExpr regex_'5cbend'5cb >>= withAttribute "Keyword"))
                            <|>
                            ((pRegExpr regex_'28'5cb'7c'5e'5cs'2a'29'28else'7celsif'7crescue'7censure'29'28'5cb'7c'24'29 >>= withAttribute "Keyword"))
                            <|>
                            ((pString False "..." >>= withAttribute "Operator"))
                            <|>
                            ((pDetect2Chars False '.' '.' >>= withAttribute "Operator"))
                            <|>
                            ((pRegExpr regex_'5c'2e'5b'5fa'2dz'5d'5b'5fa'2dzA'2dZ0'2d9'5d'2a'28'5c'3f'7c'5c'21'7c'5cb'29 >>= withAttribute "Message"))
                            <|>
                            ((pRegExpr regex_'5cs'5c'3f'28'5c'5cM'5c'2d'29'3f'28'5c'5cC'5c'2d'29'3f'5c'5c'3f'5cS >>= withAttribute "Dec"))
                            <|>
                            ((pKeyword " \n\t.():+,-<=>%&*/;[]^{|}~\\" list_keywords >>= withAttribute "Keyword"))
                            <|>
                            ((pKeyword " \n\t.():+,-<=>%&*/;[]^{|}~\\" list_attribute'2ddefinitions >>= withAttribute "Attribute Definition"))
                            <|>
                            ((pKeyword " \n\t.():+,-<=>%&*/;[]^{|}~\\" list_access'2dcontrol >>= withAttribute "Access Control"))
                            <|>
                            ((pKeyword " \n\t.():+,-<=>%&*/;[]^{|}~\\" list_definitions >>= withAttribute "Definition"))
                            <|>
                            ((pKeyword " \n\t.():+,-<=>%&*/;[]^{|}~\\" list_pseudo'2dvariables >>= withAttribute "Pseudo variable"))
                            <|>
                            ((pKeyword " \n\t.():+,-<=>%&*/;[]^{|}~\\" list_default'2dglobals >>= withAttribute "Default globals"))
                            <|>
                            ((pKeyword " \n\t.():+,-<=>%&*/;[]^{|}~\\" list_kernel'2dmethods >>= withAttribute "Kernel methods"))
                            <|>
                            ((pRegExpr regex_'5c'24'5ba'2dzA'2dZ'5f0'2d9'5d'2b >>= withAttribute "Global Variable"))
                            <|>
                            ((pRegExpr regex_'5c'24'5c'2d'5ba'2dzA'2dz'5f'5d'5cb >>= withAttribute "Global Variable"))
                            <|>
                            ((pRegExpr regex_'5c'24'5b'5cd'5f'2a'60'5c'21'3a'3f'27'2f'5c'5c'5c'2d'5c'26'22'5d >>= withAttribute "Default globals"))
                            <|>
                            ((pRegExpr regex_'5cb'5b'5fA'2dZ'5d'2b'5bA'2dZ'5f0'2d9'5d'2b'5cb >>= withAttribute "Global Constant"))
                            <|>
                            ((pRegExpr regex_'5cb'5bA'2dZ'5d'2b'5f'2a'28'5b0'2d9'5d'7c'5ba'2dz'5d'29'5b'5fa'2dzA'2dZ0'2d9'5d'2a'5cb >>= withAttribute "Constant"))
                            <|>
                            ((pRegExpr regex_'5cb'5c'2d'3f0'5bxX'5d'5b'5f0'2d9a'2dfA'2dF'5d'2b >>= withAttribute "Hex"))
                            <|>
                            ((pRegExpr regex_'5cb'5c'2d'3f0'5bbB'5d'5b'5f01'5d'2b >>= withAttribute "Bin"))
                            <|>
                            ((pRegExpr regex_'5cb'5c'2d'3f0'5b1'2d7'5d'5b'5f0'2d7'5d'2a >>= withAttribute "Octal"))
                            <|>
                            ((pRegExpr regex_'5cb'5c'2d'3f'5b0'2d9'5d'5b0'2d9'5f'5d'2a'5c'2e'5b0'2d9'5d'5b0'2d9'5f'5d'2a'28'5beE'5d'5c'2d'3f'5b1'2d9'5d'5b0'2d9'5d'2a'28'5c'2e'5b0'2d9'5d'2a'29'3f'29'3f >>= withAttribute "Float"))
                            <|>
                            ((pRegExpr regex_'5cb'5c'2d'3f'5b1'2d9'5d'5b0'2d9'5f'5d'2a'5cb >>= withAttribute "Dec"))
                            <|>
                            ((pInt >>= withAttribute "Dec"))
                            <|>
                            ((pHlCChar >>= withAttribute "Char"))
                            <|>
                            ((pColumn 0 >> pString False "=begin" >>= withAttribute "Blockcomment") >>~ pushContext "Embedded documentation")
                            <|>
                            ((pRegExpr regex_'5cs'2a'3c'3c'2d'28'3f'3d'5cw'2b'7c'5b'22'27'5d'29 >>= withAttribute "Operator") >>~ pushContext "find_indented_heredoc")
                            <|>
                            ((pRegExpr regex_'5cs'2a'3c'3c'28'3f'3d'5cw'2b'7c'5b'22'27'5d'29 >>= withAttribute "Operator") >>~ pushContext "find_heredoc")
                            <|>
                            ((pDetectChar False '.' >>= withAttribute "Operator"))
                            <|>
                            ((pDetect2Chars False '&' '&' >>= withAttribute "Operator"))
                            <|>
                            ((pDetect2Chars False '|' '|' >>= withAttribute "Operator"))
                            <|>
                            ((pRegExpr regex_'5cs'5b'5c'3f'5c'3a'5c'25'2f'5d'5cs >>= withAttribute "Operator"))
                            <|>
                            ((pRegExpr regex_'5b'7c'26'3c'3e'5c'5e'5c'2b'2a'7e'5c'2d'3d'5d'2b >>= withAttribute "Operator"))
                            <|>
                            ((pRegExpr regex_'5cs'21 >>= withAttribute "Operator"))
                            <|>
                            ((pRegExpr regex_'2f'3d'5cs >>= withAttribute "Operator"))
                            <|>
                            ((pString False "%=" >>= withAttribute "Operator"))
                            <|>
                            ((pDetect2Chars False ':' ':' >>= withAttribute "Operator") >>~ pushContext "Member Access")
                            <|>
                            ((pRegExpr regex_'3a'5ba'2dzA'2dZ'5f'5d'5ba'2dzA'2dZ0'2d9'5f'5d'2a >>= withAttribute "Symbol"))
                            <|>
                            ((pDetectChar False '"' >>= withAttribute "String") >>~ pushContext "Quoted String")
                            <|>
                            ((pDetectChar False '\'' >>= withAttribute "Raw String") >>~ pushContext "Apostrophed String")
                            <|>
                            ((pDetectChar False '`' >>= withAttribute "Command") >>~ pushContext "Command String")
                            <|>
                            ((pString False "?#" >>= withAttribute "Normal Text"))
                            <|>
                            ((pColumn 0 >> pRegExpr regex_'23'5cs'2aBEGIN'2e'2a'24 >>= withAttribute "Comment"))
                            <|>
                            ((pColumn 0 >> pRegExpr regex_'23'5cs'2aEND'2e'2a'24 >>= withAttribute "Comment"))
                            <|>
                            ((pFirstNonSpace >> pRegExpr regex_'23 >>= withAttribute "Comment") >>~ pushContext "Comment Line")
                            <|>
                            ((pRegExpr regex_'28'5cb'7c'5cs'29'23 >>= withAttribute "Comment") >>~ pushContext "General Comment")
                            <|>
                            ((pRegExpr regex_'5b'5c'5b'5c'5d'5d'2b >>= withAttribute "Delimiter"))
                            <|>
                            ((pDetectChar False '{' >>= withAttribute "Delimiter"))
                            <|>
                            ((pDetectChar False '}' >>= withAttribute "Delimiter"))
                            <|>
                            ((pRegExpr regex_'40'5ba'2dzA'2dZ'5f0'2d9'5d'2b >>= withAttribute "Instance Variable"))
                            <|>
                            ((pRegExpr regex_'40'40'5ba'2dzA'2dZ'5f0'2d9'5d'2b >>= withAttribute "Class Variable"))
                            <|>
                            ((pDetectChar False '/' >>= withAttribute "Regular Expression") >>~ pushContext "RegEx 1")
                            <|>
                            ((pRegExpr regex_'5cs'2a'5b'25'5d'28'3f'3d'5bQqxw'5d'3f'5b'5e'5cs'5d'29 >>= withAttribute "GDL input") >>~ pushContext "find_gdl_input"))
         return (attr, result)

    parseRules "Line Continue" =
      do (attr, result) <- (((pFirstNonSpace >> pRegExpr regex_'28while'7cuntil'29'5cb'28'3f'21'2e'2a'5cbdo'5cb'29 >>= withAttribute "Keyword"))
                            <|>
                            ((pFirstNonSpace >> pRegExpr regex_'28if'7cunless'29'5cb >>= withAttribute "Keyword"))
                            <|>
                            ((parseRules "Normal")))
         return (attr, result)

    parseRules "Find closing block brace" =
      do (attr, result) <- (((pDetectChar False '}' >>= withAttribute "Operator") >>~ (popContext >> return ()))
                            <|>
                            ((parseRules "Normal")))
         return (attr, result)

    parseRules "Quoted String" =
      do (attr, result) <- (((pString False "\\\\" >>= withAttribute "String"))
                            <|>
                            ((pRegExpr regex_'5c'5c'5c'22 >>= withAttribute "String"))
                            <|>
                            ((pRegExpr regex_'23'40'7b1'2c2'7d >>= withAttribute "Substitution") >>~ pushContext "Short Subst")
                            <|>
                            ((pDetect2Chars False '#' '{' >>= withAttribute "Substitution") >>~ pushContext "Subst")
                            <|>
                            ((pDetectChar False '"' >>= withAttribute "String") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "Apostrophed String" =
      do (attr, result) <- (((pString False "\\\\" >>= withAttribute "String"))
                            <|>
                            ((pRegExpr regex_'5c'5c'5c'27 >>= withAttribute "String"))
                            <|>
                            ((pDetectChar False '\'' >>= withAttribute "Raw String") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "Command String" =
      do (attr, result) <- (((pString False "\\\\" >>= withAttribute "String"))
                            <|>
                            ((pRegExpr regex_'5c'5c'5c'60 >>= withAttribute "String"))
                            <|>
                            ((pRegExpr regex_'23'40'7b1'2c2'7d >>= withAttribute "Substitution") >>~ pushContext "Short Subst")
                            <|>
                            ((pDetect2Chars False '#' '{' >>= withAttribute "Substitution") >>~ pushContext "Subst")
                            <|>
                            ((pHlCChar >>= withAttribute "Char") >>~ (popContext >> return ()))
                            <|>
                            ((pDetectChar False '`' >>= withAttribute "Command") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "Embedded documentation" =
      do (attr, result) <- ((pColumn 0 >> pString False "=end" >>= withAttribute "Comment") >>~ (popContext >> return ()))
         return (attr, result)

    parseRules "RegEx 1" =
      do (attr, result) <- (((pRegExpr regex_'5c'5c'5c'2f >>= withAttribute "Regular Expression"))
                            <|>
                            ((pRegExpr regex_'5b'5e'5c'5c'5d'24 >>= withAttribute "Regular Expression") >>~ (popContext >> return ()))
                            <|>
                            ((pRegExpr regex_'23'40'7b1'2c2'7d >>= withAttribute "Substitution") >>~ pushContext "Short Subst")
                            <|>
                            ((pDetect2Chars False '#' '{' >>= withAttribute "Substitution") >>~ pushContext "Subst")
                            <|>
                            ((pRegExpr regex_'2f'5buiomxn'5d'2a >>= withAttribute "Regular Expression") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "Subst" =
      do (attr, result) <- (((pDetectChar False '}' >>= withAttribute "Substitution") >>~ (popContext >> return ()))
                            <|>
                            ((parseRules "Normal")))
         return (attr, result)

    parseRules "Short Subst" =
      do (attr, result) <- (((pRegExpr regex_'23'40'7b1'2c2'7d >>= withAttribute "Substitution"))
                            <|>
                            ((pRegExpr regex_'5cw'28'3f'21'5cw'29 >>= withAttribute "Substitution") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "Member Access" =
      do (attr, result) <- (((pRegExpr regex_'5c'2e'3f'5b'5fa'2dz'5d'5cw'2a'28'5c'3f'7c'5c'21'29'3f'28'3f'3d'5b'5e'5cw'5cd'5c'2e'5c'3a'5d'29 >>= withAttribute "Message") >>~ (popContext >> return ()))
                            <|>
                            ((pRegExpr regex_'5c'2e'3f'5b'5fa'2dz'5d'5cw'2a'28'5c'3f'7c'5c'21'29'3f >>= withAttribute "Message"))
                            <|>
                            ((pRegExpr regex_'5bA'2dZ'5d'2b'5f'2a'28'5cd'7c'5ba'2dz'5d'29'5cw'2a'28'3f'3d'5b'5e'5cw'5cd'5c'2e'5c'3a'5d'29 >>= withAttribute "Constant") >>~ (popContext >> return ()))
                            <|>
                            ((pRegExpr regex_'5bA'2dZ'5d'2b'5f'2a'28'5b0'2d9'5d'7c'5ba'2dz'5d'29'5cw'2a >>= withAttribute "Constant"))
                            <|>
                            ((pRegExpr regex_'5b'5fA'2dZ'5d'5b'5fA'2dZ0'2d9'5d'2a'28'3f'3d'5b'5e'5cw'5cd'5c'2e'5c'3a'5d'29 >>= withAttribute "Constant Value") >>~ (popContext >> return ()))
                            <|>
                            ((pRegExpr regex_'5b'5fA'2dZ'5d'5b'5fA'2dZ0'2d9'5d'2a >>= withAttribute "Constant Value"))
                            <|>
                            ((pDetect2Chars False ':' ':' >>= withAttribute "Operator"))
                            <|>
                            ((pDetectChar False '.' >>= withAttribute "Member"))
                            <|>
                            ((pAnyChar "=+-*/%|&[]{}~" >>= withAttribute "Operator") >>~ (popContext >> return ()))
                            <|>
                            ((pDetectChar False '#' >>= withAttribute "Comment") >>~ (popContext >> return ()))
                            <|>
                            ((pAnyChar "()\\" >>= withAttribute "Normal Text") >>~ (popContext >> return ()))
                            <|>
                            ((pRegExpr regex_'5cW >>= withAttribute "Member") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "Comment Line" =
      do (attr, result) <- (((pRegExpr regex_'5cw'5c'3a'5c'3a'5cs >>= withAttribute "Comment") >>~ pushContext "RDoc Label")
                            <|>
                            ((pKeyword " \n\t.():+,-<=>%&*/;[]^{|}~\\" list_attention >>= withAttribute "Alert")))
         return (attr, result)

    parseRules "General Comment" =
      do (attr, result) <- ((pKeyword " \n\t.():+,-<=>%&*/;[]^{|}~\\" list_attention >>= withAttribute "Dec"))
         return (attr, result)

    parseRules "RDoc Label" =
      pzero

    parseRules "find_heredoc" =
      do (attr, result) <- (((pRegExpr regex_'27'28'5cw'2b'29'27 >>= withAttribute "Keyword") >>~ pushContext "apostrophed_normal_heredoc")
                            <|>
                            ((pRegExpr regex_'22'3f'28'5cw'2b'29'22'3f >>= withAttribute "Keyword") >>~ pushContext "normal_heredoc"))
         return (attr, result)

    parseRules "find_indented_heredoc" =
      do (attr, result) <- (((pRegExpr regex_'27'28'5cw'2b'29'27 >>= withAttribute "Keyword") >>~ pushContext "apostrophed_indented_heredoc")
                            <|>
                            ((pRegExpr regex_'22'3f'28'5cw'2b'29'22'3f >>= withAttribute "Keyword") >>~ pushContext "indented_heredoc"))
         return (attr, result)

    parseRules "indented_heredoc" =
      do (attr, result) <- (((pFirstNonSpace >> pRegExprDynamic "%1$" >>= withAttribute "Keyword") >>~ (popContext >> popContext >> return ()))
                            <|>
                            ((parseRules "heredoc_rules")))
         return (attr, result)

    parseRules "apostrophed_indented_heredoc" =
      do (attr, result) <- ((pFirstNonSpace >> pRegExprDynamic "%1$" >>= withAttribute "Keyword") >>~ (popContext >> popContext >> return ()))
         return (attr, result)

    parseRules "normal_heredoc" =
      do (attr, result) <- (((pColumn 0 >> pRegExprDynamic "%1$" >>= withAttribute "Keyword") >>~ (popContext >> popContext >> return ()))
                            <|>
                            ((parseRules "heredoc_rules")))
         return (attr, result)

    parseRules "apostrophed_normal_heredoc" =
      do (attr, result) <- ((pColumn 0 >> pRegExprDynamic "%1$" >>= withAttribute "Keyword") >>~ (popContext >> popContext >> return ()))
         return (attr, result)

    parseRules "heredoc_rules" =
      do (attr, result) <- (((pRegExpr regex_'23'40'7b1'2c2'7d >>= withAttribute "Substitution") >>~ pushContext "Short Subst")
                            <|>
                            ((pDetect2Chars False '#' '{' >>= withAttribute "Substitution") >>~ pushContext "Subst"))
         return (attr, result)

    parseRules "find_gdl_input" =
      do (attr, result) <- (((pRegExpr regex_w'5c'28 >>= withAttribute "GDL input") >>~ pushContext "gdl_token_array_1")
                            <|>
                            ((pRegExpr regex_w'5c'7b >>= withAttribute "GDL input") >>~ pushContext "gdl_token_array_2")
                            <|>
                            ((pRegExpr regex_w'5c'5b >>= withAttribute "GDL input") >>~ pushContext "gdl_token_array_3")
                            <|>
                            ((pRegExpr regex_w'3c >>= withAttribute "GDL input") >>~ pushContext "gdl_token_array_4")
                            <|>
                            ((pRegExpr regex_w'28'5b'5e'5cs'5cw'5d'29 >>= withAttribute "GDL input") >>~ pushContext "gdl_token_array_5")
                            <|>
                            ((pRegExpr regex_q'5c'28 >>= withAttribute "GDL input") >>~ pushContext "gdl_apostrophed_1")
                            <|>
                            ((pRegExpr regex_q'5c'7b >>= withAttribute "GDL input") >>~ pushContext "gdl_apostrophed_2")
                            <|>
                            ((pRegExpr regex_q'5c'5b >>= withAttribute "GDL input") >>~ pushContext "gdl_apostrophed_3")
                            <|>
                            ((pRegExpr regex_q'3c >>= withAttribute "GDL input") >>~ pushContext "gdl_apostrophed_4")
                            <|>
                            ((pRegExpr regex_q'28'5b'5e'5cs'5cw'5d'29 >>= withAttribute "GDL input") >>~ pushContext "gdl_apostrophed_5")
                            <|>
                            ((pRegExpr regex_x'5c'28 >>= withAttribute "GDL input") >>~ pushContext "gdl_shell_command_1")
                            <|>
                            ((pRegExpr regex_x'5c'7b >>= withAttribute "GDL input") >>~ pushContext "gdl_shell_command_2")
                            <|>
                            ((pRegExpr regex_x'5c'5b >>= withAttribute "GDL input") >>~ pushContext "gdl_shell_command_3")
                            <|>
                            ((pRegExpr regex_x'3c >>= withAttribute "GDL input") >>~ pushContext "gdl_shell_command_4")
                            <|>
                            ((pRegExpr regex_x'28'5b'5e'5cs'5cw'5d'29 >>= withAttribute "GDL input") >>~ pushContext "gdl_shell_command_5")
                            <|>
                            ((pRegExpr regex_r'5c'28 >>= withAttribute "GDL input") >>~ pushContext "gdl_regexpr_1")
                            <|>
                            ((pRegExpr regex_r'5c'7b >>= withAttribute "GDL input") >>~ pushContext "gdl_regexpr_2")
                            <|>
                            ((pRegExpr regex_r'5c'5b >>= withAttribute "GDL input") >>~ pushContext "gdl_regexpr_3")
                            <|>
                            ((pRegExpr regex_r'3c >>= withAttribute "GDL input") >>~ pushContext "gdl_regexpr_4")
                            <|>
                            ((pRegExpr regex_r'28'5b'5e'5cs'5cw'5d'29 >>= withAttribute "GDL input") >>~ pushContext "gdl_regexpr_5")
                            <|>
                            ((pRegExpr regex_Q'3f'5c'28 >>= withAttribute "GDL input") >>~ pushContext "gdl_dq_string_1")
                            <|>
                            ((pRegExpr regex_Q'3f'5c'7b >>= withAttribute "GDL input") >>~ pushContext "gdl_dq_string_2")
                            <|>
                            ((pRegExpr regex_Q'3f'5c'5b >>= withAttribute "GDL input") >>~ pushContext "gdl_dq_string_3")
                            <|>
                            ((pRegExpr regex_Q'3f'3c >>= withAttribute "GDL input") >>~ pushContext "gdl_dq_string_4")
                            <|>
                            ((pRegExpr regex_Q'3f'28'5b'5e'5cs'5cw'5d'29 >>= withAttribute "GDL input") >>~ pushContext "gdl_dq_string_5"))
         return (attr, result)

    parseRules "gdl_dq_string_1" =
      do (attr, result) <- (((parseRules "dq_string_rules"))
                            <|>
                            ((pDetect2Chars False '\\' ')' >>= withAttribute "String"))
                            <|>
                            ((pDetectChar False '(' >>= withAttribute "String") >>~ pushContext "gdl_dq_string_1_nested")
                            <|>
                            ((pDetectChar False ')' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_dq_string_1_nested" =
      do (attr, result) <- (((parseRules "dq_string_rules"))
                            <|>
                            ((pDetectChar False '(' >>= withAttribute "String") >>~ pushContext "gdl_dq_string_1_nested")
                            <|>
                            ((pDetectChar False ')' >>= withAttribute "String") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_dq_string_2" =
      do (attr, result) <- (((parseRules "dq_string_rules"))
                            <|>
                            ((pDetect2Chars False '\\' '}' >>= withAttribute "String"))
                            <|>
                            ((pDetectChar False '}' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ()))
                            <|>
                            ((pDetectChar False '{' >>= withAttribute "String") >>~ pushContext "gdl_dq_string_2_nested"))
         return (attr, result)

    parseRules "gdl_dq_string_2_nested" =
      do (attr, result) <- (((pDetectChar False '{' >>= withAttribute "String") >>~ pushContext "gdl_dq_string_2_nested")
                            <|>
                            ((pDetectChar False '}' >>= withAttribute "String") >>~ (popContext >> return ()))
                            <|>
                            ((parseRules "dq_string_rules")))
         return (attr, result)

    parseRules "gdl_dq_string_3" =
      do (attr, result) <- (((parseRules "dq_string_rules"))
                            <|>
                            ((pDetect2Chars False '\\' ']' >>= withAttribute "String"))
                            <|>
                            ((pDetectChar False '[' >>= withAttribute "String") >>~ pushContext "gdl_dq_string_3_nested")
                            <|>
                            ((pDetectChar False ']' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_dq_string_3_nested" =
      do (attr, result) <- (((pDetectChar False '[' >>= withAttribute "String") >>~ pushContext "gdl_dq_string_3_nested")
                            <|>
                            ((pDetectChar False ']' >>= withAttribute "String") >>~ (popContext >> return ()))
                            <|>
                            ((parseRules "dq_string_rules")))
         return (attr, result)

    parseRules "gdl_dq_string_4" =
      do (attr, result) <- (((parseRules "dq_string_rules"))
                            <|>
                            ((pDetect2Chars False '\\' '>' >>= withAttribute "String"))
                            <|>
                            ((pDetectChar False '<' >>= withAttribute "String") >>~ pushContext "gdl_dq_string_4_nested")
                            <|>
                            ((pDetectChar False '>' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_dq_string_4_nested" =
      do (attr, result) <- (((pDetectChar False '<' >>= withAttribute "String") >>~ pushContext "gdl_dq_string_4_nested")
                            <|>
                            ((pDetectChar False '>' >>= withAttribute "String") >>~ (popContext >> return ()))
                            <|>
                            ((parseRules "dq_string_rules")))
         return (attr, result)

    parseRules "gdl_dq_string_5" =
      do (attr, result) <- (((parseRules "dq_string_rules"))
                            <|>
                            ((pRegExprDynamic "\\\\%1" >>= withAttribute "String"))
                            <|>
                            ((pRegExprDynamic "\\s*%1" >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "dq_string_rules" =
      do (attr, result) <- (((pDetect2Chars False '\\' '\\' >>= withAttribute "String"))
                            <|>
                            ((pRegExpr regex_'23'40'7b1'2c2'7d >>= withAttribute "Substitution") >>~ pushContext "Short Subst")
                            <|>
                            ((pDetect2Chars False '#' '{' >>= withAttribute "Substitution") >>~ pushContext "Subst"))
         return (attr, result)

    parseRules "gdl_token_array_1" =
      do (attr, result) <- (((parseRules "token_array_rules"))
                            <|>
                            ((pDetect2Chars False '\\' ')' >>= withAttribute "String"))
                            <|>
                            ((pDetectChar False '(' >>= withAttribute "String") >>~ pushContext "gdl_token_array_1_nested")
                            <|>
                            ((pDetectChar False ')' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_token_array_1_nested" =
      do (attr, result) <- (((parseRules "token_array_rules"))
                            <|>
                            ((pDetectChar False '(' >>= withAttribute "String") >>~ pushContext "gdl_token_array_1_nested")
                            <|>
                            ((pDetectChar False ')' >>= withAttribute "String") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_token_array_2" =
      do (attr, result) <- (((parseRules "token_array_rules"))
                            <|>
                            ((pDetect2Chars False '\\' '}' >>= withAttribute "String"))
                            <|>
                            ((pDetectChar False '}' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ()))
                            <|>
                            ((pDetectChar False '{' >>= withAttribute "String") >>~ pushContext "gdl_token_array_2_nested"))
         return (attr, result)

    parseRules "gdl_token_array_2_nested" =
      do (attr, result) <- (((parseRules "token_array_rules"))
                            <|>
                            ((pDetectChar False '{' >>= withAttribute "String") >>~ pushContext "gdl_token_array_2_nested")
                            <|>
                            ((pDetectChar False '}' >>= withAttribute "String") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_token_array_3" =
      do (attr, result) <- (((parseRules "token_array_rules"))
                            <|>
                            ((pDetect2Chars False '\\' ']' >>= withAttribute "String"))
                            <|>
                            ((pDetectChar False '[' >>= withAttribute "String") >>~ pushContext "gdl_token_array_3_nested")
                            <|>
                            ((pDetectChar False ']' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_token_array_3_nested" =
      do (attr, result) <- (((parseRules "token_array_rules"))
                            <|>
                            ((pDetectChar False '[' >>= withAttribute "String") >>~ pushContext "gdl_token_array_3_nested")
                            <|>
                            ((pDetectChar False ']' >>= withAttribute "String") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_token_array_4" =
      do (attr, result) <- (((parseRules "token_array_rules"))
                            <|>
                            ((pDetect2Chars False '\\' '>' >>= withAttribute "String"))
                            <|>
                            ((pDetectChar False '<' >>= withAttribute "String") >>~ pushContext "gdl_token_array_4_nested")
                            <|>
                            ((pDetectChar False '>' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_token_array_4_nested" =
      do (attr, result) <- (((parseRules "token_array_rules"))
                            <|>
                            ((pDetectChar False '<' >>= withAttribute "String") >>~ pushContext "gdl_token_array_4_nested")
                            <|>
                            ((pDetectChar False '>' >>= withAttribute "String") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_token_array_5" =
      do (attr, result) <- (((parseRules "token_array_rules"))
                            <|>
                            ((pRegExprDynamic "\\\\%1" >>= withAttribute "String"))
                            <|>
                            ((pRegExprDynamic "\\s*%1" >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "token_array_rules" =
      do (attr, result) <- ((pString False "\\\\" >>= withAttribute "String"))
         return (attr, result)

    parseRules "gdl_apostrophed_1" =
      do (attr, result) <- (((parseRules "apostrophed_rules"))
                            <|>
                            ((pDetect2Chars False '\\' ')' >>= withAttribute "Raw String"))
                            <|>
                            ((pDetectChar False '(' >>= withAttribute "Raw String") >>~ pushContext "gdl_apostrophed_1_nested")
                            <|>
                            ((pDetectChar False ')' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_apostrophed_1_nested" =
      do (attr, result) <- (((parseRules "apostrophed_rules"))
                            <|>
                            ((pDetectChar False '(' >>= withAttribute "Raw String") >>~ pushContext "gdl_apostrophed_1_nested")
                            <|>
                            ((pDetectChar False ')' >>= withAttribute "Raw String") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_apostrophed_2" =
      do (attr, result) <- (((parseRules "apostrophed_rules"))
                            <|>
                            ((pDetect2Chars False '\\' '}' >>= withAttribute "Raw String"))
                            <|>
                            ((pDetectChar False '}' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ()))
                            <|>
                            ((pDetectChar False '{' >>= withAttribute "Raw String") >>~ pushContext "gdl_apostrophed_2_nested"))
         return (attr, result)

    parseRules "gdl_apostrophed_2_nested" =
      do (attr, result) <- (((parseRules "apostrophed_rules"))
                            <|>
                            ((pDetectChar False '{' >>= withAttribute "Raw String") >>~ pushContext "gdl_apostrophed_2_nested")
                            <|>
                            ((pDetectChar False '}' >>= withAttribute "Raw String") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_apostrophed_3" =
      do (attr, result) <- (((parseRules "apostrophed_rules"))
                            <|>
                            ((pDetect2Chars False '\\' ']' >>= withAttribute "Raw String"))
                            <|>
                            ((pDetectChar False '[' >>= withAttribute "Raw String") >>~ pushContext "gdl_apostrophed_3_nested")
                            <|>
                            ((pDetectChar False ']' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_apostrophed_3_nested" =
      do (attr, result) <- (((parseRules "apostrophed_rules"))
                            <|>
                            ((pDetectChar False '[' >>= withAttribute "Raw String") >>~ pushContext "gdl_apostrophed_3_nested")
                            <|>
                            ((pDetectChar False ']' >>= withAttribute "Raw String") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_apostrophed_4" =
      do (attr, result) <- (((parseRules "apostrophed_rules"))
                            <|>
                            ((pDetect2Chars False '\\' '>' >>= withAttribute "Raw String"))
                            <|>
                            ((pDetectChar False '<' >>= withAttribute "Raw String") >>~ pushContext "gdl_apostrophed_4_nested")
                            <|>
                            ((pDetectChar False '>' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_apostrophed_4_nested" =
      do (attr, result) <- (((parseRules "apostrophed_rules"))
                            <|>
                            ((pDetectChar False '<' >>= withAttribute "Raw String") >>~ pushContext "gdl_apostrophed_4_nested")
                            <|>
                            ((pDetectChar False '>' >>= withAttribute "Raw String") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_apostrophed_5" =
      do (attr, result) <- (((parseRules "apostrophed_rules"))
                            <|>
                            ((pRegExprDynamic "\\\\%1" >>= withAttribute "Raw String"))
                            <|>
                            ((pRegExprDynamic "\\s*%1" >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "apostrophed_rules" =
      do (attr, result) <- ((pDetect2Chars False '\\' '\\' >>= withAttribute "Raw String"))
         return (attr, result)

    parseRules "gdl_shell_command_1" =
      do (attr, result) <- (((parseRules "shell_command_rules"))
                            <|>
                            ((pDetect2Chars False '\\' ')' >>= withAttribute "Command"))
                            <|>
                            ((pDetectChar False '(' >>= withAttribute "Command") >>~ pushContext "gdl_shell_command_1_nested")
                            <|>
                            ((pDetectChar False ')' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_shell_command_1_nested" =
      do (attr, result) <- (((parseRules "shell_command_rules"))
                            <|>
                            ((pDetectChar False '(' >>= withAttribute "Command") >>~ pushContext "gdl_shell_command_1_nested")
                            <|>
                            ((pDetectChar False ')' >>= withAttribute "Command") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_shell_command_2" =
      do (attr, result) <- (((parseRules "shell_command_rules"))
                            <|>
                            ((pDetect2Chars False '\\' '}' >>= withAttribute "Command"))
                            <|>
                            ((pDetectChar False '}' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ()))
                            <|>
                            ((pDetectChar False '{' >>= withAttribute "Command") >>~ pushContext "gdl_shell_command_2_nested"))
         return (attr, result)

    parseRules "gdl_shell_command_2_nested" =
      do (attr, result) <- (((parseRules "shell_command_rules"))
                            <|>
                            ((pDetectChar False '{' >>= withAttribute "Command") >>~ pushContext "gdl_shell_command_2_nested")
                            <|>
                            ((pDetectChar False '}' >>= withAttribute "Command") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_shell_command_3" =
      do (attr, result) <- (((parseRules "shell_command_rules"))
                            <|>
                            ((pDetect2Chars False '\\' ']' >>= withAttribute "Command"))
                            <|>
                            ((pDetectChar False '[' >>= withAttribute "Command") >>~ pushContext "gdl_shell_command_3_nested")
                            <|>
                            ((pDetectChar False ']' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_shell_command_3_nested" =
      do (attr, result) <- (((parseRules "shell_command_rules"))
                            <|>
                            ((pDetectChar False '[' >>= withAttribute "Command") >>~ pushContext "gdl_shell_command_3_nested")
                            <|>
                            ((pDetectChar False ']' >>= withAttribute "Command") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_shell_command_4" =
      do (attr, result) <- (((parseRules "shell_command_rules"))
                            <|>
                            ((pDetect2Chars False '\\' '>' >>= withAttribute "Command"))
                            <|>
                            ((pDetectChar False '<' >>= withAttribute "Command") >>~ pushContext "gdl_shell_command_4_nested")
                            <|>
                            ((pDetectChar False '>' >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_shell_command_4_nested" =
      do (attr, result) <- (((parseRules "shell_command_rules"))
                            <|>
                            ((pDetectChar False '<' >>= withAttribute "Command") >>~ pushContext "gdl_shell_command_4_nested")
                            <|>
                            ((pDetectChar False '>' >>= withAttribute "Command") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_shell_command_5" =
      do (attr, result) <- (((parseRules "shell_command_rules"))
                            <|>
                            ((pRegExprDynamic "\\\\%1" >>= withAttribute "Command"))
                            <|>
                            ((pRegExprDynamic "\\s*%1" >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "shell_command_rules" =
      do (attr, result) <- (((pDetect2Chars False '\\' '\\' >>= withAttribute "Command"))
                            <|>
                            ((pRegExpr regex_'23'40'7b1'2c2'7d >>= withAttribute "Substitution") >>~ pushContext "Short Subst")
                            <|>
                            ((pDetect2Chars False '#' '{' >>= withAttribute "Substitution") >>~ pushContext "Subst"))
         return (attr, result)

    parseRules "gdl_regexpr_1" =
      do (attr, result) <- (((parseRules "regexpr_rules"))
                            <|>
                            ((pDetect2Chars False '\\' ')' >>= withAttribute "Regular Expression"))
                            <|>
                            ((pDetectChar False '(' >>= withAttribute "Regular Expression") >>~ pushContext "gdl_regexpr_1_nested")
                            <|>
                            ((pRegExpr regex_'5c'29'5buiomxn'5d'2a >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_regexpr_1_nested" =
      do (attr, result) <- (((parseRules "regexpr_rules"))
                            <|>
                            ((pDetectChar False '(' >>= withAttribute "Regular Expression") >>~ pushContext "gdl_regexpr_1_nested")
                            <|>
                            ((pDetectChar False ')' >>= withAttribute "Regular Expression") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_regexpr_2" =
      do (attr, result) <- (((parseRules "regexpr_rules"))
                            <|>
                            ((pDetect2Chars False '\\' '}' >>= withAttribute "Regular Expression"))
                            <|>
                            ((pRegExpr regex_'5c'7d'5buiomxn'5d'2a >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ()))
                            <|>
                            ((pDetectChar False '{' >>= withAttribute "Regular Expression") >>~ pushContext "gdl_regexpr_2_nested"))
         return (attr, result)

    parseRules "gdl_regexpr_2_nested" =
      do (attr, result) <- (((parseRules "regexpr_rules"))
                            <|>
                            ((pDetectChar False '{' >>= withAttribute "Regular Expression") >>~ pushContext "gdl_regexpr_2_nested")
                            <|>
                            ((pDetectChar False '}' >>= withAttribute "Regular Expression") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_regexpr_3" =
      do (attr, result) <- (((parseRules "regexpr_rules"))
                            <|>
                            ((pDetect2Chars False '\\' ']' >>= withAttribute "Regular Expression"))
                            <|>
                            ((pDetectChar False '[' >>= withAttribute "Regular Expression") >>~ pushContext "gdl_regexpr_3_nested")
                            <|>
                            ((pRegExpr regex_'5c'5d'5buiomxn'5d'2a >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_regexpr_3_nested" =
      do (attr, result) <- (((parseRules "regexpr_rules"))
                            <|>
                            ((pDetectChar False '[' >>= withAttribute "Regular Expression") >>~ pushContext "gdl_regexpr_3_nested")
                            <|>
                            ((pDetectChar False ']' >>= withAttribute "Regular Expression") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_regexpr_4" =
      do (attr, result) <- (((parseRules "regexpr_rules"))
                            <|>
                            ((pDetect2Chars False '\\' '>' >>= withAttribute "Regular Expression"))
                            <|>
                            ((pDetectChar False '<' >>= withAttribute "Regular Expression") >>~ pushContext "gdl_regexpr_4_nested")
                            <|>
                            ((pRegExpr regex_'3e'5buiomxn'5d'2a >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "gdl_regexpr_4_nested" =
      do (attr, result) <- (((parseRules "regexpr_rules"))
                            <|>
                            ((pDetectChar False '<' >>= withAttribute "Regular Expression") >>~ pushContext "gdl_regexpr_4_nested")
                            <|>
                            ((pDetectChar False '>' >>= withAttribute "Regular Expression") >>~ (popContext >> return ())))
         return (attr, result)

    parseRules "gdl_regexpr_5" =
      do (attr, result) <- (((parseRules "regexpr_rules"))
                            <|>
                            ((pRegExprDynamic "\\\\%1" >>= withAttribute "Regular Expression"))
                            <|>
                            ((pRegExprDynamic "\\s*%1[uiomxn]*" >>= withAttribute "GDL input") >>~ (popContext >> popContext >> return ())))
         return (attr, result)

    parseRules "regexpr_rules" =
      do (attr, result) <- (((pDetect2Chars False '\\' '\\' >>= withAttribute "Regular Expression"))
                            <|>
                            ((pRegExpr regex_'23'40'7b1'2c2'7d >>= withAttribute "Substitution") >>~ pushContext "Short Subst")
                            <|>
                            ((pDetect2Chars False '#' '{' >>= withAttribute "Substitution") >>~ pushContext "Subst"))
         return (attr, result)

    parseRules "DATA" =
      pzero

    parseRules x = fail $ "Unknown context" ++ x