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

;;;; message-digest-old.scm
;;;; Kon Lovett, Jan '06 (message-digest.scm)
;;;; Kon Lovett, May '10 (message-digest.scm)
;;;; Kon Lovett, Apr '12
;;;; Kon Lovett, Aug '17

;; Issues
;;
;; - DEPRECATED

(module message-digest-old

(;export
  string->hex
  byte-string->hexadecimal
  make-binary-message-digest
  make-message-digest
  message-digest-primitive-apply)

(import scheme chicken)
(use
  (only string-hexadecimal string->hex)
  message-digest-basic
  message-digest-single)

;;; Byte-string Utilities

(define byte-string->hexadecimal string->hex)

;;; Old API

;;DEPRECATED

(: message-digest-primitive-apply deprecated)
(define (message-digest-primitive-apply mdp src . args)
  (message-digest-object mdp src 'string) )

(: make-binary-message-digest deprecated)
(define (make-binary-message-digest src ctx-info digest-len init update final
            #!optional (name 'make-binary-message-digest))
  (message-digest-object
    (make-message-digest-primitive ctx-info digest-len init update final name)
    src
    'string) )

(: make-message-digest deprecated)
(define (make-message-digest src ctx-info digest-len init update final
            #!optional (name 'make-message-digest))
  (message-digest-object
    (make-message-digest-primitive ctx-info digest-len init update final name)
    src
    'hex) )

) ;module message-digest