note
	description: "[
		Stream writer used to send data to a port using the InpOut32 driver on Windows.
	]"
	legal   : "See notice at end of class."
	status  : "See notice at end of class.";
	author  : "Paul Bates (paul.a.bates@gmail.com)"
	date    : "$Date$"
	revision: "$Revision$"

class
	PRT_INPOUT32_STREAM_WRITER

inherit
	PRT_STREAM_WRITER_I

inherit {NONE}
	SHARED_INPOUT32_API
		export
			{NONE} all
		end

create
	make,
	make_with_offset

feature -- Query

	is_writable: BOOLEAN
			-- <Precursor>
		do
			Result := inpout32.is_interface_usable
		ensure then
			inpout32_is_interface_usable: Result implies inpout32.is_interface_usable
		end

feature {NONE} -- Read operations

	internal_send_8 (a_address: NATURAL_16; a_data: NATURAL_8)
			-- <Precursor>
		do
			inpout32.send (a_address.to_integer_16, a_data)
		end

	internal_send_16 (a_address: NATURAL_16; a_data: NATURAL_16)
			-- <Precursor>
		do
			check read_unavailable: False end
		end

	internal_send_32 (a_address: NATURAL_16; a_data: NATURAL_32)
			-- <Precursor>
		do
			check read_unavailable: False end
		end

;note
	copyright:	"Copyright (c) 2004-2008, Paul Bates (paul.a.bates@gmail.com)"
	license:	"Not decided! Current holdings permits no other use except for educational evaluation. This is NOT GPL code!"
	licensing_options:	"http://www.eiffel.com/licensing"
	copying: "[
			Current status prohibits any form of copying or duplication without prior written concent of Paul Bates (paul.a.bates@gmail.com)
		]"

end