Added initial ATOM and RSS feed parser and generator.

(work in progress)

library/text/parser/feed/src/kernel/feed_link.e

@@ -0,0 +1,56 @@
+note
+	description: "Summary description for {FEED_LINK}."
+	author: ""
+	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
+
+	relation: READABLE_STRING_32
+
+	type: detachable READABLE_STRING_8
+
+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