Add Int.Ref.increment/decrement

Author: cknitt

lib/es6/Stdlib_Int.js

@@ -66,6 +66,8 @@ function bitwiseNot(x) {
   return x ^ -1;
 }
 
+let Ref = {};
+
 let Constants = {
   minValue: -2147483648,
   maxValue: 2147483647
@@ -78,5 +80,6 @@ export {
   rangeWithOptions,
   clamp,
   bitwiseNot,
+  Ref,
 }
 /* No side effect */

lib/js/Stdlib_Int.js

@@ -66,6 +66,8 @@ function bitwiseNot(x) {
   return x ^ -1;
 }
 
+let Ref = {};
+
 let Constants = {
   minValue: -2147483648,
   maxValue: 2147483647
@@ -77,4 +79,5 @@ exports.range = range;
 exports.rangeWithOptions = rangeWithOptions;
 exports.clamp = clamp;
 exports.bitwiseNot = bitwiseNot;
+exports.Ref = Ref;
 /* No side effect */

runtime/Pervasives.res

@@ -293,9 +293,15 @@ external snd: (('a, 'b)) => 'b = "%field1"
 
 type ref<'a> = {mutable contents: 'a}
 external ref: 'a => ref<'a> = "%makeref"
-external \"!": ref<'a> => 'a = "%refget"
 external \":=": (ref<'a>, 'a) => unit = "%refset"
+
+@deprecated("Do not use. This will be removed in v13")
+external \"!": ref<'a> => 'a = "%refget"
+
+@deprecated("Use `Int.Ref.increment` instead. This will be removed in v13")
 external incr: ref<int> => unit = "%incr"
+
+@deprecated("Use `Int.Ref.decrement` instead. This will be removed in v13")
 external decr: ref<int> => unit = "%decr"
 
 /* String conversion functions */

runtime/Stdlib_Int.res

@@ -107,3 +107,10 @@ external shiftRight: (int, int) => int = "%asrint"
 external shiftRightUnsigned: (int, int) => int = "%lsrint"
 
 external ignore: int => unit = "%ignore"
+
+module Ref = {
+  type t = Pervasives.ref<int>
+
+  external increment: t => unit = "%incr"
+  external decrement: t => unit = "%decr"
+}

runtime/Stdlib_Int.resi

@@ -482,3 +482,33 @@ external shiftRightUnsigned: (int, int) => int = "%lsrint"
   without having to store or process it further.
 */
 external ignore: int => unit = "%ignore"
+
+module Ref: {
+  type t = Pervasives.ref<int>
+
+  /**
+  `increment(intRef)` increments the value of the provided reference by 1.
+
+  ## Examples
+
+  ```rescript
+  let myRef = ref(4)
+  Int.Ref.increment(myRef)
+  assertEqual(myRef.contents, 5)
+  ```
+  */
+  external increment: t => unit = "%incr"
+
+  /**
+  `decrement(intRef)` decrements the value of the provided reference by 1.
+
+  ## Examples
+
+  ```rescript
+  let myRef = ref(4)
+  Int.Ref.decrement(myRef)
+  assertEqual(myRef.contents, 3)
+  ```
+  */
+  external decrement: t => unit = "%decr"
+}