[PD-cvs] pd/src desire.tk,1.1.2.600.2.393,1.1.2.600.2.394

Mathieu Bouchard matju at users.sourceforge.net
Sat Aug 18 02:56:29 CEST 2007


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
no error handling in proc atomically ... it's buggy and there's no real reason for it.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.393
retrieving revision 1.1.2.600.2.394
diff -C2 -d -r1.1.2.600.2.393 -r1.1.2.600.2.394
*** desire.tk	17 Aug 2007 20:58:35 -0000	1.1.2.600.2.393
--- desire.tk	18 Aug 2007 00:56:24 -0000	1.1.2.600.2.394
***************
*** 154,169 ****
  }
  
- # will be a wrapper for [catch {}].
- # to be continued...
- proc begin {code args} {
- 	uplevel 1 $code
- 	set i 0
- 	set n [llength $args]
- 	while {$i<$n} {
- 		switch -- [lindex $args $i] {
- 		}
- 	}
- }
- 
  proc lmake {start end} {for {set i $start} {$i<=$end} {incr i} {lappend l $i}; return $l}
  #-----------------------------------------------------------------------------------#
--- 154,157 ----
***************
*** 458,463 ****
  	set ubackup @undo_stack; set @undo_stack {}
  	set rbackup @redo_stack; set @redo_stack {}
! 	set err [catch {uplevel 2 $code}]
! 	if {[string length $err]} {set err $errorInfo; post "atomically: $errorInfo"}
  	set atom $@undo_stack
  	set @undo_stack $ubackup
--- 446,450 ----
  	set ubackup @undo_stack; set @undo_stack {}
  	set rbackup @redo_stack; set @redo_stack {}
! 	uplevel 2 $code
  	set atom $@undo_stack
  	set @undo_stack $ubackup
***************
*** 465,469 ****
  	lappend @undo_stack [list $what $atom [lrange [info level -3] 1 end]]
  	$self changed
- 	if {[string length $err]} {post %s $err; post "atomically: $err"}
  }
  
--- 452,455 ----
***************
*** 3734,3738 ****
  	netsend [list .$self "push"]
  	foreach mess [pd_mess_split [$::clipboard value]] {
- 		puts "$in: $mess"
  		set type [lindex $mess 1]
  		if {$type == "restore"} {incr in -1}
--- 3720,3723 ----





More information about the Pd-cvs mailing list