Added feed aggregation module.

Improved the CMS Block system to support condition.

modules/feed_aggregator/feed_aggregator_api.e

@@ -0,0 +1,39 @@
+note
+	description: "API for Feed aggregator module."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	FEED_AGGREGATOR_API
+
+inherit
+	CMS_MODULE_API
+
+create
+	make
+
+feature -- Access
+
+	aggregations: HASH_TABLE [FEED_AGGREGATION, STRING]
+			-- List of feed aggregations.
+		local
+			agg: FEED_AGGREGATION
+		do
+			create Result.make (2)
+			create agg.make ("Blog from Bertrand Meyer")
+			agg.locations.force ("https://bertrandmeyer.com/category/computer-science/feed/")
+			Result.force (agg, "bertrandmeyer")
+
+			create agg.make ("Eiffel Room")
+			agg.locations.force ("https://room.eiffel.com/recent_changes/feed")
+			Result.force (agg, "eiffelroom")
+		end
+
+	aggregation (a_name: READABLE_STRING_GENERAL): detachable FEED_AGGREGATION
+		do
+			if attached a_name.is_valid_as_string_8 then
+				Result := aggregations.item (a_name.as_string_8)
+			end
+		end
+
+end