couchbase 1.3.4-x64-mingw32

data/ext/couchbase_ext/observe.c

@@ -0,0 +1,171 @@
+/* vim: ft=c et ts=8 sts=4 sw=4 cino=
+ *
+ *   Copyright 2011, 2012 Couchbase, Inc.
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+#include "couchbase_ext.h"
+
+    void
+cb_observe_callback(lcb_t handle, const void *cookie, lcb_error_t error, const lcb_observe_resp_t *resp)
+{
+    struct cb_context_st *ctx = (struct cb_context_st *)cookie;
+    struct cb_bucket_st *bucket = ctx->bucket;
+    VALUE key, res, exc;
+
+    if (resp->v.v0.key) {
+        key = STR_NEW((const char*)resp->v.v0.key, resp->v.v0.nkey);
+        exc = cb_check_error(error, "failed to execute observe request", key);
+        if (exc != Qnil) {
+            ctx->exception = exc;
+        }
+        res = rb_class_new_instance(0, NULL, cb_cResult);
+        rb_ivar_set(res, cb_id_iv_completed, Qfalse);
+        rb_ivar_set(res, cb_id_iv_error, ctx->exception);
+        rb_ivar_set(res, cb_id_iv_operation, cb_sym_observe);
+        rb_ivar_set(res, cb_id_iv_key, key);
+        rb_ivar_set(res, cb_id_iv_cas, ULL2NUM(resp->v.v0.cas));
+        rb_ivar_set(res, cb_id_iv_from_master, resp->v.v0.from_master ? Qtrue : Qfalse);
+        rb_ivar_set(res, cb_id_iv_time_to_persist, ULONG2NUM(resp->v.v0.ttp));
+        rb_ivar_set(res, cb_id_iv_time_to_replicate, ULONG2NUM(resp->v.v0.ttr));
+        switch (resp->v.v0.status) {
+            case LCB_OBSERVE_FOUND:
+                rb_ivar_set(res, cb_id_iv_status, cb_sym_found);
+                break;
+            case LCB_OBSERVE_PERSISTED:
+                rb_ivar_set(res, cb_id_iv_status, cb_sym_persisted);
+                break;
+            case LCB_OBSERVE_NOT_FOUND:
+                rb_ivar_set(res, cb_id_iv_status, cb_sym_not_found);
+                break;
+            default:
+                rb_ivar_set(res, cb_id_iv_status, Qnil);
+        }
+        if (bucket->async) { /* asynchronous */
+            if (ctx->proc != Qnil) {
+                cb_proc_call(bucket, ctx->proc, 1, res);
+            }
+        } else {             /* synchronous */
+            if (NIL_P(ctx->exception)) {
+                VALUE stats = rb_hash_aref(ctx->rv, key);
+                if (NIL_P(stats)) {
+                    stats = rb_ary_new();
+                    rb_hash_aset(ctx->rv, key, stats);
+                }
+                rb_ary_push(stats, res);
+            }
+        }
+    } else {
+        if (bucket->async && ctx->proc != Qnil) {
+            res = rb_class_new_instance(0, NULL, cb_cResult);
+            rb_ivar_set(res, cb_id_iv_completed, Qtrue);
+            cb_proc_call(bucket, ctx->proc, 1, res);
+        }
+        ctx->nqueries--;
+        ctx->proc = Qnil;
+        if (bucket->async) {
+            cb_context_free(ctx);
+        }
+    }
+    (void)handle;
+}
+
+/*
+ * Observe key state
+ *
+ * @since 1.2.0.dp6
+ *
+ * @overload observe(*keys, options = {})
+ *   @param keys [String, Symbol, Array] One or several keys to fetch
+ *   @param options [Hash] Options for operation.
+ *
+ *   @yieldparam ret [Result] the result of operation in asynchronous mode
+ *     (valid attributes: +error+, +status+, +operation+, +key+, +cas+,
+ *     +from_master+, +time_to_persist+, +time_to_replicate+).
+ *
+ *   @return [Hash<String, Array<Result>>, Array<Result>] the state of the
+ *     keys on all nodes. If the +keys+ argument was String or Symbol, this
+ *     method will return just array of results (result per each node),
+ *     otherwise it will return hash map.
+ *
+ *   @example Observe single key
+ *     c.observe("foo")
+ *     #=> [#<Couchbase::Result:0x00000001650df0 ...>, ...]
+ *
+ *   @example Observe multiple keys
+ *     keys = ["foo", "bar"]
+ *     stats = c.observe(keys)
+ *     stats.size   #=> 2
+ *     stats["foo"] #=> [#<Couchbase::Result:0x00000001650df0 ...>, ...]
+ */
+
+    VALUE
+cb_bucket_observe(int argc, VALUE *argv, VALUE self)
+{
+    struct cb_bucket_st *bucket = DATA_PTR(self);
+    struct cb_context_st *ctx;
+    VALUE rv, proc, exc;
+    lcb_error_t err;
+    struct cb_params_st params;
+
+    if (!cb_bucket_connected_bang(bucket, cb_sym_observe)) {
+        return Qnil;
+    }
+
+    memset(&params, 0, sizeof(struct cb_params_st));
+    rb_scan_args(argc, argv, "0*&", &params.args, &proc);
+    if (!bucket->async && proc != Qnil) {
+        rb_raise(rb_eArgError, "synchronous mode doesn't support callbacks");
+    }
+    params.type = cb_cmd_observe;
+    params.bucket = bucket;
+    cb_params_build(&params);
+    ctx = cb_context_alloc_common(bucket, proc, params.cmd.observe.num);
+    err = lcb_observe(bucket->handle, (const void *)ctx,
+            params.cmd.observe.num, params.cmd.observe.ptr);
+    cb_params_destroy(&params);
+    exc = cb_check_error(err, "failed to schedule observe request", Qnil);
+    if (exc != Qnil) {
+        cb_context_free(ctx);
+        rb_exc_raise(exc);
+    }
+    bucket->nbytes += params.npayload;
+    if (bucket->async) {
+        cb_maybe_do_loop(bucket);
+        return Qnil;
+    } else {
+        if (ctx->nqueries > 0) {
+            /* we have some operations pending */
+            lcb_wait(bucket->handle);
+        }
+        exc = ctx->exception;
+        rv = ctx->rv;
+        cb_context_free(ctx);
+        if (exc != Qnil) {
+            rb_exc_raise(exc);
+        }
+        exc = bucket->exception;
+        if (exc != Qnil) {
+            bucket->exception = Qnil;
+            rb_exc_raise(exc);
+        }
+        if (params.cmd.observe.num > 1 || params.cmd.observe.array) {
+            return rv;  /* return as a hash {key => {}, ...} */
+        } else {
+            VALUE vv = Qnil;
+            rb_hash_foreach(rv, cb_first_value_i, (VALUE)&vv);
+            return vv;  /* return first value */
+        }
+    }
+}

