Changeset 36734 in project
- Timestamp:
- 10/28/18 13:56:55 (13 months ago)
- 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 29 29 (define-type message-digest-result-type (or string blob u8vector)) 30 30 31 (define-type message-digest-context(or fixnum procedure))31 ;(define-type context-info (or fixnum procedure)) 32 32 33 33 (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 100 100 (let loop () 101 101 (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) 103 103 (loop) ) ) 104 104 ;do not return #f … … 108 108 ; 109 109 (define (do-bytes-update loc md src start end) 110 ( do-byte-source-update110 (*do-bytes-update 111 111 loc 112 112 (message-digest-context md) … … 116 116 start end) ) 117 117 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) 121 121 (cond 122 122 ;simple bytes … … 139 139 (updater ctx obj (message-digest-raw-chunk-size src)) ) ) 140 140 ;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) ) 143 143 ;too complicated bytes 144 144 (else
Note: See TracChangeset
for help on using the changeset viewer.