[PD-cvs] pd/src desire.tk,1.1.2.402,1.1.2.403
chunlee
chunlee at users.sourceforge.net
Thu Aug 24 16:39:23 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22685
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
new ddrc write done
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.402
retrieving revision 1.1.2.403
diff -C2 -d -r1.1.2.402 -r1.1.2.403
*** desire.tk 24 Aug 2006 03:39:47 -0000 1.1.2.402
--- desire.tk 24 Aug 2006 14:39:20 -0000 1.1.2.403
***************
*** 5760,5798 ****
#set fd [open $cmdline(ddrcfilename) w]
set fd [open ~/.ddrc2 w]
! set categories [list color key crosshair bar]
! set classes [list Canvas View Comment Wire FutureWire SelRect]
set conf {}
-
foreach category $categories {
- set tmp {}
- set x [lsearch -start 0 $ddrc_options $category]
- while {$x>=0} {
- #puts "[lindex $ddrc_options [expr $x+1]] [lindex $ddrc_options [expr $x+2]]"
- lappend tmp [lindex $ddrc_options [expr $x+1]]
- lappend tmp [lindex $ddrc_options [expr $x+2]]
- set x [lsearch -start [expr $x+1] $ddrc_options $category]
- }
set class_list {}
! foreach class $classes {
! set tmp2 {}
! set x [lsearch -start 0 $tmp $class]
! while {$x>=0} {
! foreach y [lindex $tmp [expr $x+1]] {
! if {$category != "key"} {
! if {[info exists look($class:$y)]} {set var $look($class:$y);lappend tmp2 [list $y $var]} else {break}
! } else {
! if {[info exists key($class:$y)]} {set var $key($class:$y);lappend tmp2 [list $y $var]} else {break}
! }
}
set x [lsearch -start [expr $x+1] $tmp $class]
! }
!
! set class_pair [list $class $tmp2]
! lappend class_list $class_pair
! if {$x < 0} {break}
! }
! set cat_pair [list $category $class_list]
lappend conf $cat_pair
}
puts $conf
puts $fd $conf
--- 5760,5799 ----
#set fd [open $cmdline(ddrcfilename) w]
set fd [open ~/.ddrc2 w]
! set LOOK [list color crosshair bar]
! set categories [list $LOOK key]; set categories2 [list look key]; set cat_count 0
! set classes [list Canvas View Comment Wire FutureWire SelRect Client]
set conf {}
foreach category $categories {
set class_list {}
! set tmp {}
! foreach sub $category {
! set x [lsearch -start 0 $ddrc_options $sub]
! while {$x>=0} {
! lappend tmp [lindex $ddrc_options [expr $x+1]]
! lappend tmp [lindex $ddrc_options [expr $x+2]]
! set x [lsearch -start [expr $x+1] $ddrc_options $sub]
}
+ }
+ foreach class $classes {
+ set tmp2 {}
+ set x [lsearch -start 0 $tmp $class]
+ while {$x>=0} {
+ foreach y [lindex $tmp [expr $x+1]] {
+ if {$sub != "key"} {set str "look($class:$y)"
+ } else {set str "key($class:$y)"}
+ if {[info exists $str]} {lappend tmp2 [list $y [set [set str]]]}
+ }
set x [lsearch -start [expr $x+1] $tmp $class]
! }
! if {[llength $tmp2]} {
! set class_pair [list $class $tmp2]
! lappend class_list $class_pair
! }
! }
! set cat_pair [list [lindex $categories2 $cat_count] $class_list]
lappend conf $cat_pair
+ incr cat_count
}
+ set conf [list $conf]
puts $conf
puts $fd $conf
More information about the Pd-cvs
mailing list