{-# 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