gcc/ada/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-2008, 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    --  Start the creation of a configuration pragmas file or the creation or
  41    --  modification of a project file, for gnatname.
  42    --
  43    --  When Project_File is False, File_Path is the name of a configuration
  44    --  pragmas file to create. When Project_File is True, File_Path is the name
  45    --  of a project file to create if it does not exist or to modify if it
  46    --  already exists.
  47    --
  48    --  Preproc_Switches is a list of switches to be used when invoking the
  49    --  compiler to get the name and kind of unit of a source file.
  50    --
  51    --  Very_Verbose controls the verbosity of the output, in conjunction with
  52    --  Opt.Verbose_Mode.
  53
  54    type Regexp_List is array (Positive range <>) of Regexp;
  55
  56    procedure Process
  57      (Directories       : Argument_List;
  58       Name_Patterns     : Regexp_List;
  59       Excluded_Patterns : Regexp_List;
  60       Foreign_Patterns  : Regexp_List);
  61    --  Look for source files in the specified directories, with the specified
  62    --  patterns.
  63    --
  64    --  Directories is the list of source directories where to look for sources.
  65    --
  66    --  Name_Patterns is a potentially empty list of file name patterns to check
  67    --  for Ada Sources.
  68    --
  69    --  Excluded_Patterns is a potentially empty list of file name patterns that
  70    --  should not be checked for Ada or non Ada sources.
  71    --
  72    --  Foreign_Patterns is a potentially empty list of file name patterns to
  73    --  check for non Ada sources.
  74    --
  75    --  At least one of Name_Patterns and Foreign_Patterns is not empty
  76
  77    procedure Finalize;
  78    --  Write the configuration pragmas file or the project file indicated in a
  79    --  call to procedure Initialize, after one or several calls to procedure
  80    --  Process.
  81
  82 end Prj.Makr;