note
	description: "[
		Stream reader used to retrieve 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_READER

inherit
	PRT_STREAM_READER_I

inherit {NONE}
	SHARED_INPOUT32_API
		export
			{NONE} all
		end

create
	make,
	make_with_offset

feature -- Query

	is_readable: 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_receive_8 (a_address: NATURAL_16): NATURAL_8
			-- <Precursor>
		do
			Result := inpout32.receive (a_address.to_integer_16).to_natural_8
		end

	internal_receive_16 (a_address: NATURAL_16): NATURAL_16
			-- <Precursor>
		do
			check read_unavailable: False end
		end

	internal_receive_32 (a_address: NATURAL_16): 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