Updated CMS code.

Separated code to have a lib and an example.
Improved design, fixed a few issues related to folder location.

This is still experimental and require more work to be really friendly to use.

draft/application/cms/src/kernel/api/cms_api_options.e

@@ -0,0 +1,75 @@
+note
+	description: "Summary description for {CMS_API_OPTIONS}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	CMS_API_OPTIONS
+
+create
+	make,
+	make_from_manifest
+
+convert
+	make_from_manifest ({ ARRAY [TUPLE [key: STRING; value: detachable ANY]],
+						  ARRAY [TUPLE [STRING_8, ARRAY [TUPLE [STRING_8, READABLE_STRING_32]]]]
+						})
+
+feature {NONE} -- Initialization
+
+	make (n: INTEGER)
+		do
+			create table.make (n)
+		end
+
+	make_from_manifest (lst: ARRAY [TUPLE [key: STRING; value: detachable ANY]])
+		do
+			make (lst.count)
+			across
+				lst as c
+			loop
+				force (c.item.value, c.item.key)
+			end
+		end
+
+feature -- Access
+
+	item (k: STRING): detachable ANY
+		do
+			Result := table.item (k)
+		end
+
+	force (v: detachable ANY; k: STRING)
+		do
+			table.force (v, k)
+		end
+
+	boolean_item (k: STRING; dft: BOOLEAN): BOOLEAN
+		do
+			if attached {BOOLEAN} item (k) as b then
+				Result := b
+			else
+				Result := dft
+			end
+		end
+
+	string_general_item (k: STRING): detachable READABLE_STRING_GENERAL
+		do
+			if attached {READABLE_STRING_GENERAL} item (k) as s then
+				Result := s
+			end
+		end
+
+	string_item, string_8_item (k: STRING): detachable READABLE_STRING_8
+		do
+			if attached {READABLE_STRING_8} item (k) as s then
+				Result := s
+			end
+		end
+
+	table: HASH_TABLE [detachable ANY, STRING]
+
+invariant
+
+end