[PD-cvs] pd/src poe.tcl,1.1.2.2.2.13,1.1.2.2.2.14
Mathieu Bouchard
matju at users.sourceforge.net
Tue Jul 10 04:23:22 CEST 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29508
Modified Files:
Tag: desiredata
poe.tcl
Log Message:
group by class
Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.13
retrieving revision 1.1.2.2.2.14
diff -C2 -d -r1.1.2.2.2.13 -r1.1.2.2.2.14
*** poe.tcl 30 Jun 2007 19:31:00 -0000 1.1.2.2.2.13
--- poe.tcl 10 Jul 2007 02:23:20 -0000 1.1.2.2.2.14
***************
*** 243,249 ****
foreach o [array names _ *:_class] {
set oo [lindex [split $o :] 0]
! puts " $oo $_($o)"
incr n
}
puts "} ($n objects)"
}
--- 243,258 ----
foreach o [array names _ *:_class] {
set oo [lindex [split $o :] 0]
! set class $_($o)
! incr by_class($class)
! puts " $oo is a $class"
incr n
}
puts "} ($n objects)"
+ set n 0
+ puts "poe.tcl class_stats: {"
+ foreach o [array names by_class] {
+ puts " class $o has $by_class($o) objects"
+ incr n
+ }
+ puts "} ($n classes)"
}
More information about the Pd-cvs
mailing list