Changeset 35341 in project for release/4/message-digest/trunk/message-digest-bv.scm
- Timestamp:
- 03/25/18 19:50:42 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/message-digest/trunk/message-digest-bv.scm
r35340 r35341 37 37 38 38 ;; 39 40 ;FIXME do not 'type' check-/error- procs 39 41 40 42 (define (check-blob/slice loc blb start end) … … 82 84 ;; Single Source API 83 85 84 (define: (message-digest-blob (mdp message-digest-primitive) (blb blob) . (opts list)) -> message-digest-result- form86 (define: (message-digest-blob (mdp message-digest-primitive) (blb blob) . (opts list)) -> message-digest-result-type 85 87 (let-optionals* opts ( 86 (res ult-type(message-digest-result-form))88 (restyp (message-digest-result-form)) 87 89 (start 0) 88 90 (end (blob-size blb)) ) … … 90 92 (md (initialize-message-digest mdp)) ) 91 93 (message-digest-update-blob md blb start end) 92 (finalize-message-digest md res ult-type) ) ) )94 (finalize-message-digest md restyp) ) ) ) 93 95 94 (define: (message-digest-string (mdp message-digest-primitive) (str string) . (opts list)) -> message-digest-result- form96 (define: (message-digest-string (mdp message-digest-primitive) (str string) . (opts list)) -> message-digest-result-type 95 97 (let-optionals* opts ( 96 (res ult-type(message-digest-result-form))98 (restyp (message-digest-result-form)) 97 99 (start 0) 98 100 (end (string-length str)) ) … … 100 102 (md (initialize-message-digest mdp)) ) 101 103 (message-digest-update-string md str start end) 102 (finalize-message-digest md res ult-type) ) ) )104 (finalize-message-digest md restyp) ) ) ) 103 105 104 (define: (message-digest-blob! (mdp message-digest-primitive) (blb blob) (buf message-digest-buffer) . (opts list)) -> message-digest-result- form106 (define: (message-digest-blob! (mdp message-digest-primitive) (blb blob) (buf message-digest-buffer) . (opts list)) -> message-digest-result-type 105 107 (let-optionals* opts ( 106 108 (start 0) … … 111 113 (finalize-message-digest! md buf) ) ) ) 112 114 113 (define: (message-digest-string! (mdp message-digest-primitive) (str string) (buf message-digest-buffer) . (opts list)) -> message-digest-result- form115 (define: (message-digest-string! (mdp message-digest-primitive) (str string) (buf message-digest-buffer) . (opts list)) -> message-digest-result-type 114 116 (let-optionals* opts ( 115 117 (start 0)
Note: See TracChangeset
for help on using the changeset viewer.