note
	description: "Objects that ..."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	SVN_STATUS_INFO

inherit
	SVN_CONSTANTS
		export
			{NONE} all
		undefine
			is_equal
		end

	COMPARABLE

create
	make

feature

	make (d: PATH; p: like path; pp: detachable READABLE_STRING_GENERAL)
		do
			set_path (p)
			if pp /= Void then
				create prefix_path.make_from_string_general (pp)
			else
				prefix_path := Void
			end
			absolute_path := d.extended (path)
			wc_status := status_none_id
			repos_status := status_none_id
		end

feature

	path_is_directory: BOOLEAN
		local
			file: RAW_FILE
		do
			create file.make_with_path (absolute_path)
			Result := file.exists and then file.is_directory
		end

	absolute_path: PATH

	prefix_path: detachable STRING_32

	display_path: STRING_32
		local
			fn: PATH
		do
			if attached prefix_path as l_prefix_path then
				create fn.make_from_string (l_prefix_path)
				Result := fn.extended (path).name
			else
				create Result.make_from_string_general (path)
			end
		end

	path: STRING_32

	wc_revision, repos_revision: INTEGER

	wc_status, repos_status: STRING

	wc_status_code, repos_status_code: INTEGER

	props: detachable HASH_TABLE [STRING, STRING]

feature -- comp

	is_less alias "<" (other: like Current): BOOLEAN
		do
			Result := absolute_path < other.absolute_path
		end

feature

	set_path (v: like path)
		do
			path := v
		end

	set_wc_revision (v: like wc_revision)
		do
			wc_revision := v
		end

	set_wc_status (v: detachable READABLE_STRING_GENERAL)
		do
			if v /= Void and then not v.is_whitespace and then v.is_valid_as_string_8 then
				wc_status := v.to_string_8
			else
				wc_status := status_none_id
			end
			wc_status_code := status_codes.item (wc_status)
		end

	set_repos_revision (v: like repos_revision)
		do
			repos_revision := v
		end

	set_repos_status (v: detachable READABLE_STRING_GENERAL)
		do
			if v /= Void and then not v.is_whitespace and then v.is_valid_as_string_8 then
				repos_status := v.to_string_8
			else
				repos_status := status_none_id
			end
			repos_status_code := status_codes.item (repos_status)
		end

note
	copyright: "Copyright (c) 2003-2022, 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