note
	description: "Summary description for {MD_ASSEMBLY_INFO}."
	date: "$Date$"
	revision: "$Revision$"

class
	MD_ASSEMBLY_INFO

create
	make

feature {NONE} -- Initialization

	make
		do
			major_version := 1 -- Default version is: 1.0.0.0
		end

feature -- Access

	major_version: NATURAL_16 assign set_major_version
			-- Major version

	minor_version: NATURAL_16 assign set_minor_version
			-- Minor version

	build_number: NATURAL_16 assign set_build_number
			-- Build number	

	revision_number: NATURAL_16 assign set_revision_number
			-- Revision number

feature -- Conversion

	string: STRING_8
		do
			create Result.make (10)
			Result.append (major_version.out)
			Result.append_character ('.')
			Result.append (minor_version.out)
			Result.append_character ('.')
			Result.append (build_number.out)
			Result.append_character ('.')
			Result.append (revision_number.out)
		end

feature -- Element change

	set_major_version (m: like major_version)
			-- Set `major_version` to `m`.
		do
			major_version := m
		ensure
			major_version_set: major_version = m
		end

	set_minor_version (m: like minor_version)
			-- Set `minor_version` to `m`.	
		do
			minor_version := m
		ensure
			minor_version_set: minor_version = m
		end

	set_revision_number (r: like revision_number)
			-- Set `revision_number` to `r`.	
		do
			revision_number := r
		ensure
			revision_number_set: revision_number = r
		end

	set_build_number (b: like build_number)
			-- Set `build_number` to `b`.
		do
			build_number := b
		ensure
			build_number_set: build_number = b
		end

end