Use sexplib0 in config instead of base and stdio

Author: MisterDA

config/discover.ml

@@ -1,14 +1,21 @@
-open Base
-open Stdio
+open Sexplib0
+open Sexplib0.Sexp_conv
+open StdLabels
 module C = Configurator.V1
 
+let write_data fn data =
+  let och = open_out fn in
+  Fun.protect
+    (fun () -> output_string och data)
+    ~finally:(fun () -> close_out och)
+
 let write_sexp fn list_of_str =
   let data = sexp_of_list sexp_of_string list_of_str |> Sexp.to_string in
-  Out_channel.write_all fn ~data
+  write_data fn data
 
-let write_flags file list_of_str =
+let write_flags fn list_of_str =
   let data = String.concat list_of_str ~sep:" " in
-  Out_channel.write_all file ~data
+  write_data fn data
 
 let () =
   C.main ~name:"GObject-Introspection" (fun c ->
@@ -64,8 +71,7 @@ let () =
       in
       let os_type = C.ocaml_config_var_exn (C.create "") "system" in
       let ccopts =
-        if Base.String.(os_type = "macosx") then [ "" ]
-        else [ "-Wl,-no-as-needed" ]
+        if os_type = "macosx" then [ "" ] else [ "-Wl,-no-as-needed" ]
       in
       write_sexp "c_flags.sexp" conf.cflags;
       write_sexp "c_library_flags.sexp" conf.libs;

config/dune

@@ -1,3 +1,3 @@
 (executable
  (name discover)
- (libraries base stdio dune-configurator))
+ (libraries sexplib0 dune-configurator))

dune-project

@@ -12,14 +12,14 @@
  (description "This library provides bindings based on Ctypes for the libgirepository API (see https://developer.gnome.org/gi/stable/)")
  (depends
   (ocaml (>= 4.08))
-  ctypes
-  ctypes-foreign
-  (dune-configurator :build)
-  (base :build)
-  (stdio (and :build :with-test))
   (conf-pkg-config :build)
   (conf-gobject-introspection :build)
   (conf-glib-2 :build)
   (conf-gtk3 :build)
+  (dune-configurator :build)
+  (sexplib0 :build)
+  ctypes
+  ctypes-foreign
   (ounit2 :with-test)
+  (stdio :with-test)
  ))

gobject-introspection.opam

@@ -13,16 +13,16 @@ bug-reports: "https://github.com/cedlemo/OCaml-GObject-Introspection/issues"
 depends: [
   "dune" {>= "3.17"}
   "ocaml" {>= "4.08"}
-  "ctypes"
-  "ctypes-foreign"
-  "dune-configurator" {build}
-  "base" {build}
-  "stdio" {build & with-test}
   "conf-pkg-config" {build}
   "conf-gobject-introspection" {build}
   "conf-glib-2" {build}
   "conf-gtk3" {build}
+  "dune-configurator" {build}
+  "sexplib0" {build}
+  "ctypes"
+  "ctypes-foreign"
   "ounit2" {with-test}
+  "stdio" {with-test}
   "odoc" {with-doc}
 ]
 build: [

tests/dune

@@ -1,3 +1,3 @@
 (test
  (name test)
- (libraries GObject_introspection ounit2 ctypes ctypes.foreign stdio))
+ (libraries GObject_introspection ounit2 ctypes ctypes.foreign))