Text/Highlighting/Kate/Syntax/Ilerpg.hs

{- This module was generated from data in the Kate syntax highlighting file ilerpg.xml, version 1.05,
   by   -}

module Text.Highlighting.Kate.Syntax.Ilerpg ( 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 = "ILERPG"

-- | Filename extensions for this language.
syntaxExtensions :: String
syntaxExtensions = "QRPG*.*;qrpg*.*"

-- | 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 = "ILERPG" }
  context <- currentContext <|> (pushContext "Default" >> 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 [("ILERPG",["Default"])], synStLanguage = "ILERPG", synStCurrentLine = "", synStCharsParsedInLine = 0, synStPrevChar = '\n', synStCaseSensitive = False, synStKeywordCaseSensitive = False, synStCaptures = []}

parseSourceLine = manyTill parseExpressionInternal pEndLine

pEndLine = do
  lookAhead $ newline <|> (eof >> return '\n')
  context <- currentContext
  case context of
    "Default" -> return () >> pHandleEndLine
    "CControlLevel" -> (popContext) >> pEndLine
    "CIndicators" -> (popContext >> popContext) >> pEndLine
    "CFactor1" -> (popContext >> popContext >> popContext) >> pEndLine
    "FindOC" -> (popContext >> popContext >> popContext >> popContext) >> pEndLine
    "NonEvalOC2" -> pushContext "Default" >> pHandleEndLine
    "NonEvalOC3" -> pushContext "Default" >> pHandleEndLine
    "NonEvalOC4" -> pushContext "Default" >> pHandleEndLine
    "NonEvalOC5" -> pushContext "Default" >> pHandleEndLine
    "NonEvalOC6" -> pushContext "Default" >> pHandleEndLine
    "NonEvalOC7" -> pushContext "Default" >> pHandleEndLine
    "CFactor2" -> pushContext "Default" >> pHandleEndLine
    "EvalOC2" -> pushContext "Default" >> pHandleEndLine
    "EvalOC3" -> pushContext "Default" >> pHandleEndLine
    "EvalOC4" -> pushContext "Default" >> pHandleEndLine
    "EvalOC5" -> pushContext "Default" >> pHandleEndLine
    "EvalOC6" -> pushContext "Default" >> pHandleEndLine
    "EvalOC8" -> pushContext "Default" >> pHandleEndLine
    "CExFactor2" -> pushContext "Default" >> pHandleEndLine
    "EvalOCCont" -> return () >> pHandleEndLine
    "Comments" -> (popContext) >> pEndLine
    "StringConstants" -> (popContext) >> pEndLine
    "Directives" -> pushContext "Default" >> pHandleEndLine
    "Directives2" -> pushContext "Default" >> pHandleEndLine
    "Directives3" -> pushContext "Default" >> pHandleEndLine
    "Free" -> return () >> pHandleEndLine
    "Exec" -> return () >> pHandleEndLine
    "Biffs" -> (popContext) >> pEndLine
    "CommonCode" -> return () >> pHandleEndLine
    "Indicators" -> return () >> pHandleEndLine
    "ReservedWords" -> return () >> pHandleEndLine
    "AnyCode" -> (popContext) >> pEndLine
    "D" -> (popContext) >> pEndLine
    "P" -> (popContext) >> pEndLine
    _ -> pHandleEndLine

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 = [("Alert","al"),("Keyword","kw"),("Biff","kw"),("RegExpr","bn"),("Decimal","dv"),("Float","fl"),("Octal","bn"),("Hex","bn"),("Float","fl"),("Base-N","bn"),("Float","fl"),("Char","ch"),("Comment","co"),("DivideComment","co"),("Directive","ot")]

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

list_dkeywords = Set.fromList $ words $ "extproc extpgm opdesc datfmt dim likeds likerec like procptr timfmt varying ascend const noopt options value qualified inz based"
list_pkeywords = Set.fromList $ words $ "datfmt dim like likeds likerec procptr timfmt"
list_directives = Set.fromList $ words $ "free end-free title eject space copy include define undefine if else exec end-exec elseif endif eof"
list_directives2 = Set.fromList $ words $ "not defined"
list_directives3 = Set.fromList $ words $ "defined"
list_biffs = Set.fromList $ words $ "abs addr alloc bitand bitnot bitor bitxor char check checkr date days dec dech decpos diff div editc editflt editw elem eof equal error fields float found graph hours int inth kds len lookup lookuplt lookuple lookupgt lookupge minutes months mseconds nullind occur open paddr parms realloc rem replace scan seconds shtdn size sqrt status str subarr subdt subst this time timestamp tlookup tlookuplt tlookuple tlookupgt tlookupge trim triml trimr ucs2 uns unsh xfoot xlate years"
list_evalopcodes2 = Set.fromList $ words $ "if"
list_evalopcodes3 = Set.fromList $ words $ "dow dou for"
list_evalopcodes4 = Set.fromList $ words $ "when eval"
list_evalopcodes5 = Set.fromList $ words $ "evalr"
list_evalopcodes6 = Set.fromList $ words $ "return"
list_evalopcodes8 = Set.fromList $ words $ "on-error"
list_nonevalopcodes2 = Set.fromList $ words $ "do in or"
list_nonevalopcodes3 = Set.fromList $ words $ "acq add and cab cas cat div dou end mvr out rel sub tag"
list_nonevalopcodes4 = Set.fromList $ words $ "call comp dump else exsr feod goto ifgt iflt ifeq ifne ifge ifle iter kfld move mult next open orgt orlt oreq orne orge orle parm post read scan sqrt test time"
list_nonevalopcodes5 = Set.fromList $ words $ "alloc andgt andlt andeq andne andge andle begsr biton cabgt cablt cabeq cabne cabge cable callb callp casgt caslt caseq casne casge casle chain check clear close check clear close dowgt dowlt doweq downe dowge dowle dougt doult doueq doune douge doule dsply endcs enddo endif endsl endsr exfmt force klist leave mhhzo mhlzo mlhzo mllzo movea movel occur other plist readc reade readp reset rolbk setgt setll seton shtdn sorta subst testb testn testz write xfoot xlate"
list_nonevalopcodes6 = Set.fromList $ words $ "adddur bitoff checkr commit define delete except extrct lookup readpe return select setoff subdur unlock update whengt whenlt wheneq whennr whenge whenle"
list_nonevalopcodes7 = Set.fromList $ words $ "dealloc realloc"
list_freeopcodes = Set.fromList $ words $ "acq begsr callp chain clear close commit dealloc delete dou dow dsply dump else elseif enddo endfor endif endmon endsl endsr eval evalr except exfmt exsr feod for force if in iter leave leavesr monitor next on-error open other out post read readc reade readp readpe rel reset return rolbk select setgt setll sorta test unlock update when write"

