source: project/release/4/message-digest/trunk/message-digest-types.scm @ 35341

Last change on this file since 35341 was 35341, checked in by kon, 13 months ago

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 size: 893 bytes
Line 
1;;;; message-digest-types.scm
2;;;; Kon Lovett, Mar '18
3
4;; Issues
5;;
6
7;;include
8
9(define-type pathname string)
10
11(define-type srfi4vector
12  (or u8vector s8vector u16vector s16vector u32vector s32vector f32vector f64vector))
13
14#; ;desired, bufpointer is (pointer + length)
15(define-type message-digest-buffer
16  (or string blob srfi4vector procedure input-port bufpointer))
17(define-type message-digest-buffer (or string blob u8vector))
18
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))
24
25(define-type message-digest-buffer (or string blob u8vector))
26
27(define-type message-digest-context (or fixnum procedure))
28
29(define-type message-digest-primitive (struct message-digest-primitive))
30
31(define-type message-digest (struct message-digest))
32
33(define-type digest-output-port output-port)
Note: See TracBrowser for help on using the repository browser.