1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
9 -- Copyright (C) 1992-2002 Free Software Foundation, Inc. --
11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 2, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
15 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
16 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
17 -- for more details. You should have received a copy of the GNU General --
18 -- Public License distributed with GNAT; see file COPYING. If not, write --
19 -- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
20 -- MA 02111-1307, USA. --
22 -- As a special exception, if other files instantiate generics from this --
23 -- unit, or you link this unit with other files to produce an executable, --
24 -- this unit does not by itself cause the resulting executable to be --
25 -- covered by the GNU General Public License. This exception does not --
26 -- however invalidate any other reasons why the executable file might be --
27 -- covered by the GNU Public License. --
29 -- GNAT was originally developed by the GNAT team at New York University. --
30 -- Extensive contributions were provided by Ada Core Technologies Inc. --
32 ------------------------------------------------------------------------------
34 with Output; use Output;
37 procedure List (File_Names_Only : Boolean := False) is
39 Num_Units : constant Nat := Int (Units.Last) - Int (Units.First) + 1;
40 -- Number of units in file table
42 Sorted_Units : Unit_Ref_Table (1 .. Num_Units);
43 -- Table of unit numbers that we will sort
45 Unit_Hed : constant String := "Unit name ";
46 Unit_Und : constant String := "--------- ";
47 Unit_Bln : constant String := " ";
48 File_Hed : constant String := "File name ";
49 File_Und : constant String := "--------- ";
50 File_Bln : constant String := " ";
51 Time_Hed : constant String := "Time stamp";
52 Time_Und : constant String := "----------";
54 Unit_Length : constant Natural := Unit_Hed'Length;
55 File_Length : constant Natural := File_Hed'Length;
58 -- First step is to make a sorted table of units
60 for J in 1 .. Num_Units loop
61 Sorted_Units (J) := Unit_Number_Type (Int (Units.First) + J - 1);
66 -- Now we can generate the unit table listing
70 if not File_Names_Only then
83 for R in Sorted_Units'Range loop
84 if File_Names_Only then
85 if not Is_Internal_File_Name
86 (File_Name (Source_Index (Sorted_Units (R))))
88 Write_Name (Full_File_Name (Source_Index (Sorted_Units (R))));
93 Write_Unit_Name (Unit_Name (Sorted_Units (R)));
95 if Name_Len > (Unit_Length - 1) then
99 for J in Name_Len + 1 .. Unit_Length loop
104 Write_Name (Full_File_Name (Source_Index (Sorted_Units (R))));
106 if Name_Len > (File_Length - 1) then
108 Write_Str (Unit_Bln);
109 Write_Str (File_Bln);
111 for J in Name_Len + 1 .. File_Length loop
116 Write_Str (String (Time_Stamp (Source_Index (Sorted_Units (R)))));