extra/redis/assoc/assoc.factor

   1 ! Copyright (C) 2009 Bruno Deferrari
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: assocs kernel redis ;
   4 IN: redis.assoc
   5
   6 INSTANCE: redis assoc
   7
   8 M: redis at* [ redis-get dup >boolean ] with-redis ;
   9
  10 M: redis assoc-size [ redis-dbsize ] with-redis ;
  11
  12 M: redis >alist [ "*" redis-keys dup redis-mget zip ] with-redis ;
  13
  14 M: redis set-at [ redis-set ] with-redis ;
  15
  16 M: redis delete-at [ redis-del drop ] with-redis ;
  17
  18 M: redis clear-assoc [ redis-flushdb ] with-redis ;
  19
  20 M: redis equal? assoc= ;
  21
  22 M: redis hashcode* assoc-hashcode ;