- Added System.appendFile to bootstrapped runtime.

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

Author: perost

Compiler/runtime/System_omc.cpp

@@ -44,6 +44,12 @@ extern void System_writeFile(const char* filename, const char* data)
     MMC_THROW();
 }
 
+extern void System_appendFile(const char *filename, const char *data)
+{
+  if (SystemImpl__appendFile(filename, data))
+    MMC_THROW();
+}
+
 extern int System_removeFile(const char* filename)
 {
   return SystemImpl__removeFile(filename);

Compiler/runtime/System_rml.c

@@ -480,25 +480,10 @@ RML_END_LABEL
 
 RML_BEGIN_LABEL(System__appendFile)
 {
-  const char* data = RML_STRINGDATA(rmlA1);
   const char* filename = RML_STRINGDATA(rmlA0);
-  FILE * file=NULL;
-  file = fopen(filename, "a");
-  if (file == NULL) {
-    const char *c_tokens[1]={filename};
-    c_add_message(21, /* WRITING_FILE_ERROR */
-      ErrorType_scripting, ErrorLevel_error,
-      "Error appending to file %s.",
-      c_tokens,
-      1);
+  const char* data = RML_STRINGDATA(rmlA1);
+  if (SystemImpl__appendFile(filename, data))
     RML_TAILCALLK(rmlFC);
-  }
-  /* adrpo changed 2006-10-06
-   * fprintf(file,"%s",data);
-   */
-  fwrite(RML_STRINGDATA(rmlA1), RML_HDRSTRLEN(RML_GETHDR(rmlA1)), 1, file);
-  fflush(file);
-  fclose(file);
   RML_TAILCALLK(rmlSC);
 }
 RML_END_LABEL

Compiler/runtime/systemimpl.c

@@ -396,6 +396,28 @@ int SystemImpl__writeFile(const char* filename, const char* data)
   return 0;
 }
 
+/* returns 0 on success */
+int SystemImpl__appendFile(const char* filename, const char *data)
+{
+  FILE *file = NULL;
+  file = fopen(filename, "a");
+
+  if(file == NULL) {
+    const char *c_tokens[1] = {filename};
+    c_add_message(21, /* WRITING_FILE_ERROR */
+      ErrorType_scripting, ErrorLevel_error,
+      "Error appending to file %s.",
+      c_tokens,
+      1);
+    return 1;
+  }
+
+  fwrite(data, strlen(data), 1, file);
+  fflush(file);
+  fclose(file);
+  return 0;
+}
+
 static int str_contain_char( const char* chars, const char chr)
 {
   int length_of_chars = strlen(chars);