[68955] trunk/base/src/port1.0/portchecksum.tcl

[snc at macports.org]

Revision: 68955
          http://trac.macports.org/changeset/68955
Author:   snc at macports.org
Date:     2010-06-18 12:03:47 -0700 (Fri, 18 Jun 2010)
Log Message:
-----------
add SHA256 checksum to debug message

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

Modified: trunk/base/src/port1.0/portchecksum.tcl
===================================================================
--- trunk/base/src/port1.0/portchecksum.tcl	2010-06-18 19:01:56 UTC (rev 68954)
+++ trunk/base/src/port1.0/portchecksum.tcl	2010-06-18 19:03:47 UTC (rev 68955)
@@ -52,7 +52,7 @@
 set_ui_prefix
 
 # The list of the types of checksums we know.
-set checksum_types "md5 sha1 rmd160"
+set checksum_types "md5 sha1 rmd160 sha256"
 
 # The number of types we know.
 set checksum_types_count [llength $checksum_types]
@@ -172,6 +172,15 @@
     return [rmd160 file $file]
 }
 
+# calc_sha256
+#
+# Calculate the sha256 checksum for the given file.
+# Return the checksum.
+#
+proc portchecksum::calc_sha256 {file} {
+    return [sha256 file $file]
+}
+
 # checksum_start
 #
 # Target prerun procedure; simply prints a message about what we're doing.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100618/a54525ac/attachment-0001.html>