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

;; Issues

(module message-digest-item

(;export
  ;
  message-digest-object
  message-digest-file
  message-digest-port
  ;
  message-digest-object!
  message-digest-file!
  message-digest-port!)

(import scheme)

(import chicken)

(require-extension
  message-digest-type
  message-digest-update-item)

;;; Single Source API

;;

(define (message-digest-object mdp obj #!optional (result-type (message-digest-result-form)) (start 0) (end #f))
  (let ((md (initialize-message-digest mdp)))
    (message-digest-update-object md obj start end)
    (finalize-message-digest md result-type) ) )

(define (message-digest-file mdp flnm #!optional (result-type (message-digest-result-form)))
  (let ((md (initialize-message-digest mdp)))
    (message-digest-update-file md flnm)
    (finalize-message-digest md result-type) ) )

(define (message-digest-port mdp port #!optional (result-type (message-digest-result-form)))
  (let ((md (initialize-message-digest mdp)))
    (message-digest-update-port md port)
    (finalize-message-digest md result-type) ) )

;;

(define (message-digest-object! mdp obj buffer #!optional (start 0) (end #f))
  (let ((md (initialize-message-digest mdp)))
    (message-digest-update-object md obj start end)
    (finalize-message-digest! md buffer) ) )

(define (message-digest-file! mdp flnm buffer)
  (let ((md (initialize-message-digest mdp)))
    (message-digest-update-file md flnm)
    (finalize-message-digest! md buffer) ) )

(define (message-digest-port! mdp port buffer)
  (let ((md (initialize-message-digest mdp)))
    (message-digest-update-port md port)
    (finalize-message-digest! md buffer) ) )

) ;module message-digest-item