mirrors/EWF
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Reused string constants from HTTP_HEADER_NAMES

Browse Source
This commit is contained in:
Jocelyn FIAT
2013-09-24 15:27:02 +02:00
parent 88192335b6
commit 843955b7b8
5 changed files with 17 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
library/network/protocol/content_negotiation/src/variants/character_encoding_variant_results.e
View File

@@ -23,7 +23,7 @@ feature -- Change Element
set_variant_header
-- Set variant header as `Accept-Charset'
do
variant_header := "Accept-Charset"
variant_header := {HTTP_HEADER_NAMES}.header_accept_charset -- "Accept-Charset"
end
note

2
library/network/protocol/content_negotiation/src/variants/compression_variant_results.e
View File

@@ -22,7 +22,7 @@ feature -- Change Element
set_variant_header
-- Set variant_header as `Accept-Encoding'
do
variant_header := "Accept-Encoding"
variant_header := {HTTP_HEADER_NAMES}.header_accept_encoding -- "Accept-Encoding"
end
note

5
library/network/protocol/content_negotiation/src/variants/language_variant_results.e
View File

@@ -15,17 +15,14 @@ inherit
VARIANT_RESULTS
feature -- Change Element
set_variant_header
-- Set variant header as 'Accept-Language'
do
variant_header := "Accept-Language"
variant_header := {HTTP_HEADER_NAMES}.header_accept_language -- "Accept-Language"
end
note
copyright: "2011-2013, Javier Velilla, Jocelyn Fiat, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"

4
library/network/protocol/content_negotiation/src/variants/media_type_variant_results.e
View File

@@ -15,16 +15,14 @@ inherit
VARIANT_RESULTS
feature -- Change Element
set_variant_header
-- Set variant header as `Accept'
do
variant_header := "Accept"
variant_header := {HTTP_HEADER_NAMES}.header_accept -- "Accept"
end
note
copyright: "2011-2013, Javier Velilla, Jocelyn Fiat, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"

14
library/network/protocol/content_negotiation/src/variants/variant_results.e
View File

@@ -18,7 +18,11 @@ feature -- Access
-- is the current variant accepted?
type: detachable READABLE_STRING_8
-- the type could be: media type, language, chracter_sets and encoding.
-- Associated type, it could be:
-- media type
-- language
-- character_sets
-- encoding.
feature {NONE} -- Implementation
@@ -30,7 +34,12 @@ feature {NONE} -- Implementation
EIS:"name=Accept-Encoding", "src=http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.3", "protocol=uri"
EIS:"name=Accept-Language", "src=http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.4", "protocol=uri"
once
Result:= <<"Accept","Accept-Language","Accept-Encoding","Accept-Charset">>
Result:= <<
{HTTP_HEADER_NAMES}.header_accept, -- "Accept",
{HTTP_HEADER_NAMES}.header_accept_language, -- "Accept-Language",
{HTTP_HEADER_NAMES}.header_accept_encoding, -- "Accept-Encoding",
{HTTP_HEADER_NAMES}.header_accept_charset --"Accept-Charset"
>>
Result.compare_objects
end
@@ -44,7 +53,6 @@ feature -- Status_Report
feature -- Change Element
set_type (a_type: READABLE_STRING_8)
-- Set `type' as `a_type'
do