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

;;;

(module lookup-table-unsafe-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-unsafe synch)

;;; UnSafe Synchronized UnSafe 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-unsafe-synch