module Text.Highlighter.Lexers.Newspeak (lexer) where

import Text.Regex.PCRE.Light
import Text.Highlighter.Types

lexer :: Lexer
lexer = Lexer
    { lName = "\78\101\119\115\112\101\97\107"
    , lAliases = ["\110\101\119\115\112\101\97\107"]
    , lExtensions = ["\46\110\115\50"]
    , lMimetypes = ["\116\101\120\116\47\120\45\110\101\119\115\112\101\97\107"]
    , lStart = root'
    , lFlags = [multiline]
    }

literals' :: TokenMatcher
literals' =
    [ tok "\92\36\46" (Arbitrary "\76\105\116\101\114\97\108" :. Arbitrary "\83\116\114\105\110\103")
    , tok "\39\91\94\39\93\42\39" (Arbitrary "\76\105\116\101\114\97\108" :. Arbitrary "\83\116\114\105\110\103")
    , tok "\35\39\91\94\39\93\42\39" (Arbitrary "\76\105\116\101\114\97\108" :. Arbitrary "\83\116\114\105\110\103" :. Arbitrary "\83\121\109\98\111\108")
    , tok "\35\92\119\43\58\63" (Arbitrary "\76\105\116\101\114\97\108" :. Arbitrary "\83\116\114\105\110\103" :. Arbitrary "\83\121\109\98\111\108")
    , tok "\35\40\92\43\124\92\47\124\126\124\92\42\124\60\124\62\124\61\124\64\124\37\124\92\124\124\38\124\92\63\124\33\124\44\124\45\41\43" (Arbitrary "\76\105\116\101\114\97\108" :. Arbitrary "\83\116\114\105\110\103" :. Arbitrary "\83\121\109\98\111\108")
    ]

root' :: TokenMatcher
root' =
    [ tok "\92\98\40\78\101\119\115\113\117\101\97\107\50\41\92\98" (Arbitrary "\75\101\121\119\111\114\100" :. Arbitrary "\68\101\99\108\97\114\97\116\105\111\110")
    , tok "\39\91\94\39\93\42\39" (Arbitrary "\76\105\116\101\114\97\108" :. Arbitrary "\83\116\114\105\110\103")
    , tok "\92\98\40\99\108\97\115\115\41\40\92\115\43\41\40\91\97\45\122\65\45\90\48\45\57\95\93\43\41\40\92\115\42\41" (ByGroups [(Arbitrary "\75\101\121\119\111\114\100" :. Arbitrary "\68\101\99\108\97\114\97\116\105\111\110"), (Arbitrary "\84\101\120\116"), (Arbitrary "\78\97\109\101" :. Arbitrary "\67\108\97\115\115"), (Arbitrary "\84\101\120\116")])
    , tok "\92\98\40\109\105\120\105\110\124\115\101\108\102\124\115\117\112\101\114\124\112\114\105\118\97\116\101\124\112\117\98\108\105\99\124\112\114\111\116\101\99\116\101\100\124\110\105\108\124\116\114\117\101\124\102\97\108\115\101\41\92\98" (Arbitrary "\75\101\121\119\111\114\100")
    , tok "\40\91\97\45\122\65\45\90\48\45\57\95\93\43\92\58\41\40\92\115\42\41\40\91\97\45\122\65\45\90\95\93\92\119\43\41" (ByGroups [(Arbitrary "\78\97\109\101" :. Arbitrary "\70\117\110\99\116\105\111\110"), (Arbitrary "\84\101\120\116"), (Arbitrary "\78\97\109\101" :. Arbitrary "\86\97\114\105\97\98\108\101")])
    , tok "\40\91\97\45\122\65\45\90\48\45\57\95\93\43\41\40\92\115\42\41\40\61\41" (ByGroups [(Arbitrary "\78\97\109\101" :. Arbitrary "\65\116\116\114\105\98\117\116\101"), (Arbitrary "\84\101\120\116"), (Arbitrary "\79\112\101\114\97\116\111\114")])
    , tok "\60\91\97\45\122\65\45\90\48\45\57\95\93\43\62" (Arbitrary "\67\111\109\109\101\110\116" :. Arbitrary "\83\112\101\99\105\97\108")
    , anyOf expressionstat'
    , anyOf whitespace'
    ]

whitespace' :: TokenMatcher
whitespace' =
    [ tok "\92\115\43" (Arbitrary "\84\101\120\116")
    , tok "\34\91\94\34\93\42\34" (Arbitrary "\67\111\109\109\101\110\116")
    ]

expressionstat' :: TokenMatcher
expressionstat' =
    [ tok "\40\92\100\43\92\46\92\100\42\124\92\46\92\100\43\124\92\100\43\91\102\70\93\41\91\102\70\93\63" (Arbitrary "\76\105\116\101\114\97\108" :. Arbitrary "\78\117\109\98\101\114" :. Arbitrary "\70\108\111\97\116")
    , tok "\92\100\43" (Arbitrary "\76\105\116\101\114\97\108" :. Arbitrary "\78\117\109\98\101\114" :. Arbitrary "\73\110\116\101\103\101\114")
    , tok "\58\92\119\43" (Arbitrary "\78\97\109\101" :. Arbitrary "\86\97\114\105\97\98\108\101")
    , tok "\40\92\119\43\41\40\58\58\41" (ByGroups [(Arbitrary "\78\97\109\101" :. Arbitrary "\86\97\114\105\97\98\108\101"), (Arbitrary "\79\112\101\114\97\116\111\114")])
    , tok "\92\119\43\58" (Arbitrary "\78\97\109\101" :. Arbitrary "\70\117\110\99\116\105\111\110")
    , tok "\92\119\43" (Arbitrary "\78\97\109\101" :. Arbitrary "\86\97\114\105\97\98\108\101")
    , tok "\92\40\124\92\41" (Arbitrary "\80\117\110\99\116\117\97\116\105\111\110")
    , tok "\92\91\124\92\93" (Arbitrary "\80\117\110\99\116\117\97\116\105\111\110")
    , tok "\92\123\124\92\125" (Arbitrary "\80\117\110\99\116\117\97\116\105\111\110")
    , tok "\40\92\94\124\92\43\124\92\47\124\126\124\92\42\124\60\124\62\124\61\124\64\124\37\124\92\124\124\38\124\92\63\124\33\124\44\124\45\124\58\41" (Arbitrary "\79\112\101\114\97\116\111\114")
    , tok "\92\46\124\59" (Arbitrary "\80\117\110\99\116\117\97\116\105\111\110")
    , anyOf whitespace'
    , anyOf literals'
    ]