remove redundant code

Author: bobzhang

jscomp/bsb/bsb_build_schemas.ml

@@ -23,7 +23,7 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
 
-let files = "files"
+(* let files = "files" *)
 let version = "version"
 let name = "name"
 (* let ocaml_config = "ocaml-config" *)

jscomp/bsb/bsb_file.ml

@@ -38,7 +38,7 @@ let install_if_exists ~destdir input_name =
     if Sys.file_exists input_name then 
       let output_name = (Filename.concat destdir (Filename.basename input_name)) in
       match Unix.stat output_name , Unix.stat input_name with
-      | {st_mtime = output_stamp}, {st_mtime = input_stamp} when input_stamp <= output_stamp 
+      | {st_mtime = output_stamp;_}, {st_mtime = input_stamp;_} when input_stamp <= output_stamp 
         -> false
       | _ -> copy_with_permission input_name output_name; true 
       | exception _ -> copy_with_permission input_name output_name; true

jscomp/bsb/bsb_global_paths.mli

@@ -35,8 +35,6 @@ val vendor_bsdep : string
 
 val vendor_bsppx : string
 
-val vendor_bsppx : string
-
 val ocaml_dir : string
 
 val ocaml_lib_dir : string

jscomp/bsb_helper/bsb_helper_arg.ml

@@ -13,7 +13,7 @@ type spec =
   | Set_int of int ref         
 
 exception Bad of string
-exception Help of string
+(* exception Help of string *)
 
 type error =
   | Unknown of string
@@ -29,14 +29,14 @@ type t = (string * spec * string) list
 let rec assoc3 (x : string) (l : t) =
   match l with
   | [] -> None
-  | (y1, y2, y3) :: t when y1 = x -> Some y2
+  | (y1, y2, _y3) :: _t when y1 = x -> Some y2
   | _ :: t -> assoc3 x t
 ;;
 
 
 
 let usage_b (buf : Ext_buffer.t) speclist errmsg =
-  let print_spec buf (key, spec, doc) =
+  let print_spec buf (key, _spec, doc) =
     if  doc <> "" then begin 
       Ext_buffer.add_string buf "  ";
       Ext_buffer.add_string_char buf key ' ';  
@@ -100,7 +100,7 @@ let parse_exn  (speclist : t) anonfun errmsg =
         | None -> stop_raise (Unknown s)
       in
       begin try
-        let rec treat_action = function
+        let treat_action = function
         | Unit f -> f ();
         | Set r -> r := true;
         | String f when !current + 1 < l ->

jscomp/common/bs_loc.ml

@@ -35,7 +35,7 @@ let merge (l: t) (r : t) =
   if is_ghost l then r 
   else if is_ghost r then l 
   else match l,r with 
-  | {loc_start ; }, {loc_end; _} (* TODO: improve*)
+  | {loc_start ; _}, {loc_end; _} (* TODO: improve*)
     -> 
     {loc_start ;loc_end; loc_ghost = false}
 

jscomp/common/js_config.ml

@@ -61,7 +61,7 @@ let diagnose = ref false
 let get_diagnose () = !diagnose
 let set_diagnose b = diagnose := b
 
