[add simple cff dumper selftest
John Meacham <john@repetae.net>**20070829011922] hunk ./selftest/Makefile 7
-all: sha1 TestParse
+all: sha1 TestParse cff
addfile ./selftest/cff.hs
hunk ./selftest/cff.hs 1
+
+
+import System.IO
+import Support.CFF
+import qualified Data.ByteString as BS
+import System
+
+main = do
+    xs <- getArgs
+    flip mapM xs $ \fn -> do
+        h <- openBinaryFile fn ReadMode
+        (ct,cfs) <- readCFF h
+        hClose h
+        putStrLn $ fn ++ " - " ++ show ct
+        flip mapM cfs $ \ (ct,ds) -> do
+            putStrLn $ show ct ++ ": " ++ show (BS.length ds)
+
+