source: project/release/4/message-digest/trunk/message-digest-old.scm @ 35044

Last change on this file since 35044 was 35044, checked in by kon, 11 months ago

why did i care ?

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
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.