clean up

Author: bobzhang

jscomp/core/lam_dispatch_primitive.ml

@@ -50,41 +50,6 @@ let translate loc (prim_name : string)
   let [@inline] call m = 
     E.runtime_call m prim_name args in 
   begin match prim_name with 
-    |  "caml_add_float" -> 
-      begin match args with 
-        | [e0;e1] -> E.float_add e0 e1 (** TODO float plus*)
-        | _ -> assert false
-      end
-    |"caml_div_float" -> 
-      begin match args with 
-        | [e0;e1] -> E.float_div e0 e1
-        | _ -> assert false 
-      end
-    |"caml_sub_float" -> 
-      begin match args with 
-        | [e0;e1] -> E.float_minus e0 e1 
-        | _ -> assert false 
-      end
-    | "caml_eq_float" -> 
-      begin match args with 
-        | [e0;e1] -> E.float_equal e0 e1 
-        | _ -> assert false 
-      end
-    | "caml_ge_float"  ->
-      begin match args with 
-        | [e0;e1] -> E.float_comp Cge e0 e1
-        | _ -> assert false 
-      end
-    |"caml_gt_float"  ->
-      begin match args with 
-        | [e0;e1] -> E.float_comp Cgt  e0 e1
-        | _ -> assert false 
-      end
-    | "caml_float_of_int" -> 
-      begin match args with 
-        | [e] -> e 
-        | _ -> assert false 
-      end
     | "caml_int_of_float"
       -> 
       begin match args with 
@@ -453,8 +418,6 @@ let translate loc (prim_name : string)
     | "caml_format_int" 
       -> 
       call Js_runtime_modules.format 
-    (*   "caml_alloc_dummy"; *)
-    (* TODO:   "caml_alloc_dummy_float"; *)
     | "caml_obj_dup" 
       -> 
       call Js_runtime_modules.obj_runtime
@@ -506,14 +469,7 @@ let translate loc (prim_name : string)
         | [e] -> E.tag e 
         | _ -> assert false end    
 
-    (** TODO: Primitives not implemented yet ...*)
-    | "caml_install_signal_handler"
-      -> 
-      begin match args with
-        | [num; behavior] 
-          -> E.seq num behavior (*TODO:*)
-        | _ -> assert false
-      end
+
     | "caml_md5_string"
       -> call Js_runtime_modules.md5
     | "caml_hash_mix_string"

jscomp/main/builtin_cmi_datasets.ml

@@ -93,8 +93,8 @@ type signal_behavior =
   | Signal_ignore
   | Signal_handle of (int -> unit)
 
-external signal : int -> signal_behavior -> signal_behavior
-                = "caml_install_signal_handler"
+let signal : int -> signal_behavior -> signal_behavior
+                = fun _ _ -> Signal_default
 
 let set_signal sig_num sig_beh = ignore(signal sig_num sig_beh)
 

jscomp/main/builtin_cmj_datasets.ml

@@ -173,8 +173,8 @@ type signal_behavior =
    - [Signal_handle f]: call function [f], giving it the signal
    number as argument. *)
 
-external signal :
-  int -> signal_behavior -> signal_behavior = "caml_install_signal_handler"
+val signal :
+  int -> signal_behavior -> signal_behavior 
 (** Set the behavior of the system on receipt of a given signal.  The
    first argument is the signal number.  Return the behavior
    previously associated with the signal. If the signal number is

jscomp/stdlib-406/sys.ml

@@ -11,10 +11,15 @@ function int_equal(x, y) {
   return x === y;
 }
 
+function float_equal(x, y) {
+  return x === y;
+}
+
 var v = false;
 
 exports.str_equal = str_equal;
 exports.str_b = str_b;
 exports.int_equal = int_equal;
 exports.v = v;
+exports.float_equal = float_equal;
 /* str_b Not a pure module */

jscomp/stdlib-406/sys.mli

@@ -5,3 +5,5 @@ let str_b = "xx" = "xx"
 let int_equal (x : int) y = x = y
 
 let v = 1 = 2
+
+let float_equal (x : float) y = x = y

jscomp/test/equal_test.js

@@ -351,22 +351,6 @@ function split_on_char(sep, s) {
         };
 }
 
