Updated or added timestamp to obsolete and fixme messages.

Fixed ecf file exclusion for .svn and .git .
Cosmetic changed.
This commit is contained in:
Jocelyn Fiat
2017-05-12 14:30:50 +02:00
parent 7ba678d726
commit a928f27b1a
35 changed files with 118 additions and 145 deletions

View File

@@ -84,7 +84,7 @@ feature {NONE} -- Initialization
create l_methods create l_methods
l_methods.enable_options l_methods.enable_options
l_methods.enable_get l_methods.enable_get
router.handle_with_request_methods ("/user/{userid}", create {WSF_URI_TEMPLATE_AGENT_HANDLER}.make (agent l_options_filter.execute), l_methods) router.handle ("/user/{userid}", create {WSF_URI_TEMPLATE_AGENT_HANDLER}.make (agent l_options_filter.execute), l_methods)
end end
initialize_json initialize_json
@@ -99,7 +99,7 @@ feature {NONE} -- Implementation
-- Port number -- Port number
note note
copyright: "2011-2014, Olivier Ligot, Jocelyn Fiat and others" copyright: "2011-2017, Olivier Ligot, Jocelyn Fiat and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -42,7 +42,7 @@ feature -- Basic operations
id : STRING id : STRING
do do
if attached req.orig_path_info as orig_path then if attached req.orig_path_info as orig_path then
id := get_user_id_from_path (orig_path) id := get_user_id_from_path (orig_path.as_string_32)
if attached retrieve_user (id) as l_user then if attached retrieve_user (id) as l_user then
if l_user ~ req.execution_variable ("user") then if l_user ~ req.execution_variable ("user") then
compute_response_get (req, res, l_user) compute_response_get (req, res, l_user)
@@ -92,6 +92,6 @@ feature {NONE} -- Implementation
end end
note note
copyright: "2011-2013, Olivier Ligot, Jocelyn Fiat and others" copyright: "2011-2017, Olivier Ligot, Jocelyn Fiat and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
end end

View File

