From fb18dbb202dd8876debad2c9351300723625b2bc Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Tue, 15 Sep 2009 13:17:26 +0000
Subject: add some utility functions

svn path=/trunk/externals/tclpd/; revision=12346
---
 pdlib.tcl | 40 ++++++++++++++++++++++++++++++++++++++--
 1 file changed, 38 insertions(+), 2 deletions(-)

diff --git a/pdlib.tcl b/pdlib.tcl
index e2cd347..164aa09 100644
--- a/pdlib.tcl
+++ b/pdlib.tcl
@@ -116,12 +116,13 @@ namespace eval ::pd {
         # class level dispatcher (sort of class constructor)
         proc ::$classname {self args} "
             if \$::verbose {::pd::post \[info level 0\]}
-            ::${classname}_constructor \$self {*}\$args
-            # object dispatcher
+            # define object dispatcher:
             proc ::\$self {inlet selector args} \"
              if \\\$::verbose {::pd::post \\\[info level 0\\\]}
              ::pd::call_classmethod $classname \$self \\\$inlet \\\$selector {*}\\\$args
             \"
+            # call constructor:
+            ::${classname}_constructor \$self {*}\$args
             return \$self
         "
 
@@ -201,6 +202,41 @@ namespace eval ::pd {
         }
     }
 
+    proc strip_selectors {pdlist} {
+        set r {}
+        foreach atom $pdlist {
+            if {[llength $atom] != 2} {
+                return -code error "Malformed pd list!"
+            }
+            lappend r [lindex $atom 1]
+        }
+        return $r
+    }
+
+    proc add_selectors {tcllist} {
+        set r {}
+        foreach i $tcllist {
+            lappend r [list [lindex {float symbol} [catch {expr $i}]] $i]
+        }
+        return $r
+    }
+
+    proc strip_empty {tcllist} {
+        set r {}
+        foreach i $tcllist {
+            if {$i == "empty"} {lappend r {}} {lappend r $i}
+        }
+        return $r
+    }
+
+    proc add_empty {tcllist} {
+        set r {}
+        foreach i $tcllist {
+            if {$i == {}} {lappend r "empty"} {lappend r $i}
+        }
+        return $r
+    }
+
     # mechanism for uploading procs to gui interp, without the hassle of escaping [encoder]
     proc guiproc {name argz body} {
         # upload the decoder
-- 
cgit v1.2.1