-foreign import ccall "set_methodmap"
- set_methodmap :: Ptr () -> IO ()
-
-foreign import ccall "get_classmap"
- get_classmap :: IO (Ptr ())
-
-foreign import ccall "set_classmap"
- set_classmap :: Ptr () -> IO ()
-
-foreign import ccall "get_virtualmap"
- get_virtualmap :: IO (Ptr ())
-
-foreign import ccall "set_virtualmap"
- set_virtualmap :: Ptr () -> IO ()
+{-
+toString :: B.ByteString -> String
+toString bstr = decodeString $ map (chr . fromIntegral) $ B.unpack bstr
+-}