Add a message dumper tool

It is not built by default, and only works on pcap logs

2 files changed, 28 insertions, 0 deletions

diff --git a/Test/DumpMessages.hs b/Test/DumpMessages.hs
new file mode 100644
index 0000000..b393b97
--- /dev/null
+++ b/Test/DumpMessages.hs
@@ -0,0 +1,12 @@
+module Main where
+
+import System.Environment (getArgs)
+import Control.Monad (forM_)
+
+import Bustle.Loader.Pcap (readPcap)
+
+main = do
+    [file] <- getArgs
+    (Right (warnings, messages)) <- readPcap file
+    forM_ (zip [1..] messages) $ \(i, message) ->
+        putStrLn $ show i ++ ": " ++ show message
diff --git a/bustle.cabal b/bustle.cabal
index ae80023..725ef9c 100644
--- a/bustle.cabal
+++ b/bustle.cabal
@@ -130,6 +130,22 @@ Executable test-monitor
                , gtk > 0.11
                , glib
 
+Executable dump-messages
+  if flag(InteractiveTests) && flag(PostCabalizedGtk2HS)
+    buildable: True
+  else
+    buildable: False
+
+  main-is: Test/DumpMessages.hs
+  Build-Depends: base
+               , binary
+               , bytestring
+               , containers
+               , dbus-core == 0.9.*
+               , mtl
+               , pcap
+               , text
+
 Test-suite test-pcap-crash
     type: exitcode-stdio-1.0
     main-is: Test/PcapCrash.hs