dbjava-1.7: src/Main.hs

module Main where

import Jvm.Data.ClassFormat
import Jvm.BinaryClass
import Jvm.PrettyClass
import UU.Pretty
import System
import System.Cmd

main::IO()
main = do 
    args <- getArgs
    let file    =  (!!) args 0
    putStrLn "Decompiler Bytecode Java\n"
    obj <- decodeClassFile file
    render (pp obj) 100
    putStrLn ""