forked from gambit/gambit
/
_system#.scm
85 lines (64 loc) · 2.07 KB
/
_system#.scm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
;;;============================================================================
;;; File: "_system#.scm", Time-stamp: <2007-05-27 22:03:58 feeley>
;;; Copyright (c) 1994-2007 by Marc Feeley, All Rights Reserved.
;;;============================================================================
;;; Representation of exceptions.
(define-library-type-of-exception invalid-hash-number-exception
id: 3b7674e5-a6d8-11d9-930c-00039301ba52
constructor: #f
opaque:
(procedure unprintable: read-only:)
(arguments unprintable: read-only:)
)
(define-library-type-of-exception unbound-table-key-exception
id: 1a1e928d-8df4-11d9-8894-00039301ba52
constructor: #f
opaque:
(procedure unprintable: read-only:)
(arguments unprintable: read-only:)
)
(define-library-type-of-exception unbound-serial-number-exception
id: 3eb844fe-9381-11d9-b22f-00039301ba52
constructor: #f
opaque:
(procedure unprintable: read-only:)
(arguments unprintable: read-only:)
)
;;;----------------------------------------------------------------------------
;;; Define type checking macros.
(define-check-type hash-algorithm 'hash-algorithm
##hash-algorithm?)
;;;----------------------------------------------------------------------------
;;; Representation of tables.
(define-type table
id: 5917e472-85e5-11d9-a2c0-00039301ba52
type-exhibitor: macro-type-table
constructor: macro-make-table
implementer: implement-type-table
opaque:
macros:
prefix: macro-
(flags unprintable:)
(test unprintable:)
(hash unprintable:)
(loads unprintable:)
(gcht unprintable:)
(init unprintable:)
)
;;; Representation of digests.
(define-type digest
id: 1ce13de0-ccaa-4627-94be-b13eaa2c32e6
type-exhibitor: macro-type-digest
constructor: macro-make-digest
implementer: implement-type-digest
opaque:
macros:
prefix: macro-
(close-digest unprintable:)
(hash-update unprintable:)
(hash unprintable:)
(block unprintable:)
(block-pos unprintable:)
(bit-pos unprintable:)
)
;;;============================================================================