add missing bytes primitive

Author: bobzhang

jscomp/core/lam_dispatch_primitive.ml

@@ -120,6 +120,10 @@ let translate loc (prim_name : string)
         | [e] -> e (* TODO: do more checking when [to_int32]*)
         | _ -> assert false 
       end
+    | "caml_bytes_greaterthan"  
+    | "caml_bytes_greaterequal"
+    | "caml_bytes_lessthan"
+    | "caml_bytes_lessequal"
     | "caml_bytes_compare"
     | "caml_bytes_equal" 
       -> 

jscomp/runtime/caml_bytes.ml

@@ -193,3 +193,14 @@ let caml_bytes_equal (s1 : bytes) (s2 : bytes) : bool =
   len1 = len2 &&
   caml_bytes_equal_aux s1 s2 0 len1 
 
+let caml_bytes_greaterthan (s1 : bytes) s2 = 
+  caml_bytes_compare s1 s2 > 0  
+
+let caml_bytes_greaterequal (s1 : bytes) s2 = 
+  caml_bytes_compare s1 s2 >= 0  
+
+let caml_bytes_lessthan (s1 : bytes) s2 = 
+  caml_bytes_compare s1 s2 < 0
+  
+let caml_bytes_lessequal (s1 : bytes) s2 =    
+  caml_bytes_compare s1 s2 <= 0  

jscomp/runtime/caml_bytes.mli

@@ -41,6 +41,23 @@ val caml_blit_string :
   int -> 
   int -> 
   unit
+
 val bytes_of_string : string -> bytes
-val caml_bytes_compare: bytes -> bytes -> int
-val caml_bytes_equal : bytes -> bytes -> bool 
+
+val caml_bytes_compare: 
+  bytes -> bytes -> int
+
+val caml_bytes_greaterthan:
+  bytes -> bytes -> bool 
+
+val caml_bytes_greaterequal:
+  bytes -> bytes -> bool 
+
+val caml_bytes_lessthan:
+  bytes -> bytes -> bool 
+
+val caml_bytes_lessequal:
+  bytes -> bytes -> bool 
+
+val caml_bytes_equal : 
+  bytes -> bytes -> bool 

jscomp/test/ext_bytes_test.js

@@ -5,6 +5,7 @@ var Char = require("../../lib/js/char.js");
 var Bytes = require("../../lib/js/bytes.js");
 var Curry = require("../../lib/js/curry.js");
 var Caml_bytes = require("../../lib/js/caml_bytes.js");
+var Caml_int64 = require("../../lib/js/caml_int64.js");
 var Caml_exceptions = require("../../lib/js/caml_exceptions.js");
 var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js");
 
@@ -188,11 +189,33 @@ var s2 = Bytes.of_string(s1);
 
 eq("File \"ext_bytes_test.ml\", line 115, characters 7-14", s, s2);
 
+function f$1(a, b) {
+  return [
+          Caml_bytes.caml_bytes_greaterthan(a, b),
+          Caml_bytes.caml_bytes_greaterequal(a, b),
+          Caml_bytes.caml_bytes_lessthan(a, b),
+          Caml_bytes.caml_bytes_lessequal(a, b),
+          Caml_bytes.caml_bytes_equal(a, b)
+        ];
+}
+
+function f_0(a, b) {
+  return [
+          Caml_int64.gt(a, b),
+          Caml_int64.ge(a, b),
+          Caml_int64.lt(a, b),
+          Caml_int64.le(a, b),
+          Caml_int64.eq(a, b)
+        ];
+}
+
 Mt.from_pair_suites("Ext_bytes_test", suites.contents);
 
 exports.suites = suites;
 exports.test_id = test_id;
 exports.eq = eq;
 exports.escaped = escaped;
 exports.starts_with = starts_with;
+exports.f = f$1;
+exports.f_0 = f_0;
 /* a Not a pure module */

jscomp/test/ext_bytes_test.ml

@@ -113,5 +113,12 @@ let () =
     let s1 = Bytes.to_string s in 
     let s2 = Bytes.of_string s1 in 
     eq __LOC__ s s2 
