diff options
author | N.N. <matju@users.sourceforge.net> | 2009-11-06 18:33:57 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2009-11-06 18:33:57 +0000 |
commit | 5e6bb4f4786dd39158ffe02913590cc3dea21ebd (patch) | |
tree | 17f4c83372dc450503e3106db11c473c513ab7c0 /externals/gridflow/bin/pd-tools.tcl | |
parent | b4432042844d0a29f7b654245f9c17da950cd33e (diff) |
remove gridflow 0.9.5
svn path=/trunk/; revision=12727
Diffstat (limited to 'externals/gridflow/bin/pd-tools.tcl')
-rw-r--r-- | externals/gridflow/bin/pd-tools.tcl | 37 |
1 files changed, 0 insertions, 37 deletions
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 -} - |