blob: 9e30e6cef8181540e9dc02529cade4f7f1974506 (
plain) (
blame)
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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
;;; Internal procedure definitions (all take a vec argument first)
(define (idictionary? obj)
(error "dictionary? method not defined"))
(define (idict-empty? dictionary)
#f)
(define (idict-contains? dictionary key)
#f)
(define idict-ref
(case-lambda
((vec dictionary key)
(idict-ref* vec dictionary key error values))
((vec dictionary key failure)
(idict-ref* vec dictionary key failure values))
((vec dictionary key failure success)
(idict-ref* vec dictionary key failure success))))
(define (idict-ref* dictionary key failure success)
#f)
(define idict-ref
(case-lambda
((vec dictionary key)
(idict-ref* vec dictionary key error values))
((vec dictionary key failure)
(idict-ref* vec dictionary key failure values))
((vec dictionary key failure success)
(idict-ref* vec dictionary key failure success))))
(define (idict-ref* vec dictionary key failure success)
#f)
(define (idict-ref/default dictionary key default)
#f)
(define (idict-set! dictionary . objs)
#f)
(define (idict-adjoin! dictionary . objs)
#f)
(define (idict-delete! dictionary . keys)
#f)
(define (idict-delete-all! dictionary keylist)
#f)
(define (idict-replace! dictionary key value)
#f)
(define (idict-intern! dictionary key failure)
#f)
(define idict-update!
(case-lambda
((vec dictionary key updater)
(idict-update!* vec dictionary key updater error values))
((vec dictionary key updater failure)
(idict-update!* vec dictionary key updater failure values))
((vec dictionary key updater failure success)
(idict-update!* vec dictionary key updater failure success))))
(define (idict-update!* vec dictionary key updater failure success)
#f)
(define (idict-update/default! dictionary key updater default)
#f)
(define idict-pop!
(case-lambda
((vec dictionary)
(idict-pop!* vec dictionary error))
((vec dictionary failure)
(idict-pop!* vec dictionary failure))))
(define (idict-pop!* vec dictionary failure)
#f)
(define (idict-map! proc dictionary)
(error "dict-map method not defined"))
(define (idict-filter! pred dictionary)
(error "dict-filter! method not defined"))
(define (idict-remove! dictionary pred)
#f)
(define (idict-search! dictionary key failure success)
(error "dict-search! method not defined"))
(define (idict-size dictionary)
(error "dict-size method not defined"))
(define (idict-for-each proc dictionary)
(error "dict-for-each method not defined"))
(define (idict-count pred dictionary)
#f)
(define (idict-any pred dictionary)
#f)
(define (idict-every pred dictionary)
#f)
(define (idict-keys dictionary)
#f)
(define (idict-values dictionary)
#f)
(define (idict-entries dictionary)
#f)
(define (idict-fold proc knil dictionary)
#f)
(define (idict-map->list proc dictionary)
#f)
(define (idict->alist dictionary)
#f)
(define model-vec #(
idictionary? idict-empty? idict-contains? idict-ref
idict-ref/default idict-set! idict-adjoin! idict-delete!
idict-delete-all! idict-replace! idict-intern!
idict-update! idict-pop! idict-map! idict-filter!
idict-remove! idict-search! idict-size idict-for-each
idict-count idict-any idict-every idict-keys
idict-values idict-entries idict-fold idict-map->list
idict->alist))
|
