memcached函数的学习程序

尝试把 libmemcached的示例程序改成D语言的。
源程序 和示例程序可以从 这里下载：
http://people.freebsd.org/~seanc/libmemcache/
也可以从附件下载

本程序使用了bcd程序来转换c语言的头文件。
转换后的memcache.h为 bcd.libmemcache.memcache
有几个函数和类型没有转换（？），手动添加进去的。

编译方法为：
先把libmemcache装上，默认装到/usr/local下
然后用：
dmd memcached.d /usr/local/lib/libmemcache.a

PS：libmemcache的错误捕捉方法，见 libmemcache包中的test目录下的相关程序
该lib包的文档不多，多阅读test下的示例代码吧。
源程序看起来比较痛苦。

/**
 * Memcached的应用程序
 * Edit by Liu Dehong @ 2007/08/09
 * Version:
 *  1.0.0
 */

import std.stdio;
import std.c.stdlib;
import std.string;
import std.socket;
import bcd.libmemcache.memcache;

void main()
{
    /* Create a new memcache instance */
    memcache *mc = mc_new();

    /* Add a few servers */
    mc_server_add(mc, "127.0.0.1", "11211");
    mc_server_add(mc, "127.0.0.1", "11212");
    mc_server_add4(mc, "127.0.0.1:11213");

    char[] key = "key";
    char[] val = "100";
    int expire = 100;
    int flags  = 0;

    /* Add a key */
    mc_add(mc, toStringz(key), key.length, toStringz(val), val.length, expire, flags);

    /* Get a key, caller has to free(3) memory */
    void *blah = mc_aget(mc, toStringz(key), key.length);
    printf("%s"\n, blah);
    auto myval = toString(cast(char*)blah).dup;
    writefln("%s", myval);
    free(blah);

    char[] key1 = "key1";
    char[] key2 = "key2";
    /* Perform a multi-key request */
    memcache_req *req = mc_req_new();
    mc_req_add(req, toStringz(key1), key1.length);
    mc_req_add(req, toStringz(key2), key2.length);
    mc_get(mc, req);
    /* Process the results (need a better interface to looping through results) */

    /* Perform a multi-key request the easy way (this is my preferred way of getting data): */
    req = mc_req_new();
    auto res1 = mc_req_add(req, toStringz(key1), key1.length);
    auto res2 = mc_req_add(req, toStringz(key2), key2.length);
    mc_get(mc, req);
    /* Play with res1/res2 w/o any looping through req */


    /* Complex multi-key get example: */
    /* Grab the response object that will be used to store a given key */
    char[] key3 = "key3";
    memcache_res *res = mc_req_add(req, toStringz(key3), key3.length);
    res.size = 1024;               /* Allocate our own memory a head of time (useful for loops) */
    res.val = malloc(res.size);
    mc_res_free_on_delete(res, 1);

    /* Perform the get */
    mc_get(mc, req);
    mc_res_free(req, res);

    /* Get stats from the whole cluster */
    memcache_server_stats *s = mc_stats(mc);
    mc_server_stats_free(s);

    /* Storage commands: */
    mc_add(mc, toStringz(key), key.length, toStringz(val), val.length, expire, flags);
    mc_replace(mc, toStringz(key), key.length, toStringz(val), val.length, expire, flags);
    //mc_replace(mc, key, key_len, val, bytes, expire, flags);
    mc_set(mc, toStringz(key), key.length, toStringz(val), val.length, expire, flags);

    int hold_timer = 0;
    /* Delete commands: */
    mc_delete(mc, toStringz(key), key.length, hold_timer);

    /* Atomic opts: */
    mc_incr(mc, toStringz(key), key.length, 10);
    mc_decr(mc, toStringz(key), key.length, 5);

    printf("%s"\n, mc_aget(mc, toStringz(key), key.length));

    mc_free(mc);
}