Ticket #27666: port.tcl-actinact.patch

port.

@@ -711 +711 @@
 
 proc get_inactive_ports {} {
     return [get_installed_ports no no]
 }
 
+proc get_actinact_ports  {} {
+    set inactive_ports [get_inactive_ports]
+    set active_ports [get_active_ports]
+    set results {}
+
+    foreach port $inactive_ports {
+        array set portspec $port
+        set portname $portspec(name)
+        set portversion $portspec(version)
+
+        set inact($portname,$portversion) $port
+    }
+
+    foreach port $active_ports {
+        array set portspec $port
+        set portname $portspec(name)
+        set portversion $portspec(version)
+
+        set inact_ports [array get inact $portname,*]
+        if {[llength $inact_ports] > 0} {
+            foreach {n inact_spec} $inact_ports {
+                lappend results $inact_spec
+            }
+
+            lappend results $port
+        }
+    }
+    return $results
+}
 
 proc get_outdated_ports {} {
     global macports::registry.installtype
     set is_image_mode [expr 0 == [string compare "image" ${macports::registry.installtype}]]
 
@@ -1161 +1190 @@
         ^all(@.*)?$         -
         ^installed(@.*)?$   -
         ^uninstalled(@.*)?$ -
         ^active(@.*)?$      -
         ^inactive(@.*)?$    -
+        ^actinact(@.*)?$    -
         ^leaves(@.*)?$      -
         ^outdated(@.*)?$    -
         ^obsolete(@.*)?$    -
         ^requested(@.*)?$   -
         ^unrequested(@.*)?$ -