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

Added general_encoded_string (..) that accepts READABLE_STRING_GENERAL

Browse Source
This commit is contained in:
Jocelyn Fiat
2012-09-11 20:52:24 +02:00
parent 795f82d51f
commit 0f59535696
2 changed files with 34 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
library/text/encoder/src/url_encoder.e
View File

@@ -35,18 +35,24 @@ feature -- Encoder
encoded_string (s: READABLE_STRING_32): STRING_8
-- URL-encoded value of `s'.
do
Result := general_encoded_string (s)
end
general_encoded_string (s: READABLE_STRING_GENERAL): STRING_8
-- URL-encoded value of `s'.
local
i, n: INTEGER
uc: CHARACTER_32
c: CHARACTER_8
l_code: NATURAL_32
do
has_error := False
create Result.make (s.count + s.count // 10)
n := s.count
from i := 1 until i > n loop
uc := s.item (i)
if uc.is_character_8 then
c := uc.to_character_8
l_code := s.code (i)
if l_code.is_valid_character_8_code then
c := l_code.to_character_8
inspect c
when
'A' .. 'Z',
@@ -55,20 +61,20 @@ feature -- Encoder
then
Result.extend (c)
else
Result.append (url_encoded_char (uc))
Result.append (url_encoded_char (l_code))
end
else
Result.append (url_encoded_char (uc))
Result.append (url_encoded_char (l_code))
end
i := i + 1
end
end
partial_encoded_string (s: READABLE_STRING_32; a_ignore: ARRAY [CHARACTER]): READABLE_STRING_8
partial_encoded_string (s: READABLE_STRING_GENERAL; a_ignore: ARRAY [CHARACTER]): STRING_8
-- URL-encoded value of `s'.
local
i, n: INTEGER
uc: CHARACTER_32
l_code: NATURAL_32
c: CHARACTER_8
s8: STRING_8
do
@@ -77,9 +83,9 @@ feature -- Encoder
Result := s8
n := s.count
from i := 1 until i > n loop
uc := s.item (i)
if uc.is_character_8 then
c := uc.to_character_8
l_code := s.code (i)
if l_code.is_valid_character_8_code then
c := l_code.to_character_8
inspect c
when
'A' .. 'Z',
@@ -91,14 +97,14 @@ feature -- Encoder
if a_ignore.has (c) then
s8.extend (c)
else
s8.append (url_encoded_char (uc))
s8.append (url_encoded_char (l_code))
end
end
else
if a_ignore.has (c) then
s8.extend (c)
else
s8.append (url_encoded_char (uc))
s8.append (url_encoded_char (l_code))
end
end
i := i + 1
@@ -107,12 +113,12 @@ feature -- Encoder
feature {NONE} -- encoder character
url_encoded_char (uc: CHARACTER_32): STRING_8
url_encoded_char (a_code: NATURAL_32): STRING_8
do
create Result.make (3)
if uc.is_character_8 then
if a_code.is_valid_character_8_code then
Result.extend ('%%')
Result.append (uc.code.to_hex_string)
Result.append (a_code.to_hex_string)
from
until
Result.count < 2 or else Result[2] /= '0'

13
library/text/encoder/src/utf8_url_encoder.e
View File

@@ -17,6 +17,7 @@ inherit
redefine
default_create,
name,
general_encoded_string,
encoded_string, partial_encoded_string,
decoded_string
end
@@ -49,7 +50,17 @@ feature -- Encoder
Result := Precursor (Result)
end
partial_encoded_string (s: READABLE_STRING_32; a_ignore: ARRAY [CHARACTER]): READABLE_STRING_8
general_encoded_string (s: READABLE_STRING_GENERAL): STRING_8
do
if attached {READABLE_STRING_32} s as s32 then
Result := utf32_to_utf8 (s32)
else
Result := s.as_string_8
end
Result := Precursor (Result)
end
partial_encoded_string (s: READABLE_STRING_GENERAL; a_ignore: ARRAY [CHARACTER]): STRING_8
-- URL-encoded value of `s'.
do
Result := Precursor (s, a_ignore)