+static memcached_return memcached_value_fetch(memcached_st *ptr, char *key, size_t *key_length,
+ memcached_string_st *value,
+ uint16_t *flags,
+ uint64_t *cas,
+ char load_key,
+ unsigned int server_key)
+{
+ memcached_return rc;
+ char buffer[MEMCACHED_DEFAULT_COMMAND_SIZE];
+ char *string_ptr;
+ char *end_ptr;
+
+ end_ptr= buffer + MEMCACHED_DEFAULT_COMMAND_SIZE;
+
+ *flags= 0;
+
+ memcached_string_reset(value);
+
+ rc= memcached_response(ptr, buffer, MEMCACHED_DEFAULT_COMMAND_SIZE, server_key);
+
+ if (rc == MEMCACHED_SUCCESS)
+ {
+ char *next_ptr;
+ size_t value_length;
+
+ string_ptr= buffer;
+ string_ptr+= 6; /* "VALUE " */
+
+ /* We load the key */
+ if (load_key)
+ {
+ *key_length= 0;
+
+ for (; end_ptr > string_ptr && *string_ptr != ' '; string_ptr++)
+ {
+ *key= *string_ptr;
+ key++;
+ (*key_length)++;
+ }
+ }
+ else /* Skip characters */
+ for (; end_ptr > string_ptr && *string_ptr != ' '; string_ptr++);
+
+ if (end_ptr == string_ptr)
+ goto read_error;
+
+ /* Flags fetch move past space */
+ string_ptr++;
+ if (end_ptr == string_ptr)
+ goto read_error;
+ for (next_ptr= string_ptr; end_ptr > string_ptr && *string_ptr != ' '; string_ptr++);
+ *flags= (uint16_t)strtol(next_ptr, &string_ptr, 10);
+
+ if (end_ptr == string_ptr)
+ goto read_error;
+
+ /* Length fetch move past space*/
+ string_ptr++;
+ if (end_ptr == string_ptr)
+ goto read_error;
+
+ for (next_ptr= string_ptr; end_ptr > string_ptr && *string_ptr != ' '; string_ptr++);
+ value_length= (size_t)strtoll(next_ptr, &string_ptr, 10);
+
+ if (end_ptr == string_ptr)
+ goto read_error;
+
+ /* Skip spaces */
+ if (*string_ptr == '\r')
+ {
+ /* Skip past the \r\n */
+ string_ptr+= 2;
+ }
+ else
+ {
+ string_ptr++;
+ for (next_ptr= string_ptr; end_ptr > string_ptr && *string_ptr != ' '; string_ptr++);
+ if (cas)
+ *cas= (size_t)strtoll(next_ptr, &string_ptr, 10);
+ }
+
+ if (end_ptr < string_ptr)
+ goto read_error;
+
+ if (value_length)
+ {
+ size_t read_length;
+ size_t to_read;
+ char *value_ptr;
+
+ /* We add two bytes so that we can walk the \r\n */
+ rc= memcached_string_check(value, value_length+2);
+ if (rc != MEMCACHED_SUCCESS)
+ {
+ value_length= 0;
+ return MEMCACHED_MEMORY_ALLOCATION_FAILURE;
+ }
+
+ value_ptr= memcached_string_value(value);
+ read_length= 0;
+ /*
+ We read the \r\n into the string since not doing so is more
+ cycles then the waster of memory to do so.
+
+ We are null terminating through, which will most likely make
+ some people lazy about using the return length.
+ */
+ to_read= (value_length) + 2;
+
+ read_length= memcached_io_read(ptr, server_key,
+ value_ptr, to_read);
+
+ if (read_length != (size_t)(value_length + 2))
+ {
+ goto read_error;
+ }
+
+ /* This next bit blows the API, but this is internal....*/
+ {
+ char *char_ptr;
+ char_ptr= memcached_string_value(value);;
+ char_ptr[value_length]= 0;
+ char_ptr[value_length + 1]= 0;
+ memcached_string_set_length(value, value_length);
+ }
+
+ return MEMCACHED_SUCCESS;
+ }
+ }
+ else if (rc == MEMCACHED_END)
+ rc= MEMCACHED_NOTFOUND;
+
+ return rc;
+
+read_error:
+ return MEMCACHED_PARTIAL_READ;
+}
+
+/*
+ What happens if no servers exist?
+*/