From a1fb215b39535805aa19608185d5e52c0f524b42 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Sun, 18 Oct 2009 19:53:53 +0000
Subject: bye gridflow 0.9.4

svn path=/trunk/; revision=12610
---
 externals/gridflow/bin/pd-tools.tcl | 37 -------------------------------------
 1 file changed, 37 deletions(-)
 delete mode 100644 externals/gridflow/bin/pd-tools.tcl

(limited to 'externals/gridflow/bin/pd-tools.tcl')

diff --git a/externals/gridflow/bin/pd-tools.tcl b/externals/gridflow/bin/pd-tools.tcl
deleted file mode 100644
index 2951b260..00000000
--- a/externals/gridflow/bin/pd-tools.tcl
+++ /dev/null
@@ -1,37 +0,0 @@
-# (this proc is taken from desiredata)
-# split at message boundaries.
-# \n is wiped, then that character is reused temporarily to mean a quoted semicolon.
-proc pd_mess_split {e} {
-	set r {}
-	regsub -all "\n" $e " " y
-	regsub -all {\\;} $y "\n" z
-	foreach mess [split $z ";"] {
-		regsub -all "\n" $mess "\\;" mess
-		set mess [string trimleft $mess]
-		if {$mess != ""} {lappend r $mess}
-	}
-	return $r
-}
-
-proc pd_read_file {filename} {
-  set f [open $filename]
-  set r [pd_mess_split [read $f]]
-  close $f
-  return $r
-}
-
-proc pd_pickle {l} {
-	set i 0
-	set t ""
-	set n [llength $l]
-	foreach e $l {
-		incr n -1
-		#regsub -all "," $e "\\," e
-		append t $e
-		incr i [string length $e]
-		if {$i>65} {set i 0; append t "\n"} elseif {$n>0} {incr i; append t " "}
-	}
-	append t ";"
-	return $t
-}
-
-- 
cgit v1.2.1