Completed a previous commit, especially to web form library (WSF_FORM).

Updated EiffelStudio wizard.
This commit is contained in:
2020-10-02 15:29:20 +02:00
parent c0de4a5bf7
commit 37644e66bb
28 changed files with 391 additions and 147 deletions

View File

@@ -18,7 +18,7 @@ feature -- Core
deferred
end
based_path (p: STRING): STRING
based_path (p: READABLE_STRING_8): STRING
-- Path `p' in the context of the `base_url'
do
if attached base_url as l_base_url then
@@ -32,7 +32,7 @@ feature -- Core
end
end
else
Result := p
Result := p.to_string_8
end
end
@@ -106,7 +106,8 @@ feature -- Conversion
url (a_path: READABLE_STRING_8; opts: detachable WSF_API_OPTIONS): STRING
local
q,f: detachable STRING_8
q: detachable STRING_8
f: detachable READABLE_STRING_8
l_abs: BOOLEAN
do
l_abs := False
@@ -115,7 +116,7 @@ feature -- Conversion
l_abs := opts.boolean_item ("absolute", l_abs)
if attached opts.item ("query") as l_query then
if attached {READABLE_STRING_8} l_query as s_value then
q := s_value
q := s_value.to_string_8
elseif attached {ITERABLE [TUPLE [key, value: READABLE_STRING_GENERAL]]} l_query as lst then
create q.make_empty
across
@@ -154,16 +155,18 @@ feature -- Conversion
end
end
else
Result := a_path
Result := a_path.to_string_8
end
else
Result := based_path (a_path)
end
if q /= Void then
Result.append ("?" + q)
Result.append_character ('?')
Result.append (q)
end
if f /= Void then
Result.append ("#" + f)
Result.append_character ('#')
Result.append (f)
end
end