Merge pull request #876 from bloomberg/remove_ocaml_tools

add scripts to uninstall ocaml bins after installation

Author: bobzhang

jscomp/others/js_string.ml

@@ -81,3 +81,5 @@ external toLocaleLowerCase :  t = "" [@@bs.send.pipe: t]
 external toUpperCase :  t = "" [@@bs.send.pipe: t]
 external toLocaleUpperCase :  t = "" [@@bs.send.pipe: t]
 external trim :  t = "" [@@bs.send.pipe: t]
+
+external startsWith : t -> Js.boolean = "" [@@bs.send.pipe:t]

scripts/clean.js

@@ -0,0 +1,42 @@
+'use strict';
+
+var Path         = require("path");
+var Fs           = require("fs");
+var Js_undefined = require("../lib/js/js_undefined");
+
+Js_undefined.bind((__dirname), function (dir) {
+      var bin_dir = Path.join(dir, "..", "bin");
+      var files = Fs.readdirSync(bin_dir);
+      console.log(/* tuple */[
+            "cleaning now",
+            files
+          ]);
+      files.forEach(function (f) {
+            if (!f.startsWith("bs") && f !== ".gitignore") {
+              var p = Path.join(bin_dir, f);
+              try {
+                console.log(/* tuple */[
+                      "removing",
+                      p,
+                      "now"
+                    ]);
+                Fs.unlinkSync(p);
+                return /* () */0;
+              }
+              catch (exn){
+                console.log(/* tuple */[
+                      "removing",
+                      p,
+                      "failure"
+                    ]);
+                return /* () */0;
+              }
+            }
+            else {
+              return 0;
+            }
+          });
+      return undefined;
+    });
+
+/*  Not a pure module */

scripts/clean.ml

@@ -0,0 +1,28 @@
+
+[@@@bs.config{no_export}]
+module Fs = Node.Fs
+
+
+let _ = 
+  Js.Undefined.bind [%node __dirname] (fun [@bs] dir -> 
+      let bin_dir = Node.Path.join [|dir ; ".."; "bin"|] in 
+      let files = Fs.readdirSync bin_dir in 
+      Js.log ("cleaning now", files);
+      files |> Js.Array.forEach (fun [@bs] f -> 
+          if not @@ Js.to_bool @@ Js.String.startsWith "bs" f 
+             && f <> ".gitignore"
+          then 
+            let p = Node.Path.join [| bin_dir; f|] in
+            try 
+              Js.log ("removing", p, "now");
+              Fs.unlinkSync p 
+            with _ -> Js.log ("removing", p, "failure")
+        );
+      Js.undefined
+    )
+
+
+
+(* local variables: *)
+(* compile-command: "bscc -c clean.ml" *)
+(* end: *)

scripts/postinstall.sh

@@ -30,7 +30,12 @@ export PATH=$(pwd)/bin:$PATH
 
 if [ $BS_TRAVIS_CI ]
 then 
-    cd jscomp && make travis-world-test && make install
+    cd jscomp && make travis-world-test && make install && cd ..
 else 
-    cd jscomp && make world && make install
+    cd jscomp && make world && make install && cd ..
 fi
+
+# uninstall ocaml
+
+node scripts/clean.js
+