wip

Author: mediremi

lib/es6/Stdlib_Int.js

@@ -62,6 +62,14 @@ function clamp(min, max, value) {
   }
 }
 
+function lnot(x) {
+  return x ^ -1;
+}
+
+let Bitwise = {
+  lnot: lnot
+};
+
 let Ref = {};
 
 let Constants = {
@@ -75,6 +83,7 @@ export {
   range,
   rangeWithOptions,
   clamp,
+  Bitwise,
   Ref,
 }
 /* No side effect */

lib/js/Stdlib_Int.js

@@ -62,6 +62,14 @@ function clamp(min, max, value) {
   }
 }
 
+function lnot(x) {
+  return x ^ -1;
+}
+
+let Bitwise = {
+  lnot: lnot
+};
+
 let Ref = {};
 
 let Constants = {
@@ -74,5 +82,6 @@ exports.fromString = fromString;
 exports.range = range;
 exports.rangeWithOptions = rangeWithOptions;
 exports.clamp = clamp;
+exports.Bitwise = Bitwise;
 exports.Ref = Ref;
 /* No side effect */

runtime/Stdlib_Int.res

@@ -105,6 +105,18 @@ external shiftLeft: (int, int) => int = "%lslint"
 external shiftRight: (int, int) => int = "%asrint"
 external shiftRightUnsigned: (int, int) => int = "%lsrint"
 
+module Bitwise = {
+  external land: (int, int) => int = "%andint"
+  external lor: (int, int) => int = "%orint"
+  external lxor: (int, int) => int = "%xorint"
+
+  external lsl: (int, int) => int = "%lslint"
+  external lsr: (int, int) => int = "%lsrint"
+  external asr: (int, int) => int = "%asrint"
+
+  let lnot = x => lxor(x, -1)
+}
+
 external ignore: int => unit = "%ignore"
 
 module Ref = {

runtime/Stdlib_Int.resi

@@ -186,7 +186,7 @@ Int.toPrecisionWithPrecision(1, ~digits=2) // "1.0"
 - `RangeError`: If `digits` is not between 1 and 100 (inclusive).
   Implementations are allowed to support larger and smaller values as well.
   ECMA-262 only requires a precision of up to 21 significant digits.
-  
+
 */
 @send @deprecated("Use `toPrecision` instead")
 external toPrecisionWithPrecision: (int, ~digits: int) => string = "toPrecision"
@@ -471,6 +471,22 @@ Int.shiftRightUnsigned(4, 1) == 2
 */
 external shiftRightUnsigned: (int, int) => int = "%lsrint"
 
+module Bitwise = {
+  @deprecated({
+    reason: "Use `Int.bitwiseAnd` instead",
+    reason: Int.bitwiseAnd
+  })
+  external land: (int, int) => int = "%andint"
+  external lor: (int, int) => int = "%orint"
+  external lxor: (int, int) => int = "%xorint"
+
+  external lsl: (int, int) => int = "%lslint"
+  external lsr: (int, int) => int = "%lsrint"
+  external asr: (int, int) => int = "%asrint"
+
+  let lnot: int => int
+}
+
 /**
   `ignore(int)` ignores the provided int and returns unit.
 

tests/tools_tests/src/expected/StdlibMigration_Int.res.expected

@@ -0,0 +1 @@
+StdlibMigration_Int.res: File did not need migration

tests/tools_tests/src/migrate/StdlibMigration_Int.res

@@ -0,0 +1 @@
+let result = Int.Bitwise.land(1, 2)

tests/tools_tests/src/migrate/migrated/Migrated_StdlibMigration_Array.res

@@ -166,3 +166,4 @@ let reduceRight2 = Array.reduceRight([1, 2, 3], 0, (acc, x) => acc + x)
 
 let reduceRighti1 = [1, 2, 3]->Array.reduceRightWithIndex(0, (acc, x, i) => acc + x + i)
 let reduceRighti2 = Array.reduceRightWithIndex([1, 2, 3], 0, (acc, x, i) => acc + x + i)
+

tests/tools_tests/src/migrate/migrated/Migrated_StdlibMigration_Int.res

@@ -0,0 +1 @@
+StdlibMigration_Int.res: File did not need migration