Added weight into to the CMS_LINK and provide a `sort' feature for CMS_MENU and related.

Protected cms service from registering many time the same module type.
Moved library/persistence/implementation/* under library/persistence/.
Moved site/www/themes to site/themes
For SQLite storage driver, auto create sqlite db file using associated sql script (to be completed).
Added code in demo module to reuse storage for module purpose.
Always call sql_post_execution in sql_query and sql_change, and not anymore by the callers.
Removed is_web and is_html from {CMS_SETUP}, it was not used.
Reused SHARED_*_ENCODER in CMS_ENCODERS
Added CMS_API.logger rather than using directly the SHARED_LOGGER.log ...
Centralize the implementation of current_user in CMS_REQUEST_UTIL
Removed the inheritance on WSF_FILTER for node handlers, since it is useless and unused.
Added CMS_NODE_API and CMS_USER_API
Prefix html id for block generated html items with "block-", to avoid css name conflict on "main", "content" or similar.
Code cleaning

library/model/src/link/cms_link.e

@@ -2,18 +2,29 @@ note
 	description: "[
 			Abstraction to represent a URI link in the CMS system.
 		]"
-	date: "$Date$"
-	revision: "$Revision$"
+	date: "$Date: 2015-02-09 22:29:56 +0100 (lun., 09 févr. 2015) $"
+	revision: "$Revision: 96596 $"
 
 deferred class
 	CMS_LINK
 
 inherit
 	REFACTORING_HELPER
+		undefine
+			is_equal
+		end
 
 	DEBUG_OUTPUT
+		undefine
+			is_equal
+		end
 
 	ITERABLE [CMS_LINK]
+		undefine
+			is_equal
+		end
+
+	COMPARABLE
 
 feature -- Access	
 
@@ -23,6 +34,21 @@ feature -- Access
 	location: READABLE_STRING_8
 			-- Associated url location.
 
+	weight: INTEGER
+			-- Optional weight used for order.
+
+feature -- Comparison
+
+	is_less alias "<" (other: like Current): BOOLEAN
+			-- Is current object less than `other'?
+		do
+			if weight = other.weight then
+				Result := title < other.title
+			else
+				Result := weight < other.weight
+			end
+		end
+
 feature -- status report	
 
 	is_active: BOOLEAN
@@ -53,6 +79,16 @@ feature -- status report
 		deferred
 		end
 
+feature -- Element change
+
+	set_weight (a_weight: INTEGER)
+			-- Set `weight' to `a_weight'.
+		do
+			weight := a_weight
+		ensure
+			weight_set: weight = a_weight
+		end
+
 feature -- Query
 
 	parent: detachable CMS_LINK
@@ -84,9 +120,12 @@ feature -- Status report
 			create Result.make_from_string (title)
 			Result.append_string_general (" -> ")
 			Result.append_string_general (location)
+			Result.append_string_general (" [")
+			Result.append_integer (weight)
+			Result.append_string_general ("]")
 		end
 
 note
-	copyright: "2011-2014, Javier Velilla, Jocelyn Fiat, Eiffel Software and others"
+	copyright: "2011-2015, Javier Velilla, Jocelyn Fiat, Eiffel Software and others"
 	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
 end