Changeset 36734 in project


Ignore:
Timestamp:
10/28/18 13:56:55 (2 weeks ago)
Author:
kon
Message:

reflow

Location:
release/5/message-digest-utils/trunk
Files:
2 edited

Legend:

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

    r35914 r36734  
    2929(define-type message-digest-result-type (or string blob u8vector))
    3030
    31 (define-type message-digest-context (or fixnum procedure))
     31;(define-type context-info (or fixnum procedure))
    3232
    3333(define-type digest-output-port output-port)
     34
     35(define-type message-digest-primitive-context *)
  • release/5/message-digest-utils/trunk/message-digest-update-item.scm

    r35921 r36734  
    100100    (let loop ()
    101101      (and-let* ((dat (proc)))
    102         (do-byte-source-update loc ctx dat src-updt raw-updt start end)
     102        (*do-bytes-update loc ctx dat src-updt raw-updt start end)
    103103        (loop) ) )
    104104    ;do not return #f
     
    108108;
    109109(define (do-bytes-update loc md src start end)
    110   (do-byte-source-update
     110  (*do-bytes-update
    111111    loc
    112112    (message-digest-context md)
     
    116116    start end) )
    117117
    118 (: do-byte-source-update (symbol * * source-update raw-update start-index end-index -> void))
    119 ;
    120 (define (do-byte-source-update loc ctx src src-updt raw-updt start end)
     118(: *do-bytes-update (symbol message-digest-primitive-context * source-update raw-update start-index end-index -> void))
     119;
     120(define (*do-bytes-update loc ctx src src-updt raw-updt start end)
    121121  (cond
    122122    ;simple bytes
     
    139139        (updater ctx obj (message-digest-raw-chunk-size src)) ) )
    140140    ;more complicated bytes
    141     ((object->bytevector-like src) =>
    142         (cut do-byte-source-update loc ctx <> src-updt raw-updt start end) )
     141    ((object->bytevector-like src)
     142      => (cut *do-bytes-update loc ctx <> src-updt raw-updt start end) )
    143143    ;too complicated bytes
    144144    (else
Note: See TracChangeset for help on using the changeset viewer.