Ignore:
Timestamp:
03/25/18 19:50:42 (2 years ago)
Author:
Kon Lovett
Message:

add types, message-digest-result-form -> -type, -form is symbol, -byte-order is symbol, do not type check-/error- (no no no no no)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/message-digest/trunk/message-digest-types.scm

    r35339 r35341  
    99(define-type pathname string)
    1010
    11 (define-type srfi4vector (or u8vector s8vector u16vector s16vector u32vector s32vector f32vector f64vector))
     11(define-type srfi4vector
     12  (or u8vector s8vector u16vector s16vector u32vector s32vector f32vector f64vector))
    1213
    13 ;(define-type message-digest-buffer (or string blob srfi4vector procedure input-port pointer))
     14#; ;desired, bufpointer is (pointer + length)
     15(define-type message-digest-buffer
     16  (or string blob srfi4vector procedure input-port bufpointer))
    1417(define-type message-digest-buffer (or string blob u8vector))
    1518
    16 (define-type message-digest-result-form (or string blob u8vector))
     19(define-type message-digest-byte-order symbol)
     20
     21(define-type message-digest-result-form symbol)
     22
     23(define-type message-digest-result-type (or string blob u8vector))
    1724
    1825(define-type message-digest-buffer (or string blob u8vector))
     
    2330
    2431(define-type message-digest (struct message-digest))
     32
     33(define-type digest-output-port output-port)
Note: See TracChangeset for help on using the changeset viewer.