hs-java-0.2: dump-class.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Data.Binary
import System.Environment
import qualified Data.Map as M

import JVM.Common
import JVM.ClassFile
import JVM.Converter
import JVM.Dump

main = do
  args <- getArgs
  case args of
    [clspath] -> do
      clsFile <- decodeFile clspath
      putStrLn $ showListIx $ M.elems $ constsPool (clsFile :: Class Pointers)
      cls <- parseClassFile clspath
      dumpClass cls
    _ -> error "Synopsis: dump-class File.class"