diff options
author | N.N. <matju@users.sourceforge.net> | 2010-01-05 17:50:51 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2010-01-05 17:50:51 +0000 |
commit | 39ba8a640bd178fd732d945760df7eef3e2c1e1a (patch) | |
tree | b59fa5bc00fcbb6389ea3ebf2c7ee8b9ced1daa8 /externals/gridflow/bin/pd-tools.tcl | |
parent | 8cabe6dabadf2422240ff4e9d5f5f8c95622b682 (diff) |
no gridflow snapshots in pure-data svn
svn path=/trunk/; revision=12888
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 -} - |