1 /* vim:expandtab:shiftwidth=2:tabstop=2:smarttab:
5 * Copyright (C) 2011 Data Differential, http://datadifferential.com/
6 * Copyright (C) 2006-2009 Brian Aker
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted provided that the following conditions are
13 * * Redistributions of source code must retain the above copyright
14 * notice, this list of conditions and the following disclaimer.
16 * * Redistributions in binary form must reproduce the above
17 * copyright notice, this list of conditions and the following disclaimer
18 * in the documentation and/or other materials provided with the
21 * * The names of its contributors may not be used to endorse or
22 * promote products derived from this software without specific prior
25 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
26 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
27 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
28 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
29 * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
30 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
31 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
32 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
33 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
34 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
35 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
40 #include "libmemcached/common.h"
42 #define memcached_set_purging(__object, __value) ((__object)->state.is_purging= (__value))
47 Purge(Memcached
* arg
) :
50 memcached_set_purging(_memc
, true);
55 memcached_set_purging(_memc
, false);
65 PollTimeout(Memcached
* arg
, int32_t ms
= 50) :
66 _timeout(arg
->poll_timeout
),
67 _origin(arg
->poll_timeout
)
82 bool memcached_purge(memcached_instance_st
* ptr
)
84 Memcached
*root
= (Memcached
*)ptr
->root
;
86 if (memcached_is_purging(ptr
->root
) || /* already purging */
87 (memcached_server_response_count(ptr
) < ptr
->root
->io_msg_watermark
&&
88 ptr
->io_bytes_sent
< ptr
->root
->io_bytes_watermark
) ||
89 (ptr
->io_bytes_sent
>= ptr
->root
->io_bytes_watermark
&&
90 memcached_server_response_count(ptr
) < 2))
96 memcached_io_write and memcached_response may call memcached_purge
97 so we need to be able stop any recursion..
99 Purge
set_purge(root
);
101 WATCHPOINT_ASSERT(ptr
->fd
!= INVALID_SOCKET
);
103 Force a flush of the buffer to ensure that we don't have the n-1 pending
104 requests buffered up..
106 if (memcached_io_write(ptr
) == false)
108 memcached_io_reset(ptr
);
109 memcached_set_error(*ptr
, MEMCACHED_WRITE_FAILURE
, MEMCACHED_AT
);
112 WATCHPOINT_ASSERT(ptr
->fd
!= INVALID_SOCKET
);
114 bool is_successful
= true;
115 uint32_t no_msg
= memcached_server_response_count(ptr
);
118 memcached_result_st result
;
121 * We need to increase the timeout, because we might be waiting for
122 * data to be sent from the server (the commands was in the output buffer
125 PollTimeout
poll_timeout(ptr
->root
);
127 memcached_result_st
* result_ptr
= memcached_result_create(root
, &result
);
130 for (uint32_t x
= 0; x
< no_msg
- 1; x
++)
132 memcached_result_reset(result_ptr
);
133 memcached_return_t rc
= memcached_read_one_response(ptr
, result_ptr
);
135 * Purge doesn't care for what kind of command results that is received.
136 * The only kind of errors I care about if is I'm out of sync with the
137 * protocol or have problems reading data from the network..
139 if (rc
== MEMCACHED_PROTOCOL_ERROR
or rc
== MEMCACHED_UNKNOWN_READ_FAILURE
or rc
== MEMCACHED_READ_FAILURE
)
141 WATCHPOINT_ERROR(rc
);
142 is_successful
= false;
144 if (rc
== MEMCACHED_TIMEOUT
) {
148 if (ptr
->root
->callbacks
!= NULL
)
150 memcached_callback_st cb
= *ptr
->root
->callbacks
;
151 if (memcached_success(rc
))
153 for (uint32_t y
= 0; y
< cb
.number_of_callback
; y
++)
155 if (memcached_fatal((*cb
.callback
[y
])(ptr
->root
, result_ptr
, cb
.context
)))
164 memcached_result_free(result_ptr
);
167 return is_successful
;