Return to ts_filescan.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / System

Import the second public release of PHCpack.

OKed by Jan Verschelde.

with text_io;                            use text_io;
with Communications_with_User;           use Communications_with_User;
with File_Scanning;                      use File_Scanning;

procedure ts_filescan is

-- DESCRIPTION :
--   Reads a file name and a banner, and scans for it.

  procedure Main is

    file : file_type;
    ans : character;
 
  begin
    new_line;
    put_line("Interactive test of file scanning.");
    new_line;
    loop
      put_line("Reading the name of the input file.");
      Read_Name_and_Open_File(file);
      loop
        put_line("Reading a banner.");
        declare
          banner : constant String := Read_String;
          found : boolean := false;
        begin
          Scan(file,banner,found);
          if found
           then put_line("The banner has been found.");
           else put_line("The banner has not been found.");
          end if; 
        end;
        put("Do you want to test more banners ? (y/n) ");
        Ask_Yes_or_No(ans);
        exit when (ans /= 'y');
        Reset(file);
      end loop;
      Close(file);
      put("Do you want to scan other files ? (y/n) ");
      Ask_Yes_or_No(ans);
      exit when (ans /= 'y');
    end loop;
  end Main;

begin
  Main;
end ts_filescan;