diff options
author | N.N. <matju@users.sourceforge.net> | 2009-10-18 20:01:19 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2009-10-18 20:01:19 +0000 |
commit | ccddec68116fc6403858ebfa13d4a7b1aa3d5278 (patch) | |
tree | 6b90e41b15bbf2440afa76d53cc436debf5b5c5b /externals/gridflow/bin/pd-tools.tcl | |
parent | a1fb215b39535805aa19608185d5e52c0f524b42 (diff) |
hi gridflow 0.9.5
svn path=/trunk/; revision=12611
Diffstat (limited to 'externals/gridflow/bin/pd-tools.tcl')
-rw-r--r-- | externals/gridflow/bin/pd-tools.tcl | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/externals/gridflow/bin/pd-tools.tcl b/externals/gridflow/bin/pd-tools.tcl new file mode 100644 index 00000000..2951b260 --- /dev/null +++ b/externals/gridflow/bin/pd-tools.tcl @@ -0,0 +1,37 @@ +# (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 +} + |