From 519a19844437310ecce7a9295df7f1bcfe534282 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Tue, 15 Nov 2011 14:17:58 +0000
Subject: fixed binbuf support

svn path=/trunk/externals/loaders/tclpd/; revision=15751
---
 tcl_class.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'tcl_class.c')

diff --git a/tcl_class.c b/tcl_class.c
index fc4136d..46aec27 100644
--- a/tcl_class.c
+++ b/tcl_class.c
@@ -324,6 +324,12 @@ t_atom * tclpd_binbuf_get_atom(t_binbuf *b, int n) {
 }
 */
 
+/* helper function for accessing binbuf's atoms
+   cause, accessing C arrays and doing typemaps is not that easy */
+t_atom * binbuf_getatom(t_binbuf *x, int index) {
+    return binbuf_getvec(x) + index;
+}
+
 t_object * CAST_t_object(t_object *o) {
     return o;
 }
-- 
cgit v1.2.1