equal
deleted
inserted
replaced
13 char '{' >> notFollowedBy (char '$') >> manyTill anyChar (try $ char '}') >> return "" |
13 char '{' >> notFollowedBy (char '$') >> manyTill anyChar (try $ char '}') >> return "" |
14 , (try $ string "(*") >> manyTill anyChar (try $ string "*)") >> return "" |
14 , (try $ string "(*") >> manyTill anyChar (try $ string "*)") >> return "" |
15 , (try $ string "//") >> manyTill anyChar (try newline) >> return "\n" |
15 , (try $ string "//") >> manyTill anyChar (try newline) >> return "\n" |
16 ] |
16 ] |
17 |
17 |
18 initDefines = Map.fromList [("FPC", "")] |
18 initDefines = Map.fromList [("FPC", ""), ("PAS2C", "")] |
19 |
19 |
20 preprocess :: String -> IO String |
20 preprocess :: String -> IO String |
21 preprocess fn = do |
21 preprocess fn = do |
22 r <- runParserT (preprocessFile fn) (initDefines, [True]) "" "" |
22 r <- runParserT (preprocessFile fn) (initDefines, [True]) "" "" |
23 case r of |
23 case r of |