+{-# LANGUAGE OverloadedStrings #-}
+module BasicBlocks where
+
+import Data.Binary
+import System.Environment
+import qualified Data.Map as M
+import qualified Data.ByteString.Lazy as B
+
+import JVM.Common
+import JVM.ClassFile
+import JVM.Converter
+import JVM.Dump
+
+import Utilities
+
+main = do
+ args <- getArgs
+ case args of
+ [clspath] -> do
+ clsFile <- decodeFile clspath
+ putStrLn $ showListIx $ M.assocs $ constsPool (clsFile :: Class Pointers)
+ cls <- parseClassFile clspath
+ dumpClass cls
+ let mainmethod = lookupMethod "main" cls -- "main|([Ljava/lang/String;)V" cf
+ testCFG mainmethod
+ putStrLn "foo"
+ _ -> error "Synopsis: dump-class File.class"
+
+testCFG _ = undefined