use reason for config/discover.ml

src/reason-font-manager/config/discover.re

@@ -0,0 +1,64 @@
+type os =
+  | Windows
+  | Mac
+  | Linux
+  | Unknown;
+
+let uname = () => {
+  let ic = Unix.open_process_in("uname");
+  let uname = input_line(ic);
+  let () = close_in(ic);
+  uname;
+};
+
+let get_os =
+  switch (Sys.os_type) {
+  | "Win32" => Windows
+  | _ =>
+    switch (uname()) {
+    | "Darwin" => Mac
+    | "Linux" => Linux
+    | _ => Unknown
+    }
+  };
+
+let root = Sys.getenv("cur__root");
+let c_flags = [];
+
+let ccopt = s => ["-ccopt", s];
+let cclib = s => ["-cclib", s];
+
+let flags =
+  switch (get_os) {
+  | Windows => [] @ cclib("-ldwrite") @ cclib("-lstdc++")
+  | Linux =>
+    [] @ cclib("-lfontconfig") @ cclib("-lstdc++") @ ccopt("-I/usr/include")
+  | Mac =>
+    []
+    @ ccopt("-framework CoreText")
+    @ ccopt("-framework Foundation")
+    @ cclib("-lstdc++")
+  | _ => []
+  };
+
+let flags_with_sanitize =
+  switch (get_os) {
+  | Linux => flags @ ccopt("-fsanitize=address")
+  | _ => flags
+  };
+
+let cxx_flags =
+  switch (get_os) {
+  | Linux => c_flags @ ["-fPIC", "-lstdc++"]
+  | Mac => c_flags @ ["-x", "objective-c++", "-lstdc++"]
+  | Windows => c_flags @ ["-fno-exceptions", "-fno-rtti", "-lstdc++"]
+  | _ => c_flags
+  };
+
+Configurator.V1.Flags.write_sexp("c_flags.sexp", c_flags);
+Configurator.V1.Flags.write_sexp("cxx_flags.sexp", cxx_flags);
+Configurator.V1.Flags.write_sexp("flags.sexp", flags);
+Configurator.V1.Flags.write_sexp(
+  "flags_with_sanitize.sexp",
+  flags_with_sanitize,
+);

src/reason-harfbuzz/config/discover.re

@@ -0,0 +1,51 @@
+type os =
+  | Windows
+  | Mac
+  | Linux
+  | Unknown;
+
+let uname = () => {
+  let ic = Unix.open_process_in("uname");
+  let uname = input_line(ic);
+  let () = close_in(ic);
+  uname;
+};
+
+let get_os =
+  switch (Sys.os_type) {
+  | "Win32" => Windows
+  | _ =>
+    switch (uname()) {
+    | "Darwin" => Mac
+    | "Linux" => Linux
+    | _ => Unknown
+    }
+  };
+
+let c_flags = ["-fPIC", "-I", Sys.getenv("HARFBUZZ_INCLUDE_PATH")];
+
+let ccopt = s => ["-ccopt", s];
+let cclib = s => ["-cclib", s];
+
+let extraFlags =
+  switch (get_os) {
+  | Linux => ccopt("-L/usr/lib")
+  | _ => []
+  };
+
+let lib_path_flags =
+  switch (get_os) {
+  | _ => [] @ ccopt("-L" ++ Sys.getenv("HARFBUZZ_LIB_PATH"))
+  };
+
+let flags = [] @ cclib("-lharfbuzz") @ extraFlags @ lib_path_flags;
+
+let cxx_flags =
+  switch (get_os) {
+  | Windows => c_flags @ ["-fno-exceptions", "-fno-rtti", "-lstdc++"]
+  | _ => c_flags
+  };
+
+Configurator.V1.Flags.write_sexp("c_flags.sexp", c_flags);
+Configurator.V1.Flags.write_sexp("cxx_flags.sexp", cxx_flags);
+Configurator.V1.Flags.write_sexp("flags.sexp", flags);