Check if JuliaInterface could be loaded

when GAP is loaded into Julia
oscar-system · Jan 31, 2019 · 8bc2d54 · 8bc2d54
1 parent 9383331
commit 8bc2d54
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/LibGAP.jl/src/initialization.jl b/LibGAP.jl/src/initialization.jl
@@ -61,7 +61,14 @@ function initialize( argv::Array{String,1}, env::Array{String,1} )
     ccall( Libdl.dlsym(gap_library, :GAP_EvalString)
            , Ptr{Cvoid}
            , (Ptr{UInt8},)
-           , "LoadPackage(\"JuliaInterface\");" )
+           , "_JULIAINTERNAL_JULIAINTERFACE_LOADED := LoadPackage(\"JuliaInterface\");" )
+    loadpackage_return = ccall( Libdl.dlsym(gap_library, :GAP_EvalString)
+           , Ptr{Cvoid}
+           , (Ptr{UInt8},)
+           , "_JULIAINTERNAL_JULIAINTERFACE_LOADED;" )
+    if loadpackage_return == Libdl.dlsym(gap_library, :GAP_Fail )
+        throw(ErrorException( "JuliaInterface could not be loaded" ))
+    end
 end
 
 function finalize( )