Return to file_scanning.ads CVS log

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

Annotation of OpenXM_contrib/PHC/Ada/System/file_scanning.ads, Revision 1.1.1.1

1.1       maekawa     1: with text_io;                            use text_io;
                      2:
                      3: package File_Scanning is
                      4:
                      5: -- DESCRIPTION :
                      6: --   This package collects some scanning operations on text files.
                      7:
                      8:   procedure Scan ( file : in file_type; ch : in character;
                      9:                    found : out boolean );
                     10:
                     11:   -- DESCRIPTION :
                     12:   --   Scans the file on the search of a character.
                     13:   --   When the character has been found, then the procedure stops
                     14:   --   and sets found to true, otherwise, found will be false and
                     15:   --   End_of_File(file) will be true.
                     16:
                     17:   procedure Scan ( file : in file_type; banner : in string;
                     18:                    found : out boolean );
                     19:
                     20:   -- DESCRIPTION :
                     21:   --   Scans the file on the search of a text banner.
                     22:
                     23:   -- ON INPUT :
                     24:   --   file        a file opened for input;
                     25:   --   banner      a string.
                     26:
                     27:   -- ON RETURN :
                     28:   --   found       true if the banner has been found, false otherwise.
                     29:
                     30:   procedure Scan_and_Skip ( file : in file_type; banner : in string;
                     31:                             found : out boolean );
                     32:
                     33:   -- DESCRIPTION :
                     34:   --   The line where the banner has been found will be skipped.
                     35:
                     36: end File_Scanning;