-function uppercase(s) {
-  return Caml_bytes.bytes_to_string(Bytes.uppercase(Caml_bytes.bytes_of_string(s)));
-}
-
-function lowercase(s) {
-  return Caml_bytes.bytes_to_string(Bytes.lowercase(Caml_bytes.bytes_of_string(s)));
-}
-
-function capitalize(s) {
-  return Caml_bytes.bytes_to_string(Bytes.capitalize(Caml_bytes.bytes_of_string(s)));
-}
-
-function uncapitalize(s) {
-  return Caml_bytes.bytes_to_string(Bytes.uncapitalize(Caml_bytes.bytes_of_string(s)));
-}
-
 var make = Caml_string.make;
 
 var blit = Bytes.blit_string;
@@ -398,10 +382,6 @@ export {
   contains ,
   contains_from ,
   rcontains_from ,
-  uppercase ,
-  lowercase ,
-  capitalize ,
-  uncapitalize ,
   uppercase_ascii ,
   lowercase_ascii ,
   capitalize_ascii ,

jscomp/test/equal_test.ml

@@ -29,6 +29,10 @@ var interactive = {
   contents: false
 };
 
+function signal(param, param$1) {
+  return /* Signal_default */0;
+}
+
 function set_signal(sig_num, sig_beh) {
 
 }
@@ -134,6 +138,7 @@ export {
   big_endian ,
   max_string_length ,
   max_array_length ,
+  signal ,
   set_signal ,
   sigabrt ,
   sigalrm ,

lib/4.06.1/unstable/js_compiler.ml

@@ -351,22 +351,6 @@ function split_on_char(sep, s) {
         };
 }
 
-function uppercase(s) {
-  return Caml_bytes.bytes_to_string(Bytes.uppercase(Caml_bytes.bytes_of_string(s)));
-}
-
-function lowercase(s) {
-  return Caml_bytes.bytes_to_string(Bytes.lowercase(Caml_bytes.bytes_of_string(s)));
-}
-
-function capitalize(s) {
-  return Caml_bytes.bytes_to_string(Bytes.capitalize(Caml_bytes.bytes_of_string(s)));
-}
-
-function uncapitalize(s) {
-  return Caml_bytes.bytes_to_string(Bytes.uncapitalize(Caml_bytes.bytes_of_string(s)));
-}
-
 var make = Caml_string.make;
 
 var blit = Bytes.blit_string;
@@ -397,10 +381,6 @@ exports.rindex_from_opt = rindex_from_opt;
 exports.contains = contains;
 exports.contains_from = contains_from;
 exports.rcontains_from = rcontains_from;
-exports.uppercase = uppercase;
-exports.lowercase = lowercase;
-exports.capitalize = capitalize;
-exports.uncapitalize = uncapitalize;
 exports.uppercase_ascii = uppercase_ascii;
 exports.lowercase_ascii = lowercase_ascii;
 exports.capitalize_ascii = capitalize_ascii;

lib/4.06.1/whole_compiler.ml

@@ -29,6 +29,10 @@ var interactive = {
   contents: false
 };
 
+function signal(param, param$1) {
+  return /* Signal_default */0;
+}
+
 function set_signal(sig_num, sig_beh) {
 
 }
@@ -133,6 +137,7 @@ exports.int_size = int_size;
 exports.big_endian = big_endian;
 exports.max_string_length = max_string_length;
 exports.max_array_length = max_array_length;
+exports.signal = signal;
 exports.set_signal = set_signal;
 exports.sigabrt = sigabrt;
 exports.sigalrm = sigalrm;