dump-class.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2 module Main where
   3
   4 import Data.Binary
   5 import System.Environment
   6 import qualified Data.Map as M
   7
   8 import JVM.Common
   9 import JVM.ClassFile
  10 import JVM.Converter
  11 import JVM.Dump
  12
  13 main = do
  14   args <- getArgs
  15   case args of
  16     [clspath] -> do
  17       clsFile <- decodeFile clspath
  18       putStrLn $ showListIx $ M.assocs $ constsPool (clsFile :: Class File)
  19       cls <- parseClassFile clspath
  20       dumpClass cls
  21     _ -> error "Synopsis: dump-class File.class"
  22