copyFile call for scripting api

Belonging to [master]: - #2584
OpenModelica · Aug 3, 2018 · 94cae26 · 94cae26
1 parent bab4ecd
commit 94cae26
Show file tree

Hide file tree

Showing 5 changed files with 52 additions and 0 deletions.
diff --git a/Compiler/FrontEnd/ModelicaBuiltin.mo b/Compiler/FrontEnd/ModelicaBuiltin.mo
@@ -1993,6 +1993,14 @@ external "builtin";
 annotation(preferredView="text");
 end mkdir;
 
+function copy "copies the source file to the destined directory. Returns true if the file has been copied."
+  input String source;
+  input String destination;
+  output Boolean success;
+external "builtin";
+annotation(preferredView="text");
+end copy;
+
 function remove "removes a file or directory of given path (which may be either relative or absolute)."
   input String path;
   output Boolean success "Returns true on success.";

diff --git a/Compiler/Script/CevalScript.mo b/Compiler/Script/CevalScript.mo
@@ -1062,6 +1062,12 @@ algorithm
       then
         (cache,Values.BOOL(b));
 
+    case (cache,_,"copy",{Values.STRING(str1),Values.STRING(str2)},_)
+      equation
+        b = System.copyFile(str1,str2);
+      then
+        (cache,Values.BOOL(b));
+
     case (cache,_,"remove",{Values.STRING(str)},_)
       equation
         b = System.removeDirectory(str);

diff --git a/Compiler/Util/System.mo b/Compiler/Util/System.mo
@@ -482,6 +482,13 @@ public function directoryExists
   external "C" outBool=SystemImpl__directoryExists(inString) annotation(Library = "omcruntime");
 end directoryExists;
 
+public function copyFile
+  input String source;
+  input String destination;
+  output Boolean outBool;
+  external "C" outBool=SystemImpl__copyFile(source, destination) annotation(Library = "omcruntime");
+end copyFile;
+
 
 public function removeDirectory
   input String inString;

diff --git a/Compiler/runtime/systemimpl.c b/Compiler/runtime/systemimpl.c
@@ -893,6 +893,36 @@ extern int SystemImpl__createDirectory(const char *str)
   }
 }
 
+extern int SystemImpl__copyFile(const char *str_1, const char *str_2)
+{
+  int rv = 1;
+  char ch;
+  FILE *source, *target;
+
+  if (!SystemImpl__directoryExists(str_2))
+  {
+      rv = SystemImpl__createDirectory(str_2);
+  }
+
+  if (str_1 == "")
+    rv = 0;
+
+  char targetFile[100];
+  strcpy(targetFile,str_2);
+  strcat(targetFile,"/");
+  strcat(targetFile,str_1);
+
+  source = fopen(str_1, "r");
+  target = fopen(targetFile, "w");
+
+  while( ( ch = fgetc(source) ) != EOF )
+     rv=rv && fputc(ch, target);
+
+  fclose(source);
+  fclose(target);
+  return rv;
+}
+
 static char * SystemImpl__NextDir(const char * path)
 {
   char * res = NULL;

diff --git a/Compiler/runtime/systemimpl.h b/Compiler/runtime/systemimpl.h
@@ -99,6 +99,7 @@ extern void SystemImpl__plotCallBack(threadData_t *threadData, int externalWindo
                                      const char* autoScale, const char* variables);
 extern double SystemImpl__time(void);
 extern int SystemImpl__directoryExists(const char* str);
+extern int SystemImpl__copyFile(const char* str_1, const char* str_2);
 extern int SystemImpl__createDirectory(const char *str);
 extern int SystemImpl__removeDirectory(const char *str);
 extern const char* SystemImpl__readFileNoNumeric(const char* filename);