Merge pull request #3977 from BuckleScript/make_belt_less_rely_on_ref_repr

belt not depending on stdlib, this is to make it not depending on ref as well

Author: bobzhang

jscomp/others/belt_Array.ml

@@ -124,7 +124,7 @@ let rangeBy start finish ~step =
     let cur = ref start in
     for i = 0 to nb - 1 do
       setUnsafe arr i !cur;
-      cur := !cur + step ;
+      cur .contents<- !cur + step ;
     done;
     arr
 
@@ -164,10 +164,10 @@ let concatMany arrs =
   let lenArrs = length arrs in
   let totalLen = ref 0 in
   for i = 0 to lenArrs - 1 do
-    totalLen := !totalLen + length (getUnsafe arrs i)
+    totalLen .contents<- !totalLen + length (getUnsafe arrs i)
   done;
   let result = makeUninitializedUnsafe !totalLen in
-  totalLen := 0 ;
+  totalLen .contents<- 0 ;
   for j = 0 to lenArrs - 1 do
     let cur = getUnsafe arrs j in
     for k = 0 to length cur - 1 do
@@ -273,7 +273,7 @@ let getByU a p =
     let v = (getUnsafe a !i) in
     if p v [@bs] then
       begin
-        r := Some v;
+        r .contents<- Some v;
       end;
     incr i
   done;
@@ -289,7 +289,7 @@ let getIndexByU a p =
     let v = (getUnsafe a !i) in
     if p v [@bs] then
       begin
-        r := Some !i;
+        r .contents<- Some !i;
       end;
     incr i
   done;
@@ -368,7 +368,7 @@ let mapWithIndex a f = mapWithIndexU a (fun[@bs] a b -> f a b)
 let reduceU a x f =
   let r = ref x in
   for i = 0 to length a - 1 do
-    r := f !r (getUnsafe a i) [@bs]
+    r .contents<- f !r (getUnsafe a i) [@bs]
   done;
   !r
 
@@ -377,7 +377,7 @@ let reduce a x f = reduceU a x (fun[@bs] a b -> f a b)
 let reduceReverseU a x f =
   let r = ref x in
   for i = length a - 1 downto 0 do
-    r := f  !r (getUnsafe a i) [@bs]
+    r .contents<- f  !r (getUnsafe a i) [@bs]
   done;
   !r
 
@@ -387,7 +387,7 @@ let reduceReverse2U a b x f =
   let r = ref x in
   let len = Pervasives.min (length a) (length b) in
   for i = len - 1 downto  0 do
-    r := f !r (getUnsafe a i) (getUnsafe b i) [@bs]
+    r .contents<- f !r (getUnsafe a i) (getUnsafe b i) [@bs]
   done;
   !r
 
@@ -397,7 +397,7 @@ let reduceReverse2 a b x f =
 let reduceWithIndexU a x f =
   let r = ref x in
   for i = 0 to length a - 1 do
-    r := f !r (getUnsafe a i) i [@bs]
+    r .contents<- f !r (getUnsafe a i) i [@bs]
   done;
   !r
 

jscomp/others/belt_List.ml

@@ -369,7 +369,7 @@ let makeByU n f =
     while !i < n do
       let v = mutableCell (f !i [@bs]) [] in
       unsafeMutateTail !cur v ;
-      cur := v ;
+      cur .contents<- v ;
       incr i ;
     done
     ;
@@ -386,7 +386,7 @@ let make n v =
     while !i < n do
       let v = mutableCell v [] in
       unsafeMutateTail !cur v ;
-      cur := v ;
+      cur .contents<- v ;
       incr i ;
     done
     ;
@@ -456,7 +456,7 @@ let rec fillAuxMap arr i x f =
 (*       for i = 1 to len - 1 do    *)
 (*         let next = mutableCell (f (A.getUnsafe arr i) [@bs]) [] in  *)
 (*         unsafeMutateTail !cell next ; *)
-(*         cell := next  *)
+(*         cell .contents<- next  *)
 (*       done ; *)
 (*       head *)
 (*   | None -> *)
@@ -492,7 +492,7 @@ let concatMany xs =
     let len = A.length xs in
     let v = ref (A.getUnsafe xs (len - 1)) in
     for i = len - 2 downto 0 do
-      v := concat (A.getUnsafe xs i) !v
+      v .contents<- concat (A.getUnsafe xs i) !v
     done ;
     !v
 

jscomp/others/belt_MapDict.ml

@@ -183,15 +183,15 @@ let mergeMany   h arr ~cmp =
   let v = ref h in  
   for i = 0 to len - 1 do 
     let key,value = A.getUnsafe arr i in 
-    v := set !v  ~cmp key value
+    v .contents<- set !v  ~cmp key value
   done ;
   !v 
 
 let rec splitAuxPivot n x pres  ~cmp =  
   let l,v,d,r = N.(leftGet n , keyGet n, valueGet n, rightGet n) in  
   let c = (Belt_Id.getCmpInternal cmp) x v [@bs] in 
   if c = 0 then begin 
