Last change
on this file since 35339 was
35339,
checked in by Kon Lovett, 3 years ago
|
add define-types include, add types, reflow
|
File size:
1.3 KB
|
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 | (use |
---|
22 | (only string-hexadecimal string->hex) |
---|
23 | message-digest-basic |
---|
24 | message-digest-single) |
---|
25 | |
---|
26 | ;;; Byte-string Utilities |
---|
27 | |
---|
28 | (define byte-string->hexadecimal string->hex) |
---|
29 | |
---|
30 | ;;; Old API |
---|
31 | |
---|
32 | ;;DEPRECATED |
---|
33 | |
---|
34 | (: message-digest-primitive-apply deprecated) |
---|
35 | (define (message-digest-primitive-apply mdp src . args) |
---|
36 | (message-digest-object mdp src 'string) ) |
---|
37 | |
---|
38 | (: make-binary-message-digest deprecated) |
---|
39 | (define (make-binary-message-digest src ctx-info digest-len init update final |
---|
40 | #!optional (name 'make-binary-message-digest)) |
---|
41 | (message-digest-object |
---|
42 | (make-message-digest-primitive ctx-info digest-len init update final name) |
---|
43 | src |
---|
44 | 'string) ) |
---|
45 | |
---|
46 | (: make-message-digest deprecated) |
---|
47 | (define (make-message-digest src ctx-info digest-len init update final |
---|
48 | #!optional (name 'make-message-digest)) |
---|
49 | (message-digest-object |
---|
50 | (make-message-digest-primitive ctx-info digest-len init update final name) |
---|
51 | src |
---|
52 | 'hex) ) |
---|
53 | |
---|
54 | ) ;module message-digest |
---|
Note: See
TracBrowser
for help on using the repository browser.