regex_'5bPpOoIiHhFfDdCc_'5d'3f'5c'2a = compileRegex "[PpOoIiHhFfDdCc ]?\\*"
regex_'5bPpOoIiHhFfDdCc_'5d'3f'2f = compileRegex "[PpOoIiHhFfDdCc ]?/"
regex_'5c_'7b2'7d = compileRegex "\\ {2}"
regex_'5bL'7cl'5d'5b0'2d9'5d = compileRegex "[L|l][0-9]"
regex_'5bO'7co'7cL'7cl'7cS'7cs'5d'5bR'7cr'5d = compileRegex "[O|o|L|l|S|s][R|r]"
regex_'5bA'7ca'5d'5bN'7cn'5d = compileRegex "[A|a][N|n]"
regex_'5bL'7cl'7cS'7cs'5d'5bR'7cr'5d = compileRegex "[L|l|S|s][R|r]"
regex_'2e'7b2'7d = compileRegex ".{2}"
regex_'5c_'7b3'7d = compileRegex "\\ {3}"
regex_'5b'5c_'7cN'7cn'5d'5b0'2d9'5d'7b2'7d = compileRegex "[\\ |N|n][0-9]{2}"
regex_'5b'5c_'7cN'7cn'5d'5bK'7ck'5d'5bA'2dN'7cp'2dy'5d = compileRegex "[\\ |N|n][K|k][A-N|p-y]"
regex_'5b'5c_'7cN'7cn'5d'5bK'7ck'5d'5bP'2dY'7cp'2dy'5d'7d = compileRegex "[\\ |N|n][K|k][P-Y|p-y]}"
regex_'5b'5c_'7cN'7cn'5d'5bL'7cl'5d'5b1'2d9'5d = compileRegex "[\\ |N|n][L|l][1-9]"
regex_'5b'5c_'7cN'7cn'5d'5bL'7cl'7cM'7cm'5d'5bR'7cr'5d = compileRegex "[\\ |N|n][L|l|M|m][R|r]"
regex_'5b'5c_'7cN'7cn'5d'5bR'7cr'5d'5bT'7ct'5d = compileRegex "[\\ |N|n][R|r][T|t]"
regex_'5b'5c_'7cN'7cn'5d'5bU'7cu'5d'5b1'2d8'5d = compileRegex "[\\ |N|n][U|u][1-8]"
regex_'5b'5c_'7cN'7cn'5d'5bO'7co'5d'5bA'2dG'7ca'2dg'5d = compileRegex "[\\ |N|n][O|o][A-G|a-g]"
regex_'5b'5c_'7cN'7cn'5d'5bO'7co'5d'5bV'7cv'5d = compileRegex "[\\ |N|n][O|o][V|v]"
regex_'5b'5c_'7cN'7cn'5d'5bH'7ch'5d'5b1'2d9'5d = compileRegex "[\\ |N|n][H|h][1-9]"
regex_'2e'7b3'7d = compileRegex ".{3}"
regex_'2e'7b14'7d = compileRegex ".{14}"
regex_'5bZ'7cz'5d'2d'28'5bA'7ca'5d'5bD'7cd'5d'7b2'7d'7c'5bS'7cs'5d'5bU'7cu'5d'5bB'7cb'5d'29 = compileRegex "[Z|z]-([A|a][D|d]{2}|[S|s][U|u][B|b])"
regex_'5bO'7co'5d'5bN'7cn'5d'2d'28'5bE'7ce'5d'5bR'7cr'5d'7b2'7d'7c'5bO'7co'5d'5bR'7cr'5d'29 = compileRegex "[O|o][N|n]-([E|e][R|r]{2}|[O|o][R|r])"
regex_'5c_'7b10'7d = compileRegex "\\ {10}"
regex_'2e'7b10'7d = compileRegex ".{10}"
regex_'5c_'7b8'7d = compileRegex "\\ {8}"
regex_'5c_'7b7'7d = compileRegex "\\ {7}"
regex_'5c_'7b6'7d = compileRegex "\\ {6}"
regex_'5c_'7b5'7d = compileRegex "\\ {5}"
regex_'5c_'7b4'7d = compileRegex "\\ {4}"
regex_'5c'28'2a'28FIXME'7cTODO'29'5c'29'2a = compileRegex "\\(*(FIXME|TODO)\\)*"
regex_'5c'28'2a'28NOTE'3a'29'5c'29'2a = compileRegex "\\(*(NOTE:)\\)*"
regex_'2d'7c'3d = compileRegex "-|="
regex_'5bF'7cf'5d'5bR'7cr'5d'5bE'7ce'5d'5bE'7ce'5d = compileRegex "[F|f][R|r][E|e][E|e]"
regex_'5bE'7ce'5d'5bX'7cx'5d'5bE'7ce'5d'5bC'7cc'5d = compileRegex "[E|e][X|x][E|e][C|c]"
regex_'5bPOIHFDC_'5d'3f'2f'5bE'7ce'5d'5bN'7cn'5d'5bD'7cd'5d'2d'5bF'7cf'5d'5bR'7cr'5d'5bE'7ce'5d'5bE'7ce'5d = compileRegex "[POIHFDC ]?/[E|e][N|n][D|d]-[F|f][R|r][E|e][E|e]"
regex_'2f'2f = compileRegex "//"
regex_'5bPOIHFDC_'5d'3f'2f'5bE'7ce'5d'5bN'7cn'5d'5bD'7cd'5d'2d'5bE'7ce'5d'5bX'7cx'5d'5bE'7ce'5d'5bC'7cc'5d = compileRegex "[POIHFDC ]?/[E|e][N|n][D|d]-[E|e][X|x][E|e][C|c]"
regex_'2e = compileRegex "."
regex_'5bXx'5d'27'5b0'2d9a'2dfA'2dF'5d'7b2'2c'7d'27 = compileRegex "[Xx]'[0-9a-fA-F]{2,}'"
regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f'5b0'2d9'5d'5b0'2d9'5d'5c'29'3f = compileRegex "\\*[I|i][N|n]\\(?[0-9][0-9]\\)?"
regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f1'5bP'7cp'5d'5c'29'3f = compileRegex "\\*[I|i][N|n]\\(?1[P|p]\\)?"
regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f'5bH'7ch'7cL'7cl'5d'5b1'2d9'5d'5c'29'3f = compileRegex "\\*[I|i][N|n]\\(?[H|h|L|l][1-9]\\)?"
regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f'5bL'7cl'7cM'7cm'5d'5bR'7cr'5d'5c'29'3f = compileRegex "\\*[I|i][N|n]\\(?[L|l|M|m][R|r]\\)?"
regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f'5bO'7co'5d'5bA'2dG'7ca'2dg'7cV'7cv'5d'5c'29'3f = compileRegex "\\*[I|i][N|n]\\(?[O|o][A-G|a-g|V|v]\\)?"
regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f'5bU'7cu'5d'5b1'2d8'5d'5c'29'3f = compileRegex "\\*[I|i][N|n]\\(?[U|u][1-8]\\)?"
regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f'5bK'7ck'5d'5bA'2dN'7ca'2dn'7cP'2dY'7cp'2dy'5d'5c'29'3f = compileRegex "\\*[I|i][N|n]\\(?[K|k][A-N|a-n|P-Y|p-y]\\)?"
regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f'5bR'7cr'5d'5bT'7ct'5d'5c'29'3f = compileRegex "\\*[I|i][N|n]\\(?[R|r][T|t]\\)?"
regex_'5b'5c'2a'7cU'7cu'5d'5bD'7cd'5d'5bA'7ca'5d'5bT'7ct'5d'5bE'7ce'5d = compileRegex "[\\*|U|u][D|d][A|a][T|t][E|e]"
regex_'5b'5c'2a'7cU'7cu'5d'5bM'7cm'5d'5bO'7co'5d'5bN'7cn'5d'5bT'7ct'5d'5bH'7ch'5d = compileRegex "[\\*|U|u][M|m][O|o][N|n][T|t][H|h]"
regex_'5b'5c'2a'7cU'7cu'5d'5bY'7cy'5d'5bE'7ce'5d'5bA'7ca'5d'5bR'7cr'5d = compileRegex "[\\*|U|u][Y|y][E|e][A|a][R|r]"
regex_'5b'5c'2a'7cU'7cu'5d'5bD'7cd'5d'5bA'7ca'5d'5bY'7cy'5d = compileRegex "[\\*|U|u][D|d][A|a][Y|y]"
regex_'5c_'5bP'7cp'5d'5bA'7ca'5d'5bG'7cg'5d'5bE'7ce'5d'5b1'2d7'5d'3f = compileRegex "\\ [P|p][A|a][G|g][E|e][1-7]?"
regex_'5c'2a'28'5bA'7ca'5d'5bA'7cl'5d'7b2'7d'5bX'7cx'7cG'7cg'5d'3f'7c'5bB'7cb'5d'5bL'7cl'5d'5bA'7ca'5d'5bN'7cn'5d'5bK'7ck'5d'5bS'7cs'5d'3f'7c'5bO'7co'5d'5bN'7cn'5d'7c'5bO'7co'5d'5bF'7cf'5d'7b2'7d'7c'5bN'7cn'5d'5bU'7cu'5d'5bL'7cl'5d'7b2'7d'7c'5bZ'7cz'5d'5bE'7ce'5d'5bR'7cr'5d'5bO'7co'5d'5bS'7cs'5d'3f'7c'5bH'7ch'5d'5bI'7ci'5d'5bV'7cv'5d'5bA'7ca'5d'5bL'7cl'5d'7c'5bL'7cl'5d'5bO'7co'5d'5bV'7cv'5d'5bA'7ca'5d'5bL'7cl'5d'7c'5bP'7cp'5d'5bS'7cs'5d'7b2'7d'5bR'7cr'5d'7c'5bE'7ce'5d'5bN'7cn'5d'5bD'7cd'5d'7c'5bS'7cs'5d'5bT'7ct'5d'5bA'7ca'5d'5bR'7cr'5d'5bT'7ct'5d'29 = compileRegex "\\*([A|a][A|l]{2}[X|x|G|g]?|[B|b][L|l][A|a][N|n][K|k][S|s]?|[O|o][N|n]|[O|o][F|f]{2}|[N|n][U|u][L|l]{2}|[Z|z][E|e][R|r][O|o][S|s]?|[H|h][I|i][V|v][A|a][L|l]|[L|l][O|o][V|v][A|a][L|l]|[P|p][S|s]{2}[R|r]|[E|e][N|n][D|d]|[S|s][T|t][A|a][R|r][T|t])"
regex_'5c'2a'5bC'7cc'5d'5bD'7cd'5d'5bM'7cm'5d'5bY'7cy'5d = compileRegex "\\*[C|c][D|d][M|m][Y|y]"
regex_'5c'2a'5bC'7cc'5d'5bM'7cm'5d'5bD'7cd'5d'5bY'7cy'5d = compileRegex "\\*[C|c][M|m][D|d][Y|y]"
regex_'5c'2a'5bC'7cc'5d'5bY'7cy'5d'5bM'7cm'5d'5bD'7cd'5d = compileRegex "\\*[C|c][Y|y][M|m][D|d]"
regex_'5c'2a'5bD'7cd'5d'5bM'7cm'5d'5bY'7cy'5d = compileRegex "\\*[D|d][M|m][Y|y]"
regex_'5c'2a'5bE'7ce'5d'5bU'7cu'5d'5bR'7cr'5d = compileRegex "\\*[E|e][U|u][R|r]"
regex_'5c'2a'5bH'7ch'5d'5bM'7cm'5d'5bS'7cs'5d = compileRegex "\\*[H|h][M|m][S|s]"
regex_'5c'2a'5bI'7ci'5d'5bS'7cs'5d'5bO'7co'5d = compileRegex "\\*[I|i][S|s][O|o]"
regex_'5c'2a'5bJ'7cj'5d'5bI'7ci'5d'5bS'7cs'5d = compileRegex "\\*[J|j][I|i][S|s]"
regex_'5c'2a'5bJ'7cj'5d'5bO'7co'5d'5bB'7cb'5d'28'5bR'7cr'5d'5bU'7cu'5d'5bN'7cn'5d'29'3f = compileRegex "\\*[J|j][O|o][B|b]([R|r][U|u][N|n])?"
regex_'5c'2a'28'5bL'7cl'5d'5bO'7co'5d'5bN'7cn'5d'5bG'7cg'5d'29'3f'5bJ'7cj'5d'5bU'7cu'5d'5bL'7cl'5d = compileRegex "\\*([L|l][O|o][N|n][G|g])?[J|j][U|u][L|l]"
regex_'5c'2a'5bM'7cm'5d'5bD'7cd'5d'5bY'7cy'5d = compileRegex "\\*[M|m][D|d][Y|y]"
regex_'5c'2a'5bS'7cs'5d'5bY'7cy'5d'5bS'7cs'5d = compileRegex "\\*[S|s][Y|y][S|s]"
regex_'5c'2a'5bU'7cu'5d'5bS'7cs'5d'5bA'7ca'5d = compileRegex "\\*[U|u][S|s][A|a]"
regex_'5c'2a'5bY'7cy'5d'5bM'7cm'5d'5bD'7cd'5d = compileRegex "\\*[Y|y][M|m][D|d]"
regex_'5c'2a'5bA'7ca'5d'5bL'7cl'5d'5bT'7ct'5d'5bS'7cs'5d'5bE'7ce'5d'5bQ'7cq'5d = compileRegex "\\*[A|a][L|l][T|t][S|s][E|e][Q|q]"
regex_'5c'2a'5bE'7ce'5d'5bQ'7cq'5d'5bU'7cu'5d'5bA'7ca'5d'5bT'7ct'5d'5bE'7ce'5d = compileRegex "\\*[E|e][Q|q][U|u][A|a][T|t][E|e]"
regex_'5c'2a'5bF'7cf'5d'5bI'7ci'5d'5bL'7cl'5d'5bE'7ce'5d = compileRegex "\\*[F|f][I|i][L|l][E|e]"
regex_'5c'2a'5bF'7cf'5d'5bT'7ct'5d'5bR'7cr'5d'5bA'7ca'5d'5bN'7cn'5d'5bS'7cs'5d = compileRegex "\\*[F|f][T|t][R|r][A|a][N|n][S|s]"
regex_'5c'2a'5bI'7ci'5d'5bL'7cl'5d'5bE'7ce'5d'5bR'7cr'5d'5bP'7cp'5d'5bG'7cg'5d = compileRegex "\\*[I|i][L|l][E|e][R|r][P|p][G|g]"
regex_'5c'2a'5bC'7cc'5d'5bR'7cr'5d'5bT'7ct'5d'5bB'7cb'5d'5bN'7cn'5d'5bD'7cd'5d'5bR'7cr'5d'5bP'7cp'5d'5bG'7cg'5d = compileRegex "\\*[C|c][R|r][T|t][B|b][N|n][D|d][R|r][P|p][G|g]"
regex_'5c'2a'5bC'7cc'5d'5bR'7cr'5d'5bT'7ct'5d'5bR'7cr'5d'5bP'7cp'5d'5bG'7cg'5d'5bM'7cm'5d'5bO'7co'5d'5bD'7cd'5d = compileRegex "\\*[C|c][R|r][T|t][R|r][P|p][G|g][M|m][O|o][D|d]"
regex_'5c'2a'5bV'7cv'5d'5b0'2d9'5d'5bR'7cr'5d'5b0'2d9'5d'5bM'7cm'5d'5b0'2d9'5d = compileRegex "\\*[V|v][0-9][R|r][0-9][M|m][0-9]"
regex_'5c'2a'5bN'7cn'5d'5bO'7co'5d'5bP'7cp'5d'5bA'7ca'5d'5bS'7cs'5d'7b2'7d = compileRegex "\\*[N|n][O|o][P|p][A|a][S|s]{2}"
regex_'5c'2a'5bO'7co'5d'5bM'7cm'5d'5bI'7ci'5d'5bT'7ct'5d = compileRegex "\\*[O|o][M|m][I|i][T|t]"
regex_'5c'2a'5bV'7cv'5d'5bA'7ca'5d'5bR'7cr'5d'5bS'7cs'5d'5bI'7ci'5d'5bZ'7cz'5d'5bE'7ce'5d = compileRegex "\\*[V|v][A|a][R|r][S|s][I|i][Z|z][E|e]"
regex_'5c'2a'5bR'7cr'5d'5bI'7ci'5d'5bG'7cg'5d'5bH'7ch'5d'5bT'7ct'5d'5bA'7ca'5d'5bD'7cd'5d'5bJ'7cj'5d = compileRegex "\\*[R|r][I|i][G|g][H|h][T|t][A|a][D|d][J|j]"
regex_'5c'2a'5bS'7cs'5d'5bT'7ct'5d'5bR'7cr'5d'5bI'7ci'5d'5bN'7cn'5d'5bG'7cg'5d = compileRegex "\\*[S|s][T|t][R|r][I|i][N|n][G|g]"
regex_'5c'2a'5bT'7ct'5d'5bR'7cr'5d'5bI'7ci'5d'5bM'7cm'5d = compileRegex "\\*[T|t][R|r][I|i][M|m]"

