source: project/release/4/message-digest/tags/3.8.0/message-digest-item.scm @ 35045

Last change on this file since 35045 was 35045, checked in by Kon Lovett, 3 years ago

rel 3.8.0

File size: 1.8 KB
Line 
1;;;; message-digest-item.scm
2;;;; Kon Lovett, Jan '06 (message-digest.scm)
3;;;; Kon Lovett, may '10 (message-digest.scm)
4;;;; Kon Lovett, Apr '12
5;;;; Kon Lovett, Aug '17
6
7;; Issues
8
9(module message-digest-item
10
11(;export
12  ;
13  message-digest-object
14  message-digest-file
15  message-digest-port
16  ;
17  message-digest-object!
18  message-digest-file!
19  message-digest-port!)
20
21(import scheme chicken)
22
23(use
24  message-digest-type
25  message-digest-update-item)
26
27;;; Single Source API
28
29;;
30
31(define (message-digest-object mdp obj #!optional (result-type (message-digest-result-form)) (start 0) (end #f))
32  (let ((md (initialize-message-digest mdp)))
33    (message-digest-update-object md obj start end)
34    (finalize-message-digest md result-type) ) )
35
36(define (message-digest-file mdp flnm #!optional (result-type (message-digest-result-form)))
37  (let ((md (initialize-message-digest mdp)))
38    (message-digest-update-file md flnm)
39    (finalize-message-digest md result-type) ) )
40
41(define (message-digest-port mdp port #!optional (result-type (message-digest-result-form)))
42  (let ((md (initialize-message-digest mdp)))
43    (message-digest-update-port md port)
44    (finalize-message-digest md result-type) ) )
45
46;;
47
48(define (message-digest-object! mdp obj buffer #!optional (start 0) (end #f))
49  (let ((md (initialize-message-digest mdp)))
50    (message-digest-update-object md obj start end)
51    (finalize-message-digest! md buffer) ) )
52
53(define (message-digest-file! mdp flnm buffer)
54  (let ((md (initialize-message-digest mdp)))
55    (message-digest-update-file md flnm)
56    (finalize-message-digest! md buffer) ) )
57
58(define (message-digest-port! mdp port buffer)
59  (let ((md (initialize-message-digest mdp)))
60    (message-digest-update-port md port)
61    (finalize-message-digest! md buffer) ) )
62
63) ;module message-digest-item
Note: See TracBrowser for help on using the repository browser.