@@ -85,7 +85,6 @@ feature {NONE} -- Initialization
create_order (sess: HTTP_CLIENT_SESSION) : HTTP_CLIENT_RESPONSE create_order (sess: HTTP_CLIENT_SESSION) : HTTP_CLIENT_RESPONSE
local local
s: READABLE_STRING_8 s: READABLE_STRING_8
j: JSON_PARSER
context : HTTP_CLIENT_REQUEST_CONTEXT context : HTTP_CLIENT_REQUEST_CONTEXT
do do
s := "[ s := "[

View File

@@ -4,7 +4,8 @@ note
date: "$Date$" date: "$Date$"
revision: "$Revision$" revision: "$Revision$"
class ORDER_HANDLER class
ORDER_HANDLER
inherit inherit
@@ -537,7 +538,6 @@ feature {NONE} -- Conversion
order_to_json (obj: ORDER): JSON_OBJECT order_to_json (obj: ORDER): JSON_OBJECT
local local
j_order: JSON_OBJECT
j_item: JSON_OBJECT j_item: JSON_OBJECT
ja: JSON_ARRAY ja: JSON_ARRAY
do do

View File

@@ -19,8 +19,6 @@ create
feature {NONE} -- Initialization feature {NONE} -- Initialization
make make
local
b: SED_MEMORY_READER_WRITER
do do
create collections.make (0) create collections.make (0)
end end
@@ -86,8 +84,6 @@ feature {NONE} -- Implementation
next_identifier (a_entry_type: TYPE [detachable ANY]): STRING_8 next_identifier (a_entry_type: TYPE [detachable ANY]): STRING_8
local local
i: INTEGER i: INTEGER
f: RAW_FILE
s: STRING
tb: detachable STRING_TABLE [detachable ANY] tb: detachable STRING_TABLE [detachable ANY]
do do
tb := collections.item (a_entry_type) tb := collections.item (a_entry_type)

View File

@@ -13,7 +13,7 @@ note
Note that any value set in this context class overrides conflicting value eventually Note that any value set in this context class overrides conflicting value eventually
set in associated HTTP_CLIENT_SESSION. set in associated HTTP_CLIENT_SESSION.
Warning: for now [2012-May], you can have only one of the following data Warning: for now [2012-05-31], you can have only one of the following data
- form_parameters - form_parameters
- or upload_data - or upload_data
- or upload_filename - or upload_filename

View File

@@ -9,7 +9,7 @@ class
LIBCURL_UPLOAD_FILE_READ_FUNCTION LIBCURL_UPLOAD_FILE_READ_FUNCTION
obsolete obsolete
"Use LIBCURL_CUSTOM_FUNCTION [2013-apr-04]" "Use LIBCURL_CUSTOM_FUNCTION [2017-05-31]"
inherit inherit
LIBCURL_DEFAULT_FUNCTION LIBCURL_DEFAULT_FUNCTION

View File

@@ -114,14 +114,14 @@ feature -- Obsolete query
include_max_age: BOOLEAN include_max_age: BOOLEAN
obsolete obsolete
"Use `max_age > 0' [April-2016]" "Use `max_age > 0' [2017-05-31]"
do do
Result := max_age > 0 Result := max_age > 0
end end
include_expires: BOOLEAN include_expires: BOOLEAN
obsolete obsolete
"Use `expires /= Void' [April-2016]" "Use `expires /= Void' [2017-05-31]"
do do
Result := expiration /= Void Result := expiration /= Void
end end
@@ -133,7 +133,7 @@ feature -- Obsolete element change
-- Set `expires to void' -- Set `expires to void'
-- Set-Cookie will include only Max-Age attribute and not Expires. -- Set-Cookie will include only Max-Age attribute and not Expires.
obsolete obsolete
"Uset `set_max_age' and `unset_*' features to add or remove the attributes from the response header [April-2016]" "Uset `set_max_age' and `unset_*' features to add or remove the attributes from the response header [2017-05-31]"
do do
max_age := 1 max_age := 1
expiration := Void expiration := Void
@@ -147,7 +147,7 @@ feature -- Obsolete element change
-- Set `expiration to a default date' -- Set `expiration to a default date'
-- Set-Cookie will include only Expires attribute and not Max_Age. -- Set-Cookie will include only Expires attribute and not Max_Age.
obsolete obsolete
"Use `set_expiration' and `unset_*' features to add or remove the attribute from the response header [April-2016]" "Use `set_expiration' and `unset_*' features to add or remove the attribute from the response header [2017-05-31]"
do do
max_age := -1 max_age := -1
set_expiration_date (create {DATE_TIME}.make_now_utc) set_expiration_date (create {DATE_TIME}.make_now_utc)
@@ -343,7 +343,7 @@ feature {NONE} -- Constants
end end
note note
copyright: "2011-2016, Jocelyn Fiat, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -118,7 +118,7 @@ feature -- Access
header_named_value (a_name: READABLE_STRING_8): like item header_named_value (a_name: READABLE_STRING_8): like item
-- First header item found for `a_name' if any -- First header item found for `a_name' if any
obsolete obsolete
"Use `item' [2014-03]" "Use `item' [2017-05-31]"
do do
Result := item (a_name) Result := item (a_name)
end end

View File

@@ -55,7 +55,7 @@ feature -- Access
body: like content body: like content
obsolete obsolete
"Use `content' [June/2015]" "Use `content'. [2017-05-31]"
do do
Result := body Result := body
end end
@@ -69,6 +69,19 @@ feature -- Status report
across to_addresses as ic all is_valid_address (ic.item) end across to_addresses as ic all is_valid_address (ic.item) end
end end
has_header (a_header_name: READABLE_STRING_8): BOOLEAN
-- Has additional header `a_header_name'?
-- Warning: it checks only `additional_header_lines'!
local
h_colon: STRING
do
if attached additional_header_lines as lst then
create h_colon.make_from_string (a_header_name)
h_colon.append_character (':')
Result := across lst as ic some ic.item.starts_with (h_colon) end
end
end
feature -- Change feature -- Change
set_date (d: like date) set_date (d: like date)
@@ -158,21 +171,6 @@ feature -- Header manipulation
lst.force (a_line) lst.force (a_line)
end end
feature -- Status report
has_header (a_header_name: READABLE_STRING_8): BOOLEAN
-- Has additional header `a_header_name'?
-- Warning: it checks only `additional_header_lines'!
local
h_colon: STRING
do
if attached additional_header_lines as lst then
create h_colon.make_from_string (a_header_name)
h_colon.append_character (':')
Result := across lst as ic some ic.item.starts_with (h_colon) end
end
end
feature -- Reset feature -- Reset
reset reset
@@ -209,8 +207,6 @@ feature -- Conversion
end end
header: STRING_8 header: STRING_8
local
hdate: HTTP_DATE
do do
create Result.make (20) create Result.make (20)
if attached reply_to_address as l_reply_to then if attached reply_to_address as l_reply_to then
@@ -259,8 +255,7 @@ feature -- Conversion
Result.append (subject) Result.append (subject)
Result.append_character ('%N') Result.append_character ('%N')
Result.append ("Date: ") Result.append ("Date: ")
create hdate.make_from_date_time (date) ;(create {HTTP_DATE}.make_from_date_time (date)).append_to_rfc1123_string (Result)
hdate.append_to_rfc1123_string (Result)
Result.append_character ('%N') Result.append_character ('%N')
if attached additional_header_lines as l_lines and then if attached additional_header_lines as l_lines and then
not l_lines.is_empty not l_lines.is_empty
@@ -285,11 +280,8 @@ feature -- Helpers
Result := add.has ('@') Result := add.has ('@')
end end
invariant
-- invariant_clause: True
note note
copyright: "2011-2015, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -43,11 +43,8 @@ feature {NONE} -- Initialization
feature -- Status feature -- Status
is_available: BOOLEAN is_available: BOOLEAN
local
f: RAW_FILE
do do
create f.make_with_path (executable_path) Result := (create {RAW_FILE}.make_with_path (executable_path)).exists
Result := f.exists
end end
feature -- Change feature -- Change
@@ -108,7 +105,7 @@ feature -- Basic operation
if attached arguments as l_args then if attached arguments as l_args then
args := l_args.twin args := l_args.twin
else else
if attached {RAW_FILE} new_temporary_file (generator) as f then if attached new_temporary_file (generator) as f then
f.create_read_write f.create_read_write
f.put_string (a_email.message) f.put_string (a_email.message)
f.close f.close
@@ -196,10 +193,8 @@ feature {NONE} -- Implementation
result_creatable: Result.is_creatable result_creatable: Result.is_creatable
end end
invariant
note note
copyright: "2011-2016, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -4,9 +4,8 @@ note
Note: it is based on EiffelNet {SMTP_PROTOCOL} implementation, and may not be complete. Note: it is based on EiffelNet {SMTP_PROTOCOL} implementation, and may not be complete.
]" ]"
author: "$Author: jfiat $" date: "$Date$"
date: "$Date: 2015-06-30 11:07:17 +0200 (mar., 30 juin 2015) $" revision: "$Revision$"
revision: "$Revision: 97586 $"
class class
NOTIFICATION_SMTP_MAILER NOTIFICATION_SMTP_MAILER
@@ -57,15 +56,12 @@ feature {NONE} -- Initialization
initialize initialize
-- Initialize service. -- Initialize service.
local
l_address_factory: INET_ADDRESS_FACTORY
do do
if attached username as u then if attached username as u then
create smtp_protocol.make (smtp_host, u) create smtp_protocol.make (smtp_host, u)
else else
-- Get local host name needed in creation of SMTP_PROTOCOL. -- Get local host name needed in creation of SMTP_PROTOCOL.
create l_address_factory create smtp_protocol.make (smtp_host, (create {INET_ADDRESS_FACTORY}).create_localhost.host_name)
create smtp_protocol.make (smtp_host, l_address_factory.create_localhost.host_name)
end end
if smtp_port > 0 then if smtp_port > 0 then
smtp_protocol.set_default_port (smtp_port) smtp_protocol.set_default_port (smtp_port)
@@ -98,9 +94,7 @@ feature -- Basic operation
local local
l_email: EMAIL l_email: EMAIL
h: STRING h: STRING
k,v: STRING
i: INTEGER i: INTEGER
hdate: HTTP_DATE
do do
create l_email.make_with_entry (a_email.from_address, addresses_to_header_line_value (a_email.to_addresses)) create l_email.make_with_entry (a_email.from_address, addresses_to_header_line_value (a_email.to_addresses))
if attached a_email.reply_to_address as l_reply_to then if attached a_email.reply_to_address as l_reply_to then
@@ -117,8 +111,7 @@ feature -- Basic operation
l_email.add_header_entry ({EMAIL_CONSTANTS}.H_subject, a_email.subject) l_email.add_header_entry ({EMAIL_CONSTANTS}.H_subject, a_email.subject)
create h.make_empty create h.make_empty
create hdate.make_from_date_time (a_email.date) ;(create {HTTP_DATE}.make_from_date_time (a_email.date)).append_to_rfc1123_string (h)
hdate.append_to_rfc1123_string (h)
l_email.add_header_entry ("Date", h) l_email.add_header_entry ("Date", h)
if attached a_email.additional_header_lines as lst then if attached a_email.additional_header_lines as lst then
@@ -128,9 +121,7 @@ feature -- Basic operation
h := ic.item h := ic.item
i := h.index_of (':', 1) i := h.index_of (':', 1)
if i > 0 then if i > 0 then
k := h.head (i - 1) l_email.add_header_entry (h.head (i - 1), h.substring (i + 1, h.count))
v := h.substring (i + 1, h.count)
l_email.add_header_entry (k, v)
else else
check is_header_line: False end check is_header_line: False end
end end
@@ -181,7 +172,7 @@ feature {NONE} -- Implementation
end end
note note
copyright: "2011-2015, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -1,7 +1,7 @@
note note
description: "Store emails in specific folder." description: "Store emails in specific folder."
date: "$Date: 2017-03-08 10:34:57 +0100 (mer., 08 mars 2017) $" date: "$Date$"
revision: "$Revision: 99935 $" revision: "$Revision$"
class class
NOTIFICATION_EMAIL_DIRECTORY_STORAGE NOTIFICATION_EMAIL_DIRECTORY_STORAGE
@@ -41,7 +41,7 @@ feature -- Storage
-- Store `a_email'. -- Store `a_email'.
local local
retried: BOOLEAN retried: BOOLEAN
f,w: RAW_FILE w: RAW_FILE
dt: DATE_TIME dt: DATE_TIME
p: PATH p: PATH
fn: STRING fn: STRING
@@ -72,8 +72,7 @@ feature -- Storage
p := p.extended (fn) p := p.extended (fn)
from from
create f.make_with_path (p) w := new_file_opened_for_writing (create {RAW_FILE}.make_with_path (p))
w := new_file_opened_for_writing (f)
until until
w /= Void or i > 100 w /= Void or i > 100
loop loop
@@ -113,14 +112,15 @@ feature -- Storage
local local
retried: BOOLEAN retried: BOOLEAN
do do
if not retried then if
if not f.exists then not retried and then
f.open_write not f.exists
if f.is_open_write then then
Result := f f.open_write
elseif not f.is_closed then if f.is_open_write then
f.close Result := f
end elseif not f.is_closed then
f.close
end end
end end
ensure ensure

