source: project/release/4/lookup-table/trunk/lookup-table-unsafe-synch.scm @ 16134

Last change on this file since 16134 was 16134, checked in by Kon Lovett, 10 years ago

Test for /synch variants

File size: 1.5 KB
Line 
1;;;; lookup-table-unsafe-synch.scm
2;;;; Kon Lovett, Sep '09
3
4;;;
5
6(module lookup-table-unsafe-synch (;export
7  make-dict/synch
8  dict?/synch
9  alist->dict/%synch
10  dict->alist/%synch
11  dict?/%synch
12  dict-equivalence-function/%synch
13  dict-count/%synch
14  dict-keys/%synch
15  dict-values/%synch
16  dict-ref/%synch
17  dict-indempotent-ref!/%synch
18  dict-set!/%synch
19  dict-exists?/%synch
20  dict-update!/%synch
21  dict-update-list!/%synch
22  dict-update-dict!/%synch
23  dict-delete!/%synch
24  dict-for-each/%synch
25  dict-search/%synch
26  dict-merge!/%synch
27  dict-print/%synch)
28
29  (import scheme chicken lookup-table-unsafe synch)
30
31  (require-library lookup-table-unsafe synch)
32
33;;; UnSafe Synchronized UnSafe Dictionary
34
35
36(define-constructor/synch make-dict dict/%synch:)
37
38(define-predicate/synch dict?)
39
40(define-operation/%synch alist->dict)
41(define-operation/%synch dict->alist)
42(define-operation/%synch dict?)
43(define-operation/%synch dict-equivalence-function)
44(define-operation/%synch dict-count)
45(define-operation/%synch dict-keys)
46(define-operation/%synch dict-values)
47(define-operation/%synch dict-ref)
48(define-operation/%synch dict-indempotent-ref!)
49(define-operation/%synch dict-set!)
50(define-operation/%synch dict-exists?)
51(define-operation/%synch dict-update!)
52(define-operation/%synch dict-update-list!)
53(define-operation/%synch dict-update-dict!)
54(define-operation/%synch dict-delete!)
55(define-operation/%synch dict-for-each)
56(define-operation/%synch dict-search)
57(define-operation/%synch dict-merge!)
58(define-operation/%synch dict-print)
59
60) ;module lookup-table-unsafe-synch
Note: See TracBrowser for help on using the repository browser.