wrath/shaniqua-core
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

unfuck this on nix

Browse Source
This commit is contained in:
dupa dup
2022-12-06 16:48:54 -08:00
parent 7fa70f8377
commit e7c03d3608
7 changed files with 21 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/Carrion/Plugin/TCL.hs
View File

@ -95,13 +95,13 @@ lEN_AUTO = -1
eVAL_FLAGS_CLEAR :: Int
eVAL_FLAGS_CLEAR = 0
dumpDebug :: Monad m => p -> m ()
dumpDebug _ = return ()
--dumpDebug :: Monad m => p -> m ()
--dumpDebug _ = return ()
dumpDebug = putStrLn
initPlugin :: Manhole -> IO InitStatus
initPlugin manhole = do
myFakeArg0 <- getExecutablePath >>= newCString
myTCLDl <- dlopen "/usr/lib/libtcl8.6.so" [RTLD_NOW]
myTCLDl <- dlopen "libtcl8.6.so" [RTLD_NOW]
let bless name convf = dlsym myTCLDl name >>= \fp -> return $ convf $ fp
tcl_CreateInterp <- bless "Tcl_CreateInterp" mkTcl_CreateInterp
interp <- tcl_CreateInterp