defaultAttributes = [("Default","Normal Text"),("CControlLevel","Normal Text"),("CIndicators","Normal Text"),("CFactor1","Normal Text"),("FindOC","Normal Text"),("NonEvalOC2","Normal Text"),("NonEvalOC3","Normal Text"),("NonEvalOC4","Normal Text"),("NonEvalOC5","Normal Text"),("NonEvalOC6","Normal Text"),("NonEvalOC7","Normal Text"),("CFactor2","Normal Text"),("EvalOC2","Normal Text"),("EvalOC3","Normal Text"),("EvalOC4","Normal Text"),("EvalOC5","Normal Text"),("EvalOC6","Normal Text"),("EvalOC8","Normal Text"),("CExFactor2","Normal Text"),("EvalOCCont","Normal Text"),("Comments","Comment"),("StringConstants","ConstantChar"),("Directives","Normal Text"),("Directives2","Normal Text"),("Directives3","Normal Text"),("Free","Normal Text"),("Exec","Normal Text"),("Biffs","Biff"),("CommonCode","Normal Text"),("Indicators","Normal Text"),("ReservedWords","Normal Text"),("AnyCode","Normal Text"),("D","Normal Text"),("P","Normal Text")]

parseRules "Default" = 
  do (attr, result) <- (((pRegExpr regex_'5bPpOoIiHhFfDdCc_'5d'3f'5c'2a >>= withAttribute "Comment") >>~ pushContext "Comments")
                        <|>
                        ((pRegExpr regex_'5bPpOoIiHhFfDdCc_'5d'3f'2f >>= withAttribute "Directive") >>~ pushContext "Directives")
                        <|>
                        ((pAnyChar "OoIiHhFf" >>= withAttribute "Keyword") >>~ pushContext "AnyCode")
                        <|>
                        ((pAnyChar "Dd" >>= withAttribute "Keyword") >>~ pushContext "D")
                        <|>
                        ((pAnyChar "Pp" >>= withAttribute "Keyword") >>~ pushContext "P")
                        <|>
                        ((pAnyChar "Cc" >>= withAttribute "Keyword") >>~ pushContext "CControlLevel"))
     return (attr, result)

parseRules "CControlLevel" = 
  do (attr, result) <- (((pRegExpr regex_'5c_'7b2'7d >>= withAttribute "Indicator") >>~ pushContext "CIndicators")
                        <|>
                        ((pRegExpr regex_'5bL'7cl'5d'5b0'2d9'5d >>= withAttribute "Indicator") >>~ pushContext "CIndicators")
                        <|>
                        ((pRegExpr regex_'5bO'7co'7cL'7cl'7cS'7cs'5d'5bR'7cr'5d >>= withAttribute "Indicator") >>~ pushContext "CIndicators")
                        <|>
                        ((pRegExpr regex_'5bA'7ca'5d'5bN'7cn'5d >>= withAttribute "Indicator") >>~ pushContext "CIndicators")
                        <|>
                        ((pRegExpr regex_'5bL'7cl'7cS'7cs'5d'5bR'7cr'5d >>= withAttribute "Indicator") >>~ pushContext "CIndicators")
                        <|>
                        ((pRegExpr regex_'2e'7b2'7d >>= withAttribute "Alert") >>~ pushContext "CIndicators"))
     return (attr, result)

parseRules "CIndicators" = 
  do (attr, result) <- (((pRegExpr regex_'5c_'7b3'7d >>= withAttribute "Indicator") >>~ pushContext "CFactor1")
                        <|>
                        ((pRegExpr regex_'5b'5c_'7cN'7cn'5d'5b0'2d9'5d'7b2'7d >>= withAttribute "Indicator") >>~ pushContext "CFactor1")
                        <|>
                        ((pRegExpr regex_'5b'5c_'7cN'7cn'5d'5bK'7ck'5d'5bA'2dN'7cp'2dy'5d >>= withAttribute "Indicator") >>~ pushContext "CFactor1")
                        <|>
                        ((pRegExpr regex_'5b'5c_'7cN'7cn'5d'5bK'7ck'5d'5bP'2dY'7cp'2dy'5d'7d >>= withAttribute "Indicator") >>~ pushContext "CFactor1")
                        <|>
                        ((pRegExpr regex_'5b'5c_'7cN'7cn'5d'5bL'7cl'5d'5b1'2d9'5d >>= withAttribute "Indicator") >>~ pushContext "CFactor1")
                        <|>
                        ((pRegExpr regex_'5b'5c_'7cN'7cn'5d'5bL'7cl'7cM'7cm'5d'5bR'7cr'5d >>= withAttribute "Indicator") >>~ pushContext "CFactor1")
                        <|>
                        ((pRegExpr regex_'5b'5c_'7cN'7cn'5d'5bR'7cr'5d'5bT'7ct'5d >>= withAttribute "Indicator") >>~ pushContext "CFactor1")
                        <|>
                        ((pRegExpr regex_'5b'5c_'7cN'7cn'5d'5bU'7cu'5d'5b1'2d8'5d >>= withAttribute "Indicator") >>~ pushContext "CFactor1")
                        <|>
                        ((pRegExpr regex_'5b'5c_'7cN'7cn'5d'5bO'7co'5d'5bA'2dG'7ca'2dg'5d >>= withAttribute "Indicator") >>~ pushContext "CFactor1")
                        <|>
                        ((pRegExpr regex_'5b'5c_'7cN'7cn'5d'5bO'7co'5d'5bV'7cv'5d >>= withAttribute "Indicator") >>~ pushContext "CFactor1")
                        <|>
                        ((pRegExpr regex_'5b'5c_'7cN'7cn'5d'5bH'7ch'5d'5b1'2d9'5d >>= withAttribute "Indicator") >>~ pushContext "CFactor1")
                        <|>
                        ((pRegExpr regex_'2e'7b3'7d >>= withAttribute "Alert") >>~ pushContext "CFactor1"))
     return (attr, result)

parseRules "CFactor1" = 
  do (attr, result) <- ((pRegExpr regex_'2e'7b14'7d >>= withAttribute "Normal Text") >>~ pushContext "FindOC")
     return (attr, result)

parseRules "FindOC" = 
  do (attr, result) <- (((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_nonevalopcodes2 >>= withAttribute "Keyword") >>~ pushContext "NonEvalOC2")
                        <|>
                        ((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_nonevalopcodes3 >>= withAttribute "Keyword") >>~ pushContext "NonEvalOC3")
                        <|>
                        ((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_nonevalopcodes4 >>= withAttribute "Keyword") >>~ pushContext "NonEvalOC4")
                        <|>
                        ((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_nonevalopcodes5 >>= withAttribute "Keyword") >>~ pushContext "NonEvalOC5")
                        <|>
                        ((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_nonevalopcodes6 >>= withAttribute "Keyword") >>~ pushContext "NonEvalOC6")
                        <|>
                        ((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_nonevalopcodes7 >>= withAttribute "Keyword") >>~ pushContext "NonEvalOC7")
                        <|>
                        ((pRegExpr regex_'5bZ'7cz'5d'2d'28'5bA'7ca'5d'5bD'7cd'5d'7b2'7d'7c'5bS'7cs'5d'5bU'7cu'5d'5bB'7cb'5d'29 >>= withAttribute "Keyword") >>~ pushContext "NonEvalOC5")
                        <|>
                        ((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_evalopcodes2 >>= withAttribute "Keyword") >>~ pushContext "EvalOC2")
                        <|>
                        ((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_evalopcodes3 >>= withAttribute "Keyword") >>~ pushContext "EvalOC3")
                        <|>
                        ((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_evalopcodes4 >>= withAttribute "Keyword") >>~ pushContext "EvalOC4")
                        <|>
                        ((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_evalopcodes5 >>= withAttribute "Keyword") >>~ pushContext "EvalOC5")
                        <|>
                        ((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_evalopcodes6 >>= withAttribute "Keyword") >>~ pushContext "EvalOC6")
                        <|>
                        ((pRegExpr regex_'5bO'7co'5d'5bN'7cn'5d'2d'28'5bE'7ce'5d'5bR'7cr'5d'7b2'7d'7c'5bO'7co'5d'5bR'7cr'5d'29 >>= withAttribute "Keyword") >>~ pushContext "EvalOC8")
                        <|>
                        ((pRegExpr regex_'5c_'7b10'7d >>= withAttribute "Normal Text") >>~ pushContext "CFactor2")
                        <|>
                        ((pRegExpr regex_'2e'7b10'7d >>= withAttribute "Alert") >>~ pushContext "CFactor2"))
     return (attr, result)

parseRules "NonEvalOC2" = 
  do (attr, result) <- ((pRegExpr regex_'5c_'7b8'7d >>= withAttribute "Normal Text") >>~ pushContext "CFactor2")
     return (attr, result)

parseRules "NonEvalOC3" = 
  do (attr, result) <- ((pRegExpr regex_'5c_'7b7'7d >>= withAttribute "Normal Text") >>~ pushContext "CFactor2")
     return (attr, result)

parseRules "NonEvalOC4" = 
  do (attr, result) <- ((pRegExpr regex_'5c_'7b6'7d >>= withAttribute "Normal Text") >>~ pushContext "CFactor2")
     return (attr, result)

parseRules "NonEvalOC5" = 
  do (attr, result) <- ((pRegExpr regex_'5c_'7b5'7d >>= withAttribute "Normal Text") >>~ pushContext "CFactor2")
     return (attr, result)

parseRules "NonEvalOC6" = 
  do (attr, result) <- ((pRegExpr regex_'5c_'7b4'7d >>= withAttribute "Normal Text") >>~ pushContext "CFactor2")
     return (attr, result)

parseRules "NonEvalOC7" = 
  do (attr, result) <- ((pRegExpr regex_'5c_'7b3'7d >>= withAttribute "Normal Text") >>~ pushContext "CFactor2")
     return (attr, result)

parseRules "CFactor2" = 
  do (attr, result) <- (((pDetectChar False '%' >>= withAttribute "Biff") >>~ pushContext "Biffs")
                        <|>
                        ((parseRules "CommonCode")))
     return (attr, result)

parseRules "EvalOC2" = 
  do (attr, result) <- ((pRegExpr regex_'5c_'7b8'7d >>= withAttribute "Normal Text") >>~ pushContext "CExFactor2")
     return (attr, result)

parseRules "EvalOC3" = 
  do (attr, result) <- ((pRegExpr regex_'5c_'7b7'7d >>= withAttribute "Normal Text") >>~ pushContext "CExFactor2")
     return (attr, result)

parseRules "EvalOC4" = 
  do (attr, result) <- ((pRegExpr regex_'5c_'7b6'7d >>= withAttribute "Normal Text") >>~ pushContext "CExFactor2")
     return (attr, result)

parseRules "EvalOC5" = 
  do (attr, result) <- ((pRegExpr regex_'5c_'7b5'7d >>= withAttribute "Normal Text") >>~ pushContext "CExFactor2")
     return (attr, result)

parseRules "EvalOC6" = 
  do (attr, result) <- ((pRegExpr regex_'5c_'7b4'7d >>= withAttribute "Normal Text") >>~ pushContext "CExFactor2")
     return (attr, result)

parseRules "EvalOC8" = 
  do (attr, result) <- ((pRegExpr regex_'5c_'7b2'7d >>= withAttribute "Normal Text") >>~ pushContext "CExFactor2")
     return (attr, result)

parseRules "CExFactor2" = 
  do (attr, result) <- (((pDetectChar False '%' >>= withAttribute "Biff") >>~ pushContext "Biffs")
                        <|>
                        ((parseRules "CommonCode")))
     return (attr, result)

parseRules "EvalOCCont" = 
  do (attr, result) <- (((pDetectChar False '%' >>= withAttribute "Biff") >>~ pushContext "Biffs")
                        <|>
                        ((parseRules "CommonCode")))
     return (attr, result)

parseRules "Comments" = 
  do (attr, result) <- (((pRegExpr regex_'5c'28'2a'28FIXME'7cTODO'29'5c'29'2a >>= withAttribute "BoldComment"))
                        <|>
                        ((pRegExpr regex_'5c'28'2a'28NOTE'3a'29'5c'29'2a >>= withAttribute "BoldComment"))
                        <|>
                        ((pRegExpr regex_'2d'7c'3d >>= withAttribute "DivideComment")))
     return (attr, result)

parseRules "StringConstants" = 
  do (attr, result) <- ((pDetectChar False '\'' >>= withAttribute "ConstantChar") >>~ (popContext))
     return (attr, result)

parseRules "Directives" = 
  do (attr, result) <- (((pRegExpr regex_'5bF'7cf'5d'5bR'7cr'5d'5bE'7ce'5d'5bE'7ce'5d >>= withAttribute "Directive") >>~ pushContext "Free")
                        <|>
                        ((pRegExpr regex_'5bE'7ce'5d'5bX'7cx'5d'5bE'7ce'5d'5bC'7cc'5d >>= withAttribute "Directive") >>~ pushContext "Exec")
                        <|>
                        ((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_directives >>= withAttribute "Directive") >>~ pushContext "Directives2"))
     return (attr, result)

parseRules "Directives2" = 
  do (attr, result) <- ((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_directives2 >>= withAttribute "Directive") >>~ pushContext "Directives3")
     return (attr, result)

parseRules "Directives3" = 
  do (attr, result) <- ((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_directives3 >>= withAttribute "Directive"))
     return (attr, result)

parseRules "Free" = 
  do (attr, result) <- (((pRegExpr regex_'5bPOIHFDC_'5d'3f'2f'5bE'7ce'5d'5bN'7cn'5d'5bD'7cd'5d'2d'5bF'7cf'5d'5bR'7cr'5d'5bE'7ce'5d'5bE'7ce'5d >>= withAttribute "Directive") >>~ (popContext))
                        <|>
                        ((parseRules "CommonCode"))
                        <|>
                        ((pDetectChar False '%' >>= withAttribute "Biff") >>~ pushContext "Biffs")
                        <|>
                        ((pRegExpr regex_'2f'2f >>= withAttribute "Comment") >>~ pushContext "Comments")
                        <|>
                        ((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_freeopcodes >>= withAttribute "Keyword")))
     return (attr, result)

parseRules "Exec" = 
  do (attr, result) <- ((pRegExpr regex_'5bPOIHFDC_'5d'3f'2f'5bE'7ce'5d'5bN'7cn'5d'5bD'7cd'5d'2d'5bE'7ce'5d'5bX'7cx'5d'5bE'7ce'5d'5bC'7cc'5d >>= withAttribute "Directive") >>~ (popContext))
     return (attr, result)

parseRules "Biffs" = 
  do (attr, result) <- (((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_biffs >>= withAttribute "Biff") >>~ (popContext))
                        <|>
                        ((pRegExpr regex_'2e >>= withAttribute "Normal Text") >>~ (popContext)))
     return (attr, result)

parseRules "CommonCode" = 
  do (attr, result) <- (((parseRules "ReservedWords"))
                        <|>
                        ((parseRules "Indicators"))
                        <|>
                        ((pDetectChar False '\'' >>= withAttribute "ConstantChar") >>~ pushContext "StringConstants")
                        <|>
                        ((pFloat >>= withAttribute "Float"))
                        <|>
                        ((pRegExpr regex_'5bXx'5d'27'5b0'2d9a'2dfA'2dF'5d'7b2'2c'7d'27 >>= withAttribute "Hex"))
                        <|>
                        (withChildren (pInt >>= withAttribute "Decimal") (((pString False "ULL" >>= withAttribute "Decimal"))
                                                                          <|>
                                                                          ((pString False "LUL" >>= withAttribute "Decimal"))
                                                                          <|>
                                                                          ((pString False "LLU" >>= withAttribute "Decimal"))
                                                                          <|>
                                                                          ((pString False "UL" >>= withAttribute "Decimal"))
                                                                          <|>
                                                                          ((pString False "LU" >>= withAttribute "Decimal"))
                                                                          <|>
                                                                          ((pString False "LL" >>= withAttribute "Decimal"))
                                                                          <|>
                                                                          ((pString False "U" >>= withAttribute "Decimal"))
                                                                          <|>
                                                                          ((pString False "L" >>= withAttribute "Decimal")))))
     return (attr, result)

parseRules "Indicators" = 
  do (attr, result) <- (((pRegExpr regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f'5b0'2d9'5d'5b0'2d9'5d'5c'29'3f >>= withAttribute "Indicator"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f1'5bP'7cp'5d'5c'29'3f >>= withAttribute "Indicator"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f'5bH'7ch'7cL'7cl'5d'5b1'2d9'5d'5c'29'3f >>= withAttribute "Indicator"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f'5bL'7cl'7cM'7cm'5d'5bR'7cr'5d'5c'29'3f >>= withAttribute "Indicator"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f'5bO'7co'5d'5bA'2dG'7ca'2dg'7cV'7cv'5d'5c'29'3f >>= withAttribute "Indicator"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f'5bU'7cu'5d'5b1'2d8'5d'5c'29'3f >>= withAttribute "Indicator"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f'5bK'7ck'5d'5bA'2dN'7ca'2dn'7cP'2dY'7cp'2dy'5d'5c'29'3f >>= withAttribute "Indicator"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bI'7ci'5d'5bN'7cn'5d'5c'28'3f'5bR'7cr'5d'5bT'7ct'5d'5c'29'3f >>= withAttribute "Indicator")))
     return (attr, result)

parseRules "ReservedWords" = 
  do (attr, result) <- (((pRegExpr regex_'5b'5c'2a'7cU'7cu'5d'5bD'7cd'5d'5bA'7ca'5d'5bT'7ct'5d'5bE'7ce'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5b'5c'2a'7cU'7cu'5d'5bM'7cm'5d'5bO'7co'5d'5bN'7cn'5d'5bT'7ct'5d'5bH'7ch'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5b'5c'2a'7cU'7cu'5d'5bY'7cy'5d'5bE'7ce'5d'5bA'7ca'5d'5bR'7cr'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5b'5c'2a'7cU'7cu'5d'5bD'7cd'5d'5bA'7ca'5d'5bY'7cy'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c_'5bP'7cp'5d'5bA'7ca'5d'5bG'7cg'5d'5bE'7ce'5d'5b1'2d7'5d'3f >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'28'5bA'7ca'5d'5bA'7cl'5d'7b2'7d'5bX'7cx'7cG'7cg'5d'3f'7c'5bB'7cb'5d'5bL'7cl'5d'5bA'7ca'5d'5bN'7cn'5d'5bK'7ck'5d'5bS'7cs'5d'3f'7c'5bO'7co'5d'5bN'7cn'5d'7c'5bO'7co'5d'5bF'7cf'5d'7b2'7d'7c'5bN'7cn'5d'5bU'7cu'5d'5bL'7cl'5d'7b2'7d'7c'5bZ'7cz'5d'5bE'7ce'5d'5bR'7cr'5d'5bO'7co'5d'5bS'7cs'5d'3f'7c'5bH'7ch'5d'5bI'7ci'5d'5bV'7cv'5d'5bA'7ca'5d'5bL'7cl'5d'7c'5bL'7cl'5d'5bO'7co'5d'5bV'7cv'5d'5bA'7ca'5d'5bL'7cl'5d'7c'5bP'7cp'5d'5bS'7cs'5d'7b2'7d'5bR'7cr'5d'7c'5bE'7ce'5d'5bN'7cn'5d'5bD'7cd'5d'7c'5bS'7cs'5d'5bT'7ct'5d'5bA'7ca'5d'5bR'7cr'5d'5bT'7ct'5d'29 >>= withAttribute "Constant"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bC'7cc'5d'5bD'7cd'5d'5bM'7cm'5d'5bY'7cy'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bC'7cc'5d'5bM'7cm'5d'5bD'7cd'5d'5bY'7cy'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bC'7cc'5d'5bY'7cy'5d'5bM'7cm'5d'5bD'7cd'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bD'7cd'5d'5bM'7cm'5d'5bY'7cy'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bE'7ce'5d'5bU'7cu'5d'5bR'7cr'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bH'7ch'5d'5bM'7cm'5d'5bS'7cs'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bI'7ci'5d'5bS'7cs'5d'5bO'7co'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bJ'7cj'5d'5bI'7ci'5d'5bS'7cs'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bJ'7cj'5d'5bO'7co'5d'5bB'7cb'5d'28'5bR'7cr'5d'5bU'7cu'5d'5bN'7cn'5d'29'3f >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'28'5bL'7cl'5d'5bO'7co'5d'5bN'7cn'5d'5bG'7cg'5d'29'3f'5bJ'7cj'5d'5bU'7cu'5d'5bL'7cl'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bM'7cm'5d'5bD'7cd'5d'5bY'7cy'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bS'7cs'5d'5bY'7cy'5d'5bS'7cs'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bU'7cu'5d'5bS'7cs'5d'5bA'7ca'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bY'7cy'5d'5bM'7cm'5d'5bD'7cd'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bA'7ca'5d'5bL'7cl'5d'5bT'7ct'5d'5bS'7cs'5d'5bE'7ce'5d'5bQ'7cq'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bE'7ce'5d'5bQ'7cq'5d'5bU'7cu'5d'5bA'7ca'5d'5bT'7ct'5d'5bE'7ce'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bF'7cf'5d'5bI'7ci'5d'5bL'7cl'5d'5bE'7ce'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bF'7cf'5d'5bT'7ct'5d'5bR'7cr'5d'5bA'7ca'5d'5bN'7cn'5d'5bS'7cs'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bI'7ci'5d'5bL'7cl'5d'5bE'7ce'5d'5bR'7cr'5d'5bP'7cp'5d'5bG'7cg'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bC'7cc'5d'5bR'7cr'5d'5bT'7ct'5d'5bB'7cb'5d'5bN'7cn'5d'5bD'7cd'5d'5bR'7cr'5d'5bP'7cp'5d'5bG'7cg'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bC'7cc'5d'5bR'7cr'5d'5bT'7ct'5d'5bR'7cr'5d'5bP'7cp'5d'5bG'7cg'5d'5bM'7cm'5d'5bO'7co'5d'5bD'7cd'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bV'7cv'5d'5b0'2d9'5d'5bR'7cr'5d'5b0'2d9'5d'5bM'7cm'5d'5b0'2d9'5d >>= withAttribute "Reserved")))
     return (attr, result)

parseRules "AnyCode" = 
  do (attr, result) <- ((parseRules "CommonCode"))
     return (attr, result)

parseRules "D" = 
  do (attr, result) <- (((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_dkeywords >>= withAttribute "Keyword"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bN'7cn'5d'5bO'7co'5d'5bP'7cp'5d'5bA'7ca'5d'5bS'7cs'5d'7b2'7d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bO'7co'5d'5bM'7cm'5d'5bI'7ci'5d'5bT'7ct'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bV'7cv'5d'5bA'7ca'5d'5bR'7cr'5d'5bS'7cs'5d'5bI'7ci'5d'5bZ'7cz'5d'5bE'7ce'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bR'7cr'5d'5bI'7ci'5d'5bG'7cg'5d'5bH'7ch'5d'5bT'7ct'5d'5bA'7ca'5d'5bD'7cd'5d'5bJ'7cj'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bS'7cs'5d'5bT'7ct'5d'5bR'7cr'5d'5bI'7ci'5d'5bN'7cn'5d'5bG'7cg'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bT'7ct'5d'5bR'7cr'5d'5bI'7ci'5d'5bM'7cm'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pDetectChar False '%' >>= withAttribute "Biff") >>~ pushContext "Biffs")
                        <|>
                        ((parseRules "CommonCode")))
     return (attr, result)

parseRules "P" = 
  do (attr, result) <- (((pKeyword " \n\t.():!+,-<=>%&*/;?[]^{|}~\\" list_dkeywords >>= withAttribute "Keyword"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bN'7cn'5d'5bO'7co'5d'5bP'7cp'5d'5bA'7ca'5d'5bS'7cs'5d'7b2'7d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bO'7co'5d'5bM'7cm'5d'5bI'7ci'5d'5bT'7ct'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bV'7cv'5d'5bA'7ca'5d'5bR'7cr'5d'5bS'7cs'5d'5bI'7ci'5d'5bZ'7cz'5d'5bE'7ce'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bR'7cr'5d'5bI'7ci'5d'5bG'7cg'5d'5bH'7ch'5d'5bT'7ct'5d'5bA'7ca'5d'5bD'7cd'5d'5bJ'7cj'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bS'7cs'5d'5bT'7ct'5d'5bR'7cr'5d'5bI'7ci'5d'5bN'7cn'5d'5bG'7cg'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pRegExpr regex_'5c'2a'5bT'7ct'5d'5bR'7cr'5d'5bI'7ci'5d'5bM'7cm'5d >>= withAttribute "Reserved"))
                        <|>
                        ((pDetectChar False '%' >>= withAttribute "Biff") >>~ pushContext "Biffs")
                        <|>
                        ((parseRules "CommonCode")))
     return (attr, result)

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