refactored x_misc.c into cputime.c loadband.c namecanvas.c realtime.c random.c

svn path=/trunk/; revision=14600

1 files changed, 50 insertions, 0 deletions

diff --git a/externals/vanilla/loadbang.c b/externals/vanilla/loadbang.c
new file mode 100644
index 00000000..d6392beb
--- /dev/null
+++ b/externals/vanilla/loadbang.c
@@ -0,0 +1,50 @@
+/* Copyright (c) 1997-1999 Miller Puckette.
+* For information on usage and redistribution, and for a DISCLAIMER OF ALL
+* WARRANTIES, see the file, "LICENSE.txt," in this distribution.  */
+
+/* misc. */
+
+#include "m_pd.h"
+#include "s_stuff.h"
+#include <math.h>
+#include <stdio.h>
+#include <string.h>
+#ifdef UNISTD
+#include <sys/types.h>
+#include <sys/time.h>
+#include <sys/times.h>
+#include <sys/param.h>
+#include <unistd.h>
+#endif
+#ifdef MSW
+#include <wtypes.h>
+#include <time.h>
+#endif
+
+static t_class *loadbang_class;
+
+typedef struct _loadbang
+{
+    t_object x_obj;
+} t_loadbang;
+
+static void *loadbang_new(void)
+{
+    t_loadbang *x = (t_loadbang *)pd_new(loadbang_class);
+    outlet_new(&x->x_obj, &s_bang);
+    return (x);
+}
+
+static void loadbang_loadbang(t_loadbang *x)
+{
+    if (!sys_noloadbang)
+        outlet_bang(x->x_obj.ob_outlet);
+}
+
+static void loadbang_setup(void)
+{
+    loadbang_class = class_new(gensym("loadbang"), (t_newmethod)loadbang_new, 0,
+        sizeof(t_loadbang), CLASS_NOINLET, 0);
+    class_addmethod(loadbang_class, (t_method)loadbang_loadbang,
+        gensym("loadbang"), 0);
+}