無法在Windows上加載Haskell dll

Question

我經常創建一些帶有加載到R中的Haskell的DLL，這很好。

但我有一些與xlsx庫有關的代碼，我可以將它編譯成一個沒有問題的DLL，但是當我在R中加載DLL時，這會完全崩潰R會話。然而，這隻發生在Windows上，在Linux上沒有問題。

我設法找到一個最小的例子，有一些奇怪的。這是我的小例子：如果我編譯這段代碼的DLL，裝載在讀該DLL崩潰在Windows R對話

{-# LANGUAGE ForeignFunctionInterface #-} 
{-# LANGUAGE OverloadedStrings #-} 

module TestDLL where 
import Codec.Xlsx 
import Control.Lens 
import qualified Data.ByteString.Lazy as L 
import Foreign 
import Foreign.C 
import Foreign.C.String (peekCString, newCString) 

test :: IO() 
test = do 
    bs <- L.readFile "report.xlsx" 
    let value = toXlsx bs ^? ixSheet "List1" . 
       ixCell (3,2) . cellValue . _Just 
    putStrLn $ "Cell B3 contains " ++ show value 

... some elementary functions here ... 

。如果我刪除test函數，則不存在這樣的問題。然而test函數甚至沒有被導出（使用foreign export），並且它不被其他函數調用，是不是很奇怪？如果我不導出這個函數，並且如果我不使用它，爲什麼DLL處理這個函數？

更重要的是，爲什麼R會話在我加載DLL時崩潰，以及如何解決這個問題？

編輯

我現在有一個更小例子。這工作：

test :: IO Xlsx 
test = do 
    bs <- L.readFile "report.xlsx" 
    return $ toXlsx bs 

而這種崩潰：

test :: IO (Maybe Worksheet) 
test = do 
    bs <- L.readFile "report.xlsx" 
    return $ toXlsx bs ^? ixSheet "List1" 

它看起來像Windows與^?問題。

編輯2

沒有崩潰與此等價代碼：

test :: IO (Maybe Worksheet) 
test = do 
    bs <- L.readFile "report.xlsx" 
    let xlsx = toXlsx bs 
    let sheets = _xlSheets xlsx 
    let mapping = DM.fromList sheets 
    return $ DM.lookup "List1" mapping 

的Windows有^? ixSheet問題。現在讓我試試我的真實例子...

Answer 1

我沒有解決方案（編輯：我有一個，請參閱下面的）但我可以說這是由於導出符號的數量限制。

當我編譯代碼

test :: IO (Maybe Worksheet) 
test = do 
    bs <- L.readFile "report.xlsx" 
    let xlsx = toXlsx bs 
    let sheets = _xlSheets xlsx 
    let mapping = DM.fromList sheets 
    return $ DM.lookup "List1" mapping 

，我檢查與DependencyWalker的DLL，我看到有48318個導出的符號。這是可以接受的。

但對於其他的代碼：

test :: IO (Maybe Worksheet) 
test = do 
    bs <- L.readFile "report.xlsx" 
    return $ toXlsx bs ^? ixSheet "List1" 

所產生的DLL到達導出的符號的最大數目：有65535 = 2^16-1導出的符號。這個DLL被「截斷」。

編輯：一個可能的解決方案！

可能的解決方案包括使用def文件。在文件MyDef.def中，列出您要導出的功能，例如funexport和HsStart，像這樣：

EXPORTS 
funexport 
HsStart 

，並在您使用編譯命令行的末尾添加MyDef.def：

ghc -shared foo.hs StartEnd.c -o foo.dll MyDef.def 

我剛纔測試了這個解決方案，它的工作原理。不過這是我第一次測試它，所以我現在還不能保證。我也很驚訝，ghc不會自動做到這一點。