20     ("FPC", "")

    20     ("FPC", "")

    21     , ("PAS2C", "")

    21     , ("PAS2C", "")

    22 --    , ("WEBGL", "")

    22 --    , ("WEBGL", "")

    23 --    , ("AI_MAINTHREAD", "")

    23 --    , ("AI_MAINTHREAD", "")

    24     , ("ENDIAN_LITTLE", "")

    24     , ("ENDIAN_LITTLE", "")

    26     ]

    25     ]

    27 

    26 

    28 preprocess :: String -> String -> String -> IO String

    27 preprocess :: String -> String -> String -> IO String

    29 preprocess inputPath alternateInputPath fn = do

    28 preprocess inputPath alternateInputPath fn = do

    30     r <- runParserT (preprocessFile (inputPath ++ fn)) (initDefines, [True]) "" ""

    29     r <- runParserT (preprocessFile (inputPath ++ fn)) (initDefines, [True]) "" ""