1 {-# LANGUAGE OverloadedStrings #-}
4 import System.Environment
5 import qualified Data.ByteString.Lazy as B
6 import qualified Data.Map as M
16 [clspath,outpath] -> do
17 cls <- parseClassFile clspath
18 clsfile <- decodeFile clspath :: IO (Class File)
20 putStrLn $ "Source pool:\n" ++ showListIx (M.elems $ constsPool clsfile)
21 let result = classDirect2File cls
22 putStrLn $ "Result pool:\n" ++ showListIx (M.elems $ constsPool result)
23 B.writeFile outpath (encodeClass cls)
25 _ -> error "Synopsis: rebuild-class File.class Output.class"