-let (//) = Filename.concat
+(* let (//) = Filename.concat *)
 
 (* let get_packages_info () = !packages_info *)
 

jscomp/ext/ext_buffer.ml

@@ -31,28 +31,28 @@ let create n =
  {buffer = s; position = 0; length = n; initial_buffer = s}
 
 let contents b = Bytes.sub_string b.buffer 0 b.position
-let to_bytes b = Bytes.sub b.buffer 0 b.position 
+(* let to_bytes b = Bytes.sub b.buffer 0 b.position  *)
 
-let sub b ofs len =
+(* let sub b ofs len =
   if ofs < 0 || len < 0 || ofs > b.position - len
   then invalid_arg "Ext_buffer.sub"
-  else Bytes.sub_string b.buffer ofs len
+  else Bytes.sub_string b.buffer ofs len *)
 
 
-let blit src srcoff dst dstoff len =
+(* let blit src srcoff dst dstoff len =
   if len < 0 || srcoff < 0 || srcoff > src.position - len
              || dstoff < 0 || dstoff > (Bytes.length dst) - len
   then invalid_arg "Ext_buffer.blit"
   else
-    Bytes.unsafe_blit src.buffer srcoff dst dstoff len
+    Bytes.unsafe_blit src.buffer srcoff dst dstoff len *)
 
 let length b = b.position
 let is_empty b = b.position = 0
 let clear b = b.position <- 0
 
-let reset b =
+(* let reset b =
   b.position <- 0; b.buffer <- b.initial_buffer;
-  b.length <- Bytes.length b.buffer
+  b.length <- Bytes.length b.buffer *)
 
 let resize b more =
   let len = b.length in

jscomp/ext/ext_color.ml

@@ -42,15 +42,15 @@ type style
   | Dim
 
 
-let ansi_of_color = function
+(* let ansi_of_color = function
   | Black -> "0"
   | Red -> "1"
   | Green -> "2"
   | Yellow -> "3"
   | Blue -> "4"
   | Magenta -> "5"
   | Cyan -> "6"
-  | White -> "7"
+  | White -> "7" *)
 
 let code_of_style = function
   | FG Black -> "30"

jscomp/ext/ext_format.ml

@@ -100,7 +100,7 @@ let to_out_channel = formatter_of_out_channel
 (* let set_needed_space_function _ _ = () *)
 let flush = pp_print_flush
 
-let list = pp_print_list
+(* let list = pp_print_list *)
 
 let rec pp_print_queue ?(pp_sep = pp_print_cut) pp_v ppf q =
   Queue.iter (fun q -> pp_v ppf q ;  pp_sep ppf ()) q 

jscomp/ext/ext_obj.ml

@@ -122,7 +122,7 @@ let bt () =
        | Some bt ->
          (match !acc with 
           | [] -> acc := [bt]
-          | hd::tl -> if hd <> bt then acc := bt :: !acc )
+          | hd::_ -> if hd <> bt then acc := bt :: !acc )
 
      done); 
     Ext_list.iter !acc (fun bt ->       

jscomp/ext/ext_pp.ml

@@ -74,15 +74,15 @@ let newline t =
   if not t.last_new_line then
     begin
       t.output_char  '\n';
-      for i = 0 to t.indent_level - 1 do
+      for _ = 0 to t.indent_level - 1 do
         t.output_string  L.indent_str;
       done;
       t.last_new_line <- true
     end
 
 let force_newline t =
   t.output_char  '\n';
-  for i = 0 to t.indent_level - 1 do
+  for _ = 0 to t.indent_level - 1 do
     t.output_string  L.indent_str;
   done
 
@@ -170,7 +170,7 @@ let cond_paren_group st b n action =
 let brace_group st n action =
   group st n (fun _ -> brace st action )
 
-let indent t n =
-  t.indent_level <- t.indent_level + n
+(* let indent t n =
+  t.indent_level <- t.indent_level + n *)
 
 let flush t () = t.flush ()

jscomp/ext/ext_ref.ml

@@ -66,7 +66,7 @@ let protect2 r1 r2 v1 v2 body =
     raise x
 
 let protect_list rvs body = 
-  let olds =  Ext_list.map  rvs (fun (x,y) -> !x) in 
+  let olds =  Ext_list.map  rvs (fun (x,_) -> !x) in 
   let () = List.iter (fun (x,y) -> x:=y) rvs in 
   try 
     let res = body () in 

jscomp/ext/ext_string.ml

@@ -112,21 +112,21 @@ let ends_with_then_chop s beg =
   if i >= 0 then Some (String.sub s 0 i) 
   else None
 
-let check_suffix_case = ends_with 
-let check_suffix_case_then_chop = ends_with_then_chop
+(* let check_suffix_case = ends_with  *)
+(* let check_suffix_case_then_chop = ends_with_then_chop *)
 
-let check_any_suffix_case s suffixes = 
-  Ext_list.exists suffixes (fun x -> check_suffix_case s x) 
+(* let check_any_suffix_case s suffixes = 
+  Ext_list.exists suffixes (fun x -> check_suffix_case s x)  *)
 
-let check_any_suffix_case_then_chop s suffixes = 
+(* let check_any_suffix_case_then_chop s suffixes = 
   let rec aux suffixes = 
     match suffixes with 
     | [] -> None 
     | x::xs -> 
       let id = ends_with_index s x in 
       if id >= 0 then Some (String.sub s 0 id)
       else aux xs in 
-  aux suffixes    
+  aux suffixes     *)
 
 
 

jscomp/ext/ext_sys.ml

@@ -23,11 +23,10 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
 (** TODO: not exported yet, wait for Windows Fix*)
-let is_directory_no_exn f = 
-  try Sys.is_directory f with _ -> false 
+(* let is_directory_no_exn f = 
+  try Sys.is_directory f with _ -> false  *)
 
 
 let is_windows_or_cygwin = Sys.win32 || Sys.cygwin
 
 
-let getenv_opt = Sys.getenv_opt

jscomp/ext/ext_sys.mli

@@ -29,6 +29,3 @@
 
 val is_windows_or_cygwin : bool 
 
-val getenv_opt : 
-  string -> 
-  string option 

jscomp/ext/ext_utf8.ml

@@ -67,7 +67,7 @@ let rec next s ~remaining  offset =
   if remaining = 0 then offset 
   else 
     begin match classify s.[offset+1] with
-      | Cont cc -> next s ~remaining:(remaining-1) (offset+1)
+      | Cont _cc -> next s ~remaining:(remaining-1) (offset+1)
       | _ ->  -1 
       | exception _ ->  -1 (* it can happen when out of bound *)
     end
@@ -99,5 +99,5 @@ let decode_utf8_string s =
     location, then we do the decode later
 *)  
 
-let verify s loc = 
-  assert false
+(* let verify s loc = 
+  assert false *)

jscomp/ext/set_gen.ml

@@ -26,7 +26,7 @@ let rec cons_enum s e =
   | Empty -> e 
   | Node(l,v,r,_) -> cons_enum l (More(v,r,e))
 
-let rec height = function
+let  height = function
   | Empty -> 0 
   | Node(_,_,_,h) -> h   
 
@@ -373,8 +373,6 @@ module type S = sig
   val min_elt: t -> elt
   val max_elt: t -> elt
   val choose: t -> elt
-  val of_sorted_list : elt list -> t 
-  val of_sorted_array : elt array -> t
   val partition: t -> (elt -> bool) ->  t * t
 
   val mem: t -> elt -> bool

jscomp/ext/vec_gen.ml

@@ -40,7 +40,6 @@ sig
   val make : int -> t 
   val init : int -> (int -> elt) -> t
   val is_empty : t -> bool
-  val of_array : elt array -> t
   val of_sub_array : elt array -> int -> int -> t
 
   (** Exposed for some APIs which only take array as input, 

jscomp/super_errors/super_main.ml

@@ -1,6 +1,6 @@
 (* the entry point. This is used by js_main.ml *)
 let setup =
-  lazy (match Ext_sys.getenv_opt "BS_VSCODE" with 
+  lazy (match Sys.getenv_opt "BS_VSCODE" with 
   | Some ("true" | "1") -> 
     ()
   | Some _ | None ->