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

Safer interface for WSF_VALUE, when related to STRING value

Browse Source
This commit is contained in:
Jocelyn Fiat
2011-11-02 15:42:58 +01:00
parent 214255c4b9
commit a2bf68e18a
5 changed files with 106 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
library/server/wsf/src/request/value/wsf_multiple_string.e
View File

@@ -9,6 +9,9 @@ class
inherit
WSF_VALUE
redefine
as_string
end
ITERABLE [WSF_STRING]
@@ -62,6 +65,25 @@ feature -- Access
Result := string_values.first
end
feature -- Status report
is_string: BOOLEAN
-- Is Current as a WSF_STRING representation?
do
Result := string_values.count = 1
end
feature -- Conversion
as_string: WSF_STRING
do
if string_values.count = 1 then
Result := first_string_value
else
Result := Precursor
end
end
feature -- Traversing
new_cursor: ITERATION_CURSOR [WSF_STRING]
@@ -71,23 +93,7 @@ feature -- Traversing
feature -- Helper
same_string (a_other: READABLE_STRING_GENERAL): BOOLEAN
-- Does `a_other' represent the same string as `Current'?
do
if string_values.count = 1 then
Result := first_string_value.same_string (a_other)
end
end
is_case_insensitive_equal (a_other: READABLE_STRING_8): BOOLEAN
-- Does `a_other' represent the same case insensitive string as `Current'?
do
if string_values.count = 1 then
Result := first_string_value.is_case_insensitive_equal (a_other)
end
end
as_string: STRING_32
string_representation: STRING_32
do
if string_values.count = 1 then
create Result.make_from_string (first_string_value)

13
library/server/wsf/src/request/value/wsf_string.e
View File

@@ -9,12 +9,16 @@ class
inherit
WSF_VALUE
redefine
same_string,
is_case_insensitive_equal
end
create
make
convert
as_string: {READABLE_STRING_32, STRING_32}
string_representation: {READABLE_STRING_32, STRING_32}
feature {NONE} -- Initialization
@@ -37,6 +41,11 @@ feature -- Access
url_encoded_string: READABLE_STRING_32
feature -- Status report
is_string: BOOLEAN = True
-- Is Current as a WSF_STRING representation?
feature -- Helper
same_string (a_other: READABLE_STRING_GENERAL): BOOLEAN
@@ -60,7 +69,7 @@ feature -- Helper
feature -- Conversion
as_string: STRING_32
string_representation: STRING_32
do
create Result.make_from_string (string)
end

47
library/server/wsf/src/request/value/wsf_table.e
View File

@@ -10,6 +10,9 @@ class
inherit
WSF_VALUE
redefine
as_string
end
ITERABLE [WSF_VALUE]
@@ -27,6 +30,7 @@ feature {NONE} -- Initialization
feature -- Access
name: READABLE_STRING_32
-- Parameter name
first_value: detachable WSF_VALUE
-- First value if any.
@@ -63,6 +67,27 @@ feature -- Access
Result := values.count
end
feature -- Status report
is_string: BOOLEAN
-- Is Current as a WSF_STRING representation?
do
if values.count = 1 and then attached first_value as fv then
Result := fv.is_string
end
end
feature -- Conversion
as_string: WSF_STRING
do
if values.count = 1 and then attached first_value as fv then
Result := fv.as_string
else
Result := Precursor
end
end
feature -- Element change
add_value (a_value: WSF_VALUE; k: READABLE_STRING_32)
@@ -81,29 +106,13 @@ feature -- Traversing
feature -- Helper
same_string (a_other: READABLE_STRING_GENERAL): BOOLEAN
-- Does `a_other' represent the same string as `Current'?
do
if values.count = 1 and then attached first_value as f then
Result := f.same_string (a_other)
end
end
is_case_insensitive_equal (a_other: READABLE_STRING_8): BOOLEAN
-- Does `a_other' represent the same case insensitive string as `Current'?
do
if values.count = 1 and then attached first_value as f then
Result := f.is_case_insensitive_equal (a_other)
end
end
as_string: STRING_32
string_representation: STRING_32
do
create Result.make_from_string ("{")
if values.count = 1 and then attached first_key as fk then
Result.append (fk + ": ")
if attached value (fk) as fv then
Result.append (fv.as_string)
Result.append (fv.string_representation)
else
Result.append ("???")
end
@@ -115,7 +124,7 @@ feature -- Helper
Result.append_character (',')
end
Result.append (c.key + ": ")
Result.append (c.item.as_string)
Result.append (c.item.string_representation)
end
end
Result.append_character ('}')