Stdlib: add DataView with littleEndian get/set (#7881)

* Stdlib: add DataView with littleEndian get/set

* Stdlib: refactor DataView methods to support optional little-endian parameter

* Update packages/@rescript/runtime/Stdlib_DataView.resi

Co-authored-by: Christoph Knittel <[email protected]>

* add deprecated

* update example and doc

* fix resi error

* add test

* make format

* update artifacts.json

* update ChangeLog

---------

Co-authored-by: Christoph Knittel <[email protected]>
Co-authored-by: Christoph Knittel <[email protected]>

Author: htoooth

CHANGELOG.md

@@ -42,6 +42,7 @@
 #### :rocket: New Feature
 
 - Add `Array.filterMapWithIndex` to Stdlib. https://github.com/rescript-lang/rescript/pull/7876
+- Add `littleEndian` feature for `DataView` to Stdlib. https://github.com/rescript-lang/rescript/pull/7881
 
 #### :bug: Bug fix
 

packages/@rescript/runtime/Stdlib_DataView.res

@@ -1,7 +1,8 @@
 @notUndefined
 type t
 
-@new external fromBuffer: Stdlib_ArrayBuffer.t => t = "DataView"
+@new
+external fromBuffer: (Stdlib_ArrayBuffer.t, ~byteOffset: int=?, ~length: int=?) => t = "DataView"
 @new external fromBufferToEnd: (Stdlib_ArrayBuffer.t, ~byteOffset: int) => t = "DataView"
 @new
 external fromBufferWithRange: (Stdlib_ArrayBuffer.t, ~byteOffset: int, ~length: int) => t =
@@ -13,29 +14,35 @@ external fromBufferWithRange: (Stdlib_ArrayBuffer.t, ~byteOffset: int, ~length:
 
 @send external getInt8: (t, int) => int = "getInt8"
 @send external getUint8: (t, int) => int = "getUint8"
-@send external getInt16: (t, int) => int = "getInt16"
-@send external getUint16: (t, int) => int = "getUint16"
-@send external getInt32: (t, int) => int = "getInt32"
-@send external getUint32: (t, int) => int = "getUint32"
 
-@send external getFloat32: (t, int) => float = "getFloat32"
-@send external getFloat64: (t, int) => float = "getFloat64"
+@send external getInt16: (t, int, ~littleEndian: bool=?) => int = "getInt16"
+@send external getUint16: (t, int, ~littleEndian: bool=?) => int = "getUint16"
+
+@send external getInt32: (t, int, ~littleEndian: bool=?) => int = "getInt32"
+@send external getUint32: (t, int, ~littleEndian: bool=?) => int = "getUint32"
+
+@send external getFloat16: (t, int, ~littleEndian: bool=?) => float = "getFloat16"
+@send external getFloat32: (t, int, ~littleEndian: bool=?) => float = "getFloat32"
+@send external getFloat64: (t, int, ~littleEndian: bool=?) => float = "getFloat64"
 
-@send external getBigInt64: (t, int) => bigint = "getBigInt64"
-@send external getBigUint64: (t, int) => bigint = "getBigUint64"
+@send external getBigInt64: (t, int, ~littleEndian: bool=?) => bigint = "getBigInt64"
+@send external getBigUint64: (t, int, ~littleEndian: bool=?) => bigint = "getBigUint64"
 
 @send external setInt8: (t, int, int) => unit = "setInt8"
 @send external setUint8: (t, int, int) => unit = "setUint8"
-@send external setInt16: (t, int, int) => unit = "setInt16"
-@send external setUint16: (t, int, int) => unit = "setUint16"
-@send external setInt32: (t, int, int) => unit = "setInt32"
-@send external setUint32: (t, int, int) => unit = "setUint32"
 
-@send external setFloat32: (t, int, float) => unit = "setFloat32"
-@send external setFloat64: (t, int, float) => unit = "setFloat64"
+@send external setInt16: (t, int, int, ~littleEndian: bool=?) => unit = "setInt16"
+@send external setUint16: (t, int, int, ~littleEndian: bool=?) => unit = "setUint16"
+
+@send external setInt32: (t, int, int, ~littleEndian: bool=?) => unit = "setInt32"
+@send external setUint32: (t, int, int, ~littleEndian: bool=?) => unit = "setUint32"
+
+@send external setFloat16: (t, int, float, ~littleEndian: bool=?) => unit = "setFloat16"
+@send external setFloat32: (t, int, float, ~littleEndian: bool=?) => unit = "setFloat32"
+@send external setFloat64: (t, int, float, ~littleEndian: bool=?) => unit = "setFloat64"
 
-@send external setBigInt64: (t, int, bigint) => unit = "setBigInt64"
-@send external setBigUint64: (t, int, bigint) => unit = "setBigUint64"
+@send external setBigInt64: (t, int, bigint, ~littleEndian: bool=?) => unit = "setBigInt64"
+@send external setBigUint64: (t, int, bigint, ~littleEndian: bool=?) => unit = "setBigUint64"
 
 /**
   `ignore(dataView)` ignores the provided dataView and returns unit.