Changes between Initial Version and Version 1 of Ticket #70556, comment 4


Ignore:
Timestamp:
Aug 15, 2024, 2:10:11 PM (3 months ago)
Author:
RJVB (René Bertin)
Comment:

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #70556, comment 4

    initial v1  
    77#!/usr/bin/env port-tclsh
    88
     9set t0 [clock clicks -millisec]
    910package require macports 1.0
    1011package require registry 1.0
     12puts "Startup took [expr {([clock clicks -millisec]-$t0)/1000.}] sec"
    1113
    1214array set ui_options        {}
    … …  
    2022puts -nonewline "Initialising MacPorts ..."
    2123flush stdout
     24set t0 [clock clicks -millisec]
    2225mportinit ui_options global_options global_variations
    23 puts " done"
     26puts " done ([expr {([clock clicks -millisec]-$t0)}] ms)"
    2427
    2528ui_msg "MacPorts version [macports::version], registry version [registry::metadata get version]"
    … …  
    2730set maybe ""
    2831if {[catch {registry::set_needs_vacuum}]} {
    29         ui_warn "Your MacPorts version doesn't allow to program a registry VACUUM operation"
    30         set maybe "maybe "
     32     ui_warn "Your MacPorts version doesn't allow to program a registry VACUUM operation"
     33     set maybe "maybe "
    3134} else {
    32         ui_msg "Called registry::set_needs_vacuum"
     35     ui_msg "Called registry::set_needs_vacuum"
    3336}
    3437
    3538puts -nonewline "Closing registry and ${maybe}performing vacuum ..."
    3639flush stdout
     40set t0 [clock clicks -millisec]
    3741mportshutdown
    38 puts " done"
     42puts " done ([expr {([clock clicks -millisec]-$t0)}] ms)"
    3943}}}
     44
     45(edited for the timing freaks like me)