Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24504
Modified Files: Tag: devel_0_39 desire.tk Log Message: removing old readers for ddrc
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.420 retrieving revision 1.1.2.421 diff -C2 -d -r1.1.2.420 -r1.1.2.421 *** desire.tk 29 Aug 2006 14:21:11 -0000 1.1.2.420 --- desire.tk 29 Aug 2006 19:20:19 -0000 1.1.2.421 *************** *** 1037,1041 **** #-----------------------------------------------------------------------------------# proc read_ddrc {} { ! global ddrc_options cmdline look key set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"] set contents [read $fd] --- 1037,1041 ---- #-----------------------------------------------------------------------------------# proc read_ddrc {} { ! global cmdline look key set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"] set contents [read $fd] *************** *** 1043,1063 ****
foreach category_pair $contents { - #puts "reading category ---> [lindex $category 0]" set category [lindex $category_pair 0] foreach class_pair [lindex $category_pair 1] { - #puts " reading class ---> [lindex $class 0]" set class [lindex $class_pair 0] foreach var_pair [lindex $class_pair 1] { set var [lindex $var_pair 0] set val [lindex $var_pair 1] - #puts "$category ($class:$var) ::: $val" set ${category}($class:$var) $val } } } - puts "category = $category" - set_fontstring - #if {[regexp {^#} $line comment]} {continue} ;# skip comments } read_ddrc --- 1043,1057 ---- *************** *** 5693,5760 **** }
- class_new ClientPrefsDialog {PagedDialog} ! def ClientPrefsDialog apply {} {$self write} ! ! def ClientPrefsDialog read {} { ! global ddrc_options cmdline look key ! set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"] ! set contents [read $fd] ! close $fd ! ! foreach category_pair $contents { ! #puts "reading category ---> [lindex $category 0]" ! set category [lindex $category_pair 0] ! foreach class_pair [lindex $category_pair 1] { ! #puts " reading class ---> [lindex $class 0]" ! set class [lindex $class_pair 0] ! foreach var_pair [lindex $class_pair 1] { ! set var [lindex $var_pair 0] ! set val [lindex $var_pair 1] ! #puts "$category ($class:$var) ::: $val" ! set ${category}($class:$var) $val ! } ! } ! } ! } ! ! def ClientPrefsDialog read2 {} { ! global ddrc_options ddrc_options_h cmdline look key crosshair bar ! set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"] ! #set contents [split [string map {"\n" " "} [read $fd]] " "] ! set contents [split [read $fd] "\n"] ! close $fd ! foreach {type name} $ddrc_options { ! set @$name "" ! foreach subname [split $name |] { ! foreach item $subname { ! set ddrc_options_h($item) [list $type $name] ! } ! } ! } ! set i 0 ! foreach line $contents { ! foreach {type item value} $line { ! if {![info exists ddrc_options_h($item)]} { ! post "unknown option: %s" $item ! } ! switch $type { ! folders {incr i; lappend @$name [lindex $contents $i]} ! files {incr i; lappend @$name [lindex $contents $i]} ! void {set @$name 1} ! color {set look($item) $value} ! key {set key($item) $value} ! crosshair {set crosshair($item) $value; set _($self:crosshair($item)) $value} ! bar {set bar($item) $value; set _($self:bar($item)) $value} ! default {incr i; set @$name [lindex $contents $i]} ! } ! } ! ! } ! } ! ! #proc cons {x y} { list $x $y } ! #proc car {l} { lindex $l 0} } ! #proc cdr {l} { lindex $l 1 }
#this writes the ddrc --- 5687,5693 ---- }
class_new ClientPrefsDialog {PagedDialog} ! def ClientPrefsDialog apply {} {$self write} ! def ClientPrefsDialog read {} {read_ddrc}
#this writes the ddrc