store_test_and_set(Store, Key, OldValue, NewValue) :- with_mutex(Store, ( store_get(Store, Key, Entry), OldValue == Entry, store_set(Store, Key, NewValue) )).Note that the old value is compared for identity, which implies that only ground terms can possibly be identical to the stored value (because the stored term has different variables).
The key can be arbitrarily complex, but must be a ground term. The value can be an arbitrary term, and may contain uninstantiated variables. Note that values are copied when being stored or retrieved, therefore a retrieved nonground value will contain fresh variables rather than the original ones (this is similar to the behaviour of bags, shelves and global variables).
The complexity of the update operation is linear in the size of the key and both values. NewValue is copied. For indexing purposes, a hash value is computed from the key, and the full depth of the key is taken into account.
Note: If StoreHandle is not a handle, then it must be an atom or a compound term, and the store is identified by this term's toplevel functor together with the context module.
?- store_create(Handle), store_test_and_set(Handle, tom, Old, first). % no entry yet No (0.00s cpu) ?- store_create(Handle), store_set(Handle, tom, first), store_test_and_set(Handle, tom, first, second), store_get(Handle, tom, New). Handle = $&(store,"17h3") Old = first New = second Yes (0.00s cpu) ?- store_create(Handle), store_set(Handle, tom, first), store_test_and_set(Handle, tom, premier, second). No (0.00s cpu)