add binbuf functions + test (not working yet)

svn path=/trunk/externals/loaders/tclpd/; revision=15589

1 files changed, 11 insertions, 0 deletions

diff --git a/tcl_class.c b/tcl_class.c
index c94952a..7de65b6 100644
--- a/tcl_class.c
+++ b/tcl_class.c
@@ -355,11 +355,22 @@ t_pd* tclpd_get_object_pd(const char* objectSequentialId) {
     return &o->ob_pd;
 }
 
+t_binbuf* tclpd_get_object_binbuf(const char* objectSequentialId) {
+    t_object* o = tclpd_get_object(objectSequentialId);
+    return &o->ob_binbuf;
+}
+
 t_glist* tclpd_get_glist(const char* objectSequentialId) {
     t_tcl* x = tclpd_get_instance(objectSequentialId);
     return x->x_glist;
 }
 
+t_atom* tclpd_binbuf_get_atom(t_binbuf* b, int n) {
+    if(binbuf_getnatom(b) <= n || n < 0)
+        return NULL;
+    return binbuf_getvec(b) + n;
+}
+
 t_symbol* null_symbol() {
     return (t_symbol*)0;
 }