From 2b60d55c919e7588f5aff15936e83c300b3660bb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Tue, 22 Mar 2005 20:58:25 +0000
Subject: zexy-2.0: - use of abstractions for objects that allow it - some
 objects are build both as externals and abstractions (as slower fallbacks) -
 code-layout is now 1:1 c-file<->object (this should allow for building of
 zexy as  a collection of externals instead as a big library) - matrix-objects
 have moved to iemmatrix !!

svn path=/trunk/externals/zexy/; revision=2641
---
 src/operating_system.c | 66 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)
 create mode 100644 src/operating_system.c

(limited to 'src/operating_system.c')

diff --git a/src/operating_system.c b/src/operating_system.c
new file mode 100644
index 0000000..bea6156
--- /dev/null
+++ b/src/operating_system.c
@@ -0,0 +1,66 @@
+/******************************************************
+ *
+ * zexy - implementation file
+ *
+ * copyleft (c) IOhannes m zmölnig
+ *
+ *   1999:forum::für::umläute:2004
+ *
+ *   institute of electronic music and acoustics (iem)
+ *
+ ******************************************************
+ *
+ * license: GNU General Public License v.2
+ *
+ ******************************************************/
+
+/*
+  operating_system :  operating_system-code for message-objects
+*/
+
+#include "zexy.h"
+
+/* ------------------------- operating_system ------------------------------- */
+
+/*
+MESSAGE OPERATING_SYSTEM: simple and easy
+*/
+
+static t_class *operating_system_class;
+
+typedef struct _operating_system
+{
+  t_object x_obj;
+
+} t_operating_system;
+
+
+static void operating_system_bang(t_operating_system *x)
+{
+  t_symbol *s=gensym("unknown");
+#ifdef __linux__
+  s=gensym("linux");
+#elif defined __APPLE__
+  s=gensym("macos");
+#elif defined NT
+  s=gensym("windows");
+#endif
+  outlet_symbol(x->x_obj.ob_outlet, s);
+}
+
+static void *operating_system_new(t_floatarg f)
+{
+  t_operating_system *x = (t_operating_system *)pd_new(operating_system_class);
+  outlet_new(&x->x_obj, 0);
+  return (x);
+}
+
+void operating_system_setup(void)
+{
+  operating_system_class = class_new(gensym("operating_system"), (t_newmethod)operating_system_new, 
+			      0, sizeof(t_operating_system), 0, A_DEFFLOAT,  0);
+  
+  class_addbang  (operating_system_class, operating_system_bang);
+  class_sethelpsymbol(operating_system_class, gensym("zexy/operating_system"));
+  zexy_register("operating_system");
+}
-- 
cgit v1.2.1