better return type for http client functions

added helper features
This commit is contained in:
Jocelyn Fiat
2011-09-21 15:29:12 +02:00
parent 0414cd4501
commit 88c015470e
3 changed files with 33 additions and 6 deletions

View File

@@ -59,17 +59,17 @@ feature -- Authentication
Result := session.auth_type_id Result := session.auth_type_id
end end
username: detachable READABLE_STRING_8 username: detachable READABLE_STRING_32
do do
Result := session.username Result := session.username
end end
password: detachable READABLE_STRING_8 password: detachable READABLE_STRING_32
do do
Result := session.password Result := session.password
end end
credentials: detachable READABLE_STRING_8 credentials: detachable READABLE_STRING_32
do do
Result := session.credentials Result := session.credentials
end end

View File

@@ -8,7 +8,8 @@ class
HTTP_CLIENT_REQUEST_CONTEXT HTTP_CLIENT_REQUEST_CONTEXT
create create
make make,
make_with_credentials_required
feature {NONE} -- Initialization feature {NONE} -- Initialization
@@ -19,6 +20,12 @@ feature {NONE} -- Initialization
create form_data_parameters.make (10) create form_data_parameters.make (10)
end end
make_with_credentials_required
do
make
set_credentials_required (True)
end
feature -- Settings feature -- Settings
credentials_required: BOOLEAN credentials_required: BOOLEAN
@@ -40,6 +47,16 @@ feature -- Status report
feature -- Element change feature -- Element change
add_query_parameter (k: READABLE_STRING_8; v: READABLE_STRING_32)
do
query_parameters.force (v, k)
end
add_form_data_parameter (k: READABLE_STRING_8; v: READABLE_STRING_32)
do
form_data_parameters.force (v, k)
end
set_credentials_required (b: BOOLEAN) set_credentials_required (b: BOOLEAN)
do do
credentials_required := b credentials_required := b

View File

@@ -92,12 +92,17 @@ feature -- Authentication
-- See {HTTP_CLIENT_CONSTANTS}.Auth_type_* -- See {HTTP_CLIENT_CONSTANTS}.Auth_type_*
username, username,
password: detachable READABLE_STRING_8 password: detachable READABLE_STRING_32
credentials: detachable READABLE_STRING_8 credentials: detachable READABLE_STRING_32
feature -- Change feature -- Change
set_base_url (u: like base_url)
do
base_url := u
end
set_timeout (n: like timeout) set_timeout (n: like timeout)
do do
timeout := n timeout := n
@@ -113,6 +118,11 @@ feature -- Change
headers.force (v, k) headers.force (v, k)
end end
remove_header (k: READABLE_STRING_8)
do
headers.prune (k)
end
set_credentials (u: like username; p: like password) set_credentials (u: like username; p: like password)
do do
username := u username := u