changeset 7429 | fcf13e40d6b6 |
parent 7315 | 59b5b19e6604 |
child 7762 | d2fd8040534f |
7426:55b49cc1f33a | 7429:fcf13e40d6b6 |
---|---|
16 ] |
16 ] |
17 |
17 |
18 initDefines = Map.fromList [ |
18 initDefines = Map.fromList [ |
19 ("FPC", "") |
19 ("FPC", "") |
20 , ("PAS2C", "") |
20 , ("PAS2C", "") |
21 , ("ENDIAN_LITTLE", "") |
|
22 , ("S3D_DISABLED", "") |
|
21 ] |
23 ] |
22 |
24 |
23 preprocess :: String -> IO String |
25 preprocess :: String -> IO String |
24 preprocess fn = do |
26 preprocess fn = do |
25 r <- runParserT (preprocessFile fn) (initDefines, [True]) "" "" |
27 r <- runParserT (preprocessFile fn) (initDefines, [True]) "" "" |