data/ext/couchbase_ext/plugin_common.c

@@ -0,0 +1,171 @@
+/* vim: ft=c et ts=8 sts=4 sw=4 cino=
+ *
+ *   Copyright 2012 Couchbase, Inc.
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+#include "couchbase_ext.h"
+
+#ifndef _WIN32
+
+#include <errno.h>
+#include <sys/types.h>
+#include <sys/socket.h>
+
+#ifndef RUBY_WIN32_H
+#  include <unistd.h>
+#ifdef HAVE_FCNTL_H
+#  include <fcntl.h>
+#endif
+#define INVALID_SOCKET (-1)
+#else /* RUBY_WIN32_h */
+static st_table *socket_2_fd = NULL;
+#endif
+
+/* Copied from libev plugin */
+    lcb_ssize_t
+cb_io_recv(struct lcb_io_opt_st *iops, lcb_socket_t sock,
+        void *buffer, lcb_size_t len, int flags)
+{
+    lcb_ssize_t ret = recv(sock, buffer, len, flags);
+    if (ret < 0) {
+        iops->v.v0.error = errno;
+    }
+    return ret;
+}
+
+    lcb_ssize_t
+cb_io_recvv(struct lcb_io_opt_st *iops, lcb_socket_t sock,
+        struct lcb_iovec_st *iov, lcb_size_t niov)
+{
+    struct msghdr msg;
+    struct iovec vec[2];
+    lcb_ssize_t ret;
+
+    if (niov != 2) {
+        return -1;
+    }
+    memset(&msg, 0, sizeof(msg));
+    msg.msg_iov = vec;
+    msg.msg_iovlen = iov[1].iov_len ? (lcb_size_t)2 : (lcb_size_t)1;
+    msg.msg_iov[0].iov_base = iov[0].iov_base;
+    msg.msg_iov[0].iov_len = iov[0].iov_len;
+    msg.msg_iov[1].iov_base = iov[1].iov_base;
+    msg.msg_iov[1].iov_len = iov[1].iov_len;
+    ret = recvmsg(sock, &msg, 0);
+
+    if (ret < 0) {
+        iops->v.v0.error = errno;
+    }
+
+    return ret;
+}
+
+    lcb_ssize_t
+cb_io_send(struct lcb_io_opt_st *iops, lcb_socket_t sock,
+        const void *msg, lcb_size_t len, int flags)
+{
+    lcb_ssize_t ret = send(sock, msg, len, flags);
+    if (ret < 0) {
+        iops->v.v0.error = errno;
+    }
+    return ret;
+}
+
+    lcb_ssize_t
+cb_io_sendv(struct lcb_io_opt_st *iops, lcb_socket_t sock,
+        struct lcb_iovec_st *iov, lcb_size_t niov)
+{
+    struct msghdr msg;
+    struct iovec vec[2];
+    lcb_ssize_t ret;
+
+    if (niov != 2) {
+        return -1;
+    }
+    memset(&msg, 0, sizeof(msg));
+    msg.msg_iov = vec;
+    msg.msg_iovlen = iov[1].iov_len ? (lcb_size_t)2 : (lcb_size_t)1;
+    msg.msg_iov[0].iov_base = iov[0].iov_base;
+    msg.msg_iov[0].iov_len = iov[0].iov_len;
+    msg.msg_iov[1].iov_base = iov[1].iov_base;
+    msg.msg_iov[1].iov_len = iov[1].iov_len;
+    ret = sendmsg(sock, &msg, 0);
+
+    if (ret < 0) {
+        iops->v.v0.error = errno;
+    }
+    return ret;
+}
+
+    static int
+make_socket_nonblocking(lcb_socket_t sock)
+{
+    int flags = 0;
+#ifdef F_GETFL
+    if ((flags = fcntl(sock, F_GETFL, NULL)) < 0) {
+        return -1;
+    }
+#endif
+    if (fcntl(sock, F_SETFL, flags | O_NONBLOCK) == -1) {
+        return -1;
+    }
+
+    return 0;
+}
+
+    static int
+close_socket(lcb_socket_t sock)
+{
+    return close(sock);
+}
+
+    lcb_socket_t
+cb_io_socket(struct lcb_io_opt_st *iops, int domain, int type,
+        int protocol)
+{
+    lcb_socket_t sock = socket(domain, type, protocol);
+    if (sock == INVALID_SOCKET) {
+        iops->v.v0.error = errno;
+    } else {
+        if (make_socket_nonblocking(sock) != 0) {
+            int error = errno;
+            iops->v.v0.close(iops, sock);
+            iops->v.v0.error = error;
+            sock = INVALID_SOCKET;
+        }
+    }
+
+    return sock;
+}
+
+    void
+cb_io_close(struct lcb_io_opt_st *iops, lcb_socket_t sock)
+{
+    close_socket(sock);
+    (void)iops;
+}
+
+    int
+cb_io_connect(struct lcb_io_opt_st *iops, lcb_socket_t sock,
+        const struct sockaddr *name, unsigned int namelen)
+{
+    int ret = connect(sock, name, (socklen_t)namelen);
+    if (ret < 0) {
+        iops->v.v0.error = errno;
+    }
+    return ret;
+}
+
+#endif

