Line | |
---|
1 | ;;;; message-digest-old.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 | ;; - DEPRECATED |
---|
10 | |
---|
11 | (module message-digest-old |
---|
12 | |
---|
13 | (;export |
---|
14 | string->hex |
---|
15 | byte-string->hexadecimal |
---|
16 | make-binary-message-digest |
---|
17 | make-message-digest |
---|
18 | message-digest-primitive-apply) |
---|
19 | |
---|
20 | (import scheme chicken) |
---|
21 | |
---|
22 | (use |
---|
23 | (only string-hexadecimal string->hex) |
---|
24 | message-digest-basic |
---|
25 | message-digest-single) |
---|
26 | |
---|
27 | ;;; Byte-string Utilities |
---|
28 | |
---|
29 | (define byte-string->hexadecimal string->hex) |
---|
30 | |
---|
31 | ;;; Old API |
---|
32 | |
---|
33 | ;; |
---|
34 | |
---|
35 | ;DEPRECATED |
---|
36 | (define (message-digest-primitive-apply mdp src . args) |
---|
37 | (message-digest-object mdp src 'string) ) |
---|
38 | |
---|
39 | ;; |
---|
40 | |
---|
41 | ;DEPRECATED |
---|
42 | (define (make-binary-message-digest src ctx-info digest-len init update final |
---|
43 | #!optional (name 'make-binary-message-digest)) |
---|
44 | (message-digest-object |
---|
45 | (make-message-digest-primitive ctx-info digest-len init update final name) |
---|
46 | src |
---|
47 | 'string) ) |
---|
48 | |
---|
49 | ;; |
---|
50 | |
---|
51 | ;DEPRECATED |
---|
52 | (define (make-message-digest src ctx-info digest-len init update final |
---|
53 | #!optional (name 'make-message-digest)) |
---|
54 | (message-digest-object |
---|
55 | (make-message-digest-primitive ctx-info digest-len init update final name) |
---|
56 | src |
---|
57 | 'hex) ) |
---|
58 | |
---|
59 | ) ;module message-digest |
---|
Note: See
TracBrowser
for help on using the repository browser.