;;;; lookup-table-synch.scm
;;;; Kon Lovett, Jan '18
;;;; 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
  ;DEPRECATED
  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)
(use lookup-table synch)

;;; Synchronized Dictionary

(define-constructor-synch make-dict)
(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-with ((tbl1 mtxtbl1) (tbl2 mtxtbl2))
    (dict-merge! tbl1 tbl2) ) )
(define-operation-synch dict-print)

;;;DEPRECATED

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

) ;module lookup-table-synch