| changeset 7059 | 800dcaf979bf |
| parent 7038 | d853e4385241 |
| child 7067 | f98ec3aecf4e |
| 7058:56596f3531d9 | 7059:800dcaf979bf |
|---|---|
16 ] |
16 ] |
17 |
17 |
18 initDefines = Map.fromList [ |
18 initDefines = Map.fromList [ |
19 ("FPC", "") |
19 ("FPC", "") |
20 , ("PAS2C", "") |
20 , ("PAS2C", "") |
21 , ("USE_SDLTHREADS", "") |
|
22 ] |
21 ] |
23 |
22 |
24 preprocess :: String -> IO String |
23 preprocess :: String -> IO String |
25 preprocess fn = do |
24 preprocess fn = do |
26 r <- runParserT (preprocessFile fn) (initDefines, [True]) "" "" |
25 r <- runParserT (preprocessFile fn) (initDefines, [True]) "" "" |