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 |
18 initDefines = Map.fromList [ |
19 initDefines = Map.fromList [ |
19 ("FPC", "") |
20 ("FPC", "") |
20 , ("PAS2C", "") |
21 , ("PAS2C", "") |
|
22 -- , ("WEBGL", "") |
|
23 -- , ("AI_MAINTHREAD", "") |
21 , ("ENDIAN_LITTLE", "") |
24 , ("ENDIAN_LITTLE", "") |
22 , ("S3D_DISABLED", "") |
25 , ("S3D_DISABLED", "") |
23 ] |
26 ] |
24 |
27 |
25 preprocess :: String -> String -> String -> IO String |
28 preprocess :: String -> String -> String -> IO String |