Skip and Read
MC logo

Skip and Read

Ada Code Examples

<<Array Slicing Download Simple Record Use>>
-- This reads in a string on a line, but skips leading blanks.
with Gnat.Io; use Gnat.Io;
procedure ReadRest is
   Max: constant := 20;         -- Max size of string.
   Fred: String(1..Max);        -- String.
   I: Integer;                  -- Input subscript.
   Ch: Character;               -- Search for first char.
   -- Read to first non-blank character and put it into the first
   -- position of the array.
      exit when Ch /= ' ';
   end loop;
   Fred(1) := Ch;

   -- Read the rest of the line into the part of the array after the
   -- first position.
   Get_Line(Fred(2..Fred'last), I);

   -- Echo the whole string, leading blanks trimmed.
end ReadRest;
<<Array Slicing Simple Record Use>>