View File

@@ -2,8 +2,8 @@ note
description: "[ description: "[
Standalone Web Server connector. Standalone Web Server connector.
]" ]"
date: "$Date: 2016-08-06 13:34:52 +0200 (sam., 06 août 2016) $" date: "$Date$"
revision: "$Revision: 99106 $" revision: "$Revision$"
class class
WGI_STANDALONE_CONNECTOR [G -> WGI_EXECUTION create make end] WGI_STANDALONE_CONNECTOR [G -> WGI_EXECUTION create make end]
@@ -110,7 +110,7 @@ feature -- Callbacks
on_launched_actions: ACTION_SEQUENCE [TUPLE [WGI_STANDALONE_CONNECTOR [WGI_EXECUTION]]] on_launched_actions: ACTION_SEQUENCE [TUPLE [WGI_STANDALONE_CONNECTOR [WGI_EXECUTION]]]
-- Actions triggered when launched. -- Actions triggered when launched.
-- WARNING: only supported for now with SCOOP concurrency mode. [2016-oct-07] -- WARNING: only supported for now with SCOOP concurrency mode. [2016-10-07]
feature -- Event feature -- Event
@@ -201,7 +201,7 @@ feature -- Server
-- Shutdown web server listening. -- Shutdown web server listening.
do do
if launched then if launched then
-- FIXME jfiat [2015/03/27] : prevent multiple calls (otherwise it hangs) -- FIXME: prevent multiple calls (otherwise it hangs) [2015-03-27]
separate_shutdown_server_on_controller (controller) separate_shutdown_server_on_controller (controller)
end end
end end
@@ -213,7 +213,7 @@ feature -- Events
require require
obs.started -- SCOOP wait condition. obs.started -- SCOOP wait condition.
do do
-- FIXME: this works only with SCOOP concurrency mode. [2016-oct-07] -- FIXME: this works only with SCOOP concurrency mode. [2016-10-07]
if obs.port > 0 then if obs.port > 0 then
on_launched (obs.port) on_launched (obs.port)
end end
@@ -282,9 +282,8 @@ feature {NONE} -- Implementation: element change
cfg.set_is_secure (b) cfg.set_is_secure (b)
end end
note note
copyright: "2011-2016, Jocelyn Fiat, Javier Velilla, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -54,7 +54,7 @@ feature -- Access
force_single_threaded: BOOLEAN assign set_force_single_threaded force_single_threaded: BOOLEAN assign set_force_single_threaded
obsolete obsolete
"Use directly `max_concurrent_connections = 1` [Feb/2017]" "Use directly `max_concurrent_connections = 1` [2017-05-31]"
do do
Result := max_concurrent_connections <= 1 Result := max_concurrent_connections <= 1
end end
@@ -202,7 +202,7 @@ feature -- Element change
-- Force server to handle incoming request in a single thread. -- Force server to handle incoming request in a single thread.
-- i.e set max_concurrent_connections to 1! -- i.e set max_concurrent_connections to 1!
obsolete obsolete
"Use set_max_concurrent_connections (1) [June/2016]" "Use set_max_concurrent_connections (1) [2017-05-31]"
do do
if v then if v then
set_max_concurrent_connections (1) set_max_concurrent_connections (1)
@@ -210,8 +210,8 @@ feature -- Element change
set_max_concurrent_connections (default_max_concurrent_connections) set_max_concurrent_connections (default_max_concurrent_connections)
end end
ensure ensure
force_single_threaded_set: v implies max_concurrent_connections <= 1 force_single_threaded_set: v implies max_concurrent_connections <= 1
not_single_threaded: not v implies max_concurrent_connections > 1 not_single_threaded: not v implies max_concurrent_connections > 1
end end
set_is_verbose (b: BOOLEAN) set_is_verbose (b: BOOLEAN)
@@ -340,7 +340,7 @@ feature -- SSL Helpers
end end
note note
copyright: "2011-2016, Jocelyn Fiat, Javier Velilla, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -60,6 +60,7 @@ feature -- Execution
req: WGI_REQUEST_FROM_TABLE req: WGI_REQUEST_FROM_TABLE
res: detachable WGI_RESPONSE_STREAM res: detachable WGI_RESPONSE_STREAM
rescued: BOOLEAN rescued: BOOLEAN
utf: UTF_CONVERTER
do do
if not rescued then if not rescued then
a_input.reset a_input.reset
@@ -68,14 +69,14 @@ feature -- Execution
service.execute (req, res) service.execute (req, res)
res.push res.push
else else
if attached (create {EXCEPTION_MANAGER}).last_exception as e and then attached e.exception_trace as l_trace then if attached (create {EXCEPTION_MANAGER}).last_exception as e and then attached e.trace as l_trace then
if res /= Void then if res /= Void then
if not res.status_is_set then if not res.status_is_set then
res.set_status_code ({HTTP_STATUS_CODE}.internal_server_error, Void) res.set_status_code ({HTTP_STATUS_CODE}.internal_server_error, Void)
end end
if res.message_writable then if res.message_writable then
res.put_string ("<pre>") res.put_string ("<pre>")
res.put_string (l_trace) res.put_string (utf.string_32_to_utf_8_string_8 (l_trace))
res.put_string ("</pre>") res.put_string ("</pre>")
end end
res.push res.push
@@ -105,7 +106,7 @@ invariant
fcgi_attached: fcgi /= Void fcgi_attached: fcgi /= Void
note note
copyright: "2011-2013, Eiffel Software and others" copyright: "2011-2017, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -122,7 +122,7 @@ feature {NONE} -- Initialization
then then
secure_settings := [l_secure_prot, opts.option_string_32_value ("secure_certificate", Void), opts.option_string_32_value ("secure_certificate_key", Void)] secure_settings := [l_secure_prot, opts.option_string_32_value ("secure_certificate", Void), opts.option_string_32_value ("secure_certificate_key", Void)]
elseif elseif
-- OBSOLETE: backward compatible with old settings name [oct/2016]. -- OBSOLETE: backward compatible with old settings name [2017-05-31].
opts.option_boolean_value ("ssl_enabled", is_secure) and then opts.option_boolean_value ("ssl_enabled", is_secure) and then
attached opts.option_string_32_value ("ssl_protocol", "tls_1_2") as ssl_prot attached opts.option_string_32_value ("ssl_protocol", "tls_1_2") as ssl_prot
then then
@@ -141,7 +141,7 @@ feature {NONE} -- Initialization
force_single_threaded force_single_threaded
-- Set `single_threaded' to True. -- Set `single_threaded' to True.
obsolete obsolete
"Use set_max_concurrent_connections (1) [Feb/2017]" "Use set_max_concurrent_connections (1) [2017-05-31]"
do do
set_max_concurrent_connections (1) set_max_concurrent_connections (1)
ensure ensure
@@ -238,7 +238,7 @@ feature {NONE} -- Implementation
single_threaded: BOOLEAN single_threaded: BOOLEAN
obsolete obsolete
"Use max_concurrent_connections <= 1 [Feb/2017]" "Use max_concurrent_connections <= 1 [2017-05-31]"
do do
Result := max_concurrent_connections <= 1 Result := max_concurrent_connections <= 1
end end
@@ -277,7 +277,7 @@ feature -- Status report
end end
;note ;note
copyright: "2011-2016, Jocelyn Fiat, Javier Velilla, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -20,7 +20,7 @@ feature -- Mapping helper: uri
map_uri_with_request_methods (a_uri: READABLE_STRING_8; h: WSF_URI_HANDLER; rqst_methods: detachable WSF_REQUEST_METHODS) map_uri_with_request_methods (a_uri: READABLE_STRING_8; h: WSF_URI_HANDLER; rqst_methods: detachable WSF_REQUEST_METHODS)
-- Map `h' as handler for `a_uri' for request methods `rqst_methods'. -- Map `h' as handler for `a_uri' for request methods `rqst_methods'.
obsolete obsolete
"Use directly `map_uri' [June/2015]" "Use directly `map_uri' [2017-05-31]"
do do
map_uri (a_uri, h, rqst_methods) map_uri (a_uri, h, rqst_methods)
end end
@@ -44,7 +44,7 @@ feature -- Mapping helper: uri agent
map_uri_agent_with_request_methods (a_uri: READABLE_STRING_8; proc: PROCEDURE [TUPLE [req: WSF_REQUEST; res: WSF_RESPONSE]]; rqst_methods: detachable WSF_REQUEST_METHODS) map_uri_agent_with_request_methods (a_uri: READABLE_STRING_8; proc: PROCEDURE [TUPLE [req: WSF_REQUEST; res: WSF_RESPONSE]]; rqst_methods: detachable WSF_REQUEST_METHODS)
-- Map `proc' as handler for `a_uri' for request methods `rqst_methods'. -- Map `proc' as handler for `a_uri' for request methods `rqst_methods'.
obsolete obsolete
"Use directly `map_uri_agent' [June/2015]" "Use directly `map_uri_agent' [2017-05-31]"
do do
map_uri_agent (a_uri, proc, rqst_methods) map_uri_agent (a_uri, proc, rqst_methods)
end end
@@ -58,7 +58,7 @@ feature -- Mapping helper: uri agent
end end
note note
copyright: "2011-2015, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -23,7 +23,7 @@ feature -- Mapping helper: uri template
map_uri_template_with_request_methods (a_tpl: READABLE_STRING_8; h: WSF_URI_TEMPLATE_HANDLER; rqst_methods: detachable WSF_REQUEST_METHODS) map_uri_template_with_request_methods (a_tpl: READABLE_STRING_8; h: WSF_URI_TEMPLATE_HANDLER; rqst_methods: detachable WSF_REQUEST_METHODS)
-- Map `h' as handler for `a_tpl' for request methods `rqst_methods'. -- Map `h' as handler for `a_tpl' for request methods `rqst_methods'.
obsolete obsolete
"Use directly `map_uri_template' [June/2015]" "Use directly `map_uri_template' [2017-05-31]"
require require
a_tpl_attached: a_tpl /= Void a_tpl_attached: a_tpl /= Void
h_attached: h /= Void h_attached: h /= Void
@@ -54,7 +54,7 @@ feature -- Mapping helper: uri template agent
map_uri_template_agent_with_request_methods (a_tpl: READABLE_STRING_8; proc: PROCEDURE [TUPLE [req: WSF_REQUEST; res: WSF_RESPONSE]]; rqst_methods: detachable WSF_REQUEST_METHODS) map_uri_template_agent_with_request_methods (a_tpl: READABLE_STRING_8; proc: PROCEDURE [TUPLE [req: WSF_REQUEST; res: WSF_RESPONSE]]; rqst_methods: detachable WSF_REQUEST_METHODS)
-- Map `proc' as handler for `a_tpl' for request methods `rqst_methods'. -- Map `proc' as handler for `a_tpl' for request methods `rqst_methods'.
obsolete obsolete
"Use directly `map_uri_template_agent' [June/2015]" "Use directly `map_uri_template_agent' [2017-05-31]"
require require
a_tpl_attached: a_tpl /= Void a_tpl_attached: a_tpl /= Void
proc_attached: proc /= Void proc_attached: proc /= Void
@@ -72,7 +72,7 @@ feature -- Mapping helper: uri template agent
end end
note note
copyright: "2011-2015, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -77,7 +77,7 @@ feature -- Mapping
map_with_request_methods (a_mapping: WSF_ROUTER_MAPPING; rqst_methods: detachable WSF_REQUEST_METHODS) map_with_request_methods (a_mapping: WSF_ROUTER_MAPPING; rqst_methods: detachable WSF_REQUEST_METHODS)
-- Map `a_mapping' for request methods `rqst_methods'. -- Map `a_mapping' for request methods `rqst_methods'.
obsolete obsolete
"Use directly `map' [June/2015]" "Use directly `map' [2017-05-31]"
require require
a_mapping_attached: a_mapping /= Void a_mapping_attached: a_mapping /= Void
do do
@@ -135,7 +135,7 @@ feature -- Mapping handler
-- Map the mapping created by factory `f' for resource `a_resource' -- Map the mapping created by factory `f' for resource `a_resource'
-- and only for request methods `rqst_methods' -- and only for request methods `rqst_methods'
obsolete obsolete
"Use directly `handle' [June/2015]" "Use directly `handle' [2017-05-31]"
require require
a_resource_attached: a_resource /= Void a_resource_attached: a_resource /= Void
f_attached: f /= Void f_attached: f /= Void
@@ -166,7 +166,7 @@ feature -- Basic operations
-- And return the associated handler if mapping found and handler executed. -- And return the associated handler if mapping found and handler executed.
--| Violates CQS --| Violates CQS
obsolete obsolete
"Use `dispatch' [2013-mar-21]" "Use `dispatch' [2017-05-31]"
require require
req_attached: req /= Void req_attached: req /= Void
res_attached: res /= Void res_attached: res /= Void
@@ -601,7 +601,7 @@ invariant
pre_execution_actions_attached: pre_execution_actions /= Void pre_execution_actions_attached: pre_execution_actions /= Void
note note
copyright: "2011-2015, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -24,7 +24,7 @@ feature -- Mapping helper: starts_with
map_starts_with_request_methods (a_uri: READABLE_STRING_8; h: WSF_STARTS_WITH_CONTEXT_HANDLER [C]; rqst_methods: detachable WSF_REQUEST_METHODS) map_starts_with_request_methods (a_uri: READABLE_STRING_8; h: WSF_STARTS_WITH_CONTEXT_HANDLER [C]; rqst_methods: detachable WSF_REQUEST_METHODS)
obsolete obsolete
"Use directly `map_starts_with' [June-2015]" "Use directly `map_starts_with' [2017-05-31]"
require require
a_uri_attached: a_uri /= Void a_uri_attached: a_uri /= Void
h_attached: h /= Void h_attached: h /= Void
@@ -44,7 +44,7 @@ feature -- Mapping helper: starts_with agent
map_starts_with_agent_with_request_methods (a_uri: READABLE_STRING_8; proc: PROCEDURE [TUPLE [start_path: READABLE_STRING_8; ctx: C; req: WSF_REQUEST; res: WSF_RESPONSE]]; rqst_methods: detachable WSF_REQUEST_METHODS) map_starts_with_agent_with_request_methods (a_uri: READABLE_STRING_8; proc: PROCEDURE [TUPLE [start_path: READABLE_STRING_8; ctx: C; req: WSF_REQUEST; res: WSF_RESPONSE]]; rqst_methods: detachable WSF_REQUEST_METHODS)
obsolete obsolete
"Use directly `map_starts_with_agent' [June-2015]" "Use directly `map_starts_with_agent' [2017-05-31]"
require require
a_uri_attached: a_uri /= Void a_uri_attached: a_uri /= Void
proc_attached: proc /= Void proc_attached: proc /= Void
@@ -53,7 +53,7 @@ feature -- Mapping helper: starts_with agent
end end
note note
copyright: "2011-2015, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -24,7 +24,7 @@ feature -- Mapping helper: uri
map_uri_with_request_methods (a_uri: READABLE_STRING_8; h: WSF_URI_CONTEXT_HANDLER [C]; rqst_methods: detachable WSF_REQUEST_METHODS) map_uri_with_request_methods (a_uri: READABLE_STRING_8; h: WSF_URI_CONTEXT_HANDLER [C]; rqst_methods: detachable WSF_REQUEST_METHODS)
obsolete obsolete
"Use directly `map_uri' [June-2015]" "Use directly `map_uri' [2017-05-31]"
require require
a_uri_attached: a_uri /= Void a_uri_attached: a_uri /= Void
h_attached: h /= Void h_attached: h /= Void
@@ -44,7 +44,7 @@ feature -- Mapping helper: uri agent
map_uri_agent_with_request_methods (a_uri: READABLE_STRING_8; proc: PROCEDURE [TUPLE [ctx: C; req: WSF_REQUEST; res: WSF_RESPONSE]]; rqst_methods: detachable WSF_REQUEST_METHODS) map_uri_agent_with_request_methods (a_uri: READABLE_STRING_8; proc: PROCEDURE [TUPLE [ctx: C; req: WSF_REQUEST; res: WSF_RESPONSE]]; rqst_methods: detachable WSF_REQUEST_METHODS)
obsolete obsolete
"Use directly `map_uri_agent' [June-2015]" "Use directly `map_uri_agent' [2017-05-31]"
require require
a_uri_attached: a_uri /= Void a_uri_attached: a_uri /= Void
proc_attached: proc /= Void proc_attached: proc /= Void
@@ -53,7 +53,7 @@ feature -- Mapping helper: uri agent
end end
note note
copyright: "2011-2015, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -24,7 +24,7 @@ feature -- Mapping helper: uri
map_uri_template_with_request_methods (a_tpl: READABLE_STRING_8; h: WSF_URI_TEMPLATE_CONTEXT_HANDLER [C]; rqst_methods: detachable WSF_REQUEST_METHODS) map_uri_template_with_request_methods (a_tpl: READABLE_STRING_8; h: WSF_URI_TEMPLATE_CONTEXT_HANDLER [C]; rqst_methods: detachable WSF_REQUEST_METHODS)
obsolete obsolete
"Use directly `make_uri_template' [June/2015]" "Use directly `make_uri_template' [2017-05-31]"
require require
a_tpl_attached: a_tpl /= Void a_tpl_attached: a_tpl /= Void
h_attached: h /= Void h_attached: h /= Void
@@ -44,7 +44,7 @@ feature -- Mapping helper: uri agent
map_uri_template_agent_with_request_methods (a_tpl: READABLE_STRING_8; proc: PROCEDURE [TUPLE [ctx: C; req: WSF_REQUEST; res: WSF_RESPONSE]]; rqst_methods: detachable WSF_REQUEST_METHODS) map_uri_template_agent_with_request_methods (a_tpl: READABLE_STRING_8; proc: PROCEDURE [TUPLE [ctx: C; req: WSF_REQUEST; res: WSF_RESPONSE]]; rqst_methods: detachable WSF_REQUEST_METHODS)
obsolete obsolete
"Use directly `make_uri_template_agent' [June/2015]" "Use directly `make_uri_template_agent' [2017-05-31]"
require require
a_tpl_attached: a_tpl /= Void a_tpl_attached: a_tpl /= Void
proc_attached: proc /= Void proc_attached: proc /= Void
@@ -53,7 +53,7 @@ feature -- Mapping helper: uri agent
end end
note note
copyright: "2011-2015, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -16,7 +16,7 @@ feature -- Access
uuid: READABLE_STRING_8 uuid: READABLE_STRING_8
obsolete obsolete
"Use `id' which is more general [2014-03]" "Use `id' which is more general [2017-05-31]"
deferred deferred
end end
@@ -116,7 +116,7 @@ feature -- Control
end end
note note
copyright: "2011-2014, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -69,7 +69,7 @@ feature -- Access
frozen string_values: like values frozen string_values: like values
obsolete obsolete
"Use `values' [2012-May-31]" "Use `values' [2017-05-31]"
do do
Result := values Result := values
end end
@@ -81,7 +81,7 @@ feature -- Access
frozen first_string_value: WSF_STRING frozen first_string_value: WSF_STRING
obsolete obsolete
"Use `first_value' [2012-May-31]" "Use `first_value' [2017-05-31]"
do do
Result := first_value Result := first_value
end end
@@ -179,7 +179,7 @@ invariant
string_values_not_empty: values.count >= 1 string_values_not_empty: values.count >= 1
note note
copyright: "2011-2015, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -2,8 +2,8 @@ note
description: "[ description: "[
Table which can contain value indexed by a key Table which can contain value indexed by a key
]" ]"
date: "$Date: 2015-11-05 21:52:56 +0100 (jeu., 05 nov. 2015) $" date: "$Date$"
revision: "$Revision: 98081 $" revision: "$Revision$"
class class
WSF_TABLE WSF_TABLE
@@ -86,7 +86,7 @@ feature -- Access
frozen first_key: like first_name frozen first_key: like first_name
obsolete obsolete
"Use first_name [2012-May-31]" "Use first_name [2017-05-31]"
do do
Result := first_name Result := first_name
end end

