Changeset 5683 in project


Ignore:
Timestamp:
08/24/07 19:07:19 (12 years ago)
Author:
Kon Lovett
Message:

Added explicit dependecy requirements

Location:
message-digest
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • message-digest/tags/1.7/message-digest.setup

    r5583 r5683  
    11(include "setup-header")
     2
     3(required-extension-version 'miscmacros "2.4")
    24
    35(install-dynld+docu message-digest *version*)
  • message-digest/trunk/message-digest.scm

    r5581 r5683  
    6565                                                (let loop ([pos start] [lst '()])
    6666                                                        (if (>= pos len)
    67                                                                 (reverse! lst)
    68                                                                 (let ([npos (+ pos chunk-size)])
    69                                                                         (loop npos (cons (byte-substring/shared str pos npos) lst)))))])
     67                  (reverse! lst)
     68                  (let ([npos (+ pos chunk-size)])
     69                    (loop npos (cons (byte-substring/shared str pos npos) lst)))))])
    7070                                        (or (and (zero? rem) sublst)
    7171                                                        (append sublst (list (byte-substring/shared str len end))) ) ) ) ) )
     
    159159        (final message-digest-primitive-final)
    160160        (name message-digest-primitive-name) )
     161
     162(define-inline (*read-u8vector! siz buf obj)
     163  (let ([len (read-u8vector! siz buf obj)])
     164    (and (positive? len)
     165         len ) ) )
    161166
    162167(define make-binary-message-digest
     
    183188                   (let* ([siz (message-digest-chunk-size)]
    184189                          [buf (make-u8vector siz)])
    185                      (while* (let ([len (read-u8vector! siz buf obj)]) (and (positive? len) len))
     190                     (while* (*read-u8vector! siz buf obj)
    186191                       (update ctx buf it) ) ) ]
    187192                  [else
    188193                    (if* (->blob/shared obj)
    189                       (update ctx it (blob-size it))
    190                       (error loc "cannot convert to blob" obj))])
     194                        (update ctx it (blob-size it))
     195                        (error loc "cannot convert to blob" obj))])
    191196                                                (let ([result (make-byte-string digest-len)])
    192197                                                        (final ctx result)
  • message-digest/trunk/message-digest.setup

    r5583 r5683  
    11(include "setup-header")
     2
     3(required-extension-version 'miscmacros "2.4" 'mathh "1.9")
    24
    35(install-dynld+docu message-digest *version*)
Note: See TracChangeset for help on using the changeset viewer.