Update cppo

bobzhang · bobzhang · commit fcf02248ce28 · 2018-12-27T11:38:37.000+08:00
diff --git a/jscomp/others/belt_HashMapInt.ml b/jscomp/others/belt_HashMapInt.ml
@@ -1,4 +1,4 @@
-# 1 "hashmap.cppo.ml"
+# 1 "others/hashmap.cppo.ml"
 (***********************************************************************)
 (*                                                                     *)
 (*                                OCaml                                *)
@@ -13,15 +13,15 @@
 (***********************************************************************)
 (**  Adapted by Authors of BuckleScript 2017                           *)
 
-# 23 "hashmap.cppo.ml"
+# 23 "others/hashmap.cppo.ml"
 type key = int
 type seed = int
 external caml_hash_mix_int : seed -> int -> seed  = "caml_hash_mix_int"
 external final_mix : seed -> seed = "caml_hash_final_mix"
 let hash (s : key) = 
   final_mix (caml_hash_mix_int 0 s)
 
-# 33 "hashmap.cppo.ml"
+# 33 "others/hashmap.cppo.ml"
 module N = Belt_internalBuckets
 module C = Belt_internalBucketsType
 module A = Belt_Array
diff --git a/jscomp/others/belt_HashMapInt.mli b/jscomp/others/belt_HashMapInt.mli
@@ -1,8 +1,8 @@
-# 4 "hashmap.cppo.mli"
+# 4 "others/hashmap.cppo.mli"
 type key = int
 
 
-# 10 "hashmap.cppo.mli"
+# 10 "others/hashmap.cppo.mli"
 type 'b t 
 
 
diff --git a/jscomp/others/belt_HashMapString.ml b/jscomp/others/belt_HashMapString.ml
@@ -1,4 +1,4 @@
-# 1 "hashmap.cppo.ml"
+# 1 "others/hashmap.cppo.ml"
 (***********************************************************************)
 (*                                                                     *)
 (*                                OCaml                                *)
@@ -13,15 +13,15 @@
 (***********************************************************************)
 (**  Adapted by Authors of BuckleScript 2017                           *)
 
-# 16 "hashmap.cppo.ml"
+# 16 "others/hashmap.cppo.ml"
 type key = string
 type seed = int
 external caml_hash_mix_string : seed -> string -> seed  = "caml_hash_mix_string"
 external final_mix : seed -> seed = "caml_hash_final_mix"
 let hash (s : key) =   
   final_mix  (caml_hash_mix_string 0 s )
 
-# 33 "hashmap.cppo.ml"
+# 33 "others/hashmap.cppo.ml"
 module N = Belt_internalBuckets
 module C = Belt_internalBucketsType
 module A = Belt_Array
diff --git a/jscomp/others/belt_HashMapString.mli b/jscomp/others/belt_HashMapString.mli
@@ -1,8 +1,8 @@
-# 2 "hashmap.cppo.mli"
+# 2 "others/hashmap.cppo.mli"
 type key = string
 
 
-# 10 "hashmap.cppo.mli"
+# 10 "others/hashmap.cppo.mli"
 type 'b t 
 
 
diff --git a/jscomp/others/belt_HashSetInt.ml b/jscomp/others/belt_HashSetInt.ml
@@ -1,12 +1,12 @@
-# 10 "hashset.cppo.ml"
+# 10 "others/hashset.cppo.ml"
 type key = int
 type seed = int
 external caml_hash_mix_int : seed -> int -> seed  = "caml_hash_mix_int"
 external final_mix : seed -> seed = "caml_hash_final_mix"
 let hash (s : key) = 
   final_mix (caml_hash_mix_int 0 s)
 
-# 20 "hashset.cppo.ml"
+# 20 "others/hashset.cppo.ml"
 module N = Belt_internalSetBuckets
 module C = Belt_internalBucketsType
 module A = Belt_Array
diff --git a/jscomp/others/belt_HashSetInt.mli b/jscomp/others/belt_HashSetInt.mli
@@ -1,5 +1,5 @@
 
-# 2 "hashset.cppo.mli"
+# 2 "others/hashset.cppo.mli"
 (* Copyright (C) 2017 Authors of BuckleScript
  * 
  * This program is free software: you can redistribute it and/or modify
@@ -33,11 +33,11 @@
 *)
 
 