View File

@@ -94,7 +94,7 @@ feature -- Access
file_name: READABLE_STRING_8 file_name: READABLE_STRING_8
obsolete obsolete
"Use `file_path.name' for unicode support [2013-may]" "Use `file_path.name' for unicode support [2017-05-31]"
do do
Result := file_path.utf_8_name Result := file_path.utf_8_name
end end
@@ -230,7 +230,7 @@ invariant
status_code_set: status_code /= 0 status_code_set: status_code /= 0
note note
copyright: "2011-2013, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -165,7 +165,7 @@ feature -- Access
file_name: READABLE_STRING_8 file_name: READABLE_STRING_8
obsolete obsolete
"Use `file_path.name' for unicode support [2013-may]" "Use `file_path.name' for unicode support [2017-05-31]"
do do
Result := file_path.utf_8_name Result := file_path.utf_8_name
end end
@@ -320,7 +320,7 @@ feature {NONE} -- Implementation: output
end end
note note
copyright: "2011-2016, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -184,7 +184,7 @@ feature -- Change
end end
extend_text (t: READABLE_STRING_8) extend_text (t: READABLE_STRING_8)
obsolete "Use extend_html_text (..) 2013-Sept-06" obsolete "Use extend_html_text (..) [2017-05-31]"
do do
extend_html_text (t) extend_html_text (t)
end end

