Return to file_scanning.adb CVS log

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

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

1.1       maekawa     1: package body File_Scanning is
                      2:
                      3:   procedure Scan ( file : in file_type; ch : in character;
                      4:                    found : out boolean ) is
                      5:
                      6:     c : character;
                      7:
                      8:   begin
                      9:     while not End_of_File(file) loop
                     10:       get(file,c);
                     11:       if c = ch
                     12:        then found := true;
                     13:             return;
                     14:       end if;
                     15:     end loop;
                     16:     found := false;
                     17:   end Scan;
                     18:
                     19:   procedure Scan ( file : in file_type; banner : in string;
                     20:                    found : out boolean ) is
                     21:
                     22:     index : natural := banner'first-1;
                     23:     ch : character;
                     24:
                     25:   begin
                     26:     while not End_of_File(file) loop
                     27:       get(file,ch);
                     28:       if index < banner'first
                     29:        then
                     30:          if ch = banner(banner'first)
                     31:           then index := banner'first+1;
                     32:          end if;
                     33:        else
                     34:          if ch = banner(index)
                     35:           then index := index + 1;
                     36:           else index := banner'first-1;
                     37:          end if;
                     38:       end if;
                     39:       exit when index > banner'last;
                     40:     end loop;
                     41:     if index > banner'last
                     42:      then found := true;
                     43:      else found := false;
                     44:     end if;
                     45:   exception
                     46:     when others => found := false; return;
                     47:   end Scan;
                     48:
                     49:   procedure Scan_and_Skip ( file : in file_type; banner : in string;
                     50:                             found : out boolean ) is
                     51:
                     52:     fnd : boolean;
                     53:
                     54:   begin
                     55:     Scan(file,banner,fnd);
                     56:     if fnd
                     57:      then skip_line(file);
                     58:     end if;
                     59:     found := fnd;
                     60:   end Scan_and_Skip;
                     61:
                     62: end File_Scanning;