Improved feed library with comments, bug fixes and code factorization.

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

@@ -1,6 +1,5 @@
 note
-	description: "Summary description for {FEED}."
-	author: ""
+	description: "FEED interface, could be RSS, ATOM, ..."
 	date: "$Date$"
 	revision: "$Revision$"
 
@@ -30,6 +29,10 @@ feature -- Access
 	description: detachable IMMUTABLE_STRING_32
 			-- Associated description/subtitle.
 
+	description_content_type: detachable READABLE_STRING_8
+			-- Optional content type for `description'.
+			-- By default, this should be text/plain.
+
 	id: detachable IMMUTABLE_STRING_32
 			-- Id associated with Current feed if any.
 
@@ -44,12 +47,15 @@ feature -- Access
 
 feature -- Element change	
 
-	set_description (a_description: detachable READABLE_STRING_GENERAL)
+	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'.
 		do
 			if a_description = Void then
 				description := Void
+				description_content_type := Void
 			else
 				create description.make_from_string_general (a_description)
+				description_content_type := a_description_content_type
 			end
 		end
 
@@ -83,6 +89,4 @@ feature -- Visitor
 			vis.visit_feed (Current)
 		end
 
-invariant
-
 end

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

@@ -1,6 +1,5 @@
 note
-	description: "Summary description for {FEED_AUTHOR}."
-	author: ""
+	description: "Object representing author of Feed or feed entry."
 	date: "$Date$"
 	revision: "$Revision$"
 

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

@@ -1,6 +1,5 @@
 note
-	description: "Summary description for {FEED_ENTRY}."
-	author: ""
+	description: "Item of feed."
 	date: "$Date$"
 	revision: "$Revision$"
 
@@ -170,6 +169,4 @@ feature -- Visitor
 			vis.visit_entry (Current)
 		end
 
-invariant
-
 end

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

@@ -1,6 +1,5 @@
 note
-	description: "Summary description for {FEED_LINK}."
-	author: ""
+	description: "Link mentioned in feed and feed entry."
 	date: "$Date$"
 	revision: "$Revision$"
 
@@ -21,10 +20,13 @@ feature {NONE} -- Initialization
 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