with ada.text_io;

procedure lookahead is
  begin
    while not ada.text_io.end_of_file loop
      declare
        c : character := 'x';
        eol : boolean;
      begin
        ada.text_io.look_ahead(c, eol);
        ada.text_io.put_line("character is """&Character'Image(c)&""", EOL is "&Boolean'Image(eol));
        if eol then
          ada.text_io.skip_line;
        else
          ada.text_io.get(c);
        end if;
      end;
    end loop;
  end lookahead;