module UHC.Light.Compiler.Scanner.Common ( module UHC.Light.Compiler.Scanner.Common , module UHC.Light.Compiler.Scanner.Scanner ) where import System.IO import UU.Parsing import UU.Parsing.Offside import UU.Scanner.Position import UU.Scanner.GenToken import UU.Scanner.GenTokenParser import UHC.Util.ScanUtils () import UHC.Light.Compiler.Base.HsName.Builtin import UHC.Light.Compiler.Base.Common import UHC.Light.Compiler.Opts.Base import qualified Data.Set as Set import qualified Data.Map as Map import UHC.Util.ScanUtils import UHC.Light.Compiler.Scanner.Scanner import UHC.Util.ParseUtils import UHC.Light.Compiler.Base.Target import UHC.Light.Compiler.Base.UnderDev import Data.Ratio {-# LINE 52 "src/ehc/Scanner/Common.chs" #-} ehScanOpts :: EHCOpts -> ScanOpts ehScanOpts opts = defaultScanOpts {-# LINE 57 "src/ehc/Scanner/Common.chs" #-} { scoKeywordsTxt = Set.fromList $ tokKeywStrsEH1 ++ offsideTrigs {-# LINE 63 "src/ehc/Scanner/Common.chs" #-} ++ tokKeywStrsEH4 {-# LINE 66 "src/ehc/Scanner/Common.chs" #-} ++ tokKeywStrsEH5 {-# LINE 69 "src/ehc/Scanner/Common.chs" #-} ++ tokKeywStrsEH6 {-# LINE 72 "src/ehc/Scanner/Common.chs" #-} ++ tokKeywStrsEH8 {-# LINE 75 "src/ehc/Scanner/Common.chs" #-} ++ tokKeywStrsEH9 {-# LINE 78 "src/ehc/Scanner/Common.chs" #-} ++ tokKeywStrsEH11 {-# LINE 81 "src/ehc/Scanner/Common.chs" #-} ++ tokKeywStrsEH12 {-# LINE 84 "src/ehc/Scanner/Common.chs" #-} ++ tokKeywStrsEH90 {-# LINE 87 "src/ehc/Scanner/Common.chs" #-} ++ tokKeywStrsEH91 {-# LINE 90 "src/ehc/Scanner/Common.chs" #-} ++ (if ehcOptFusion opts then tokKeywStrsEH93 else []) {-# LINE 93 "src/ehc/Scanner/Common.chs" #-} , scoKeywordsOps = Set.fromList $ tokOpStrsEH1 {-# LINE 98 "src/ehc/Scanner/Common.chs" #-} ++ tokOpStrsEH2 {-# LINE 101 "src/ehc/Scanner/Common.chs" #-} ++ tokOpStrsEH3 {-# LINE 104 "src/ehc/Scanner/Common.chs" #-} ++ tokOpStrsEH4 {-# LINE 107 "src/ehc/Scanner/Common.chs" #-} ++ tokOpStrsEH5 {-# LINE 110 "src/ehc/Scanner/Common.chs" #-} ++ tokOpStrsEH6 {-# LINE 113 "src/ehc/Scanner/Common.chs" #-} ++ (if ehcOptExtensibleRecords opts then tokOpStrsEH7 else []) {-# LINE 116 "src/ehc/Scanner/Common.chs" #-} ++ tokOpStrsEH9 opts {-# LINE 119 "src/ehc/Scanner/Common.chs" #-} ++ tokOpStrsEH10 {-# LINE 122 "src/ehc/Scanner/Common.chs" #-} ++ tokOpStrsEH11 {-# LINE 125 "src/ehc/Scanner/Common.chs" #-} , scoSpecChars = Set.fromList $ "();,[]{}`" , scoOpChars = Set.fromList $ "!#$%&*+/<=>?@\\^|-:.~" {-# LINE 131 "src/ehc/Scanner/Common.chs" #-} , scoSpecPairs = Set.fromList $ [ show hsnORow, show hsnCRow , show hsnOSum, show hsnCSum , show hsnOImpl, show hsnCImpl ] {-# LINE 143 "src/ehc/Scanner/Common.chs" #-} , scoOffsideTrigs = offsideTrigs , scoOffsideTrigsGE = offsideTrigsGE , scoOffsideModule = "let" , scoOffsideOpen = "{" , scoOffsideClose = "}" } where offsideTrigs = [ "let", "where" , "of" , "letstrict" ] offsideTrigsGE = [ "do" ] {-# LINE 168 "src/ehc/Scanner/Common.chs" #-} hsScanOpts :: EHCOpts -> ScanOpts hsScanOpts opts = ehScanOpts' {-# LINE 173 "src/ehc/Scanner/Common.chs" #-} { scoKeywordsTxt = scoKeywordsTxt ehScanOpts' `Set.union` (Set.fromList $ offsideTrigs ++ tokKeywStrsHS1 ++ tokKeywStrsHS4 ++ tokKeywStrsHS5 ++ tokKeywStrsHS6 ++ tokKeywStrsHS8 ++ tokKeywStrsHS9 ++ tokKeywStrsHS11 ++ tokKeywStrsHS12 ++ tokKeywStrsHS90 ++ (if ehcOptFusion opts then tokKeywStrsHS93 else []) ) {-# LINE 208 "src/ehc/Scanner/Common.chs" #-} , scoPragmasTxt = (Map.fromList $ tokPragmaStrsHS99 ) {-# LINE 214 "src/ehc/Scanner/Common.chs" #-} , scoKeywordsOps = scoKeywordsOps ehScanOpts' `Set.union` (Set.fromList $ tokOpStrsHS1 ++ tokOpStrsHS2 ++ tokOpStrsHS3 ++ tokOpStrsHS4 ++ tokOpStrsHS5 ++ tokOpStrsHS6 ++ tokOpStrsHS7 ++ tokOpStrsHS9 ++ tokOpStrsHS10 ++ tokOpStrsHS11 ) {-# LINE 249 "src/ehc/Scanner/Common.chs" #-} , scoOffsideTrigs = scoOffsideTrigs ehScanOpts' ++ offsideTrigs , scoOffsideTrigsGE = scoOffsideTrigsGE ehScanOpts' , scoOffsideModule = "module" } where offsideTrigs = [ "where" ] ehScanOpts' = ehScanOpts opts {-# LINE 267 "src/ehc/Scanner/Common.chs" #-} -- | 'ScanOpts' for 'Core' tokenization before parsing coreScanOpts :: EHCOpts -> ScanOpts coreScanOpts opts = grinScanOpts { scoKeywordsTxt = (Set.fromList $ [ "let", "in", "case", "of", "rec", "foreign", "uniq" , "Int", "Char", "String", "Tag", "Rec" , "module", "default" , "import", "export" , "BINDPLAIN", "BINDFUNCTION0", "BINDFUNCTION1", "BINDAPPLY0" , "VAL" , "FAIL" , "DICT", "DICTCLASS", "DICTINSTANCE", "DICTOVERLOADED", "TRACK" , "Integer" , "foreignexport" ]) `Set.union` scoKeywordsTxt tyScanOpts `Set.union` scoKeywordsTxt hsScanOpts' , scoKeywExtraChars = Set.fromList "." , scoKeywordsOps = scoKeywordsOps grinScanOpts `Set.union` scoKeywordsOps hsScanOpts' , scoDollarIdent = True , scoOpChars = Set.fromList "<->:=+*" , scoSpecChars = Set.fromList "!=();{}#\\|,`" , scoSpecPairs = Set.fromList [] `Set.union` scoSpecPairs ehScanOpts' } where hsScanOpts' = hsScanOpts opts ehScanOpts' = ehScanOpts opts {-# LINE 303 "src/ehc/Scanner/Common.chs" #-} -- | 'ScanOpts' for 'CoreRun' tokenization before parsing corerunScanOpts :: {- EHCOpts -> -} ScanOpts corerunScanOpts -- opts = defaultScanOpts { scoKeywordsTxt = Set.fromList $ [ "alloc", "module", "tail", "eval", "case", "of", "let", "in", "app", "ffi", "dbg", "tag" , "g", "d", "l", "i", "m", "e", "u" , "data", "import", "export" ] -- , scoKeywExtraChars = Set.fromList "." , scoKeywordsOps = Set.fromList [ "->", "." ] , scoSpecChars = Set.fromList "();,=\\" , scoOpChars = Set.fromList "->." , scoAllowFloat = False , scoDollarIdent = True } {-# LINE 322 "src/ehc/Scanner/Common.chs" #-} grinScanOpts :: ScanOpts grinScanOpts = defaultScanOpts { scoKeywordsTxt = Set.fromList $ [ "eval", "apply" , "call" , "module", "update", "fetch", "store", "unit", "of", "rec", "case", "ffi", "fetchupdate" , "throw", "try", "catch", "ctags", "applymap", "evalmap" , "C", "F", "P", "A", "R", "H", "U", "W" , "basicnode", "enumnode", "opaquenode", "ptrnode", "basicannot", "enumannot", "opaqueannot", "ptrannot" , "annotfromtaggedptr", "annottotaggedptr", "annotdflt" , "word" , "DICTCLASS", "DICTINSTANCE", "DICTOVERLOADED", "SPECIALIZED" , "_" , "float", "double" , "True", "False" -- for FFI annotation ] ++ map show allFFIWays , scoKeywordsOps = Set.fromList [ "<-", "->", "=", "+=", "-=", ":=", "-", "*" ] , scoSpecChars = Set.fromList "();{}#/\\|," , scoOpChars = Set.fromList "<->:=+*" , scoDollarIdent = True } {-# LINE 354 "src/ehc/Scanner/Common.chs" #-} tyScanOpts :: ScanOpts tyScanOpts = defaultScanOpts { scoKeywordsTxt = Set.fromList [ "uid" ] } {-# LINE 362 "src/ehc/Scanner/Common.chs" #-} hsnScanOpts :: ScanOpts hsnScanOpts = defaultScanOpts { scoKeywordsTxt = Set.fromList [ "NEW" , "ERR" , "UNQ" , "EVL" , "FLD" , "CLS" , "DCT" , "SDC" , "RDC" , "SUP" , "DFL" , "INL" , "UND" , "OFF" , "CCN" , "UPD" , "FFI" , "LBL" , "ASP" , "STR" , "GEN" , "FFE" , "FFC" ] , scoSpecChars = Set.fromList ".{},`" , scoOpChars = Set.fromList "[]:" `Set.union` scoOpChars hsScanOpts' , scoAllowQualified = False } where hsScanOpts' = hsScanOpts emptyEHCOpts {-# LINE 411 "src/ehc/Scanner/Common.chs" #-} foreignEntScanOpts :: FFIWay -> ScanOpts foreignEntScanOpts way = o { scoKeywordsTxt = Set.fromList [ "dynamic", "wrapper", "h", "static", "new", "js" ] , scoSpecChars = Set.fromList ",.&%[]()*{}" , scoDollarIdent = False , scoKeywExtraChars = Set.fromList wayKeywExtraChars , scoAllowQualified = False , scoStringDelims = scoStringDelims o ++ wayStringDelims } where o = defaultScanOpts (wayKeywExtraChars,wayStringDelims) = case way of _ -> ("" , "" ) {-# LINE 450 "src/ehc/Scanner/Common.chs" #-} splitTokensOnModuleTrigger :: ScanOpts -> [Token] -> Maybe ([Token],[Token]) splitTokensOnModuleTrigger scanOpts ts = case break ismod ts of (ts1,ts2@[]) -> Nothing tss -> Just tss where ismod (Reserved s _) | s == scoOffsideModule scanOpts = True ismod _ = False {-# LINE 460 "src/ehc/Scanner/Common.chs" #-} offsideScanHandle :: ScanOpts -> FilePath -> Handle -> IO (OffsideInput [Token] Token (Maybe Token)) offsideScanHandle scanOpts fn fh = do { tokens <- scanHandle scanOpts fn fh -- ; putStrLn (" tokens: " ++ show tokens) ; case splitTokensOnModuleTrigger scanOpts tokens of Just (ts1,ts2) -> return $ scanLiftTokensToOffside ts1 $ scanOffsideWithTriggers moduleT oBrace cBrace triggers ts2 _ -> return $ scanOffsideWithTriggers moduleT oBrace cBrace triggers tokens } where moduleT = reserved (scoOffsideModule scanOpts) noPos oBrace = reserved (scoOffsideOpen scanOpts) noPos cBrace = reserved (scoOffsideClose scanOpts) noPos triggers = [ (Trigger_IndentGT,reserved x noPos) | x <- scoOffsideTrigs scanOpts ] ++ [ (Trigger_IndentGE,reserved x noPos) | x <- scoOffsideTrigsGE scanOpts ] {-# LINE 485 "src/ehc/Scanner/Common.chs" #-} floatDenot2NomDenom :: String -> (Integer,Integer) floatDenot2NomDenom denot = (numerator f,denominator f) where (n,m,e) = getRational denot f :: Rational f = ((read n * md + mn) * en) % (ed * md) en, ed, mn, md :: Integer (en,ed) = case e of Just (Just "-",e) -> (1,10 ^ read e) Just (_,e) -> (10 ^ read e,1) _ -> (1,1) (mn,md) = case m of Just m -> (read m,10 ^ length m) _ -> (1,1) intDenot2Integer :: Int -> String -> Integer intDenot2Integer b s = getBaseNumber (toInteger b) s {-# LINE 510 "src/ehc/Scanner/Common.chs" #-} pKeyTk, pKeyTk' :: IsParser p Token => String -> p Token pKeyTk key = pCostReserved' 9 key pKeyTk' key = pCostReserved' 8 key pKeyw :: (IsParser p Token,Show k) => k -> p Token pKeyw k = pKeyTk (show k) {-# LINE 520 "src/ehc/Scanner/Common.chs" #-} pKeywHsNname :: (IsParser p Token,Show k) => k -> p HsName pKeywHsNname k = tokMkQName <$> pKeyw k {-# LINE 526 "src/ehc/Scanner/Common.chs" #-} pStringTk, pCharTk, pInteger8Tk, pInteger10Tk, pInteger16Tk, pFractionTk, {-# LINE 534 "src/ehc/Scanner/Common.chs" #-} pQVaridTk, pQConidTk, pQVarsymTk, pQConsymTk, {-# LINE 538 "src/ehc/Scanner/Common.chs" #-} pVaridTk , pConidTk , pVaridTk', pConidTk', pTextnmTk, pTextlnTk, pIntegerTk, pVarsymTk, pConsymTk :: IsParser p Token => p Token pStringTk = pHsCostValToken' 7 TkString "" pCharTk = pHsCostValToken' 7 TkChar "\NUL" pInteger8Tk = pHsCostValToken' 7 TkInteger8 "0" pInteger10Tk = pHsCostValToken' 7 TkInteger10 "0" pInteger16Tk = pHsCostValToken' 7 TkInteger16 "0" pFractionTk = pHsCostValToken' 7 TkFraction "0.0" pVaridTk = pHsCostValToken' 7 TkVarid "" pVaridTk' = pHsCostValToken' 6 TkVarid "" pConidTk = pHsCostValToken' 7 TkConid "" pConidTk' = pHsCostValToken' 6 TkConid "" pConsymTk = pHsCostValToken' 7 TkConOp "" pVarsymTk = pHsCostValToken' 7 TkOp "" pTextnmTk = pHsCostValToken' 7 TkTextnm "" pTextlnTk = pHsCostValToken' 7 TkTextln "" pIntegerTk = pInteger10Tk {-# LINE 566 "src/ehc/Scanner/Common.chs" #-} pQVaridTk = pHsCostValToken' 7 TkQVarid "" pQConidTk = pHsCostValToken' 7 TkQConid "" pQConsymTk = pHsCostValToken' 7 TkQConOp "" pQVarsymTk = pHsCostValToken' 7 TkQOp "" {-# LINE 577 "src/ehc/Scanner/Common.chs" #-} pCONID, pCONID', pCONSYM, pVARID, pVARID', pVARSYM :: IsParser p Token => p Token pCONID = pConidTk pCONID' = pConidTk pCONSYM = pConsymTk pVARID = pVaridTk pVARID' = pVaridTk' pVARSYM = pVarsymTk {-# LINE 597 "src/ehc/Scanner/Common.chs" #-} pQCONID, pQCONSYM, pQVARID, pQVARSYM :: IsParser p Token => p Token pQCONID = pQConidTk pQCONSYM = pQConsymTk pQVARID = pQVaridTk pQVARSYM = pQVarsymTk {-# LINE 610 "src/ehc/Scanner/Common.chs" #-} tokGetVal :: Token -> String tokGetVal x = tokenVal x pV :: (IsParser p Token) => p Token -> p String pV p = tokGetVal <$> p pHNm :: (IsParser p Token) => p Token -> p HsName pHNm p = (hsnFromString . tokGetVal) <$> p {-# LINE 632 "src/ehc/Scanner/Common.chs" #-} tokConcat :: Token -> Token -> Token tokConcat t1 t2 = Reserved (tokenVal t1 ++ tokenVal t2) (position t1) tokEmpty :: Token tokEmpty = Reserved "" noPos {-# LINE 644 "src/ehc/Scanner/Common.chs" #-} pMODULE , pWHERE , pSEMI , pDCOLON , pCOLON , pOBRACK , pCBRACK , pOCURLY , pCCURLY , pVOCURLY , pVCCURLY , pAT , pPERCENT , pDOT , pCOMMA , pOPAREN , pCPAREN , pINFIX , pINFIXL , pINFIXR , pMINUS , pSTAR , pBANG , pEQUAL , pRARROW , pBACKQUOTE , pLET , pLAM , pSLASH , pUNDERSCORE, pIN :: IsParser p Token => p Token {-# LINE 679 "src/ehc/Scanner/Common.chs" #-} pMODULE = pKeyTk "module" pWHERE = pKeyTk "where" pSEMI = pKeyTk ";" pCOLON = pKeyTk ":" pDCOLON = pKeyTk "::" pOBRACK = pKeyTk "[" pCBRACK = pKeyTk "]" pOCURLY = pKeyTk "{" pCCURLY = pKeyTk "}" pVOCURLY = pKeyTk "{-layout" pVCCURLY = pKeyTk "}-layout" pAT = pKeyTk "@" pPERCENT = pKeyTk "%" pDOT = pKeyTk "." pCOMMA = pKeyTk "," pOPAREN = pKeyTk "(" pCPAREN = pKeyTk ")" pINFIX = pKeyTk "infix" pINFIXL = pKeyTk "infixl" pINFIXR = pKeyTk "infixr" pMINUS = pKeyTk "-" pSTAR = pKeyTk "*" pBANG = pKeyTk "!" pEQUAL = pKeyTk "=" pRARROW = pKeyw hsnArrow pBACKQUOTE = pKeyTk "`" pLET = pKeyTk "let" pLAM = pKeyTk "\\" pSLASH = pKeyTk "/" pUNDERSCORE = pKeyTk "_" pIN = pKeyTk "in" tokKeywStrsEH1 = [ "in", "let" ] tokKeywStrsHS1 = [ "module", "where", "infix", "infixl", "infixr" ] tokOpStrsEH1 = [ "=", "\\", show hsnArrow, "::", "@" ] tokOpStrsHS1 = [ "-", "*", "!", "_", "%", "." ] {-# LINE 718 "src/ehc/Scanner/Common.chs" #-} pTDOT , pQDOT :: IsParser p Token => p Token {-# LINE 724 "src/ehc/Scanner/Common.chs" #-} pTDOT = pKeyTk "..." pQDOT = pKeyTk "...." tokOpStrsEH2 = [ "...", "...." ] tokOpStrsHS2 = [ ] {-# LINE 732 "src/ehc/Scanner/Common.chs" #-} tokOpStrsEH3 = [ "%" ] tokOpStrsHS3 = [ ] {-# LINE 737 "src/ehc/Scanner/Common.chs" #-} pFORALL , pEXISTS , pTILDE :: IsParser p Token => p Token {-# LINE 744 "src/ehc/Scanner/Common.chs" #-} pFORALL = pKeyTk "forall" pEXISTS = pKeyTk "exists" pTILDE = pKeyTk (show hsnEqTilde) tokKeywStrsEH4 = [ "forall", "exists" ] tokKeywStrsHS4 = [ ] tokOpStrsEH4 = [ ".", show hsnEqTilde ] tokOpStrsHS4 = [ ] {-# LINE 755 "src/ehc/Scanner/Common.chs" #-} pLARROW , pVBAR , pDATA , pNEWTYPE , pCASE , pOF , pIF , pTHEN , pELSE , pDOTDOT :: IsParser p Token => p Token {-# LINE 769 "src/ehc/Scanner/Common.chs" #-} pLARROW = pKeyTk "<-" pVBAR = pKeyTk "|" pDATA = pKeyTk "data" pNEWTYPE = pKeyTk "newtype" pCASE = pKeyTk "case" pOF = pKeyTk "of" pIF = pKeyTk "if" pTHEN = pKeyTk "then" pELSE = pKeyTk "else" pDOTDOT = pKeyTk ".." tokKeywStrsEH5 = [ "data", "case", "if", "then", "else", "of" ] tokKeywStrsHS5 = [ "newtype" ] tokOpStrsEH5 = [ "|" ] tokOpStrsHS5 = [ "<-", "..", ":" ] {-# LINE 787 "src/ehc/Scanner/Common.chs" #-} pFFORALL , pEEXISTS :: IsParser p Token => p Token {-# LINE 793 "src/ehc/Scanner/Common.chs" #-} pFFORALL = pKeyTk "Forall" pEEXISTS = pKeyTk "Exists" tokKeywStrsEH6 = [ ] tokKeywStrsHS6 = [ ] tokKeywStrsHI6 = [ "Forall", "Exists" ] tokOpStrsEH6 = [ "*" ] tokOpStrsHS6 = [ ] {-# LINE 804 "src/ehc/Scanner/Common.chs" #-} pOROWREC , pCROWREC , pOROWROW , pCROWROW , pOROWSUM , pCROWSUM , pCOLEQUAL , pHASH :: IsParser p Token => p Token {-# LINE 816 "src/ehc/Scanner/Common.chs" #-} pOROWREC = pKeyTk (show hsnORec) pCROWREC = pKeyTk (show hsnCRec) pOROWROW = pKeyTk (show hsnORow) pCROWROW = pKeyTk (show hsnCRow) pOROWSUM = pKeyTk (show hsnOSum) pCROWSUM = pKeyTk (show hsnCSum) pCOLEQUAL = pKeyTk ":=" pHASH = pKeyTk "#" {-# LINE 827 "src/ehc/Scanner/Common.chs" #-} tokOpStrsEH7 = [ ":=", "#" ] tokOpStrsHS7 = [ ] {-# LINE 832 "src/ehc/Scanner/Common.chs" #-} pLABEL , pLETSTRICT , pSAFE , pFOREIGN , pDEFAULT , pIMPORT , pEXPORT :: IsParser p Token => p Token {-# LINE 843 "src/ehc/Scanner/Common.chs" #-} pLABEL = pKeyTk "label" pLETSTRICT = pKeyTk "letstrict" pSAFE = pKeyTk "safe" pFOREIGN = pKeyTk "foreign" pDEFAULT = pKeyTk "default" pIMPORT = pKeyTk "import" pEXPORT = pKeyTk "export" tokKeywStrsEH8 = [ "letstrict", "foreign", "import" ] ++ map show allFFIWays tokKeywStrsHS8 = [ "default", "export", "label", "safe" ] {-# LINE 860 "src/ehc/Scanner/Common.chs" #-} pFFIWay :: IsParser p Token => p (FFIWay,Token) pFFIWay = pAnyKey (\way -> (,) way <$> pKeyTk (show way)) allFFIWays "pFFIWay" {-# LINE 870 "src/ehc/Scanner/Common.chs" #-} pDARROW , pLTCOLON , pOIMPL , pCIMPL , pCLASS , pINSTANCE , pDO :: IsParser p Token => p Token {-# LINE 881 "src/ehc/Scanner/Common.chs" #-} pDARROW = pKeyTk (show hsnPrArrow) pLTCOLON = pKeyTk "<:" pOIMPL = pKeyTk (show hsnOImpl) pCIMPL = pKeyTk (show hsnCImpl) pCLASS = pKeyTk "class" pINSTANCE = pKeyTk "instance" pDO = pKeyTk "do" tokKeywStrsEH9 = [ "class", "instance" ] tokKeywStrsHS9 = [ "do" ] tokOpStrsEH9 opts = [ show hsnPrArrow ] ++ if ehcOptIsUnderDev UnderDev_NamedInst opts then [] else [ "<:" ] tokOpStrsHS9 = [ ] {-# LINE 897 "src/ehc/Scanner/Common.chs" #-} tokOpStrsEH10 = [] -- [ show hsnDynVar ] tokOpStrsHS10 = [ ] {-# LINE 905 "src/ehc/Scanner/Common.chs" #-} pTYPE :: IsParser p Token => p Token {-# LINE 910 "src/ehc/Scanner/Common.chs" #-} pTYPE = pKeyTk "type" {-# LINE 914 "src/ehc/Scanner/Common.chs" #-} tokKeywStrsEH11 = [ "type" ] tokKeywStrsHS11 = [ ] tokOpStrsEH11 = [ ] tokOpStrsHS11 = [ ] {-# LINE 921 "src/ehc/Scanner/Common.chs" #-} pQUALIFIED , pQUESTQUEST , pAS , pHIDING :: IsParser p Token => p Token {-# LINE 929 "src/ehc/Scanner/Common.chs" #-} pQUALIFIED = pKeyTk "qualified" pAS = pKeyTk "as" pHIDING = pKeyTk "hiding" pQUESTQUEST = pKeyTk "??" tokKeywStrsEH12 = [ ] tokKeywStrsHS12 = [ "qualified", "as", "hiding" ] {-# LINE 939 "src/ehc/Scanner/Common.chs" #-} pDERIVING :: IsParser p Token => p Token pDERIVING = pKeyTk "deriving" tokKeywStrsEH91 = [ "deriving" ] {-# LINE 948 "src/ehc/Scanner/Common.chs" #-} pUNSAFE , pTHREADSAFE , pDYNAMIC , pWRAPPER , pSTATIC , pH , pNEW , pJS , pAMPERSAND :: IsParser p Token => p Token pUNSAFE = pKeyTk "unsafe" pTHREADSAFE = pKeyTk "threadsafe" pDYNAMIC = pKeyTk "dynamic" pWRAPPER = pKeyTk "wrapper" -- not a HS keyword, but only for foreign function entity pSTATIC = pKeyTk "static" -- not a HS keyword, but only for foreign function entity pH = pKeyTk "h" -- not a HS keyword, but only for foreign function entity pAMPERSAND = pKeyTk "&" -- not a HS keyword, but only for foreign function entity pNEW = pKeyTk "new" pJS = pKeyTk "js" tokKeywStrsEH90 = [ ] tokKeywStrsHS90 = [ "unsafe", "threadsafe", "dynamic" ] {-# LINE 974 "src/ehc/Scanner/Common.chs" #-} pFUSE , -- pWITH , pCONVERT :: IsParser p Token => p Token pFUSE = pKeyTk "fuse" -- pWITH = pKeyTk "with" pCONVERT = pKeyTk "convert" tokKeywStrsEH93 = [ ] tokKeywStrsHS93 = [ "fuse", "convert" ] {-# LINE 988 "src/ehc/Scanner/Common.chs" #-} pLANGUAGE_prag , pOPTIONSUHC_prag , pDERIVABLE_prag , pEXCLUDEIFTARGET_prag, pCHR_prag , pOPRAGMA , pCPRAGMA :: IsParser p Token => p Token pLANGUAGE_prag = pKeyTk "LANGUAGE" pDERIVABLE_prag = pKeyTk "DERIVABLE" pEXCLUDEIFTARGET_prag = pKeyTk "EXCLUDE_IF_TARGET" pOPTIONSUHC_prag = pKeyTk "OPTIONS_UHC" pCHR_prag = pKeyTk "CHR" pOPRAGMA = pKeyTk "{-#" pCPRAGMA = pKeyTk "#-}" tokPragmaStrsHS99= [ mkf "LANGUAGE", mkf "DERIVABLE", mkf "EXCLUDE_IF_TARGET", mkf "OPTIONS_UHC" , mkt "CHR" {- , "INLINE", "NOINLINE", "SPECIALIZE" -} ] where mkt = flip (,) True mkf = flip (,) False