Commit a3937a27 by Zachary Snow

fix preproccessing multi-line defines messing up line numbers

parent 738c2b9e
......@@ -50,7 +50,7 @@ preprocess env file content = unlines $ pp True [] env $ lines $ uncomment file
pp _ _ _ [] = []
pp on stack env (a : rest) =
if a /= "" && last a == '\\' && head a == '`'
then pp on stack env $ ((init a) ++ " " ++ (head rest)) : (tail rest)
then "" : (pp on stack env $ ((init a) ++ " " ++ (head rest)) : (tail rest))
else case words a of
"`define" : name : value -> "" : pp on stack (if on then (name, ppLine env $ unwords value) : env else env) rest
"`ifdef" : name : _ -> "" : pp (on && (elem name $ fst $ unzip env)) (on : stack) env rest
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment