Return to ts_filescan.adb CVS log

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

Annotation of OpenXM_contrib/PHC/Ada/System/ts_filescan.adb, Revision 1.1.1.1

1.1       maekawa     1: with text_io;                            use text_io;
                      2: with Communications_with_User;           use Communications_with_User;
                      3: with File_Scanning;                      use File_Scanning;
                      4:
                      5: procedure ts_filescan is
                      6:
                      7: -- DESCRIPTION :
                      8: --   Reads a file name and a banner, and scans for it.
                      9:
                     10:   procedure Main is
                     11:
                     12:     file : file_type;
                     13:     ans : character;
                     14:
                     15:   begin
                     16:     new_line;
                     17:     put_line("Interactive test of file scanning.");
                     18:     new_line;
                     19:     loop
                     20:       put_line("Reading the name of the input file.");
                     21:       Read_Name_and_Open_File(file);
                     22:       loop
                     23:         put_line("Reading a banner.");
                     24:         declare
                     25:           banner : constant String := Read_String;
                     26:           found : boolean := false;
                     27:         begin
                     28:           Scan(file,banner,found);
                     29:           if found
                     30:            then put_line("The banner has been found.");
                     31:            else put_line("The banner has not been found.");
                     32:           end if;
                     33:         end;
                     34:         put("Do you want to test more banners ? (y/n) ");
                     35:         Ask_Yes_or_No(ans);
                     36:         exit when (ans /= 'y');
                     37:         Reset(file);
                     38:       end loop;
                     39:       Close(file);
                     40:       put("Do you want to scan other files ? (y/n) ");
                     41:       Ask_Yes_or_No(ans);
                     42:       exit when (ans /= 'y');
                     43:     end loop;
                     44:   end Main;
                     45:
                     46: begin
                     47:   Main;
                     48: end ts_filescan;