Merge pull request #5836 from unisonweb/runarorama/littleEndianByteArray

Add little-endian reads for byte arrays

Author: runarorama

parser-typechecker/src/Unison/Builtin.hs

@@ -632,6 +632,16 @@ builtinsSrc =
       mbytearrayt g --> nat --> Type.effect () [g, DD.exceptionType ()] nat,
     B "MutableByteArray.read64be" . forall1 "g" $ \g ->
       mbytearrayt g --> nat --> Type.effect () [g, DD.exceptionType ()] nat,
+    B "MutableByteArray.read16le" . forall1 "g" $ \g ->
+      mbytearrayt g --> nat --> Type.effect () [g, DD.exceptionType ()] nat,
+    B "MutableByteArray.read24le" . forall1 "g" $ \g ->
+      mbytearrayt g --> nat --> Type.effect () [g, DD.exceptionType ()] nat,
+    B "MutableByteArray.read32le" . forall1 "g" $ \g ->
+      mbytearrayt g --> nat --> Type.effect () [g, DD.exceptionType ()] nat,
+    B "MutableByteArray.read40le" . forall1 "g" $ \g ->
+      mbytearrayt g --> nat --> Type.effect () [g, DD.exceptionType ()] nat,
+    B "MutableByteArray.read64le" . forall1 "g" $ \g ->
+      mbytearrayt g --> nat --> Type.effect () [g, DD.exceptionType ()] nat,
     B "MutableArray.write" . forall2 "g" "a" $ \g a ->
       marrayt g a --> nat --> a --> Type.effect () [g, DD.exceptionType ()] unit,
     B "MutableByteArray.write8" . forall1 "g" $ \g ->
@@ -642,6 +652,12 @@ builtinsSrc =
       mbytearrayt g --> nat --> nat --> Type.effect () [g, DD.exceptionType ()] unit,
     B "MutableByteArray.write64be" . forall1 "g" $ \g ->
       mbytearrayt g --> nat --> nat --> Type.effect () [g, DD.exceptionType ()] unit,
+    B "MutableByteArray.write16le" . forall1 "g" $ \g ->
+      mbytearrayt g --> nat --> nat --> Type.effect () [g, DD.exceptionType ()] unit,
+    B "MutableByteArray.write32le" . forall1 "g" $ \g ->
+      mbytearrayt g --> nat --> nat --> Type.effect () [g, DD.exceptionType ()] unit,
+    B "MutableByteArray.write64le" . forall1 "g" $ \g ->
+      mbytearrayt g --> nat --> nat --> Type.effect () [g, DD.exceptionType ()] unit,
     B "ImmutableArray.copyTo!" . forall2 "g" "a" $ \g a ->
       marrayt g a
         --> nat
@@ -670,6 +686,16 @@ builtinsSrc =
       ibytearrayt --> nat --> Type.effect1 () (DD.exceptionType ()) nat,
     B "ImmutableByteArray.read64be" $
       ibytearrayt --> nat --> Type.effect1 () (DD.exceptionType ()) nat,
+    B "ImmutableByteArray.read16le" $
+      ibytearrayt --> nat --> Type.effect1 () (DD.exceptionType ()) nat,
+    B "ImmutableByteArray.read24le" $
+      ibytearrayt --> nat --> Type.effect1 () (DD.exceptionType ()) nat,
+    B "ImmutableByteArray.read32le" $
+      ibytearrayt --> nat --> Type.effect1 () (DD.exceptionType ()) nat,
+    B "ImmutableByteArray.read40le" $
+      ibytearrayt --> nat --> Type.effect1 () (DD.exceptionType ()) nat,
+    B "ImmutableByteArray.read64le" $
+      ibytearrayt --> nat --> Type.effect1 () (DD.exceptionType ()) nat,
     B "MutableArray.freeze!" . forall2 "g" "a" $ \g a ->
       marrayt g a --> Type.effect1 () g (iarrayt a),
     B "MutableByteArray.freeze!" . forall1 "g" $ \g ->

unison-runtime/src/Unison/Runtime/Builtin.hs

@@ -1211,12 +1211,20 @@ declareForeigns = do
   declareForeign Untracked 2 MutableByteArray_read32be
   declareForeign Untracked 2 MutableByteArray_read40be
   declareForeign Untracked 2 MutableByteArray_read64be
+  declareForeign Untracked 2 MutableByteArray_read16le
+  declareForeign Untracked 2 MutableByteArray_read24le
+  declareForeign Untracked 2 MutableByteArray_read32le
+  declareForeign Untracked 2 MutableByteArray_read40le
+  declareForeign Untracked 2 MutableByteArray_read64le
 
   declareForeign Untracked 3 MutableArray_write
   declareForeign Untracked 3 MutableByteArray_write8
   declareForeign Untracked 3 MutableByteArray_write16be
   declareForeign Untracked 3 MutableByteArray_write32be
   declareForeign Untracked 3 MutableByteArray_write64be
+  declareForeign Untracked 3 MutableByteArray_write16le
+  declareForeign Untracked 3 MutableByteArray_write32le
+  declareForeign Untracked 3 MutableByteArray_write64le
 
   declareForeign Untracked 2 ImmutableArray_read
   declareForeign Untracked 2 ImmutableByteArray_read8
@@ -1225,6 +1233,11 @@ declareForeigns = do
   declareForeign Untracked 2 ImmutableByteArray_read32be
   declareForeign Untracked 2 ImmutableByteArray_read40be
   declareForeign Untracked 2 ImmutableByteArray_read64be
+  declareForeign Untracked 2 ImmutableByteArray_read16le
+  declareForeign Untracked 2 ImmutableByteArray_read24le
+  declareForeign Untracked 2 ImmutableByteArray_read32le
+  declareForeign Untracked 2 ImmutableByteArray_read40le
+  declareForeign Untracked 2 ImmutableByteArray_read64le
 
   declareForeign Untracked 1 MutableByteArray_freeze_force
   declareForeign Untracked 1 MutableArray_freeze_force