{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
+#include "debug.h"
module Main where
import System.Environment
#ifdef DEBUG
import Text.Printf
-
-import JVM.Dump
#endif
import JVM.ClassFile
[clspath] -> do
let bclspath = B.pack $ map (fromIntegral . ord) clspath
cls <- getClassFile bclspath
-#ifdef DEBUG
- dumpClass cls
-#endif
hmap <- parseMethod cls "main"
case hmap of
Just hmap' -> do