Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1073
Modified Files: Tag: desiredata desire.tk Log Message: missing [expr]
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.203 retrieving revision 1.1.2.600.2.204 diff -C2 -d -r1.1.2.600.2.203 -r1.1.2.600.2.204 *** desire.tk 6 Jul 2007 10:43:31 -0000 1.1.2.600.2.203 --- desire.tk 6 Jul 2007 23:50:48 -0000 1.1.2.600.2.204 *************** *** 2828,2833 **** set type_idx [string first $item $io] set type [string index $io $type_idx] ! set port [string range $io $type_idx+1 end] ! set object [string range $io 0 $type_idx-1] if {$type_idx >= 0} {break} } --- 2828,2833 ---- set type_idx [string first $item $io] set type [string index $io $type_idx] ! set port [string range $io [expr $type_idx+1] end] ! set object [string range $io 0 [expr $type_idx-1]] if {$type_idx >= 0} {break} }