1 files changed, 76 insertions, 0 deletions
diff --git a/system.c b/system.c
new file mode 100644
index 0000000..b52e054
--- /dev/null
+++ b/system.c
@@ -0,0 +1,76 @@
+/*************************************************************************** 
+ * File: system.c 
+ * Auth: Iain Mott [iain.mott@bigpond.com] 
+ * Maintainer: Iain Mott [iain.mott@bigpond.com] 
+ * Version: Part of motex_1.1.2 
+ * Date: January 2001
+ * 
+ * Description: Pd external. Send a system message to the console 
+ * See supporting Pd patch: system.pd
+ * 
+ * Copyright (C) 2001 by Iain Mott [iain.mott@bigpond.com] 
+ * 
+ * This program is free software; you can redistribute it and/or modify 
+ * it under the terms of the GNU General Public License as published by 
+ * the Free Software Foundation; either version 2, or (at your option) 
+ * any later version. 
+ * 
+ * This program is distributed in the hope that it will be useful, 
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of 
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 
+ * GNU General Public License, which should be included with this 
+ * program, for more details. 
+ * 
+ ****************************************************************************/ 
+
+/* code for system pd class */
+
+#include "m_pd.h"
+#include <stdlib.h>
+#include <string.h>
+#include <stdio.h>
+ 
+typedef struct system
+{
+  t_object t_ob;
+} t_system;
+
+
+void system_anything(t_system *x, t_symbol *s, int ac, t_atom *av, t_floatarg f)
+{
+  char buf[MAXPDSTRING], message[MAXPDSTRING];
+  int i;
+  strcpy(message, s->s_name);
+  strcat(message, " ");
+  for (i = 0; i < ac; i++)
+    {
+      atom_string(av+i, buf, MAXPDSTRING);
+      strcat(message, buf);
+      if (i < (ac - 1))
+	strcat(message, " ");
+    }
+  system(message);
+}
+
+
+void system_free(void)
+{
+  /*      post("system_free"); */
+}
+
+t_class *system_class;
+
+void *system_new(void)
+{
+  t_system *x = (t_system *)pd_new(system_class);
+  return (void *)x;
+}
+
+void system_setup(void)
+{
+  post("system_setup");
+  system_class = class_new(gensym("system"), (t_newmethod)system_new,
+			   (t_method)system_free, sizeof(t_system), 0, 0);
+  class_addanything(system_class, system_anything);
+}
+