-    pres := Some d; 
+    pres .contents<- Some d; 
     (l,  r)
   end
   else     

jscomp/others/belt_MapInt.ml

@@ -148,7 +148,7 @@ let mergeMany h arr =
   let v = ref h in  
   for i = 0 to len - 1 do 
     let key,value = A.getUnsafe arr i in 
-    v := set !v key value
+    v .contents<- set !v key value
   done ;
   !v 
 

jscomp/others/belt_MapString.ml

@@ -148,7 +148,7 @@ let mergeMany h arr =
   let v = ref h in  
   for i = 0 to len - 1 do 
     let key,value = A.getUnsafe arr i in 
-    v := set !v key value
+    v .contents<- set !v key value
   done ;
   !v 
 

jscomp/others/belt_MutableMap.ml

@@ -231,7 +231,7 @@ let mergeManyAux t  xs ~cmp =
   let v = ref t in 
   for i = 0 to A.length xs - 1 do 
     let key,value = A.getUnsafe xs i in 
-    v := N.updateMutate !v key value ~cmp
+    v .contents<- N.updateMutate !v key value ~cmp
   done; 
   !v 
 

jscomp/others/belt_MutableSet.ml

@@ -106,7 +106,7 @@ let rec removeCheck0  nt x removed ~cmp=
   let k = N.valueGet nt in 
   let c = (Belt_Id.getCmpInternal cmp) x k [@bs] in 
   if c = 0 then 
-    let () = removed := true in  
+    let () = removed .contents<- true in  
     let l,r = N.(leftGet nt, rightGet nt) in       
     match N.(toOpt l, toOpt r) with 
     | None, _ -> r 
@@ -148,7 +148,7 @@ let removeCheck d v =
 let rec addCheck0  t x added ~cmp  =   
   match N.toOpt t with 
   | None -> 
-    added := true;
+    added .contents<- true;
     N.singleton x 
   | Some nt -> 
     let k = N.valueGet nt in 
@@ -181,7 +181,7 @@ let add m e =
 let addArrayMutate t xs ~cmp =     
   let v = ref t in 
   for i = 0 to A.length xs - 1 do 
-    v := N.addMutate !v (A.getUnsafe xs i)  ~cmp
+    v .contents<- N.addMutate !v (A.getUnsafe xs i)  ~cmp
   done; 
   !v
 

jscomp/others/belt_MutableSetInt.ml

@@ -101,7 +101,7 @@ let removeMany  (d : t) xs =
 let rec removeCheck0  nt (x : value) removed = 
   let k = N.valueGet nt in 
   if x = k then 
-    let () = removed := true in  
+    let () = removed .contents<- true in  
     let l,r = N.(leftGet nt, rightGet nt) in       
     match N.(toOpt l, toOpt r) with 
     | None, _ -> r 
@@ -142,7 +142,7 @@ let removeCheck  (d :  t) v =
 let rec addCheck0  t (x : value) added  =   
   match N.toOpt t with 
   | None -> 
-    added := true;
+    added .contents<- true;
     N.singleton x 
   | Some nt -> 
     let k = N.valueGet nt in 
@@ -175,7 +175,7 @@ let add d k =
 let addArrayMutate t  xs =       
   let v = ref t in 
   for i = 0 to A.length xs - 1 do 
-    v := I.addMutate !v (A.getUnsafe xs i)
+    v .contents<- I.addMutate !v (A.getUnsafe xs i)
   done ;
   !v    
 

jscomp/others/belt_MutableSetString.ml

@@ -101,7 +101,7 @@ let removeMany  (d : t) xs =
 let rec removeCheck0  nt (x : value) removed = 
   let k = N.valueGet nt in 
   if x = k then 
-    let () = removed := true in  
+    let () = removed .contents<- true in  
     let l,r = N.(leftGet nt, rightGet nt) in       
     match N.(toOpt l, toOpt r) with 
     | None, _ -> r 
@@ -142,7 +142,7 @@ let removeCheck  (d :  t) v =
 let rec addCheck0  t (x : value) added  =   
   match N.toOpt t with 
   | None -> 
-    added := true;
+    added .contents<- true;
     N.singleton x 
   | Some nt -> 
     let k = N.valueGet nt in 
@@ -175,7 +175,7 @@ let add d k =
 let addArrayMutate t  xs =       
   let v = ref t in 
   for i = 0 to A.length xs - 1 do 
-    v := I.addMutate !v (A.getUnsafe xs i)
+    v .contents<- I.addMutate !v (A.getUnsafe xs i)
   done ;
   !v    
 

jscomp/others/belt_MutableStack.ml

@@ -96,7 +96,7 @@ let dynamicPopIterU s f =
     let v = Js_null.getUnsafe !cursor in 
     rootSet s (tailGet v);
     f (headGet v) [@bs];
-    cursor := rootGet s (* using root, [f] may change it*)
+    cursor .contents<- rootGet s (* using root, [f] may change it*)
   done
 
 let dynamicPopIter s f = dynamicPopIterU s (fun [@bs] x -> f x)