FEATURE: touch command

[cheesecrust]

• touch 기능 개발 #487

Description

A feature to alter the expiration time of a key without fetching the item.
This works for KV relationships and collections.

Syntax

touch <key> <exptime> [noreply]\r\n

Response

• "TOUCHED\r\n" to indicate success
• "NOT_FOUND\r\n" to indicate that the item with this key was not
  found.

[namsic]

전반적으로 코드 정리가 필요해 보입니다.
코드 포맷이나 불필요한 코드는 없는지 다시 확인해 주세요.

[namsic]

코드 정리에 더 신경써 주기 바랍니다.

[jhpark816]

@cheesecrust
아래 추가 바랍니다.

• DOCS에 명령 설명 추가
• make test 시에 unit testing할 수 있도록 간단한 test 추가.

[ing-eoking]

mem_cmd_is 에 대한 참고입니다.

arcus-memcached/t/lib/MemcachedTest.pm

Lines 41 to 134 in b9bb4b2

	sub mem_cmd_is {
	my ($sock_opts, $cmd, $val, $rst, $msg) = @_;
	my @response_list;
	my @response_error = ("ATTR_ERROR", "CLIENT_ERROR", "ERROR", "PREFIX_ERROR", "SERVER_ERROR");
	my @prdct_response = split('\n', $rst);
	my @cmd_pipeline = split('\r\n', $cmd);
	my $rst_type = 0;
	my $count;
	my $opts = ref $sock_opts eq "HASH" ? $sock_opts : {};
	my $sock = ref $sock_opts eq "HASH" ? $opts->{sock} : $sock_opts;
	# send command
	if ("$val" eq "") {
	print $sock "$cmd\r\n";
	} else {
	print $sock "$cmd\r\n$val\r\n";
	}
	# msg string
	if ("$msg" eq "") {
	if (length($val) <= 40) {
	$msg = $cmd . ":" . $val;
	} else {
	$msg = $cmd . ":" . substr($val, 0, 40);
	}
	}
	my $resp = "";
	my $line;
	if ($cmd =~ /noreply$/) {
	if ("$rst" ne "") {
	$rst_type = 3;
	}
	} elsif ($#cmd_pipeline > 1) {
	$rst_type = 3;
	} else {
	$line = scalar <$sock>;
	$resp = $resp . (substr $line, 0, length($line)-2);
	if ($line =~ /^VALUE/) {
	$rst_type = 1;
	@response_list = ("DELETED", "DELETED_DROPPED", "DUPLICATED", "DUPLICATED_TRIMMED", "END", "TRIMMED");
	} elsif ($line =~ /^ELEMENTS/) {
	$rst_type = 1;
	@response_list = ("DUPLICATED", "END");
	} elsif (grep $resp =~ /^$_/, @response_error) {
	$rst_type = 2;
	} elsif ($line =~ /^RESPONSE/) { # pipe command
	$rst_type = 2;
	} elsif ($line =~ /^(ATTR|PREFIX)/) {
	$rst_type = 1;
	@response_list = ("END");
	} else {
	# single line response
	# @response_list = ("ATTR_MISMATCH", "BKEY_MISMATCH", "CREATED", "CREATED_STORED"
	# , "DELETED", "DELETED_DROPPED", "DUPLICATED", "DUPLICATED_TRIMMED"
	# , "EFLAG_MISMATCH", "ELEMENT_EXISTS", "END", "EXIST", "EXISTS", "NOT_EXIST", "NOT_FOUND"
	# , "NOT_FOUND_ELEMENT", "NOT_STORED", "NOT_SUPPORTED", "NOTHING_TO_UPDATE", "OK"
	# , "OUT_OF_RANGE", "OVERFLOWED", "REPLACED", "RESET", "STORED", "TRIMMED"
	# , "TYPE_MISMATCH", "UNREADABLE", "UPDATED"
	# , "ATTR_ERROR", "CLIENT_ERROR", "ERROR", "PREFIX_ERROR", "SERVER_ERROR"
	# , "COUNT=", "POSITION=");
	}
	}
	if ($rst_type eq 1) {
	do {
	$resp = $resp . "\n";
	$line = scalar <$sock>;
	$resp = $resp . (substr $line, 0, length($line)-2);
	} while (!(grep $line =~ /^$_/, @response_list));
	} elsif ($rst_type eq 2) {
	$count = $#prdct_response;
	while ($count--) {
	$resp = $resp . "\n";
	$line = scalar <$sock>;
	$resp = $resp . (substr $line, 0, length($line)-2);
	}
	} elsif ($rst_type eq 3) {
	$count = $#prdct_response + 1;
	while ($count--) {
	$line = scalar <$sock>;
	$resp = $resp . (substr $line, 0, length($line)-2);
	if ($count eq 0) {
	last;
	}
	$resp = $resp . "\n";
	}
	}
	Test::More::is("$resp", "$rst", $msg);
	}

[jhpark816]

@namsic
touch 명령은 memcached의 기존 kv 명령이므로
이 용을 kv 부분으로 옮기는 것이 좋을 것 같습니다.
검토해 주세요.

[cheesecrust]

해당 부분을 ch10 에서 kv 부분인 ch04 로 옮겼습니다.

[namsic]

저는 의견이 조금 다른데, touch는 attribute에, gat는 kv에 두는 것이 좋아 보입니다.

1. memcached에서는 <cache item> == <kv item>이므로 touch를 kv 명령으로 볼 수 있지만,
2. arcus에서는 touch 명령으로 collection item의 exptime도 설정할 수 있기 때문입니다.
3. @cheesecrust 만약 touch 문서를 kv에 두려면, collection type의 문서에서도 관련 내용이 언급되어야 맞는 것 같습니다.