-# 38 "hashset.cppo.mli"
+# 38 "others/hashset.cppo.mli"
 type key = int
 
 
-# 44 "hashset.cppo.mli"
+# 44 "others/hashset.cppo.mli"
 type t
 
 val make: hintSize:int -> t 
diff --git a/jscomp/others/belt_HashSetString.ml b/jscomp/others/belt_HashSetString.ml
@@ -1,4 +1,4 @@
-# 2 "hashset.cppo.ml"
+# 2 "others/hashset.cppo.ml"
 type key = string
 type seed = int
 external caml_hash_mix_string : seed -> string -> seed  = "caml_hash_mix_string"
@@ -7,7 +7,7 @@ let hash (s : key) =
   final_mix  (caml_hash_mix_string 0 s )
     
 
-# 20 "hashset.cppo.ml"
+# 20 "others/hashset.cppo.ml"
 module N = Belt_internalSetBuckets
 module C = Belt_internalBucketsType
 module A = Belt_Array
diff --git a/jscomp/others/belt_HashSetString.mli b/jscomp/others/belt_HashSetString.mli
@@ -1,5 +1,5 @@
 
-# 2 "hashset.cppo.mli"
+# 2 "others/hashset.cppo.mli"
 (* Copyright (C) 2017 Authors of BuckleScript
  * 
  * This program is free software: you can redistribute it and/or modify
@@ -33,11 +33,11 @@
 *)
 
 
-# 36 "hashset.cppo.mli"
+# 36 "others/hashset.cppo.mli"
 type key = string
 
 
-# 44 "hashset.cppo.mli"
+# 44 "others/hashset.cppo.mli"
 type t
 
 val make: hintSize:int -> t 
diff --git a/jscomp/others/belt_MapInt.ml b/jscomp/others/belt_MapInt.ml
@@ -1,8 +1,8 @@
-# 5 "map.cppo.ml"
+# 5 "others/map.cppo.ml"
 type key = int
 module I = Belt_internalMapInt    
 
-# 11 "map.cppo.ml"
+# 11 "others/map.cppo.ml"
 module N = Belt_internalAVLtree
 module A = Belt_Array 
 
diff --git a/jscomp/others/belt_MapInt.mli b/jscomp/others/belt_MapInt.mli
@@ -1,6 +1,6 @@
-# 4 "map.cppo.mli"
+# 4 "others/map.cppo.mli"
 type key = int
