Changeset 35341 in project for release/4/message-digest/trunk/message-digest-item.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-item.scm
r35339 r35341 35 35 ;; 36 36 37 (define: (message-digest-object (mdp message-digest-primitive) (obj *) . (opts list)) -> message-digest-result- form37 (define: (message-digest-object (mdp message-digest-primitive) (obj *) . (opts list)) -> message-digest-result-type 38 38 (let-optionals* opts ( 39 (res ult-type(message-digest-result-form))39 (restyp (message-digest-result-form)) 40 40 (start 0) 41 41 (end #f) ) 42 42 (let ((md (initialize-message-digest mdp))) 43 43 (message-digest-update-object md obj start end) 44 (finalize-message-digest md res ult-type) ) ) )44 (finalize-message-digest md restyp) ) ) ) 45 45 46 (define: (message-digest-file (mdp message-digest-primitive) (flnm pathname) . (opts list)) -> message-digest-result- form47 (let *(48 (res ult-type(message-digest-result-form))46 (define: (message-digest-file (mdp message-digest-primitive) (flnm pathname) . (opts list)) -> message-digest-result-type 47 (let ( 48 (restyp (message-digest-result-form)) 49 49 (md (initialize-message-digest mdp)) ) 50 50 (message-digest-update-file md flnm) 51 (finalize-message-digest md res ult-type) ) )51 (finalize-message-digest md restyp) ) ) 52 52 53 (define: (message-digest-port (mdp message-digest-primitive) (port output-port) . (opts list)) -> message-digest-result- form54 (let *(55 (res ult-type(message-digest-result-form))53 (define: (message-digest-port (mdp message-digest-primitive) (port output-port) . (opts list)) -> message-digest-result-type 54 (let ( 55 (restyp (message-digest-result-form)) 56 56 (md (initialize-message-digest mdp)) ) 57 57 (message-digest-update-port md port) 58 (finalize-message-digest md res ult-type) ) )58 (finalize-message-digest md restyp) ) ) 59 59 60 60 ;; 61 61 62 (define: (message-digest-object! (mdp message-digest-primitive) (obj *) (buf message-digest-buffer) . (opts list)) -> message-digest-result- form62 (define: (message-digest-object! (mdp message-digest-primitive) (obj *) (buf message-digest-buffer) . (opts list)) -> message-digest-result-type 63 63 (let-optionals* opts ( 64 64 (start 0) … … 69 69 (finalize-message-digest! md buf) ) ) ) 70 70 71 (define: (message-digest-file! (mdp message-digest-primitive) (flnm pathname) (buf message-digest-buffer)) -> message-digest-result- form71 (define: (message-digest-file! (mdp message-digest-primitive) (flnm pathname) (buf message-digest-buffer)) -> message-digest-result-type 72 72 (let ( 73 73 (md (initialize-message-digest mdp)) ) … … 75 75 (finalize-message-digest! md buf) ) ) 76 76 77 (define: (message-digest-port! (mdp message-digest-primitive) (port output-port) (buf message-digest-buffer)) -> message-digest-result-form 78 (let ((md (initialize-message-digest mdp))) 77 (define: (message-digest-port! (mdp message-digest-primitive) (port output-port) (buf message-digest-buffer)) -> message-digest-result-type 78 (let ( 79 (md (initialize-message-digest mdp)) ) 79 80 (message-digest-update-port md port) 80 81 (finalize-message-digest! md buf) ) )
Note: See TracChangeset
for help on using the changeset viewer.