-Added function Error.getNumErrorMessages that returns number of messages in queue with severity 'Error'.

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@4659 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

Author: Peter Aronsson

Compiler/Error.mo

@@ -701,6 +701,12 @@ algorithm
   num := ErrorExt.getNumMessages();
 end getNumMessages;
 
+public function getNumErrorMessages "Returns the number of messages with severity 'Error' in the message queue "
+  output Integer num;
+algorithm
+  num := ErrorExt.getNumErrorMessages();
+end getNumErrorMessages;
+
 public function getMessagesStr "Relations for interactive comm. These returns the messages as an array 
   of strings, suitable for sending to clients like model editor, MDT, etc.
 

Compiler/ErrorExt.mo

@@ -91,6 +91,12 @@ public function getNumMessages
   external "C";
 end getNumMessages;
 
+public function getNumErrorMessages
+  output Integer num;
+  
+  external "C";
+end getNumErrorMessages;
+
 public function getMessagesStr
   output String outString;
 

Compiler/runtime/errorext.cpp

@@ -296,6 +296,22 @@ extern "C"
     }
   RML_END_LABEL
 
+  RML_BEGIN_LABEL(ErrorExt__getNumErrorMessages)
+      {
+	  int res=0;
+
+	  stack<ErrorMessage*> queueCopy(errorMessageQueue);
+	  while (!queueCopy.empty()) {
+		if (queueCopy.top()->getSeverity().compare(std::string("Error")) == 0) {
+			res++;
+		}
+		queueCopy.pop();
+	  }
+      rmlA0 = mk_icon(res);
+      RML_TAILCALLK(rmlSC);
+      }
+    RML_END_LABEL
+
   RML_BEGIN_LABEL(ErrorExt__printErrorsNoWarning)
   {
     std::string res("");