Ticket #27244: port.tcl-space.patch

port.

@@ -152 +152 @@
 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"
+}
+
+
 
 # Produce an error message, and exit, unless
 # we're handling errors in a soft fashion, in which
 # case we continue
 proc fatal_softcontinue s {
@@ -3096 +3138 @@
     registry::close_file_map
 
     return $status
 }
 
+# Alternative: calc space from $portdbpath/software/$port/$portversion
+proc action_space {action portlist {opts {}}} {
+    global private_options global_options
+    set status 0
+    set spaceall 0.0
+    require_portlist portlist
+    if {[array names private_options -exact size_unit] == {}} {
+        array set  private_options {size_unit {}}
+    }
+    foreachport $portlist {
+        set space 0.0
+        set files [registry::port_registered $portname]
+        if { $files != 0 } {
+            if { [llength $files] > 0 } {
+                foreach file $files {
+                    catch {
+                        set space [expr $space + [file size $file] ]
+                    }
+                }
+                #puts [array get variations]
+                set msg "[bytesize $space $private_options(size_unit)] $portname"
+                if { $portversion != {} } {
+                    set msg "$msg @$portversion"
+                }
+                #set msg "[bytesize $space $private_options(size_unit)] [regsub {/} $portspec(fullname) { @}]"
+                puts $msg
+                set spaceall [expr $space + $spaceall]
+            } else {
+                puts "Port $portname does not contain any file or is not active."
+            }
+        } else {
+            puts "Port $portname is not installed."
+        }
+    }
+    if {[llength $portlist] > 1} {
+        puts "[bytesize $spaceall] total"
+    }
+    return $status
+}
+
 proc action_variants { action portlist opts } {
     global global_variations
     set status 0
     if {[require_portlist portlist]} {
         return 1
@@ -3771 +3853 @@
     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]] \
+    space       [list action_space          [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]] \
@@ -4028 +4111 @@
                         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 +4471 @@
 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