-- --
-- B o d y --
-- --
--- Copyright (C) 1997-2005, Free Software Foundation, Inc. --
+-- Copyright (C) 1997-2006, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- Check --
-----------
- procedure Check (Filename : in String) is
+ procedure Check (Filename : String) is
begin
if not Is_Regular_File (Filename) then
Raise_Exception
procedure Parse_Command_Line is
- procedure Add_File (Filename : in String);
+ procedure Add_File (Filename : String);
-- Add one file to the list of file to handle
- procedure Add_Files_From_List (List_Filename : in String);
+ procedure Add_Files_From_List (List_Filename : String);
-- Add the files listed in List_Filename (one by line) to the list
-- of file to handle
-- Add_File --
--------------
- procedure Add_File (Filename : in String) is
+ procedure Add_File (Filename : String) is
begin
if Is_Ali (Filename) then
Check (Filename);
-- Add_Files_From_List --
-------------------------
- procedure Add_Files_From_List (List_Filename : in String) is
+ procedure Add_Files_From_List (List_Filename : String) is
File : File_Type;
Buffer : String (1 .. 500);
Last : Natural;