class EL_NATURAL_OPERAND_SETTER
Sets a NATURAL operand in make routine argument tuple
note
description: "Sets a `NATURAL' operand in `make' routine argument tuple"
author: "Finnian Reilly"
copyright: "Copyright (c) 2001-2017 Finnian Reilly"
contact: "finnian at eiffel hyphen loop dot com"
license: "MIT license (See: en.wikipedia.org/wiki/MIT_License)"
date: "2019-01-25 11:35:23 GMT (Friday 25th January 2019)"
revision: "5"
class
EL_NATURAL_OPERAND_SETTER
inherit
EL_MAKE_OPERAND_SETTER [NATURAL]
rename
put_reference as put_natural_32
redefine
is_convertible, put_natural_32
end
feature {NONE} -- Implementation
is_convertible (string_value: ZSTRING): BOOLEAN
do
Result := string_value.is_natural_32
end
put_natural_32 (a_value: like value; i: INTEGER)
do
make_routine.operands.put_natural_32 (a_value, i)
end
value (str: ZSTRING): NATURAL
do
Result := str.to_natural_32
end
end