Subversion Repositories openrisc_me

------------------------------------------------------------------------------

--                                                                          --

--                         GNAT COMPILER COMPONENTS                         --

--                                                                          --

--                              M A K E U S G                               --

--                                                                          --

--                                 B o d y                                  --

--                                                                          --

--          Copyright (C) 1992-2008, 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- --

-- ware  Foundation;  either version 3,  or (at your option) any later ver- --

-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --

-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --

-- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --

-- for  more details.  You should have  received  a copy of the GNU General --

-- Public License  distributed with GNAT; see file COPYING3.  If not, go to --

-- http://www.gnu.org/licenses for a complete copy of the license.          --

--                                                                          --

-- GNAT was originally developed  by the GNAT team at  New York University. --

-- Extensive contributions were provided by Ada Core Technologies Inc.      --

--                                                                          --

------------------------------------------------------------------------------

with Osint;  use Osint;

with Output; use Output;

with Usage;

procedure Makeusg is

--  Start of processing for Makeusg

begin

   --  Usage line

   Write_Str ("Usage: ");

   Osint.Write_Program_Name;

   Write_Str ("  opts  name  ");

   Write_Str ("{[-cargs opts] [-bargs opts] [-largs opts] [-margs opts]}");

   Write_Eol;

   Write_Eol;

   Write_Str ("  name is one or more file name from which you");

   Write_Str (" can omit the .adb or .ads suffix");

   Write_Eol;

   Write_Eol;

   --  GNATMAKE switches

   Write_Str ("gnatmake switches:");

   Write_Eol;

   --  Line for -a

   Write_Str ("  -a       Consider all files, even readonly ali files");

   Write_Eol;

   --  Line for -b

   Write_Str ("  -b       Bind only");

   Write_Eol;

   --  Line for -B

   Write_Str ("  -B       Build, bind and link full project");

   Write_Eol;

   --  Line for -c

   Write_Str ("  -c       Compile only");

   Write_Eol;

   --  Line for -C

   Write_Str ("  -C       Cache source mappings: " &

              "invoke compiler with temp mapping file");

   Write_Eol;

   --  Line for -C=<mapping file>

   Write_Str ("  -C=mapp  Cache source mappings: " &

              "invoke compiler with mapping file mapp");

   Write_Eol;

   --  Line for -D

   Write_Str ("  -D dir   Specify dir as the object directory");

   Write_Eol;

   --  Line for -eI

   Write_Str ("  -eI      Index of unit in multi-unit source file");

   Write_Eol;

   --  Line for -eL

   Write_Str ("  -eL      Follow symbolic links when processing " &

              "project files");

   Write_Eol;

   --  Line for -eS

   Write_Str ("  -eS      Echo commands to stdout instead of stderr");

   Write_Eol;

   --  Line for -f

   Write_Str ("  -f       Force recompilations of non predefined units");

   Write_Eol;

   --  Line for -F

   Write_Str ("  -F       Full project path name in brief error messages");

   Write_Eol;

   --  Line for -i

   Write_Str ("  -i       In place. Replace existing ali file, ");

   Write_Str ("or put it with source");

   Write_Eol;

   --  Line for -jnnn

   Write_Str ("  -jnum    Use nnn processes to compile");

   Write_Eol;

   --  Line for -k

   Write_Str ("  -k       Keep going after compilation errors");

   Write_Eol;

   --  Line for -l

   Write_Str ("  -l       Link only");

   Write_Eol;

   --  Line for -m

   Write_Str ("  -m       Minimal recompilation");

   Write_Eol;

   --  Line for -M

   Write_Str ("  -M       List object file dependences for Makefile");

   Write_Eol;

   --  Line for -n

   Write_Str ("  -n       Check objects up to date, output next file ");

   Write_Str ("to compile if not");

   Write_Eol;

   --  Line for -o

   Write_Str ("  -o name  Choose an alternate executable name");

   Write_Eol;

   --  Line for -p

   Write_Str ("  -p       Create missing obj, lib and exec dirs");

   Write_Eol;

   --  Line for -P

   Write_Str ("  -Pproj   Use GNAT Project File proj");

   Write_Eol;

   --  Line for -q

   Write_Str ("  -q       Be quiet/terse");

   Write_Eol;

   --  Line for -R

   Write_Str ("  -R       Do not use a run_path_option when linking");

   Write_Eol;

   --  Line for -s

   Write_Str ("  -s       Recompile if compiler switches have changed");

   Write_Eol;

   --  Line for -u

   Write_Str ("  -u       Unique compilation, only compile the given files");

   Write_Eol;

   --  Line for -U

   Write_Str ("  -U       Unique compilation for all sources of all projects");

   Write_Eol;

   --  Line for -v

   Write_Str ("  -v       Display reasons for all (re)compilations");

   Write_Eol;

   --  Line for -vPx

   Write_Str ("  -vPx     Specify verbosity when parsing GNAT Project Files");

   Write_Eol;

   --  Line for -we

   Write_Str ("  -we      Treat all warnings as errors");

   Write_Eol;

   --  Line for -wn

   Write_Str ("  -wn      Normal warning mode (cancels -we/-ws)");

   Write_Eol;

   --  Line for -ws

   Write_Str ("  -ws      Suppress all warnings");

   Write_Eol;

   --  Line for -x

   Write_Str ("  -x       " &

              "Allow compilation of needed units external to the projects");

   Write_Eol;

   --  Line for -X

   Write_Str ("  -Xnm=val Specify an external reference for GNAT " &

              "Project Files");

   Write_Eol;

   --  Line for -z

   Write_Str ("  -z       No main subprogram (zero main)");

   Write_Eol;

   Write_Eol;

   Write_Str ("  --GCC=command       Use this gcc command");

   Write_Eol;

   Write_Str ("  --GNATBIND=command  Use this gnatbind command");

   Write_Eol;

   Write_Str ("  --GNATLINK=command  Use this gnatlink command");

   Write_Eol;

   Write_Eol;

   --  Source and Library search path switches

   Write_Str ("Project, Source and Library search path switches:");

   Write_Eol;

   --  Line for -aP

   Write_Str ("  -aPdir    Add directory dir to project search path");

   Write_Eol;

   --  Line for -aL

   Write_Str ("  -aLdir    Skip missing library sources if ali in dir");

   Write_Eol;

   --  Line for -A

   Write_Str ("  -Adir     like -aLdir -aIdir");

   Write_Eol;

   --  Line for -aO switch

   Write_Str ("  -aOdir    Specify library/object files search path");

   Write_Eol;

   --  Line for -aI switch

   Write_Str ("  -aIdir    Specify source files search path");

   Write_Eol;

   --  Line for -I switch

   Write_Str ("  -Idir     Like -aIdir -aOdir");

   Write_Eol;

   --  Line for -I- switch

   Write_Str ("  -I-       Don't look for sources & library files");

   Write_Str (" in the default directory");

   Write_Eol;

   --  Line for -L

   Write_Str ("  -Ldir     Look for program libraries also in dir");

   Write_Eol;

   --  Line for -nostdinc

   Write_Str ("  -nostdinc Don't look for sources");

   Write_Str (" in the system default directory");

   Write_Eol;

   --  Line for -nostdlib

   Write_Str ("  -nostdlib Don't look for library files");

   Write_Str (" in the system default directory");

   Write_Eol;

   --  Line for --RTS

   Write_Str ("  --RTS=dir specify the default source and object search"

              & " path");

   Write_Eol;

   --  Line for --subdirs=

   Write_Str ("  --subdirs=dir real obj/lib/exec dirs are subdirs");

   Write_Eol;

   Write_Eol;

   --  General Compiler, Binder, Linker switches

   Write_Str ("To pass an arbitrary switch to the Compiler, ");

   Write_Str ("Binder or Linker:");

   Write_Eol;

   --  Line for -cargs

   Write_Str ("  -cargs opts   opts are passed to the compiler");

   Write_Eol;

   --  Line for -bargs

   Write_Str ("  -bargs opts   opts are passed to the binder");

   Write_Eol;

   --  Line for -largs

   Write_Str ("  -largs opts   opts are passed to the linker");

   Write_Eol;

   --  Line for -margs

   Write_Str ("  -margs opts   opts are passed to gnatmake");

   Write_Eol;

   --  Add usage information for gcc

   Usage;

end Makeusg;