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

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.