indexing description: "Compares projects lexicographically according to their names" author: "Dennis Rietmann" date: "$Date$" revision: "$Revision$" class PROJECT_COMPARATOR inherit KL_PART_COMPARATOR[DS_HASH_TABLE[ANY, STRING]] feature less_than (u, v: DS_HASH_TABLE[ANY, STRING]): BOOLEAN is -- u,v: The projects to compare lexicographically according to their names local l_project_name_1: STRING l_project_name_2: STRING do l_project_name_1 ?= u.item ("name") check project_name_1_ok: l_project_name_1 /= Void end l_project_name_2 ?= v.item ("name") check project_name_2_ok: l_project_name_2 /= Void end if u = Void then Result := True elseif v = Void then Result := False else Result := l_project_name_1 < l_project_name_2 end end end