- Added file missing in last commit

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

c_runtime/meta_modelica_builtin_boxptr.h

@@ -0,0 +1,52 @@
+/* Creates an implementation only if #define GEN_META_MODELICA_BUILTIN_BOXPTR is given.
+ * Else, we only create a header.
+ */
+
+#if !defined(META_MODELICA_BUILTIN_BOXPTR__H) || defined(GEN_META_MODELICA_BUILTIN_BOXPTR)
+#define META_MODELICA_BUILTIN_BOXPTR__H
+
+#ifdef GEN_META_MODELICA_BUILTIN_BOXPTR
+#define boxptr_unOp(name,box,unbox,op) void* name(void* a) {return box(op(unbox(a)));}
+#define boxptr_binOp(name,box,unbox,op) void* name(void* a, void* b) {return box(unbox(a) op unbox(b));}
+#else
+#define boxptr_unOp(name,box,unbox,op) void* name(void*);
+#define boxptr_binOp(name,box,unbox,op) void* name(void*,void*);
+#endif
+
+/* Missing stuff: realMod,realPow,realMax,realMin,intMod,intMax,intMin */
+
+boxptr_unOp(boxptr_boolNot,mmc_mk_bcon,mmc_unbox_boolean,!)
+boxptr_binOp(boxptr_boolAnd,mmc_mk_bcon,mmc_unbox_boolean,&&)
+boxptr_binOp(boxptr_boolOr,mmc_mk_bcon,mmc_unbox_boolean,||)
+boxptr_binOp(boxptr_boolEq,mmc_mk_bcon,mmc_unbox_boolean,==)
+boxptr_binOp(boxptr_intAdd,mmc_mk_icon,mmc_unbox_integer,+)
+boxptr_binOp(boxptr_intSub,mmc_mk_icon,mmc_unbox_integer,-)
+boxptr_binOp(boxptr_intMul,mmc_mk_icon,mmc_unbox_integer,*)
+boxptr_binOp(boxptr_intDiv,mmc_mk_icon,mmc_unbox_integer,/)
+boxptr_unOp(boxptr_intAbs,mmc_mk_icon,mmc_unbox_integer,labs)
+boxptr_unOp(boxptr_intNeg,mmc_mk_icon,mmc_unbox_integer,-)
+boxptr_binOp(boxptr_intLt,mmc_mk_icon,mmc_unbox_integer,<)
+boxptr_binOp(boxptr_intLe,mmc_mk_icon,mmc_unbox_integer,<=)
+boxptr_binOp(boxptr_intEq,mmc_mk_icon,mmc_unbox_integer,==)
+boxptr_binOp(boxptr_intNe,mmc_mk_icon,mmc_unbox_integer,!=)
+boxptr_binOp(boxptr_intGe,mmc_mk_icon,mmc_unbox_integer,>)
+boxptr_binOp(boxptr_intGt,mmc_mk_icon,mmc_unbox_integer,>=)
+boxptr_unOp(boxptr_intReal,mmc_mk_rcon,mmc_unbox_integer,(modelica_real))
+boxptr_binOp(boxptr_realAdd,mmc_mk_rcon,mmc_unbox_real,+)
+boxptr_binOp(boxptr_realSub,mmc_mk_rcon,mmc_unbox_real,-)
+boxptr_binOp(boxptr_realMul,mmc_mk_rcon,mmc_unbox_real,*)
+boxptr_binOp(boxptr_realDiv,mmc_mk_rcon,mmc_unbox_real,/)
+boxptr_unOp(boxptr_realAbs,mmc_mk_rcon,mmc_unbox_real,fabs)
+boxptr_unOp(boxptr_realNeg,mmc_mk_rcon,mmc_unbox_real,-)
+boxptr_binOp(boxptr_realLt,mmc_mk_rcon,mmc_unbox_real,<)
+boxptr_binOp(boxptr_realLe,mmc_mk_rcon,mmc_unbox_real,<=)
+boxptr_binOp(boxptr_realEq,mmc_mk_rcon,mmc_unbox_real,==)
+boxptr_binOp(boxptr_realNe,mmc_mk_rcon,mmc_unbox_real,!=)
+boxptr_binOp(boxptr_realGe,mmc_mk_rcon,mmc_unbox_real,>)
+boxptr_binOp(boxptr_realGt,mmc_mk_rcon,mmc_unbox_real,>=)
+boxptr_unOp(boxptr_realInt,mmc_mk_icon,mmc_unbox_real,(modelica_integer))
+
+#undef boxptr_unOp
+#undef boxptr_binOp
+
+#endif