View File

@@ -111,9 +111,9 @@ feature -- Execution
i := l_raw_header.substring_index ("%R%N", 1) i := l_raw_header.substring_index ("%R%N", 1)
if i > 0 then if i > 0 then
-- Skip the first status line. -- Skip the first status line.
create h.make_from_raw_header_data (l_raw_header.substring (i + 2, l_raw_header.count)) create h.make_from_raw_header_data (l_raw_header.substring (i + 2, l_raw_header.count).as_string_8_conversion) -- NOTE: it is string 8 per nature.
else else
create h.make_from_raw_header_data (l_raw_header) create h.make_from_raw_header_data (l_raw_header.as_string_8_conversion)
end end
if attached l_remote_uri.host as l_remote_host then if attached l_remote_uri.host as l_remote_host then
if l_remote_uri.port > 0 then if l_remote_uri.port > 0 then

View File

@@ -50,7 +50,7 @@ feature -- Access
create Result.make (l_title) create Result.make (l_title)
Result.set_description (xml_element_text (x_feed, "subtitle"), "plain") Result.set_description (xml_element_text (x_feed, "subtitle"), "plain")
Result.set_id (xml_element_text (x_feed, "id")) Result.set_id (xml_element_text (x_feed, "id"))
Result.set_updated_date_with_text (xml_element_text (x_feed, "updated")) Result.set_date_with_text (xml_element_text (x_feed, "updated"))
if attached links_from_xml (x_feed, "link") as l_links then if attached links_from_xml (x_feed, "link") as l_links then
across across
l_links as link_ic l_links as link_ic
@@ -68,7 +68,7 @@ feature -- Access
create e.make (e_title) create e.make (e_title)
e.set_description (xml_element_text (x_entry, "summary")) e.set_description (xml_element_text (x_entry, "summary"))
e.set_id (xml_element_text (x_entry, "id")) e.set_id (xml_element_text (x_entry, "id"))
e.set_updated_date_with_text (xml_element_text (x_entry, "updated")) e.set_date_with_text (xml_element_text (x_entry, "updated"))
if attached links_from_xml (x_entry, "link") as l_links then if attached links_from_xml (x_entry, "link") as l_links then
across across

