[NF] Implement ModelicaIO_readMatrixSizes.

- Add ModelicaIO_readMatrixSizes as a known external function in
  EvalFunction.

Belonging to [master]:
  - #2973

Author: perost

Compiler/NFFrontEnd/NFEvalFunction.mo

@@ -881,6 +881,7 @@ function isKnownLibraryExp
 algorithm
   isKnown := match exp
     case Absyn.STRING("ModelicaExternalC") then true;
+    case Absyn.STRING("ModelicaIO") then true;
     case Absyn.ARRAY() then List.exist(exp.arrayExp, isKnownLibraryExp);
     else false;
   end match;
@@ -920,6 +921,7 @@ algorithm
       Integer i, i2;
       Boolean b;
       Real r;
+      Integer dims[2];
 
     case ("ModelicaInternal_countLines", {Expression.STRING(s1)})
       then Expression.INTEGER(ModelicaExternalC.Streams_countLines(s1));
@@ -976,6 +978,12 @@ algorithm
 
     case ("OpenModelica_regex", _) then evaluateOpenModelicaRegex(args);
 
+    case ("ModelicaIO_readMatrixSizes", {Expression.STRING(s1), Expression.STRING(s2)})
+      algorithm
+        dims := ModelicaExternalC.Streams_readMatrixSize(s1, s2);
+      then
+        Expression.ARRAY(Type.INTEGER(), {Expression.INTEGER(dims[1]), Expression.INTEGER(dims[2])}, true);
+
     else
       algorithm
         Error.assertion(false, getInstanceName() + ": failed to evaluate " + name, sourceInfo());

Compiler/Util/ModelicaExternalC.mo

@@ -95,7 +95,6 @@ function Strings_advanced_scanReal
   external "C" ModelicaStrings_scanReal(string,startIndex,unsigned,nextIndex,number) annotation(Library = "ModelicaExternalC");
 end Strings_advanced_scanReal;
 
-
 function Strings_advanced_skipWhiteSpace
   input String string;
   input Integer startIndex(min = 1) = 1;
@@ -104,5 +103,13 @@ function Strings_advanced_skipWhiteSpace
   external "C" nextIndex = ModelicaStrings_skipWhiteSpace(string,startIndex) annotation(Library = "ModelicaExternalC");
 end Strings_advanced_skipWhiteSpace;
 
+function Streams_readMatrixSize
+  input String fileName;
+  input String matrixName;
+  output Integer[2] dim;
+
+  external "C" ModelicaIO_readMatrixSizes(fileName, matrixName, dim) annotation(Library = {"ModelicaIO", "ModelicaMatIO", "zlib"});
+end Streams_readMatrixSize;
+
 annotation(__OpenModelica_Interface="util");
 end ModelicaExternalC;

Compiler/boot/Makefile.in

@@ -20,7 +20,7 @@ else
 OMENCRYPTIONLIBS=
 endif
 
-LDFLAGS=-L.  -L$(GEN_DIR) -L"$(OMHOME)/$(LIB_OMC)" $(LOMPARSE) $(LCOMPILERRUNTIME) -lOpenModelicaRuntimeC -lModelicaExternalC -lomantlr3 $(CORBALIBS) $(FMILIB_OR_BOOT) @RT_LDFLAGS@ @LIBSOCKET@ @LIBLPSOLVE55@ @OMC_LIBS@ @GRAPHLIB@ @LD_LAPACK@ -lzmq $(OMENCRYPTIONLIBS)
+LDFLAGS=-L.  -L$(GEN_DIR) -L"$(OMHOME)/$(LIB_OMC)" $(LOMPARSE) $(LCOMPILERRUNTIME) -lOpenModelicaRuntimeC -lModelicaExternalC -lModelicaIO -lModelicaMatIO -lomantlr3 $(CORBALIBS) $(FMILIB_OR_BOOT) @RT_LDFLAGS@ @LIBSOCKET@ @LIBLPSOLVE55@ @OMC_LIBS@ @GRAPHLIB@ @LD_LAPACK@ -lzmq $(OMENCRYPTIONLIBS)
 LDFLAGS_SHARED_MAIN=-L"$(OMHOME)/$(LIB_OMC)" @RT_LDFLAGS_SHARED@
 ifeq (@WITH_FMIL@,yes)
 FMILIB = -L$(TOP_DIR)/3rdParty/FMIL/install/lib -lfmilib

Compiler/boot/Makefile.omdev.mingw

@@ -25,7 +25,7 @@ OMENCRYPTIONLIBS=
 endif
 LDFLAGS=-L./ $(LOMPARSE) $(LCOMPILERRUNTIME) -L"$(OMHOME)/lib/omc" \
 -lOpenModelicaRuntimeC \
--lModelicaExternalC -lm \
+-lModelicaExternalC -lModelicaIO -lModelicaMatIO -lm \
 -lomantlr3 -lregex -lwsock32 -llpsolve55 -luuid -lole32 -lws2_32 -limagehlp \
 -lRpcrt4 -lopenblas -fopenmp -lomcgc -lpthread $(FMILIB_OR_BOOT) -lshlwapi -liconv -lintl -lmetis \
 -Wl,--enable-stdcall-fixup -Bstatic -lstdc++ -Bdynamic -static-libgcc \