rtyler
/
memcache-ada
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Move some memcached responses into constant private Strings

This commit is contained in:
R. Tyler Croy 2010-12-21 13:06:39 -08:00
parent 91005832db
commit a418c76ec6
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
client/memcache.adb
View File

@ -67,7 +67,7 @@ package body Memcache is
declare
Response : String := Read_Response (This);
begin
if Response = "STORED" then
if Response = Response_Stored then
return True;
end if;
return False;
@ -107,9 +107,9 @@ package body Memcache is
declare
Response : String := Read_Response (This);
begin
if Response = "DELETED" then
if Response = Response_Deleted then
return True;
elsif Response = "NOT_FOUND" then
elsif Response = Response_Not_Found then
return False;
else
raise Unexpected_Response;
@ -149,7 +149,7 @@ package body Memcache is
declare
Response : String := Read_Response (This);
begin
if Response = "NOT_FOUND" then
if Response = Response_Not_Found then
return False;
end if;
end;
@ -173,7 +173,7 @@ package body Memcache is
declare
Response : String := Read_Response (This);
begin
if Response = "NOT_FOUND" then
if Response = Response_Not_Found then
return False;
end if;
end;

4
client/memcache.ads
View File

@ -119,6 +119,10 @@ package Memcache is
private
Response_Stored : constant String := "STORED";
Response_Deleted : constant String := "DELETED";
Response_Not_Found : constant String := "NOT_FOUND";
type Connection is tagged record
Sock : GNAT.Sockets.Socket_Type;
Address : GNAT.Sockets.Sock_Addr_Type;