diff options
author | Jed Barber <jjbarber@y7mail.com> | 2012-09-27 18:51:04 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2012-09-27 18:51:04 +1000 |
commit | 4146476e6fb7d07f13c29d3cc9ecf4addf2cbc99 (patch) | |
tree | 269bb9aca365ca89aa32a5eed1a00d152e24b91c /Compare.hs | |
parent | ad1b2ed1e8fb4ec549318a27b5f80d2a6651b2dd (diff) |
Utility to compare two article files to see if they produce the same results
Diffstat (limited to 'Compare.hs')
-rw-r--r-- | Compare.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/Compare.hs b/Compare.hs new file mode 100644 index 0000000..4d9ab6d --- /dev/null +++ b/Compare.hs @@ -0,0 +1,18 @@ +import System.Environment( getArgs ) +import Text.Printf +import Library.Parse +import Library.Semantic +import Library.Stack + + + +main = do + args <- getArgs + listA <- getLines (args!!0) + listB <- getLines (args!!1) + let resultA = eval (map (stripReturn) listA) + resultB = eval (map (stripReturn) listB) + output = if (resultA == resultB) + then "Articles identical\n" + else "Differences detected\n" + printf output |