From fac4cb9db5f0587d61e4eec7f789c72230f31c9d Mon Sep 17 00:00:00 2001 From: mescalinum Date: Thu, 13 Oct 2011 22:25:41 +0000 Subject: add binbuf functions + test (not working yet) svn path=/trunk/externals/loaders/tclpd/; revision=15589 --- tcl_class.c | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'tcl_class.c') 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; } -- cgit v1.2.1