source: project/release/4/lookup-table/tags/1.11.2/lookup-table-unsafe-synch.scm @ 16148

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

Fix for synch variants

File size: 1.6 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  alist->dict/synch
9  dict?/synch
10  dict->alist/%synch
11  dict-equivalence-function/%synch
12  dict-count/%synch
13  dict-keys/%synch
14  dict-values/%synch
15  dict-ref/%synch
16  dict-indempotent-ref!/%synch
17  dict-set!/%synch
18  dict-exists?/%synch
19  dict-update!/%synch
20  dict-update-list!/%synch
21  dict-update-dict!/%synch
22  dict-delete!/%synch
23  dict-for-each/%synch
24  dict-search/%synch
25  dict-merge!/%synch
26  dict-print/%synch)
27
28  (import scheme chicken lookup-table-unsafe synch)
29
30  (require-library lookup-table-unsafe synch)
31
32;;; UnSafe Synchronized UnSafe Dictionary
33
34
35(define-constructor/synch make-dict dict/synch:)
36(define-constructor/synch alist->dict dict/synch:)
37
38(define-predicate/synch dict?)
39
40(define-operation/%synch dict->alist)
41(define-operation/%synch dict-equivalence-function)
42(define-operation/%synch dict-count)
43(define-operation/%synch dict-keys)
44(define-operation/%synch dict-values)
45(define-operation/%synch dict-ref)
46(define-operation/%synch dict-indempotent-ref!)
47(define-operation/%synch dict-set!)
48(define-operation/%synch dict-exists?)
49(define-operation/%synch dict-update!)
50(define-operation/%synch dict-update-list!)
51(define-operation/%synch dict-update-dict!)
52(define-operation/%synch dict-delete!)
53(define-operation/%synch dict-for-each)
54(define-operation/%synch dict-search)
55(define (dict-merge!/%synch mtxtbl1 mtxtbl2)
56  (%let/synch ((tbl1 mtxtbl1) (tbl2 mtxtbl2))
57    (dict-merge! tbl1 tbl2) ) )
58(define-operation/%synch dict-print)
59
60) ;module lookup-table-unsafe-synch
Note: See TracBrowser for help on using the repository browser.