Ticket #33064: base-action_active_inactive.diff

src/port/port.tcl

@@ -3075 +3075 @@
 }
 
 
+proc action_inactive { action portlist opts } {
+    action_echo "$action" "[get_inactive_ports]" "$opts" 
+
+    return 0
+}
+
+
+proc action_active { action portlist opts } {
+    action_echo "$action" "[get_active_ports]" "$opts" 
+
+    return 0
+}
+
+
 proc action_outdated { action portlist opts } {
     global private_options
     set status 0
@@ -4027 +4041 @@
     uninstall   [list action_uninstall      [ACTION_ARGS_PORTS]] \
     \
     installed   [list action_installed      [ACTION_ARGS_PORTS]] \
+    inactive    [list action_inactive       [ACTION_ARGS_NONE]] \
+    active      [list action_active         [ACTION_ARGS_NONE]] \
     outdated    [list action_outdated       [ACTION_ARGS_PORTS]] \
     contents    [list action_contents       [ACTION_ARGS_PORTS]] \
     space       [list action_space          [ACTION_ARGS_PORTS]] \

src/port/port-help.tcl

@@ -13 +13 @@
 --no-exec   Do not execute any stored pre- or post-activate procedures
 }
 
+set porthelp(active) {
+List name and version of active ports
+}
+
 set porthelp(archive) {
 Archive the given ports, i.e. install the port image but do not activate
 }
@@ -188 +192 @@
 List installed versions of the given port, or all installed ports if no port is given
 }
 
+set porthelp(inactive) {
+List name and version of inactive ports
+}
+
 set porthelp(lint) {
 Checks if the Portfile is lint-free for each of the given ports
 }

doc/port.1

@@ -427 +427 @@
 If no
 .Ar portname
 is given, all installed ports are shown.
+.Ss active
+Show name and versions for all active ports.
+.Ss inactive
+Show name and versions for all inactive ports.
 .Ss location
 Print the install location of a given port.
 .Ss contents