Ticket #27245: port.tcl-contents-size.patch

port.

@@ -151 +151 @@
 # @see const
 proc _const value {
     return $value
 }
 
+# Format an integer representing bytes using binary units (KiB, MiB, GiB)
+proc bytesize {siz {unit {}}} {
+    set scale 0
+    switch -- $unit {
+        K {
+            set unit "KiB"
+            #set scale 1024.0
+            set siz [expr $siz / 1024.0]
+        }
+        M {
+            set unit "MiB"
+            #set scale 1048576.0
+            set siz [expr $siz / 1048576.0]
+        }
+        B { }
+        default {
+            if {$siz > 0x400} {
+                if {$siz > 0x100000} {
+                    if {$siz > 0x40000000} {
+                        set unit "GiB"
+                        set siz [expr $siz / 1073741824.0]                    
+                    } else {
+                        set unit "MiB"
+                        set siz [expr $siz / 1048576.0]
+                    }                    
+                } else {
+                    set unit "KiB"
+                    #set scale 1024.0
+                    set siz [expr $siz / 1024.0]
+                }
+            } else {
+                set unit "B  "
+            }
+        }
+    }
+    if {[expr round($siz)] != $siz} {
+        set siz [format {%.3f} $siz]
+    }
+    return "$siz $unit"
+}
+
+proc filesize {fil {unit {}}} {
+    set siz {@}
+    catch {
+        set siz [bytesize [file size $fil] $unit]
+    } errMsg
+    return $siz
+}
 
 
 # Produce an error message, and exit, unless
 # we're handling errors in a soft fashion, in which
 # case we continue
@@ -3072 +3120 @@
 proc action_contents { action portlist opts } {
     set status 0
     if {[require_portlist portlist]} {
         return 1
     }
+    if {[array names global_options -exact ports_${action}_size] != {}} {
+        proc line {file} {
+            global private_options
+            return [format "%12s $file" [filesize $file $private_options(size_unit)]]
+        }
+    } else {
+        proc line {file} {
+            return "  $file"
+        }
+    }
     foreachport $portlist {
         if { ![catch {set ilist [registry::installed $portname]} result] } {
             # set portname again since the one we were passed may not have had the correct case
             set portname [lindex [lindex $ilist 0] 0]
         }
         set files [registry::port_registered $portname]
         if { $files != 0 } {
             if { [llength $files] > 0 } {
                 ui_notice "Port $portname contains:"
                 foreach file $files {
-                    puts "  $file"
+                    puts [line $file]
                 }
             } else {
                 ui_notice "Port $portname does not contain any files or is not active."
             }
         } else {
@@ -3771 +3829 @@
     uninstall   [list action_uninstall      [ACTION_ARGS_PORTS]] \
     \
     installed   [list action_installed      [ACTION_ARGS_PORTS]] \
     outdated    [list action_outdated       [ACTION_ARGS_PORTS]] \
     contents    [list action_contents       [ACTION_ARGS_PORTS]] \
+    files       [list action_contents       [ACTION_ARGS_PORTS]] \
     dependents  [list action_dependents     [ACTION_ARGS_PORTS]] \
     rdependents [list action_dependents     [ACTION_ARGS_PORTS]] \
     deps        [list action_deps           [ACTION_ARGS_PORTS]] \
     rdeps       [list action_deps           [ACTION_ARGS_PORTS]] \
     variants    [list action_variants       [ACTION_ARGS_PORTS]] \
@@ -3887 +3946 @@
     mirror      {new}
     lint        {nitpick}
     select      {list set show}
     log         {{phase 1} {level 1}}
     upgrade     {force enforce-variants no-replace}
+    contents    {size}
+    files       {size}
 }
 
 ##
 # Checks whether the given option is valid
 #
@@ -4028 +4089 @@
                         set global_options(ports_autoclean) yes
                     }
                     k {
                         set global_options(ports_autoclean) no
                     }
+                    B {
+                        set private_options(size_unit) B
+                    }
+                    K {
+                        set private_options(size_unit) K
+                    }
+                    M {
+                        set private_options(size_unit) M
+                    }
                     t {
                         set global_options(ports_trace) yes
                     }
                     y {
                         set global_options(ports_dryrun) yes
@@ -4379 +4449 @@
 array set ui_options        {}
 array set global_options    {}
 array set global_variations {}
 
 # Global options private to this script
-array set private_options {}
+array set private_options {size_unit {}}
 
 # Make sure we get the size of the terminal
 # We do this here to save it in the boot_env, in case we determined it manually
 term_init_size