Changeset 79365

Timestamp:

06/11/11 05:54:24 (4 years ago)

Author:

jmr@…

Message:

add --size option for contents action (#27245)

File:

• trunk/base/src/port/port.tcl (modified) (5 diffs)

trunk/base/src/port/port.tcl

@@ -199 +199 @@
 }
 
+proc filesize {fil {unit {}}} {
+    set siz {@}
+    catch {
+        set siz [bytesize [file size $fil] $unit]
+    }
+    return $siz
+}
 
 # Produce an error message, and exit, unless
@@ -3103 +3110 @@
 
 proc action_contents { action portlist opts } {
-    set status 0
+    global global_options
     if {[require_portlist portlist]} {
         return 1
     }
+    if {[info exists global_options(ports_contents_size)]} {
+        set units {}
+        if {[info exists global_options(ports_contents_units)]} {
+            set units [complete_size_units $global_options(ports_contents_units)]
+        }
+        set outstring {[format "%12s $file" [filesize $file $units]]}
+    } else {
+        set outstring {  $file}
+    }
+
     foreachport $portlist {
         if { ![catch {set ilist [registry::installed $portname]} result] } {
@@ -3117 +3134 @@
                 ui_notice "Port $portname contains:"
                 foreach file $files {
-                    puts "  $file"
+                    puts [subst $outstring]
                 }
             } else {
@@ -3128 +3145 @@
     registry::close_file_map
 
-    return $status
+    return 0
 }
 
@@ -4014 +4031 @@
                  maintainer maintainers name platform platforms portdir pretty
                  replaced_by revision variant variants version}
+    contents    {size {units 1}}
     deps        {index no-build}
     rdeps       {index no-build full}