remove unused code

Author: bobzhang

jscomp/build_tests/bscx/input.js

@@ -4,11 +4,11 @@ var fs = require('fs')
 var assert = require('assert')
 var path = require('path')
 
-p.execSync(`bsc -bs-main main.ml`, { cwd: __dirname })
-
+p.execSync(`bsc -c -bs-main main.ml`, { cwd: __dirname, shell:true })
 
+// TODO: test main.js correct ness
 try {
-    assert.equal(require(path.join(__dirname, `main.js`)).v, 5)
+    assert.equal(require(path.join(__dirname, `a2.js`)).v, 2)
 } finally {
     fs.readdirSync(`.`, 'utf8').forEach(x => {
         if (x !== 'input.js' && x.endsWith('.js')) {

jscomp/build_tests/namespace/src/demo.js

@@ -27,12 +27,11 @@ module L = Js_dump_lit
 
 
 let string_of_module_id 
-    ~hint_output_dir 
     module_system
     id
   = 
   Js_packages_info.string_of_module_id
-    ~hint_output_dir  module_system
+    module_system
     (Js_packages_state.get_packages_info ())
     Lam_compile_env.get_package_path_from_cmj
     id
@@ -57,7 +56,6 @@ let node_program ~output_prefix f ( x : J.deps_program) =
          (fun x -> 
             Lam_module_ident.id x,
             string_of_module_id
-              ~hint_output_dir:(Filename.dirname output_prefix)
               NodeJS 
               x)
          x.modules)
@@ -76,7 +74,6 @@ let amd_program ~output_prefix kind f (  x : J.deps_program) =
   List.iter (fun x ->
       let s : string = 
         string_of_module_id
-          ~hint_output_dir:(Filename.dirname output_prefix) 
           kind 
           x in
       P.string f L.comma ;
@@ -116,7 +113,6 @@ let es6_program  ~output_prefix fmt f (  x : J.deps_program) =
          (fun x -> 
             Lam_module_ident.id x,
             string_of_module_id
-              ~hint_output_dir:(Filename.dirname output_prefix)
               fmt 
               x)
          x.modules)

jscomp/build_tests/namespace/src/main.js

@@ -137,21 +137,12 @@ let query_package_infos
    can be cached
 *)
 let get_output_dir ~pkg_dir module_system 
-    ~hint_output_dir 
     ({module_systems } : t ) =
-  match module_systems with
-  | []->
-    if Filename.is_relative hint_output_dir then
-      Filename.concat (Lazy.force Ext_filename.cwd )
-        hint_output_dir
-    else
-      hint_output_dir
-  | _ ->
-    begin match List.find (fun (k,_) -> 
+    match List.find (fun (k,_) -> 
         compatible k  module_system) module_systems with
     | (_, path) -> Filename.concat pkg_dir  path
     |  exception _ -> assert false
-    end
+
 
 
 let add_npm_package_path s (packages_info : t)  : t =
@@ -187,7 +178,6 @@ let string_of_module_id_in_browser (x : Lam_module_ident.t) =
 
 
 let string_of_module_id 
-    ~hint_output_dir
     (module_system : module_system)
     (current_package_info : t)
     (get_package_path_from_cmj : 
@@ -215,7 +205,6 @@ let string_of_module_id
           let current_unit_dir =
             `Dir (get_output_dir 
                   ~pkg_dir:package_dir module_system 
-                  ~hint_output_dir
                   current_package_info
                   ) in
           Ext_filename.node_relative_path  different_package current_unit_dir dependency 
@@ -262,7 +251,6 @@ let string_of_module_id
                     (get_output_dir 
                       ~pkg_dir:(Lazy.force Ext_filename.package_dir)
                        module_system 
-                       ~hint_output_dir
                        current_package_info
                        )
                     ((Filename.dirname 

jscomp/core/js_dump_program.ml

@@ -63,7 +63,6 @@ val add_npm_package_path :
    Note that it has to be consistent to how it is generated
 *)  
 val string_of_module_id :
-  hint_output_dir:string ->
   module_system ->
   t ->
   (Lam_module_ident.t ->

jscomp/core/js_packages_info.ml

@@ -55,12 +55,6 @@ val node_relative_path : bool -> t -> [`File of string] -> string
 val chop_extension : ?loc:string -> string -> string
 
 
-
-
-
-
-val cwd : string Lazy.t
-
 (* It is lazy so that it will not hit errors when in script mode *)
 val package_dir : string Lazy.t