Ignore:
Timestamp:
Jan 4, 2003, 8:26:41 PM (18 years ago)
Author:
jkh
Message:

Clean up checksum handling a little by making cosmetic changes to
messages and making it a little less verbose. It's also not strictly
an error if a port author decides not to use a checksum safety belt but
it is worth a warning. Making the car not start if your safety belt isn't
fastened goes a bit too far, whereas a warning buzzer is generally considered
acceptable.

File:
1 edited

Legend:

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

    r1503 r1549  
    7878    global UI_PREFIX portname
    7979
    80     ui_msg "$UI_PREFIX Checksumming $portname"
     80    ui_msg "$UI_PREFIX Verifying checksum for $portname"
    8181}
    8282
     
    106106        set dchecksum [dmd5 $distfile]
    107107        if {$dchecksum == -1} {
    108             ui_error "No checksum recorded for $distfile"
    109             return -code error "No checksum recorded for $distfile"
    110         }
    111         if {$checksum == $dchecksum} {
    112             ui_msg "$UI_PREFIX Checksum OK for $distfile"
    113         } else {
     108            ui_warn "No checksum recorded for $distfile"
     109        } elseif {$checksum != $dchecksum} {
    114110            ui_error "Checksum mismatch for $distfile"
    115111            return -code error "Checksum mismatch for $distfile"
Note: See TracChangeset for help on using the changeset viewer.