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     ! 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;