+lookupMethodRecursive :: B.ByteString -> [B.ByteString] -> Class Resolved
+ -> IO (Maybe (Method Resolved, [B.ByteString], Class Resolved))
+lookupMethodRecursive name clsnames cls =
+ case res of
+ Just x -> return $ Just (x, nextclsn, cls)
+ Nothing -> if thisname == "java/lang/Object"
+ then return Nothing
+ else do
+ supercl <- getClassFile (superClass cls)
+ lookupMethodRecursive name nextclsn supercl
+ where
+ res = lookupMethod name cls
+ thisname = thisClass cls
+ nextclsn :: [B.ByteString]
+ nextclsn = thisname:clsnames
+
+-- TODO(bernhard): UBERHAX. ghc patch?
+foreign import ccall safe "lookupSymbol"
+ c_lookupSymbol :: CString -> IO (Ptr a)
+
+loadNativeFunction :: String -> IO CUInt
+loadNativeFunction sym = do
+ _ <- loadRawObject "ffi/native.o"
+ -- TODO(bernhard): WTF
+ resolveObjs (return ())
+ ptr <- withCString sym c_lookupSymbol
+ if ptr == nullPtr
+ then error $ "dyn. loading of \"" ++ sym ++ "\" failed."
+ else return $ fromIntegral $ ptrToIntPtr ptr
+