Re: AVR Usart send number string with no 'Image

["Rego, P." <pvrego@gmail.com>]

On Friday, April 26, 2013 6:10:27 PM UTC-3, Shark8 wrote:
> I rewrote it iteratively; I'm pretty sure an extended return doesn't require the second-stack so you should be fine.
>     declare
> 	Subtype String_3 is String(1..3);
> 	use Interfaces;
> 	-- Because the secondary stack is disabled we cannot use either of
> 	-- (a) recursion, or (b) unconstrained return-types. Therefore we
> 	-- need to work both iteratively and with fixed-length strings.
> 	Function To_String( Input : Unsigned_8 ) Return String_3 is
> 	    -- A temporary variable for manipulation, initialized to input.
> 	    Working : Unsigned_8 := Input;
> 	begin
> 	    -- Extended return, we do not have to initialize any characters
> 	    -- because they will be in range '0'..'9' with leading zeros.
> 	    Return Result : String_3 do
> 		-- We assign the digit it's proper value, based on its
> 		-- position within the string.
> 		For Digit in reverse Result'Range loop
> 		    Result(Digit):= Character'Val(
> 				      -- We add the mod 10 value of working
> 				      -- to the value of '0' to get the proper
> 				      -- digit-character.
> 				      Natural(Working mod 10) + 
> 				      Character'Pos('0')
> 		     		);
> 		    -- We adjust our working-variable, by dividing it by 10.
> 		    Working:= Working / 10;
> 		end loop;
> 	    end return;
> 	End To_String;
> 	-- Testing variable.
> 	Temp : Natural := 4;
>     begin
> 	-- Test
> 	while Temp < 256 loop
> 	    Ada.Text_IO.Put_Line( To_String( Unsigned_8(Temp) ) );
> 	    Temp:= Temp *2;
> 	    -- I want to end w/ 255, not 128.
> 	    Temp:= (if temp = 256 then 255 else temp);
> 	end loop;
>     end;

Thanks Shark8, it very worked! Also thanks for your comments.