1 files changed, 54 insertions, 0 deletions
diff --git a/externals/iem/eval_sizeof/src/eval_sizeof.c b/externals/iem/eval_sizeof/src/eval_sizeof.c
new file mode 100644
index 00000000..a0cd36a5
--- /dev/null
+++ b/externals/iem/eval_sizeof/src/eval_sizeof.c
@@ -0,0 +1,54 @@
+/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
+* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
+
+eval_sizeof written by Thomas Musil (c) IEM KUG Graz Austria 2000 - 2011
+
+evaluetes the size of differnt data types */
+
+#include "m_pd.h"
+
+/* -------------------------- eval_sizeof ------------------------------ */
+static t_class *eval_sizeof_class;
+
+typedef struct _eval_sizeof
+{
+  t_object x_ob;
+} t_eval_sizeof;
+
+static void *eval_sizeof_new(void)
+{
+  t_eval_sizeof *x = (t_eval_sizeof *)pd_new(eval_sizeof_class);
+  char sc=0;
+  unsigned char uc=0;
+  int si=0;
+  unsigned int ui=0;
+  long sl=0;
+  unsigned long ul=0;
+  long long sll=0;
+  unsigned long long ull=0;
+  float f=0.0;
+  double d=0.0;
+  long double ld=0.0;
+  void *ptr=(void *)0;
+  
+  post("signed char = %d bytes\n", sizeof(sc));
+  post("unsigned char = %d bytes\n", sizeof(uc));
+  post("signed int = %d bytes\n", sizeof(si));
+  post("unsigned int = %d bytes\n", sizeof(ui));
+  post("signed long = %d bytes\n", sizeof(sl));
+  post("unsigned long = %d bytes\n", sizeof(ul));
+  post("signed long long = %d bytes\n", sizeof(sll));
+  post("unsigned long long = %d bytes\n", sizeof(ull));
+  post("float = %d bytes\n", sizeof(f));
+  post("double = %d bytes\n", sizeof(d));
+  post("long double = %d bytes\n", sizeof(ld));
+  post("void* = %d bytes\n", sizeof(ptr));
+  return (x);
+}
+
+void eval_sizeof_setup(void)
+{
+  eval_sizeof_class = class_new(gensym("eval_sizeof"), (t_newmethod)eval_sizeof_new,
+    0, sizeof(t_eval_sizeof), 0, 0);
+}
+