Fortran order is not supported, raise an error when trying to read an

array saved using it

Author: lr94

NumPyArray.wl

@@ -13,6 +13,7 @@ numeric data types are supported"
 ReadNumPyArray::invalidFile = "`1` is not a valid NPY file"
 ReadNumPyArray::invalidVersion = "NPY version `1`.`2` not supported"
 ReadNumPyArray::invalidDType = "Invalid dtype `1`"
+ReadNumPyArray::fortranOrder = "Fortran order is not supported"
 
 Begin["Private`"]
 
@@ -38,41 +39,45 @@ ReadNumPyArray[file_] := Module[{fs, formatVersion, headerLength, retVal},
        fortranOrder = headerDic[["fortran_order"]];
        shape = headerDic[["shape"]];
 
-       (* Endianness *)
-       byteOrder = 
-        Switch[StringTake[dtype, 1], "<", -1, ">", 1, _, $ByteOrdering];
+       (* Fortran order is not supported *)
+       If[! fortranOrder,
 
-       (* Data type *)
-       pyType = StringTake[dtype, {2, -1}];
-       mathematicaDataType = Switch[pyType,
-         "b1", "Integer8",
-         "B1", "UnsignedInteger8",
-         "i1", "Integer8",
-         "u1", "UnsignedInteger8",
-         "i2", "Integer16",
-         "u2", "UnsignedInteger16",
-         "i4", "Integer32",
-         "u4", "UnsignedInteger32",
-         "i8", "Integer64",
-         "u8", "UnsignedInteger64",
-         "i16", "Integer128",
-         "u16", "UnsignedInteger128",
-         "f4", "Real32",
-         "f8", "Real64",
-         (* "f16", "Real128", *)
-         "c8", "Complex64",
-         "c16", "Complex128",
-         (* "c32", "Complex256", *)
-         _, Message[ReadNumPyArray::invalidDType, pyType]; "Unknown"
-         ];
+        (* Endianness *)
+        byteOrder = 
+         Switch[StringTake[dtype, 1], "<", -1, ">", 1, _, $ByteOrdering];
 
-       (* Read data *)
-       If[mathematicaDataType == "Unknown", $Failed,
-        data = 
-         BinaryReadList[fs, mathematicaDataType, 
-          ByteOrdering -> byteOrder];
-        ArrayReshape[data, shape]
-        ] 
+        (* Data type *)
+        pyType = StringTake[dtype, {2, -1}];
+        mathematicaDataType = Switch[pyType,
+          "b1", "Integer8",
+          "B1", "UnsignedInteger8",
+          "i1", "Integer8",
+          "u1", "UnsignedInteger8",
+          "i2", "Integer16",
+          "u2", "UnsignedInteger16",
+          "i4", "Integer32",
+          "u4", "UnsignedInteger32",
+          "i8", "Integer64",
+          "u8", "UnsignedInteger64",
+          "i16", "Integer128",
+          "u16", "UnsignedInteger128",
+          "f4", "Real32",
+          "f8", "Real64",
+          (* "f16", "Real128", *)
+          "c8", "Complex64",
+          "c16", "Complex128",
+          (* "c32", "Complex256", *)
+           _, Message[ReadNumPyArray::invalidDType, pyType]; "Unknown"
+          ];
+
+        (* Read data *)
+        If[mathematicaDataType == "Unknown", $Failed,
+         data = 
+          BinaryReadList[fs, mathematicaDataType, 
+           ByteOrdering -> byteOrder];
+         ArrayReshape[data, shape]
+         ]
+        , Message[ReadNumPyArray::fortranOrder]; $Failed]
        , Message[ReadNumPyArray::invalidVersion, formatVersion[[1]], 
         formatVersion[[2]]]; $Failed]
       , Message[ReadNumPyArray::invalidFile, file]; $Failed];