Added first steps toward Taxonomy module.

modules/taxonomy/cms_term.e

@@ -0,0 +1,99 @@
+note
+	description: "[
+			Taxonomy vocabulary term.
+		]"
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	CMS_TERM
+
+inherit
+	COMPARABLE
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_id: INTEGER; a_text: READABLE_STRING_GENERAL)
+		do
+			id := a_id
+			set_text (a_text)
+		end
+
+feature -- Access
+
+	id: INTEGER
+			-- Associated term id.
+
+	text: IMMUTABLE_STRING_32
+			-- Text for the term.
+
+	description: detachable IMMUTABLE_STRING_32
+			-- Optional description.
+
+	parent_id: INTEGER
+			-- Optional parent term id.
+
+	weight: INTEGER
+			-- Associated weight for ordering.
+
+feature -- Status report
+
+	has_id: BOOLEAN
+			-- Has valid id?
+		do
+			Result := id > 0
+		end
+
+feature -- Comparison
+
+	is_less alias "<" (other: like Current): BOOLEAN
+			-- Is current object less than `other'?
+		do
+			if weight = other.weight then
+				if text.same_string (other.text) then
+					Result := id < other.id
+				else
+					Result := text < other.text
+				end
+			else
+				Result := weight < other.weight
+			end
+		end
+
+feature -- Element change
+
+	set_id (a_id: INTEGER)
+		do
+			id := a_id
+		end
+
+	set_text (a_text: READABLE_STRING_GENERAL)
+		do
+			create text.make_from_string_general (a_text)
+		end
+
+	set_weight (w: like weight)
+		do
+			weight := w
+		end
+
+	set_description (a_description: READABLE_STRING_GENERAL)
+		do
+			create description.make_from_string_general (a_description)
+		end
+
+	set_parent (a_parent: CMS_TERM)
+		do
+			parent_id := a_parent.id
+		end
+
+	set_parent_id (a_parent_id: INTEGER)
+		do
+			parent_id := a_parent_id
+		end
+
+end
+