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下的示例代码吧。
源程序看起来比较痛苦。

[code]
/**
* 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);
}
[/code]