为 haskell 堆栈项目编写静态 cpp 库

Writing a static cpp library for a haskell stack project

本文关键字:静态 cpp haskell 堆栈 项目      更新时间:2023-10-16

我正在尝试为带有Haskell堆栈的Windows编写调试器。因为没有其他方法可以使用 haskell 包将正确的标志传递给CreateProcess,所以我决定为它编写一个包装器。这是我所做的:

// process.h
#pragma once
// Headers
#include <Windows.h>
// Functions
HANDLE CreateDebuggedProcess(LPCSTR lpApplicationName);

//process.cpp
#include <Windows.h>
#include "process.h"
HANDLE CreateDebuggedProcess(LPCSTR lpApplicationName)
{
STARTUPINFO startup_info = { 0 };
PROCESS_INFORMATION process_information = { 0 };
startup_info.cb = sizeof(startup_info);
if (!CreateProcessA(
lpApplicationName,
NULL,
NULL,
NULL,
FALSE,
DEBUG_ONLY_THIS_PROCESS,
NULL,
NULL,
&startup_info,
&process_information
))
{
return INVALID_HANDLE_VALUE;
}
return process_information.hProcess;
}

我编译成DebuggedProcess.lib在Haskell项目中,我有:

{-# LANGUAGE ForeignFunctionInterface #-}
module Main where
import System.Win32.Types
import Foreign.C.String
main :: IO ()
main = do
withCString "cmd.exe" c_CreateDebuggedProcess
putStrLn "created process"
foreign import ccall "DebuggedProcess.lib CreateDebuggedProcess"
c_CreateDebuggedProcess :: LPCSTR -> IO HANDLE

我已将.lib文件添加到堆栈路径(使用stack path --extra-include-dirs验证(并添加了extra-libraries: [DebuggedProcess].

然而,我收到以下错误:

>stack build
Building all executables for `tape' once. After a successful build of all of them, only specified executables will be rebuilt.
tape-0.1.0.0: configure (lib + exe)
Configuring tape-0.1.0.0...
Cabal-simple_Z6RU0evB_2.2.0.1_ghc-8.4.3.exe: Missing dependencies on foreign
libraries:
* Missing (or bad) C libraries: DebuggedProcess, DebuggedProcess,
DebuggedProcess
This problem can usually be solved by installing the system packages that
provide these libraries (you may need the "-dev" versions). If the libraries
are already installed but in a non-standard location then you can use the
flags --extra-include-dirs= and --extra-lib-dirs= to specify where they are.If
the library files do exist, it may contain errors that are caught by the C
compiler at the preprocessing stage. In this case you can re-run configure
with the verbosity flag -v3 to see the error messages.

--  While building custom Setup.hs for package tape-0.1.0.0 using:
C:srsetup-exe-cachex86_64-windowsCabal-simple_Z6RU0evB_2.2.0.1_ghc-8.4.3.exe --builddir=.stack-workdist7d103d30 configure --with-ghc=C:UsersyotamAppDataLocalProgramsstackx86_64-windowsghc-8.4.3binghc.EXE --with-ghc-pkg=C:UsersyotamAppDataLocalProgramsstackx86_64-windowsghc-8.4.3binghc-pkg.EXE --user --package-db=clear --package-db=global --package-db=C:srsnapshots68fc3218pkgdb --package-db=D:tape.stack-workinstalldb7ce97cpkgdb --libdir=D:tape.stack-workinstalldb7ce97clib --bindir=D:tape.stack-workinstalldb7ce97cbin --datadir=D:tape.stack-workinstalldb7ce97cshare --libexecdir=D:tape.stack-workinstalldb7ce97clibexec --sysconfdir=D:tape.stack-workinstalldb7ce97cetc --docdir=D:tape.stack-workinstalldb7ce97cdoctape-0.1.0.0 --htmldir=D:tape.stack-workinstalldb7ce97cdoctape-0.1.0.0 --haddockdir=D:tape.stack-workinstalldb7ce97cdoctape-0.1.0.0 --dependency=Win32=Win32-2.6.1.0 --dependency=base=base-4.11.1.0 --extra-include-dirs=C:UsersyotamAppDataLocalProgramsstackx86_64-windowsmsys2-20180531mingw64include --extra-include-dirs=D:tapelib --extra-lib-dirs=C:UsersyotamAppDataLocalProgramsstackx86_64-windowsmsys2-20180531mingw64bin --extra-lib-dirs=C:UsersyotamAppDataLocalProgramsstackx86_64-windowsmsys2-20180531mingw64lib --enable-tests --enable-benchmarks
Process exited with code: ExitFailure 1

我对如何解决这个问题一无所知。任何帮助将不胜感激

只需在.cabal文件中使用c-sources:,即可使您的"库"静态编译成Haskell可执行文件。下面是示例:https://github.com/commercialhaskell/stack/pull/4238/files