From 8303218509a59630ec4c3a31aed0b5264e977500 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Thu, 13 Oct 2011 23:35:44 +0000
Subject: some binbuf support. dollar-args still not working properly

svn path=/trunk/externals/loaders/tclpd/; revision=15592
---
 pdlib.tcl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'pdlib.tcl')

diff --git a/pdlib.tcl b/pdlib.tcl
index f490289..4c45cb5 100644
--- a/pdlib.tcl
+++ b/pdlib.tcl
@@ -256,5 +256,23 @@ namespace eval ::pd {
         # upload proc
         sys_gui "guiproc $name $argz $body\n"
     }
+
+    proc get_binbuf {self} {
+        set binbuf [tclpd_get_object_binbuf $self]
+        set len [binbuf_getnatom $binbuf]
+        set result {}
+        for {set i 0} {$i < $len} {incr i} {
+            set atom [tclpd_binbuf_get_atom $binbuf $i]
+            set selector [atom_type_string $atom]
+            set value {?}
+            if {$selector == "float"} {
+                set value [atom_float_value $atom]
+            } elseif {$selector == "symbol"} {
+                set value [atom_symbol_value $atom]
+            }
+            lappend result [list $selector $value]
+        }
+        return $result
+    }
 }
 
-- 
cgit v1.2.1