;;;; message-digest-type.types.scm  -*- Scheme -*-
;;;; Kon Lovett, Apr '20

;; Include File

(define-type srfi4vector
  (or u8vector s8vector u16vector s16vector u32vector s32vector f32vector f64vector))

(define-type message-digest-result-form symbol)

(define-type message-digest-result-type (or string blob u8vector))

#; ;desired, bufpointer is (pointer + length)
(define-type message-digest-buffer (or string blob srfi4vector procedure input-port bufpointer))
(define-type message-digest-buffer (or string blob u8vector))

(define-type message-digest-primitive-context *)

(define-type message-digest (struct message-digest))