「組み込みRedis述語を使用する」の編集履歴（バックアップ）一覧に戻る

組み込みRedis述語を使用する - (2014/05/07 (水) 16:12:55) のソース

/*
%redis組み込み関数
redis_connect
redis_free_context
redis_command
redis_command_hate_integer
redis_version
redis_is_disconnected
*/
 
redis_init:-redis_connect('127.0.0.1',6379,3000,C),assert(redis_ID(C)),!.
resis_end:-abolish(redis_ID,1),redis_free_context(C).
resis_set(K,V):-redis_ID(C),!,redis_command(C,[set,K,V],_,_).
resis_get(K,V):-redis_ID(C),!,redis_command(C,[get,K],_,V).
resis_del(K):-redis_ID(C),!,redis_command(C,[expire,K,'1'],_,_). %,s_sleep(500),
resis_count(K):-redis_ID(C),
  redis_command(C,[get,K],T,V),name(A,V),term_atom(I,A),!,N is I+1,
  redis_command(C,[set,K,N],T,V).