Re: AVR Usart send number string with no 'Image

[Shark8 <onewingedshark@gmail.com>]

    declare
	Subtype Digit is Character Range '0'..'9';
	Function To_String( Input : Interfaces.Unsigned_8 ) Return String is
	    Subtype Digital is Interfaces.Unsigned_8 Range 0..9;
	begin
	    if Input in Digital then
		Return (1 => Digit'Val( Natural(Input) + Character'Pos('0') ));
	    else
		declare
		    Use Type Interfaces.Unsigned_8;
		    D2 : Constant Interfaces.Unsigned_8:= Input / 10;
		    D1 : Constant Interfaces.Unsigned_8:= Input mod 10;
		begin
		    Return To_String(D2) & To_String(D1);
		end;
	    end if;
	end To_String;
    
	Subtype Byte_Range is Integer range 0..255;
	X : Integer := 4;
    begin
	While X in byte_range loop
	    Ada.Text_IO.Put_Line( To_String( Interfaces.Unsigned_8(X) ) );
	    X:= X*2;
	end loop;
    end;