Changeset 67


Ignore:
Timestamp:
Aug 2, 2002, 10:38:22 AM (17 years ago)
Author:
landonf
Message:

Break out of loop properly

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/Tcl/port1.0/portutil.tcl

    r66 r67  
    126126# (private)
    127127proc depend_list_get_next {waitlist statusdict} {
    128         set nextitem ""
    129128        # arbitrary large number ~ INT_MAX
    130129        set minfailed 2000000000
     
    153152                }
    154153        }
    155         return $nextitem
     154        if [info exists nextitem] {
     155                return $nextitem
     156        }
     157        return -code break
    156158}
    157159
     
    199201                        # somebody broke!
    200202                        set names [array names waitlist name,*]
    201                         if { [llength $names] > 0} {
    202                                 # XXX: remove puts
    203                                 puts "Warning: the following targets did not execute: "
    204                                 foreach name $names {
    205                                         puts -nonewline "$waitlist($name) "
    206                                 }
    207                                 puts ""
     203                        # XXX: remove puts
     204                        puts "Warning: the following targets did not execute: "
     205                        foreach name $names {
     206                                puts -nonewline "$waitlist($name) "
    208207                        }
     208                        puts ""
    209209                        break
    210210                }
Note: See TracChangeset for help on using the changeset viewer.