Update code generator. Not working properly yet :/

[hs-java.git] / dump-class.hs

diff --git a/dump-class.hs b/dump-class.hs
index d76c8f2f8cb64b00c527478aa5ee8e096efd9e7a..3c52965c8a0a9efd1f0c1facd0c1e48066bcdc2d 100644 (file)
--- a/dump-class.hs
+++ b/dump-class.hs
@@ -3,10 +3,13 @@ module Main where
 
 import Control.Monad
 import Data.Array
+import Data.Binary
 import System.Environment
 import qualified Data.ByteString.Lazy as B
 import Text.Printf
 
+import JVM.Types
+import JVM.ClassFile
 import JVM.Converter
 import JVM.Dump
 
@@ -14,6 +17,8 @@ main = do
   args <- getArgs
   case args of
     [clspath] -> do
+      clsFile <- decodeFile clspath
+      putStrLn $ showListIx $ constsPool clsFile
       cls <- parseClassFile clspath
       dumpClass cls
     _ -> error "Synopsis: dump-class File.class"