wip

configure.ac

@@ -357,7 +357,11 @@ AS_CASE([${support_static},${enable_static}],
   [no,yes],[AC_MSG_ERROR([--enable-static is not available on this platform (${TARGET}).])],
   [*,auto],[enable_static=${default_static}])
 AS_IF([test "${enable_static}" = yes],[
-  echo "(-noautolink -cclib -lunix -cclib -lmccs_stubs -cclib -lmccs_glpk_stubs -cclib -lsha_stubs ${platform_dependent_stuff})" > src/client/linking.sexp
+  AX_COMPARE_VERSION([$OCAMLVERSION], [lt], [5.0.0],[
+    echo "(-noautolink -cclib -lunix -cclib -lmccs_stubs -cclib -lmccs_glpk_stubs -cclib -lsha_stubs ${platform_dependent_stuff})" > src/client/linking.sexp
+  ],[
+    echo "(-noautolink -cclib -lunixnat -cclib -lmccs_stubs -cclib -lmccs_glpk_stubs -cclib -lsha_stubs ${platform_dependent_stuff})" > src/client/linking.sexp
+  ])
   AC_MSG_RESULT([static])
 ],[
   AC_MSG_RESULT([shared])

src/core/dune

@@ -19,6 +19,14 @@
 (rule
   (copy opamStubsTypes.ml opamStubsTypes.mli))
 
+(rule
+ (enabled_if (< %{ocaml_version} "5.0"))
+ (action (copy opamStubs.ocaml4.ml opamStubs.win32.ml)))
+
+(rule
+ (enabled_if (>= %{ocaml_version} "5.0"))
+ (action (copy opamStubs.ocaml5.ml opamStubs.win32.ml)))
+
 (rule
   (write-file opamCoreConfigDeveloper.ml
     "let value = \"%{read-strings:developer}\""))

src/core/opamStubs.ocaml5.ml

@@ -0,0 +1,17 @@
+(**************************************************************************)
+(*                                                                        *)
+(*    Copyright 2018 MetaStack Solutions Ltd.                             *)
+(*                                                                        *)
+(*  All rights reserved. This file is distributed under the terms of the  *)
+(*  GNU Lesser General Public License version 2.1, with the special       *)
+(*  exception on linking described in the file LICENSE.                   *)
+(*                                                                        *)
+(**************************************************************************)
+
+include OpamStubsTypes
+include OpamWin32Stubs
+let getpid () = Int32.to_int (getCurrentProcessID ())
+
+external win_create_process : string -> string -> string option ->
+                              Unix.file_descr -> Unix.file_descr -> Unix.file_descr -> int
+                            = "caml_unix_create_process" "caml_unix_create_process_native"