note description: "Objects that ..." author: "" date: "$Date$" revision: "$Revision$" class SVN_STATUS_INFO_COMPARATOR inherit COMPARATOR [SVN_STATUS_INFO] create make_path, make_wc_status, make_repos_status feature make_path do comparator_id := id_path end make_wc_status do comparator_id := id_wc_status end make_repos_status do comparator_id := id_repos_status end feature id_path: INTEGER = 1 id_wc_status: INTEGER = 2 id_repos_status: INTEGER = 3 comparator_id: INTEGER less_than (u, v: SVN_STATUS_INFO): BOOLEAN do inspect comparator_id when id_path then Result := u.display_path < v.display_path when id_wc_status then Result := u.wc_status < v.wc_status when id_repos_status then Result := (u = Void) or else (v.repos_status /= Void and then u.repos_status < v.repos_status) Result := u.repos_status < v.repos_status else check False end end end note copyright: "Copyright (c) 2003-2010, Jocelyn Fiat" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" source: "[ Jocelyn Fiat Contact: jocelyn@eiffelsolution.com Website http://www.eiffelsolution.com/ ]" end