Ticket #27666: port.tcl-actinact.patch

File port.tcl-actinact.patch, 1.5 KB (added by outis, 14 years ago)

add pseudo-port "actinact"

  • port.

    old new  
    711711
    712712proc get_inactive_ports {} {
    713713    return [get_installed_ports no no]
    714714}
    715715
     716proc get_actinact_ports  {} {
     717    set inactive_ports [get_inactive_ports]
     718    set active_ports [get_active_ports]
     719    set results {}
     720
     721    foreach port $inactive_ports {
     722        array set portspec $port
     723        set portname $portspec(name)
     724        set portversion $portspec(version)
     725
     726        set inact($portname,$portversion) $port
     727    }
     728
     729    foreach port $active_ports {
     730        array set portspec $port
     731        set portname $portspec(name)
     732        set portversion $portspec(version)
     733
     734        set inact_ports [array get inact $portname,*]
     735        if {[llength $inact_ports] > 0} {
     736            foreach {n inact_spec} $inact_ports {
     737                lappend results $inact_spec
     738            }
     739
     740            lappend results $port
     741        }
     742    }
     743    return $results
     744}
    716745
    717746proc get_outdated_ports {} {
    718747    global macports::registry.installtype
    719748    set is_image_mode [expr 0 == [string compare "image" ${macports::registry.installtype}]]
    720749
     
    11611190        ^all(@.*)?$         -
    11621191        ^installed(@.*)?$   -
    11631192        ^uninstalled(@.*)?$ -
    11641193        ^active(@.*)?$      -
    11651194        ^inactive(@.*)?$    -
     1195        ^actinact(@.*)?$    -
    11661196        ^leaves(@.*)?$      -
    11671197        ^outdated(@.*)?$    -
    11681198        ^obsolete(@.*)?$    -
    11691199        ^requested(@.*)?$   -
    11701200        ^unrequested(@.*)?$ -