59 lines
903 B
Plaintext
59 lines
903 B
Plaintext
note
|
|
description: "Link mentioned in feed and feed entry."
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
FEED_LINK
|
|
|
|
create
|
|
make
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make (a_href: READABLE_STRING_8)
|
|
do
|
|
href := a_href
|
|
set_relation (Void)
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
href: READABLE_STRING_8
|
|
-- Location of Current link.
|
|
|
|
relation: READABLE_STRING_32
|
|
-- Relation associated with Current link.
|
|
|
|
type: detachable READABLE_STRING_8
|
|
-- Optional type of link.
|
|
|
|
feature -- Element change
|
|
|
|
set_relation (rel: detachable READABLE_STRING_GENERAL)
|
|
do
|
|
if rel = Void then
|
|
relation := ""
|
|
else
|
|
relation := rel.as_string_8
|
|
end
|
|
end
|
|
|
|
set_type (a_type: detachable READABLE_STRING_GENERAL)
|
|
do
|
|
if a_type = Void then
|
|
type := Void
|
|
else
|
|
type := a_type.as_string_8
|
|
end
|
|
end
|
|
|
|
feature -- Visitor
|
|
|
|
accept (vis: FEED_VISITOR)
|
|
do
|
|
vis.visit_link (Current)
|
|
end
|
|
|
|
end
|