- case args of
- [clspath] -> do
- clsFile <- decodeFile clspath
- let cp = constsPool (clsFile :: Class Pointers)
- putStrLn "==== constpool: ===="
- putStrLn $ showListIx $ M.elems cp
- cf <- parseClassFile clspath
- putStrLn "==== classfile dump: ===="
- dumpClass cf
- putStrLn "==== random stuff: ===="
- let mainmethod = lookupMethod "main" cf -- "main|([Ljava/lang/String;)V" cf
- case mainmethod of
- Nothing -> putStrLn "no main found"
- Just main ->
- case attrByName main "Code" of
- Nothing -> putStrLn "no code attr found"
- Just bytecode -> do
- putStrLn "woot, running now"
- allocaArray 26 (\ p -> mapM_ (\ i -> poke (advancePtr p i) 0) [0..25] >> runstuff p bytecode)
- _ -> error "Synopsis: dump-class File.class"
-
-runstuff :: Ptr Int32 -> B.ByteString -> IO ()
-runstuff env bytecode = do
- (_, Right (ret, disasm)) <- runCodeGen (compile $ codeInstructions $ decodeMethod bytecode) env ()
- printf "return value: 0x%08x\n" ret
- printf "disasm:\n"
- mapM_ (putStrLn . showAtt) disasm
- return ()