Ignore:
Timestamp:
Oct 12, 2003, 3:32:11 AM (15 years ago)
Author:
fkr
Message:

Bug:
Submitted by:
Reviewed by:
Approved by:
Obtained from:

dmg target. Allows creation of dmg's that contains the pkg built via the 'package'-target.
discussions and ideas with landonf@ and wbb4@

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r3560 r3655  
    10131013    }
    10141014}
     1015
     1016# proc to calculate size of a directory
     1017# moved here from portpackage.tcl
     1018proc dirSize {dir} {
     1019    set size    0;
     1020    foreach file [readdir $dir] {
     1021        if {$file == "." || $file == ".." || [file type [file join $dir $file]] == "link" } {
     1022            continue
     1023        }
     1024        if {[file isdirectory [file join $dir $file]]} {
     1025            incr size [dirSize [file join $dir $file]]
     1026        } else {
     1027            incr size [file size [file join $dir $file]];
     1028        }
     1029    }
     1030    return $size;
     1031}
Note: See TracChangeset for help on using the changeset viewer.