pd/src desire.tk,1.1.2.402,1.1.2.403 - Pd-cvs

24 Aug 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