Changeset 81464


Ignore:
Timestamp:
Jul 31, 2011, 9:26:50 AM (9 years ago)
Author:
jmr@…
Message:

add progress output to images_to_archives.tcl (#30347)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/images_to_archives.tcl

    r80178 r81464  
    3434# the registry only after we know all creation attempts were successful.
    3535set archived_list {}
     36set installed_len [llength $ilist]
     37set counter 0
    3638
    3739foreach installed $ilist {
     40    incr counter
    3841    set iname [lindex $installed 0]
    3942    set iversion [lindex $installed 1]
     
    8588        # compute new name and location of archive
    8689        set archivename "${iname}-${iversion}_${irevision}${ivariants}.${macports::os_platform}_${macports::os_major}.[join $archs -].${archivetype}"
     90        ui_msg "Processing ${counter} of ${installed_len}: ${archivename}"
    8791        if {$installtype == "image"} {
    8892            set targetdir [file dirname $location]
     
    116120}
    117121
     122set archived_len [llength $archived_list]
     123set counter 0
     124
    118125registry::write {
    119126    foreach archived $archived_list {
     127        incr counter
     128        ui_msg "Updating registry: ${counter} of ${archived_len}"
    120129        set installtype [lindex $archived 0]
    121130        set iref [lindex $archived 1]
     
    135144}
    136145
     146set counter 0
    137147foreach archived $archived_list {
     148    incr counter
    138149    set location [lindex $archived 2]
     150    ui_msg "Deleting ${counter} of ${archived_len}: ${location}"
    139151    if {$location != "" && [file isdirectory $location]} {
    140152        if {[catch {file delete -force $location} result]} {
Note: See TracChangeset for help on using the changeset viewer.