WindowsでpthreadをつかうJuliaの埋め込み

build.md

準備

vcpkgでpthreadを入れておく

vcpkg install pthreads:x64-windows

build

cl /I C:\vcpkg\vcpkg\installed\x64-windows\include /I C:\Users\kjwj\.julia\juliaup\julia-1.11.2+0.x64.w64.mingw32\in clude\julia main.cpp /link /LIBPATH:C:\Users\kjwj\.julia\juliaup\julia-1.11.2+0.x64.w64.mingw32\lib /LIBPATH:C:\vcpkg\vcpkg\installed\x64-windows\lib pthreadVC3.lib libjulia.dll.a libopenlibm.dll.a

winjuliapthread.cpp

#include <julia.h>
#include <pthread.h>

JULIA_DEFINE_FAST_TLS

extern "C" __declspec(dllexport)
double c_func(int i)
{
    printf("[C %08x] i = %d\n", pthread_self(), i);

    // Call the Julia sqrt() function to compute the square root of i, and return it
    jl_function_t *sqrt = jl_get_function(jl_base_module, "sqrt");
    jl_value_t* arg = jl_box_int32(i);
    double ret = jl_unbox_float64(jl_call1(sqrt, arg));

    return ret;
}

int main()
{
    jl_init();

    // Define a Julia function func() that calls our c_func() defined in C above
    jl_eval_string("func(i) = ccall(:c_func, Float64, (Int32,), i)");

    // Call func() multiple times, using multiple threads to do so
    jl_eval_string("println(Threads.threadpoolsize())");
    jl_eval_string("use(i) = println(\"[J $(Threads.threadid())] i = $(i) -> $(func(i))\")");
    jl_eval_string("Threads.@threads for i in 1:5 use(i) end");

    jl_atexit_hook(0);
}