Memcached クライアント（案）

OCaml で Memcached のクライアントを書いてみようと思っています。
とりあえず形だけ。仕組みは簡単そうなので、もう他の人が作っていたりするかもしれないけれど。通信とクラス化、ちょっとした文字列処理を学べそうだから、やってみる。

(*
 *  not supported:
 *    "set", "add", "replace", "append" or "prepend"
 *    "get" and "gets"
 *    "delete"
 *    "incr" and "decr"
 *)

class memcache h p =
  object
    val mutable hostname = ""
    val mutable port = 0

    initializer
      hostname <- h;
      port <- p;
      Printf.printf "#new: %s:%d\n" hostname port;
      ()

    method get key = Printf.printf "#get: key=[%s]\n" key

    method set key value = Printf.printf "#set: key=[%s], value=[%s]\n" key value

    method delete key = Printf.printf "#set: key=[%s]\n" key

  end
;;

let cache = new memcache "localhost" 11211;;

cache#get "foo";;
cache#set "foo" "bar";;
cache#delete "foo";;