From: Michael Orlitzky <michael@orlitzky.com>
Date: Sat, 22 May 2010 17:34:49 +0000 (-0400)
Subject: Added the "diff" mode of operation.
X-Git-Tag: 0.0.1~31
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=e9ec7542beb8d34bc8215d2dfb53b2f5e5cd96a2;p=hath.git

Added the "diff" mode of operation.
---

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index 31ca768..7fc614a 100644
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -21,11 +21,12 @@ lowercase :: String -> String
 lowercase = map toLower
 
 
--- The application currently has three modes. The default, Regex, will
+-- The application currently has four modes. The default, Regex, will
 -- compute a regular expression matching the input CIDRs. Reduce, on
 -- the other hand, will combine any redundant/adjacent CIDR blocks
--- into one. Dupe will show you what would be removed by Reduce.
-data Mode = Regex | Reduce | Dupe
+-- into one. Dupe will show you what would be removed by Reduce, and
+-- Diff will show both additions and deletions in a diff-like format.
+data Mode = Regex | Reduce | Dupe | Diff
 
 
 -- A record containing values for all available options.
@@ -71,7 +72,7 @@ set_input arg opts = do
 
 -- The usage header
 usage :: String
-usage = "Usage: hath [regexed|reduced|duplicated] [-h] [-i FILE]"
+usage = "Usage: hath [regexed|reduced|duplicated|diffed] [-h] [-i FILE]"
 
 
 -- The usage header, and all available flags (as generated by GetOpt)
@@ -112,6 +113,8 @@ parse_mode = do
         "reduced"    -> return Reduce
         "dupe"       -> return Dupe
         "duplicated" -> return Dupe
+        "diff"       -> return Diff
+        "diffed"     -> return Diff
         _         -> return Regex
 
 
diff --git a/src/Main.hs b/src/Main.hs
index eeee9f6..25413ce 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -137,3 +137,12 @@ main = do
          return ()
          where
            dupes = cidrs \\ (combine_all cidrs)
+    Diff -> do
+         mapM putStrLn deletions
+         mapM putStrLn additions
+         return ()
+         where
+           dupes = cidrs \\ (combine_all cidrs)
+           deletions = map (\s -> "-" ++ (show s)) dupes
+           newcidrs = (combine_all cidrs) \\ cidrs
+           additions = map (\s -> "+" ++ (show s)) newcidrs