fix #399 (#400)

Author: bobzhang

src/analyze/Packages.re

@@ -50,12 +50,33 @@ let newBsPackage = (~overrideBuildSystem=?, ~reportDiagnostics, state, rootPath)
 
   let%try bsPlatform = BuildSystem.getBsPlatformDir(rootPath);
 
+  
+  let nodePlatform = 
+    switch (Sys.os_type) {
+      | "Unix" => switch (input_line (Unix.open_process_in ("uname -s"))) {
+         | "Darwin"  => "darwin"
+         | "Linux"   => "linux"
+         | "FreeBSD" => "freebsd"
+         | s => invalid_arg (s ++ ": unsupported os_type")
+      }
+      | "Win32" => "win32"
+      | s => invalid_arg (s ++ ": unsupported os_type")
+  };
+  
+  let bsb = switch (Files.ifExists(bsPlatform /+ "lib" /+ "bsb.exe")){
+    | Some (x) => x
+    | None =>
+      switch (Files.ifExists(bsPlatform /+ nodePlatform /+ "bsb.exe")){
+        | Some (x) => x
+        | None => failwith ("can not locate bsb.exe in " ++ bsPlatform)
+      } 
+   };
+  
   let%try buildSystem = switch overrideBuildSystem {
     | None => BuildSystem.detect(rootPath, config)
     | Some(s) => Ok(s)
   };
 
-  let%try bsb = Files.ifExists(bsPlatform /+ "lib" /+ "bsb.exe") |> RResult.orError(bsPlatform /+ "lib" /+ "bsb.exe not found. aborting");
 
   let buildCommand = switch buildSystem {
     | Bsb(_) => bsb ++ " -make-world"