[35256] trunk/base/src/port1.0/portdistfiles.tcl

[wsiegrist at apple.com]

Revision: 35256
          http://trac.macosforge.org/projects/macports/changeset/35256
Author:   wsiegrist at apple.com
Date:     2008-03-22 15:18:17 -0700 (Sat, 22 Mar 2008)

Log Message:
-----------
added checksum display and an early exit when master_sites is not provided

Modified Paths:
--------------
    trunk/base/src/port1.0/portdistfiles.tcl

Modified: trunk/base/src/port1.0/portdistfiles.tcl
===================================================================
--- trunk/base/src/port1.0/portdistfiles.tcl	2008-03-22 19:45:08 UTC (rev 35255)
+++ trunk/base/src/port1.0/portdistfiles.tcl	2008-03-22 22:18:17 UTC (rev 35256)
@@ -33,6 +33,7 @@
 package provide portdistfiles 1.0
 package require portutil 1.0
 package require portfetch 1.0
+package require portchecksum 1.0
 
 set org.macports.distfiles [target_new org.macports.distfiles distfiles_main]
 target_runtype ${org.macports.distfiles} always
@@ -49,16 +50,30 @@
 }
 
 proc distfiles_main {args} {
-    global UI_PREFIX master_sites fetch_urls url_var distfile all_dist_files variations
+    global UI_PREFIX master_sites fetch_urls url_var distfile checksums_array
     
+    # give up on ports that do not provide URLs
+    if {$master_sites == "{}"} {
+        return 0
+    }
+
     # from portfetch... process the sites, files and patches
     checkfiles
 
+    # get checksum data from the portfile and parse it
+    set checksums_str [option checksums]
+    set result [parse_checksums $checksums_str]
+
     foreach {url_var distfile} $fetch_urls {
 
         ui_msg "\[$distfile\]"
 
-        # TODO: display checksum(s) of distfile       
+        # print checksums if available
+        if {$result == "yes" && [array get checksums_array $distfile] != ""} {
+            foreach {type sum} $checksums_array($distfile) {
+                ui_msg " $type: $sum"
+            }
+        }
 
         # determine sites to download from
         global portfetch::$url_var

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080322/187c49a3/attachment.html