equal
deleted
inserted
replaced
17 |
17 |
18 initDefines = Map.fromList [ |
18 initDefines = Map.fromList [ |
19 ("FPC", "") |
19 ("FPC", "") |
20 , ("PAS2C", "") |
20 , ("PAS2C", "") |
21 , ("ENDIAN_LITTLE", "") |
21 , ("ENDIAN_LITTLE", "") |
22 , ("S3D_DISABLED", "") |
|
23 ] |
22 ] |
24 |
23 |
25 preprocess :: String -> IO String |
24 preprocess :: String -> IO String |
26 preprocess fn = do |
25 preprocess fn = do |
27 r <- runParserT (preprocessFile fn) (initDefines, [True]) "" "" |
26 r <- runParserT (preprocessFile fn) (initDefines, [True]) "" "" |