note description: "Objects that ..." author: "" date: "$Date$" revision: "$Revision$" class SVN_CONSTANTS feature -- Id status_normal: INTEGER = 1 status_modified: INTEGER = 2 status_conflict: INTEGER = 4 status_missing: INTEGER = 8 status_added: INTEGER = 16 status_deleted: INTEGER = 32 status_unknown: INTEGER = 64 status_obstructed: INTEGER = 128 status_external: INTEGER = 256 status_update: INTEGER = 512 status_none: INTEGER = 1024 status_error: INTEGER = 2048 status_normal_id: STRING = "normal" status_modified_id: STRING = "modified" status_conflict_id: STRING = "conflicted" status_missing_id: STRING = "missing" status_added_id: STRING = "added" status_deleted_id: STRING = "deleted" status_unknown_id: STRING = "unversioned" status_error_id: STRING = "error" status_none_id: STRING = "none" status_update_id: STRING = "update" status_obstructed_id: STRING = "obstructed" status_external_id: STRING = "external" kind_file: NATURAL_8 = 1 kind_dir: NATURAL_8 = 2 kind_to_string (a_kind: NATURAL_8): STRING do inspect a_kind when kind_file then Result := "file" when kind_dir then Result := "dir" else Result := "UnknownKind" end end string_to_kind (a_kind_name: READABLE_STRING_GENERAL): NATURAL_8 do if a_kind_name.same_string ("file") then Result := kind_file elseif a_kind_name.same_string ("dir") then Result := kind_dir else --| Result := 0 end end status_code_name_entries: ARRAYED_LIST [TUPLE [code: INTEGER; name: STRING]] once create Result.make (11) Result.extend ([status_modified, status_modified_id]) Result.extend ([status_added, status_added_id]) Result.extend ([status_deleted, status_deleted_id]) Result.extend ([status_unknown, status_unknown_id]) Result.extend ([status_update, status_update_id]) Result.extend ([status_missing, status_missing_id]) Result.extend ([status_external, status_external_id]) Result.extend ([status_normal, status_normal_id]) Result.extend ([status_obstructed, status_obstructed_id]) Result.extend ([status_error, status_error_id]) Result.extend ([status_none, status_none_id]) ensure -- not Result.has (Void) end status_codes: HASH_TABLE [INTEGER, STRING] local lst: like status_code_name_entries once lst := status_code_name_entries create Result.make (lst.count) from lst.start until lst.after loop Result.put (lst.item.code, lst.item.name) lst.forth end end status_ids: HASH_TABLE [STRING, INTEGER] local lst: like status_code_name_entries once lst := status_code_name_entries create Result.make (lst.count) from lst.start until lst.after loop Result.put (lst.item.name, lst.item.code) lst.forth end end note copyright: "Copyright (c) 2003-2015, 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