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

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

 /*
 %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).