Changeset 36078 in project


Ignore:
Timestamp:
08/09/18 15:31:53 (14 months ago)
Author:
Kon Lovett
Message:

file chunk work

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/message-digest-utils/trunk/message-digest-chunk.scm

    r36077 r36078  
    9696      (let-values (
    9797        ((buffer cleanup updater) (mapped-buffer 'default-chunk-fileno-read-maker fd siz chk)) )
    98         (lambda ()
    99           ;returns ptr to file-chunk until #floor
    100           ;memory-map means only 1 file-chunk
    101           (if buffer
    102             (if updater
    103               (begin
    104                 )
    105               (let ((chunk (make-message-digest-raw-chunk buffer siz 0)))
    106                 (set! buffer #f)
    107                 chunk ) )
    108             (begin
    109               (cleanup)
    110               #f ) ) ) ) ) ) )
     98        (let (
     99          (chunk (and buffer (make-message-digest-raw-chunk buffer chk 0))) )
     100          (if (not updater)
     101            ;returns ptr to file-chunk until #floor
     102            (lambda ()
     103              ;memory-map means only 1 file-chunk
     104              (if buffer
     105                (begin
     106                  (set! buffer #f)
     107                  (message-digest-raw-chunk-size-set! chunk siz)
     108                  chunk )
     109                (begin
     110                  (cleanup)
     111                  #f ) ) )
     112            ;
     113            (lambda ()
     114              (and
     115                buffer
     116                (if (updater chunk)
     117                  chunk
     118                  (begin
     119                    (set! buffer #f)
     120                    (cleanup)
     121                    #f ) ) ) ) ) ) ) ) ) )
    111122
    112123(cond-expand
Note: See TracChangeset for help on using the changeset viewer.