Implemented built-in functions div, mod and rem. rem might not be cor…

…rect yet

though.


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

c_runtime/modelica.h

@@ -91,8 +91,19 @@ typedef modelica_real max_rettype;
 typedef modelica_real min_rettype;
 typedef modelica_real arctan_rettype;
 typedef modelica_real atan2_rettype;
+typedef modelica_real div_rettype;
+typedef modelica_real mod_rettype;
+typedef modelica_real rem_rettype;
 #define arctan atan
 
+/* div is already defined in stdlib, so it's redefined here to modelica_div so
+ * that it can be implemented without changing the name. Hopefully no one uses
+ * the stdlib div and includes this header... */
+#define div modelica_div
+
+/* fmod in math.h does not work in the same way as mod defined by modelica, so
+ * we need to define our own mod. */
+#define mod modelica_mod
 
 /* Special Modelica builtin functions*/
 typedef modelica_real    pre_rettype;

c_runtime/utility.c

@@ -48,4 +48,18 @@ int in_range_real(modelica_real i,
   return 0;
 }
 
+modelica_real modelica_div(modelica_real x, modelica_real y)
+{
+	return (modelica_real)((modelica_integer)(x/y));
+}
+
+modelica_real modelica_mod(modelica_real x, modelica_real y)
+{
+	return (x - floor(x/y) * y);
+}
+
+modelica_real rem(modelica_real x, modelica_real y)
+{
+	return fmod(x, y);
+}
 

c_runtime/utility.h

@@ -42,4 +42,8 @@ int in_range_real(modelica_real i,
 		  modelica_real start,
 		  modelica_real stop);
 
+modelica_real modelica_div(modelica_real x, modelica_real y);
+modelica_real modelica_mod(modelica_real x, modelica_real y);
+modelica_real rem(modelica_real x, modelica_real y);
+
 #endif