[PD-cvs] pd/src desire.tk,1.1.2.420,1.1.2.421
Mathieu Bouchard
matju at users.sourceforge.net
Tue Aug 29 21:20:21 CEST 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
More information about the Pd-cvs
mailing list