-Added System.removeFile() that uses remove() from stdio.h

git-svn-id: https://openmodelica.org/svn/OpenModelica/branches/MathCoreOSMC@3998 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

Author: Peter Aronsson

Compiler/System.mo

@@ -383,11 +383,18 @@ end groupDelimiter;
 
 public function regularFileExists
   input String inString;
-  output Integer outInteger;
+  output Integer outInteger "returns 0 if file exists";
 
   external "C" ;
 end regularFileExists;
 
+public function removeFile "Removes a file, returns 0 if suceeds, implemented using remove() in stdio.h"
+  input String fileName;
+  output Integer res;
+  
+  external "C";
+end removeFile;
+
 public function getPackageFileNames
   input String inString1;
   input String inString2;

Compiler/runtime/systemimpl.c

@@ -1514,15 +1514,15 @@ RML_BEGIN_LABEL(System__getPackageFileNames)
     void *res;
     WIN32_FIND_DATA FileData;
     HANDLE sh;
-    
-    sprintf(strSearch,"%s\\*\0",dir);    
+
+    sprintf(strSearch,"%s\\*\0",dir);
 	sh = FindFirstFile(strSearch, &FileData);
-	
+
 	if (sh == INVALID_HANDLE_VALUE) {
 		printf(" invalid\n");
 	}
 	else {
-		if ((FileData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) != 0) {			
+		if ((FileData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) != 0) {
 			sprintf(tmpSearchString,"%s\\%s\\%s",dir,FileData.cFileName,fileName);
 			if(fileExistsLocal(tmpSearchString)==0){
 				if(strlen(FileData.cFileName)+current>mallocSize){
@@ -1625,6 +1625,19 @@ RML_BEGIN_LABEL(System__regularFileExists)
 }
 RML_END_LABEL
 
+RML_BEGIN_LABEL(System__removeFile)
+{
+	char* str = RML_STRINGDATA(rmlA0);
+	int ret_val;
+	ret_val = remove(str);
+
+	rmlA0 = (void*) mk_icon(ret_val);
+
+	RML_TAILCALLK(rmlSC);
+}
+RML_END_LABEL
+
+
 #ifdef WIN32
 RML_BEGIN_LABEL(System__platform)
 {
@@ -3240,7 +3253,7 @@ RML_BEGIN_LABEL(System__getVariableNames)
 }
 RML_END_LABEL
 
-#if 0 
+#if 0
 void* read_one_value_from_file(FILE* file, type_description* desc)
 {
   void *res=NULL;
@@ -3611,6 +3624,19 @@ RML_BEGIN_LABEL(System__regularFileExists)
 }
 RML_END_LABEL
 
+RML_BEGIN_LABEL(System__removeFile)
+{
+	char* str = RML_STRINGDATA(rmlA0);
+	int ret_val;
+	ret_val = remove(str);
+
+	rmlA0 = (void*) mk_icon(ret_val);
+
+	RML_TAILCALLK(rmlSC);
+}
+RML_END_LABEL
+
+
 #ifdef WIN32
 RML_BEGIN_LABEL(System__platform)
 {