+
+let f (a : bytes) b =     
+  a > b, a >= b , a < b, a <= b, a = b  
+
+let f_0 (a : int64) b =     
+  a > b, a >= b , a < b, a <= b, a = b  
+
 let () =    
     Mt.from_pair_suites __MODULE__ !suites

lib/4.06.1/unstable/js_compiler.ml

@@ -110712,6 +110712,10 @@ let translate loc (prim_name : string)
         | [e] -> e (* TODO: do more checking when [to_int32]*)
         | _ -> assert false 
       end
+    | "caml_bytes_greaterthan"  
+    | "caml_bytes_greaterequal"
+    | "caml_bytes_lessthan"
+    | "caml_bytes_lessequal"
     | "caml_bytes_compare"
     | "caml_bytes_equal" 
       -> 

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -110712,6 +110712,10 @@ let translate loc (prim_name : string)
         | [e] -> e (* TODO: do more checking when [to_int32]*)
         | _ -> assert false 
       end
+    | "caml_bytes_greaterthan"  
+    | "caml_bytes_greaterequal"
+    | "caml_bytes_lessthan"
+    | "caml_bytes_lessequal"
     | "caml_bytes_compare"
     | "caml_bytes_equal" 
       -> 

lib/4.06.1/whole_compiler.ml

@@ -392804,6 +392804,10 @@ let translate loc (prim_name : string)
         | [e] -> e (* TODO: do more checking when [to_int32]*)
         | _ -> assert false 
       end
+    | "caml_bytes_greaterthan"  
+    | "caml_bytes_greaterequal"
+    | "caml_bytes_lessthan"
+    | "caml_bytes_lessequal"
     | "caml_bytes_compare"
     | "caml_bytes_equal" 
       -> 

lib/es6/caml_bytes.js

@@ -195,6 +195,22 @@ function caml_bytes_equal(s1, s2) {
   }
 }
 
+function caml_bytes_greaterthan(s1, s2) {
+  return caml_bytes_compare(s1, s2) > 0;
+}
+
+function caml_bytes_greaterequal(s1, s2) {
+  return caml_bytes_compare(s1, s2) >= 0;
+}
+
+function caml_bytes_lessthan(s1, s2) {
+  return caml_bytes_compare(s1, s2) < 0;
+}
+
+function caml_bytes_lessequal(s1, s2) {
+  return caml_bytes_compare(s1, s2) <= 0;
+}
+
 export {
   caml_create_bytes ,
   caml_fill_bytes ,
@@ -205,6 +221,10 @@ export {
   caml_blit_string ,
   bytes_of_string ,
   caml_bytes_compare ,
+  caml_bytes_greaterthan ,
+  caml_bytes_greaterequal ,
+  caml_bytes_lessthan ,
+  caml_bytes_lessequal ,
   caml_bytes_equal ,
 
 }

lib/js/caml_bytes.js

@@ -195,6 +195,22 @@ function caml_bytes_equal(s1, s2) {
   }
 }
 
+function caml_bytes_greaterthan(s1, s2) {
+  return caml_bytes_compare(s1, s2) > 0;
+}
+
+function caml_bytes_greaterequal(s1, s2) {
+  return caml_bytes_compare(s1, s2) >= 0;
+}
+
+function caml_bytes_lessthan(s1, s2) {
+  return caml_bytes_compare(s1, s2) < 0;
+}
+
+function caml_bytes_lessequal(s1, s2) {
+  return caml_bytes_compare(s1, s2) <= 0;
+}
+
 exports.caml_create_bytes = caml_create_bytes;
 exports.caml_fill_bytes = caml_fill_bytes;
 exports.get = get;
@@ -204,5 +220,9 @@ exports.caml_blit_bytes = caml_blit_bytes;
 exports.caml_blit_string = caml_blit_string;
 exports.bytes_of_string = bytes_of_string;
 exports.caml_bytes_compare = caml_bytes_compare;
+exports.caml_bytes_greaterthan = caml_bytes_greaterthan;
+exports.caml_bytes_greaterequal = caml_bytes_greaterequal;
+exports.caml_bytes_lessthan = caml_bytes_lessthan;
+exports.caml_bytes_lessequal = caml_bytes_lessequal;
 exports.caml_bytes_equal = caml_bytes_equal;
 /* No side effect */