diff options
author | N.N. <matju@users.sourceforge.net> | 2009-10-18 19:53:53 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2009-10-18 19:53:53 +0000 |
commit | a1fb215b39535805aa19608185d5e52c0f524b42 (patch) | |
tree | 9d8056ca9837bd03676405dc5202bdc2c041d430 /externals/gridflow/bin/pd-tools.tcl | |
parent | d6b18994d50479d2f76041387d25db235bbda4cd (diff) |
bye gridflow 0.9.4
svn path=/trunk/; revision=12610
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 -} - |