data/ext/couchbase_ext/result.c

@@ -0,0 +1,129 @@
+/* vim: ft=c et ts=8 sts=4 sw=4 cino=
+ *
+ *   Copyright 2011, 2012 Couchbase, Inc.
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+#include "couchbase_ext.h"
+
+/*
+ * Check if result of operation was successful.
+ *
+ * @since 1.0.0
+ *
+ * @return [true, false] +false+ if there is an +error+ object attached,
+ *   +false+ otherwise.
+ */
+    VALUE
+cb_result_success_p(VALUE self)
+{
+    return RTEST(rb_attr_get(self, cb_id_iv_error)) ? Qfalse : Qtrue;
+}
+
+/*
+ * Returns a string containing a human-readable representation of the Result.
+ *
+ * @since 1.0.0
+ *
+ * @return [String]
+ */
+    VALUE
+cb_result_inspect(VALUE self)
+{
+    VALUE str, attr;
+    char buf[100];
+
+    str = rb_str_buf_new2("#<");
+    rb_str_buf_cat2(str, rb_obj_classname(self));
+    snprintf(buf, 100, ":%p", (void *)self);
+    rb_str_buf_cat2(str, buf);
+
+    attr = rb_attr_get(self, cb_id_iv_operation);
+    if (RTEST(attr)) {
+        rb_str_buf_cat2(str, " operation=");
+        rb_str_append(str, rb_inspect(attr));
+    }
+
+    attr = rb_attr_get(self, cb_id_iv_error);
+    if (RTEST(attr)) {
+        rb_str_buf_cat2(str, " error=");
+        rb_str_append(str, rb_inspect(attr));
+    }
+
+    attr = rb_attr_get(self, cb_id_iv_value);
+    if (RTEST(attr) && rb_obj_is_kind_of(attr, cb_cBucket)) {
+        rb_str_buf_cat2(str, " bucket="); /* value also accessible using alias #bucket */
+        rb_str_append(str, rb_inspect(attr));
+    }
+
+    attr = rb_attr_get(self, cb_id_iv_key);
+    if (RTEST(attr)) {
+        rb_str_buf_cat2(str, " key=");
+        rb_str_append(str, rb_inspect(attr));
+    }
+
+    attr = rb_attr_get(self, cb_id_iv_status);
+    if (RTEST(attr)) {
+        rb_str_buf_cat2(str, " status=");
+        rb_str_append(str, rb_inspect(attr));
+    }
+
+    attr = rb_attr_get(self, cb_id_iv_cas);
+    if (RTEST(attr)) {
+        rb_str_buf_cat2(str, " cas=");
+        rb_str_append(str, rb_inspect(attr));
+    }
+
+    attr = rb_attr_get(self, cb_id_iv_flags);
+    if (RTEST(attr)) {
+        rb_str_buf_cat2(str, " flags=0x");
+        rb_str_append(str, rb_funcall(attr, cb_id_to_s, 1, INT2FIX(16)));
+    }
+
+    attr = rb_attr_get(self, cb_id_iv_node);
+    if (RTEST(attr)) {
+        rb_str_buf_cat2(str, " node=");
+        rb_str_append(str, rb_inspect(attr));
+    }
+
+    attr = rb_attr_get(self, cb_id_iv_from_master);
+    if (attr != Qnil) {
+        rb_str_buf_cat2(str, " from_master=");
+        rb_str_append(str, rb_inspect(attr));
+    }
+
+    attr = rb_attr_get(self, cb_id_iv_time_to_persist);
+    if (RTEST(attr)) {
+        rb_str_buf_cat2(str, " time_to_persist=");
+        rb_str_append(str, rb_inspect(attr));
+    }
+
+    attr = rb_attr_get(self, cb_id_iv_time_to_replicate);
+    if (RTEST(attr)) {
+        rb_str_buf_cat2(str, " time_to_replicate=");
+        rb_str_append(str, rb_inspect(attr));
+    }
+
+    attr = rb_attr_get(self, cb_id_iv_headers);
+    if (RTEST(attr)) {
+        rb_str_buf_cat2(str, " headers=");
+        rb_str_append(str, rb_inspect(attr));
+    }
+
+    rb_str_buf_cat2(str, ">");
+
+    return str;
+}
+
+