Re: span string.

[Jeffrey Carter <spam@spam.com>]

Doker wrote:

> I have string like that "abc1020"
> haw can i make it a string of fixed lenght of 10 chars like "   abc1020"?
> "abc" => "       abc" "4" => "         4"
> "1234567uui" => "1234567uui"

subtype String_10 is String (1 .. 10);

function To_10 (S : String) return String_10 is
    -- null;
begin -- To_10
    if S'Length >= 10 then
       return S (S'First .. S'First + 9);
    else
       return String'(1 .. 10 - S'Length => ' ') & S;
    end if;
end To_10;

-- 
Jeff Carter
"Every sperm is sacred."
Monty Python's the Meaning of Life
55