diff projects/heavy/circularBuffer/SignalTabwrite.c @ 163:20b52283c7b4 heavy-updated

- added circular buffer pd/heavy example (works but process needs to be killed manually if launched via ssh?)

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/projects/heavy/circularBuffer/SignalTabwrite.c	Thu Nov 12 15:55:30 2015 +0000
@@ -0,0 +1,54 @@
+/**
+ * Copyright (c) 2014, 2015, Enzien Audio Ltd.
+ *
+ * Permission to use, copy, modify, and/or distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH
+ * REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
+ * AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT,
+ * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
+ * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
+ * OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
+ * PERFORMANCE OF THIS SOFTWARE.
+ */
+
+#include "SignalTabwrite.h"
+
+hv_size_t sTabwrite_init(SignalTabwrite *o, HvTable *table) {
+  o->table = table;
+  o->head = 0;
+  return 0;
+}
+
+void sTabwrite_onMessage(HvBase *_c, SignalTabwrite *o, int letIn, const HvMessage *const m,
+    void (*sendMessage)(HvBase *, int, const HvMessage *const)) {
+  switch (letIn) {
+    // inlet 0 is the signal inlet
+    case 1: {
+      switch (msg_getType(m,0)) {
+        case BANG: o->head = 0; break;
+        case FLOAT: {
+          o->head = (msg_getFloat(m,0) >= 0.0f) ? (hv_uint32_t) msg_getFloat(m,0) : HV_TABWRITE_STOPPED;
+          break;
+        }
+        case SYMBOL: {
+          if (msg_compareSymbol(m, 0, "stop")) {
+            o->head = HV_TABWRITE_STOPPED;
+          }
+          break;
+        }
+        default: break;
+      }
+      break;
+    }
+    case 2: {
+      if (msg_isHashLike(m,0)) {
+        o->table = ctx_getTableForHash(_c, msg_getHash(m,0));
+      }
+      break;
+    }
+    default: break;
+  }
+}