-# 8 "map.cppo.mli"
+# 8 "others/map.cppo.mli"
 type 'value t
 (** The type of maps from type [key] to type ['value]. *)
 
diff --git a/jscomp/others/belt_MapString.ml b/jscomp/others/belt_MapString.ml
@@ -1,8 +1,8 @@
-# 2 "map.cppo.ml"
+# 2 "others/map.cppo.ml"
 type key = string
 module I = Belt_internalMapString
 
-# 11 "map.cppo.ml"
+# 11 "others/map.cppo.ml"
 module N = Belt_internalAVLtree
 module A = Belt_Array 
 
diff --git a/jscomp/others/belt_MapString.mli b/jscomp/others/belt_MapString.mli
@@ -1,6 +1,6 @@
-# 2 "map.cppo.mli"
+# 2 "others/map.cppo.mli"
 type key = string
-# 8 "map.cppo.mli"
+# 8 "others/map.cppo.mli"
 type 'value t
 (** The type of maps from type [key] to type ['value]. *)
 
diff --git a/jscomp/others/belt_MutableMapInt.ml b/jscomp/others/belt_MutableMapInt.ml
@@ -1,7 +1,7 @@
-# 2 "mapm.cppo.ml"
+# 2 "others/mapm.cppo.ml"
 module I = Belt_internalMapInt
 type key = int
-# 10 "mapm.cppo.ml"
+# 10 "others/mapm.cppo.ml"
 module N = Belt_internalAVLtree
 module A = Belt_Array 
 
diff --git a/jscomp/others/belt_MutableMapInt.mli b/jscomp/others/belt_MutableMapInt.mli
@@ -1,4 +1,4 @@
-# 1 "mapm.cppo.mli"
+# 1 "others/mapm.cppo.mli"
 (* Copyright (C) 2017 Authors of BuckleScript
  * 
  * This program is free software: you can redistribute it and/or modify
@@ -23,9 +23,9 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
-# 28 "mapm.cppo.mli"
+# 28 "others/mapm.cppo.mli"
 type key = int
-# 32 "mapm.cppo.mli"
+# 32 "others/mapm.cppo.mli"
 type 'a t
 
 
diff --git a/jscomp/others/belt_MutableMapString.ml b/jscomp/others/belt_MutableMapString.ml
@@ -1,7 +1,7 @@
-# 5 "mapm.cppo.ml"
+# 5 "others/mapm.cppo.ml"
 module I = Belt_internalMapString
 type key = string
-# 10 "mapm.cppo.ml"
+# 10 "others/mapm.cppo.ml"
 module N = Belt_internalAVLtree
 module A = Belt_Array 
 
diff --git a/jscomp/others/belt_MutableMapString.mli b/jscomp/others/belt_MutableMapString.mli
@@ -1,4 +1,4 @@
-# 1 "mapm.cppo.mli"
+# 1 "others/mapm.cppo.mli"
 (* Copyright (C) 2017 Authors of BuckleScript
  * 
  * This program is free software: you can redistribute it and/or modify
@@ -23,9 +23,9 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
-# 26 "mapm.cppo.mli"
+# 26 "others/mapm.cppo.mli"
 type key = string
-# 32 "mapm.cppo.mli"
+# 32 "others/mapm.cppo.mli"
 type 'a t
 
 
diff --git a/jscomp/others/belt_MutableSetInt.ml b/jscomp/others/belt_MutableSetInt.ml
@@ -1,4 +1,4 @@
-# 1 "setm.cppo.ml"
+# 1 "others/setm.cppo.ml"
 (* Copyright (C) 2017 Authors of BuckleScript
  * 
  * This program is free software: you can redistribute it and/or modify
@@ -28,10 +28,10 @@
     and identity is not needed(using the built-in one) 
 *)
 
-# 31 "setm.cppo.ml"
+# 31 "others/setm.cppo.ml"
 module I = Belt_internalSetInt
 module S = Belt_SortArrayInt
-# 39 "setm.cppo.ml"
+# 39 "others/setm.cppo.ml"
 module N = Belt_internalAVLset
 module A = Belt_Array 
 
diff --git a/jscomp/others/belt_MutableSetInt.mli b/jscomp/others/belt_MutableSetInt.mli
@@ -1,4 +1,4 @@
-# 1 "setm.cppo.mli"
+# 1 "others/setm.cppo.mli"
 (* Copyright (C) 2017 Authors of BuckleScript
  * 
  * This program is free software: you can redistribute it and/or modify
@@ -32,9 +32,9 @@
 *)
 
 
-# 37 "setm.cppo.mli"
+# 37 "others/setm.cppo.mli"
 type value = int
-# 41 "setm.cppo.mli"
+# 41 "others/setm.cppo.mli"
 (** The type of the set elements. *)
 
 
diff --git a/jscomp/others/belt_MutableSetString.ml b/jscomp/others/belt_MutableSetString.ml
@@ -1,4 +1,4 @@
-# 1 "setm.cppo.ml"
+# 1 "others/setm.cppo.ml"
 (* Copyright (C) 2017 Authors of BuckleScript
  * 
  * This program is free software: you can redistribute it and/or modify
@@ -28,10 +28,10 @@
     and identity is not needed(using the built-in one) 
 *)
 
-# 34 "setm.cppo.ml"
+# 34 "others/setm.cppo.ml"
 module I = Belt_internalSetString
 module S = Belt_SortArrayString
-# 39 "setm.cppo.ml"
+# 39 "others/setm.cppo.ml"
 module N = Belt_internalAVLset
 module A = Belt_Array 
 
diff --git a/jscomp/others/belt_MutableSetString.mli b/jscomp/others/belt_MutableSetString.mli
@@ -1,4 +1,4 @@
-# 1 "setm.cppo.mli"
+# 1 "others/setm.cppo.mli"
 (* Copyright (C) 2017 Authors of BuckleScript
  * 
  * This program is free software: you can redistribute it and/or modify
@@ -32,9 +32,9 @@
 *)
 
 
-# 35 "setm.cppo.mli"
+# 35 "others/setm.cppo.mli"
 type value = string
-# 41 "setm.cppo.mli"
+# 41 "others/setm.cppo.mli"
 (** The type of the set elements. *)
 
 
diff --git a/jscomp/others/belt_SetInt.ml b/jscomp/others/belt_SetInt.ml
@@ -1,6 +1,6 @@
-# 2 "set.cppo.ml"
+# 2 "others/set.cppo.ml"
 module I = Belt_internalSetInt
-# 8 "set.cppo.ml"
+# 8 "others/set.cppo.ml"
 module N = Belt_internalAVLset
 module A = Belt_Array
 
diff --git a/jscomp/others/belt_SetInt.mli b/jscomp/others/belt_SetInt.mli
@@ -1,4 +1,4 @@
-# 1 "set.cppo.mli"
+# 1 "others/set.cppo.mli"
 (* Copyright (C) 2017 Authors of BuckleScript
  * 
  * This program is free software: you can redistribute it and/or modify
@@ -30,9 +30,9 @@
     {b See} {!Belt.Set}
 *)
 
-# 35 "set.cppo.mli"
+# 35 "others/set.cppo.mli"
 type value = int
-# 39 "set.cppo.mli"
+# 39 "others/set.cppo.mli"
 (** The type of the set elements. *)
 
 
diff --git a/jscomp/others/belt_SetString.ml b/jscomp/others/belt_SetString.ml
@@ -1,6 +1,6 @@
-# 4 "set.cppo.ml"
+# 4 "others/set.cppo.ml"
 module I = Belt_internalSetString
-# 8 "set.cppo.ml"
+# 8 "others/set.cppo.ml"
 module N = Belt_internalAVLset
 module A = Belt_Array
 
diff --git a/jscomp/others/belt_SetString.mli b/jscomp/others/belt_SetString.mli
@@ -1,4 +1,4 @@
-# 1 "set.cppo.mli"
+# 1 "others/set.cppo.mli"
 (* Copyright (C) 2017 Authors of BuckleScript
  * 
  * This program is free software: you can redistribute it and/or modify
@@ -30,9 +30,9 @@
     {b See} {!Belt.Set}
 *)
 
-# 33 "set.cppo.mli"
+# 33 "others/set.cppo.mli"
 type value = string
-# 39 "set.cppo.mli"
+# 39 "others/set.cppo.mli"
 (** The type of the set elements. *)
 
 
diff --git a/jscomp/others/belt_SortArrayInt.ml b/jscomp/others/belt_SortArrayInt.ml
@@ -1,7 +1,7 @@
-# 2 "sort.cppo.ml"
+# 2 "others/sort.cppo.ml"
 type element = int 
 
-# 9 "sort.cppo.ml"
+# 9 "others/sort.cppo.ml"
 module A = Belt_Array 
 
 let rec sortedLengthAuxMore (xs : element array) prec acc len = 
diff --git a/jscomp/others/belt_SortArrayInt.mli b/jscomp/others/belt_SortArrayInt.mli
@@ -1,5 +1,5 @@
 
-# 2 "sort.cppo.mli"
+# 2 "others/sort.cppo.mli"
 (* Copyright (C) 2017 Authors of BuckleScript
  * 
  * This program is free software: you can redistribute it and/or modify
@@ -29,10 +29,10 @@
     applies here, except the comparator is fixed and inlined
 *)
 
-# 32 "sort.cppo.mli"
+# 32 "others/sort.cppo.mli"
 type element = int 
 
-# 39 "sort.cppo.mli"
+# 39 "others/sort.cppo.mli"
 val strictlySortedLength: element array -> int 
 (**
   The same as {!Belt_SortArray.strictlySortedLength } except the comparator is fixed
diff --git a/jscomp/others/belt_SortArrayString.ml b/jscomp/others/belt_SortArrayString.ml
diff --git a/jscomp/others/belt_SortArrayString.mli b/jscomp/others/belt_SortArrayString.mli
diff --git a/jscomp/others/belt_internalMapInt.ml b/jscomp/others/belt_internalMapInt.ml
diff --git a/jscomp/others/belt_internalMapString.ml b/jscomp/others/belt_internalMapString.ml
diff --git a/jscomp/others/belt_internalSetInt.ml b/jscomp/others/belt_internalSetInt.ml
diff --git a/jscomp/others/belt_internalSetString.ml b/jscomp/others/belt_internalSetString.ml
