File : prj-makr.ads
1 ------------------------------------------------------------------------------
2 -- --
3 -- GNAT COMPILER COMPONENTS --
4 -- --
5 -- P R J . M A K R --
6 -- --
7 -- S p e c --
8 -- --
9 -- Copyright (C) 2001-2009, Free Software Foundation, Inc. --
10 -- --
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 3, 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 COPYING3. If not, go to --
19 -- http://www.gnu.org/licenses for a complete copy of the license. --
20 -- --
21 -- GNAT was originally developed by the GNAT team at New York University. --
22 -- Extensive contributions were provided by Ada Core Technologies Inc. --
23 -- --
24 ------------------------------------------------------------------------------
25
26 -- Support for procedure Gnatname
27
28 -- For arbitrary naming schemes, create or update a project file, or create a
29 -- configuration pragmas file.
30
31 with System.Regexp; use System.Regexp;
32
33 package Prj.Makr is
34
35 procedure Initialize
36 (File_Path : String;
37 Project_File : Boolean;
38 Preproc_Switches : Argument_List;
39 Very_Verbose : Boolean;
40 Flags : Processing_Flags);
41 -- Start the creation of a configuration pragmas file or the creation or
42 -- modification of a project file, for gnatname.
43 --
44 -- When Project_File is False, File_Path is the name of a configuration
45 -- pragmas file to create. When Project_File is True, File_Path is the name
46 -- of a project file to create if it does not exist or to modify if it
47 -- already exists.
48 --
49 -- Preproc_Switches is a list of switches to be used when invoking the
50 -- compiler to get the name and kind of unit of a source file.
51 --
52 -- Very_Verbose controls the verbosity of the output, in conjunction with
53 -- Opt.Verbose_Mode.
54
55 type Regexp_List is array (Positive range <>) of Regexp;
56
57 procedure Process
58 (Directories : Argument_List;
59 Name_Patterns : Regexp_List;
60 Excluded_Patterns : Regexp_List;
61 Foreign_Patterns : Regexp_List);
62 -- Look for source files in the specified directories, with the specified
63 -- patterns.
64 --
65 -- Directories is the list of source directories where to look for sources.
66 --
67 -- Name_Patterns is a potentially empty list of file name patterns to check
68 -- for Ada Sources.
69 --
70 -- Excluded_Patterns is a potentially empty list of file name patterns that
71 -- should not be checked for Ada or non Ada sources.
72 --
73 -- Foreign_Patterns is a potentially empty list of file name patterns to
74 -- check for non Ada sources.
75 --
76 -- At least one of Name_Patterns and Foreign_Patterns is not empty
77 --
78 -- Note that this procedure currently assumes that it is only used by
79 -- gnatname. If other processes start using it, then an additional
80 -- parameter would need to be added, and call to Osint.Program_Name
81 -- updated accordingly in the body.
82
83 procedure Finalize;
84 -- Write the configuration pragmas file or the project file indicated in a
85 -- call to procedure Initialize, after one or several calls to procedure
86 -- Process.
87
88 end Prj.Makr;