Added integer read write routines

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@716 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Feb 5, 2002 · b26f324 · b26f324
1 parent 8933b4d
commit b26f324
Show file tree

Hide file tree

Showing 2 changed files with 40 additions and 1 deletion.
diff --git a/c_runtime/read_write.c b/c_runtime/read_write.c
@@ -8,6 +8,11 @@ void read_modelica_real(FILE* file, modelica_real* data)
   *data = f;
 }
 
+void read_modelica_integer(FILE* file, modelica_integer* data)
+{
+  fscanf(file,"%d",data);
+}
+
 void read_real_array(FILE* file, real_array_t* arr)
 {
   int nr_elements;
@@ -19,13 +24,30 @@ void read_real_array(FILE* file, real_array_t* arr)
       fscanf(file,"%e",&f);
       arr->data[i] = f;
     }
+  fprintf(stderr,"Real array read\n");
 }
-
+/*
+void read_integer_array(FILE* file, integer_array_t* arr)
+{
+  int nr_elements;
+  int i;
+  nr_elements = integer_array_nr_of_elements(arr);
+  for (i = 0; i < nr_elements; ++i)
+    {
+      fscanf(file,"%d",arr->data + i);
+    }
+}
+*/
 void write_modelica_real(FILE* file, modelica_real* data)
 {
   fprintf(file,"%e\n",*data);
 }
 
+void write_modelica_integer(FILE* file, modelica_integer* data)
+{
+  fprintf(file,"%d\n",*data);
+}
+
 void write_real_array(FILE* file, real_array_t* arr)
 {
   int nr_elements;
@@ -36,3 +58,15 @@ void write_real_array(FILE* file, real_array_t* arr)
       fprintf(file,"%e\n",arr->data[i]);
     }
 }
+/*
+void write_integer_array(FILE* file, integer_array_t* arr)
+{
+  int nr_elements;
+  int i;
+  nr_elements = integer_array_nr_of_elements(arr);
+  for (i = 0; i < nr_elements; ++i)
+    {
+      fprintf(file,"%d\n",arr->data[i]);
+    }
+}
+*/
diff --git a/c_runtime/read_write.h b/c_runtime/read_write.h
@@ -18,4 +18,9 @@ void read_real_array(FILE*,real_array_t*);
 void write_modelica_real(FILE*,modelica_real*);
 void write_real_array(FILE*,real_array_t*);
 
+void read_modelica_integer(FILE*,modelica_integer*);
+void read_integer_array(FILE*,integer_array_t*);
+void write_modelica_integer(FILE*,modelica_integer*);
+void write_integer_array(FILE*,integer_array_t*);
+
 #endif