class EL_MAKEABLE_FROM_ZSTRING_OPERAND_SETTER

(source code)

Client examples: BASE_AUTOTEST_APP

note
	description: "[
		Sets an operand conforming to ${EL_MAKEABLE_FROM_STRING [STRING_GENERAL]} in `make' routine argument tuple
	]"

	author: "Finnian Reilly"
	copyright: "Copyright (c) 2001-2022 Finnian Reilly"
	contact: "finnian at eiffel hyphen loop dot com"

	license: "MIT license (See: en.wikipedia.org/wiki/MIT_License)"
	date: "2024-01-20 19:18:26 GMT (Saturday 20th January 2024)"
	revision: "8"

class
	EL_MAKEABLE_FROM_ZSTRING_OPERAND_SETTER

inherit
	EL_MAKE_OPERAND_SETTER [ZSTRING]
		redefine
			put_reference
		end

create
	make

feature {NONE} -- Implementation

	put_reference (a_string: ZSTRING)
		do
			if attached {EL_MAKEABLE_FROM_STRING [STRING_GENERAL]} operands.item (index) as makeable then
				makeable.make_from_general (a_string)
			end
		end

	value (str: ZSTRING): ZSTRING
		do
			Result := str
		end
end