View File

@@ -14,7 +14,7 @@ inherit
create create
make make
feature {NONE} -- Initialization feature {NONE} -- Initialization
make (a_title: READABLE_STRING_GENERAL) make (a_title: READABLE_STRING_GENERAL)
do do
@@ -55,7 +55,7 @@ feature -- Access
Result := items.new_cursor Result := items.new_cursor
end end
feature -- Element change feature -- Element change
set_description (a_description: detachable READABLE_STRING_GENERAL; a_description_content_type: like description_content_type) set_description (a_description: detachable READABLE_STRING_GENERAL; a_description_content_type: like description_content_type)
-- Set `description' with `a_description' and optional content type `text:$a_description_content_type'. -- Set `description' with `a_description' and optional content type `text:$a_description_content_type'.
@@ -80,8 +80,8 @@ feature -- Element change
set_updated_date_with_text (a_date_text: detachable READABLE_STRING_32) set_updated_date_with_text (a_date_text: detachable READABLE_STRING_32)
-- Set `date' from date string representation `a_date_text'. -- Set `date' from date string representation `a_date_text'.
obsolete obsolete
"Use set_date_with_text [oct/2015]" "Use set_date_with_text [2017-05-31]"
do do
set_date_with_text (a_date_text) set_date_with_text (a_date_text)
end end
@@ -112,7 +112,7 @@ feature -- Element change
-- Remove feed item `a_item' from Current list of feed items. -- Remove feed item `a_item' from Current list of feed items.
do do
items.prune (a_item) items.prune (a_item)
end end
extended alias "+" (a_feed: FEED): FEED extended alias "+" (a_feed: FEED): FEED
-- New feed object made from Current merged with a_feed. -- New feed object made from Current merged with a_feed.

