pd/src desire.tk,1.1.2.420,1.1.2.421 - Pd-cvs

29 Aug 2006


      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