;;;; lookup-table-synch.scm
;;;; Kon Lovett, Sep '09

;;;

(module lookup-table-synch (;export
  make-dict/synch
  alist->dict/synch
  dict?/synch
  dict->alist/synch
  dict-equivalence-function/synch
  dict-count/synch
  dict-keys/synch
  dict-values/synch
  dict-ref/synch
  dict-indempotent-ref!/synch
  dict-set!/synch
  dict-exists?/synch
  dict-update!/synch
  dict-update-list!/synch
  dict-update-dict!/synch
  dict-delete!/synch
  dict-for-each/synch
  dict-search/synch
  dict-merge!/synch
  dict-print/synch)

  (import scheme chicken lookup-table synch)

  (require-library lookup-table synch)

;;; Synchronized Dictionary

(define-constructor/synch make-dict dict/synch:)
(define-constructor/synch alist->dict)

(define-predicate/synch dict?)

(define-operation/synch dict->alist)
(define-operation/synch dict-equivalence-function)
(define-operation/synch dict-count)
(define-operation/synch dict-keys)
(define-operation/synch dict-values)
(define-operation/synch dict-ref)
(define-operation/synch dict-indempotent-ref!)
(define-operation/synch dict-set!)
(define-operation/synch dict-exists?)
(define-operation/synch dict-update!)
(define-operation/synch dict-update-list!)
(define-operation/synch dict-update-dict!)
(define-operation/synch dict-delete!)
(define-operation/synch dict-for-each)
(define-operation/synch dict-search)
(define (dict-merge!/synch mtxtbl1 mtxtbl2)
  (let/synch ((tbl1 mtxtbl1) (tbl2 mtxtbl2))
    (dict-merge! tbl1 tbl2) ) )
(define-operation/synch dict-print)

) ;module lookup-table-synch