View File

@@ -22,7 +22,7 @@ inherit
create create
make make
feature {NONE} -- Initialization feature {NONE} -- Initialization
make (a_title: READABLE_STRING_GENERAL) make (a_title: READABLE_STRING_GENERAL)
do do
@@ -157,8 +157,8 @@ feature -- Element change
set_updated_date_with_text (a_date_text: detachable READABLE_STRING_32) set_updated_date_with_text (a_date_text: detachable READABLE_STRING_32)
-- Set `date' from date string representation `a_date_text'. -- Set `date' from date string representation `a_date_text'.
obsolete obsolete
"Use set_date_with_text [oct/2015]" "Use set_date_with_text [2017-05-31]"
do do
set_date_with_text (a_date_text) set_date_with_text (a_date_text)
end end

View File

@@ -52,7 +52,7 @@ feature -- Access
if attached xml_element_text (x_channel, "title") as x_title then if attached xml_element_text (x_channel, "title") as x_title then
create Result.make (x_title) create Result.make (x_title)
Result.set_description (xml_element_text (x_channel, "description"), "xhtml") Result.set_description (xml_element_text (x_channel, "description"), "xhtml")
Result.set_updated_date_with_text (xml_element_text (x_channel, "lastBuildDate")) Result.set_date_with_text (xml_element_text (x_channel, "lastBuildDate"))
if attached links_from_xml (x_channel, "link") as l_links then if attached links_from_xml (x_channel, "link") as l_links then
across across
l_links as link_ic l_links as link_ic
@@ -69,7 +69,7 @@ feature -- Access
if attached xml_element_text (x_item, "title") as e_title then if attached xml_element_text (x_item, "title") as e_title then
create e.make (e_title) create e.make (e_title)
e.set_description (xml_element_text (x_item, "description")) e.set_description (xml_element_text (x_item, "description"))
e.set_updated_date_with_text (xml_element_text (x_item, "pubDate")) e.set_date_with_text (xml_element_text (x_item, "pubDate"))
e.set_id (xml_element_text (x_item, "guid")) e.set_id (xml_element_text (x_item, "guid"))

View File

@@ -130,7 +130,7 @@ feature -- Visitor
s.append_string_general ("@") s.append_string_general ("@")
s.append_string (a_link.relation) s.append_string (a_link.relation)
s.append_string (" -> ") s.append_string (" -> ")
s.append_string (a_link.href) s.append_string_general (a_link.href)
append_text (s) append_text (s)
end end