[PD-cvs] pd/src desire.tk,1.1.2.389,1.1.2.390

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15769

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
starting with the new ddrc format


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.389
retrieving revision 1.1.2.390
diff -C2 -d -r1.1.2.389 -r1.1.2.390
*** desire.tk	21 Aug 2006 01:52:03 -0000	1.1.2.389
--- desire.tk	21 Aug 2006 03:16:25 -0000	1.1.2.390
***************
*** 1011,1014 ****
--- 1011,1050 ----
  read_ddrc
  #-----------------------------------------------------------------------------------#
+ proc read_ddrc2 {} {
+ 	set fd [open "~/.ddrc2" "RDONLY CREAT"]
+ 	puts "fd: $fd"
+ 	set contents {}
+ 	#foreach line [split [read $fd] "\n"] {
+ 	#	if {[string index $line 0] != "#"} {lappend contents [string trimleft $line]}
+ 	#}
+ 	set contents [read $fd]
+ 	close $fd
+ 	#set contents [concat [join $contents " "]] ;# concat casts to list type (faster)
+ 	
+ 	foreach {section value} $contents {
+ 		puts "$section"
+ 		foreach {class value} $value {
+ 			puts "	$class"
+ 			foreach {var value} $value {
+ 			puts "		$var :: $value"
+ 			}
+ 		}
+ 	}
+ 	#for {set i 0} {$i < [llength $contents]} {incr i 2} {
+ 	#	set conf [lindex $contents $i]
+ 	#	puts "$conf"
+ 	#	for {set n 0} {$n < [llength [lindex $contents [expr $i+1]]]} {incr n 2} {
+ 	#	set class [lindex [lindex $contents [expr $i+1]] $n]
+ 	#	puts "	$class"
+ 	#		for {set v 0} {$v < [llength [lindex [lindex $contents [expr $i+1]] [expr $n+1]]]} {incr v 2} {
+ 	#		set var [lindex [lindex [lindex [lindex $contents [expr $i+1]] [expr $n+1]]] $v]
+ 	#		set val [lindex [lindex [lindex [lindex $contents [expr $i+1]] [expr $n+1]]] [expr $v+1]]
+ 	#		puts "		$var : $val"
+ 	#		}
+ 	#	}
+ 	#}
+ }
+ #read_ddrc2
+ #-----------------------------------------------------------------------------------#
  set pd_apilist "{ALSA 1}"