Ticket #52981: patch-ui_info-in-info.diff

File patch-ui_info-in-info.diff, 1007 bytes (added by RJVB (René Bertin), 8 years ago)

activating ui_info during port info is quite simple and doesn't appear to have side-effects

  • src/macports1.0/macports.tcl 

    diff --git src/macports1.0/macports.tcl src/macports1.0/macports.tcl
index 7eb96ca..530c510 100644
    proc ui_message {priority prefix args} { 
    233286       }
    234287    }
    235288
     289    # adopt msg priority if the current phase equals the current priority
     290    # this can only happen for ui_info during `port info` (currently).
     291    if {[info exists macports::current_phase]
     292        && ${macports::current_phase} eq ${priority}} {
     293        set priority "msg"
     294    }
     295
    236296    foreach chan $macports::channels($priority) {
    237297        if {[lindex $args 0] eq "-nonewline"} {
    238298            puts -nonewline $chan $prefix[lindex $args 1]

  • src/port/port.tcl 

    diff --git src/port/port.tcl src/port/port.tcl
index 5312e5a..a58ee71 100644
    proc action_info { action portlist opts } { 
    19221922        return 1
    19231923    }
    19241924
     1925    set_phase "info"
    19251926    set separator ""
    19261927    foreachport $portlist {
    19271928        set index_only 0