dump-class.hs

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