projects
/
hs-java.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Minor fixes.
[hs-java.git]
/
dump-class.hs
diff --git
a/dump-class.hs
b/dump-class.hs
index d76c8f2f8cb64b00c527478aa5ee8e096efd9e7a..a87c1cbd698b255bc7d2391a64f81a13fbdf28bd 100644
(file)
--- a/
dump-class.hs
+++ b/
dump-class.hs
@@
-1,12
+1,12
@@
{-# LANGUAGE OverloadedStrings #-}
module Main where
{-# LANGUAGE OverloadedStrings #-}
module Main where
-import Control.Monad
-import Data.Array
+import Data.Binary
import System.Environment
import System.Environment
-import qualified Data.ByteString.Lazy as B
-import Text.Printf
+import qualified Data.Map as M
+import JVM.Common
+import JVM.ClassFile
import JVM.Converter
import JVM.Dump
import JVM.Converter
import JVM.Dump
@@
-14,6
+14,8
@@
main = do
args <- getArgs
case args of
[clspath] -> do
args <- getArgs
case args of
[clspath] -> do
+ clsFile <- decodeFile clspath
+ putStrLn $ showListIx $ M.elems $ constsPool (clsFile :: Class File)
cls <- parseClassFile clspath
dumpClass cls
_ -> error "Synopsis: dump-class File.class"
cls <- parseClassFile clspath
dumpClass cls
_ -> error "Synopsis: dump-class File.class"