with Osint; use Osint;
with Output; use Output;
with Usage;
procedure Makeusg is
procedure Write_Switch_Char;
procedure Write_Switch_Char is
begin
Write_Str (" ");
Write_Char (Switch_Character);
end Write_Switch_Char;
begin
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;
Write_Str ("gnatmake switches:");
Write_Eol;
Write_Switch_Char;
Write_Str ("a Consider all files, even readonly ali files");
Write_Eol;
Write_Switch_Char;
Write_Str ("b Bind only");
Write_Eol;
Write_Switch_Char;
Write_Str ("c Compile only");
Write_Eol;
Write_Switch_Char;
Write_Str ("f Force recompilations of non predefined units");
Write_Eol;
Write_Switch_Char;
Write_Str ("i In place. Replace existing ali file, ");
Write_Str ("or put it with source");
Write_Eol;
Write_Switch_Char;
Write_Str ("jnum Use nnn processes to compile");
Write_Eol;
Write_Switch_Char;
Write_Str ("k Keep going after compilation errors");
Write_Eol;
Write_Switch_Char;
Write_Str ("l Link only");
Write_Eol;
Write_Switch_Char;
Write_Str ("m Minimal recompilation");
Write_Eol;
Write_Switch_Char;
Write_Str ("M List object file dependences for Makefile");
Write_Eol;
Write_Switch_Char;
Write_Str ("n Check objects up to date, output next file ");
Write_Str ("to compile if not");
Write_Eol;
Write_Switch_Char;
Write_Str ("o name Choose an alternate executable name");
Write_Eol;
Write_Switch_Char;
Write_Str ("Pproj Use GNAT Project File proj");
Write_Eol;
Write_Switch_Char;
Write_Str ("q Be quiet/terse");
Write_Eol;
Write_Switch_Char;
Write_Str ("s Recompile if compiler switches have changed");
Write_Eol;
Write_Switch_Char;
Write_Str ("u Unique compilation. Only compile the given file.");
Write_Eol;
Write_Switch_Char;
Write_Str ("v Display reasons for all (re)compilations");
Write_Eol;
Write_Switch_Char;
Write_Str ("vPx Specify verbosity when parsing GNAT Project Files");
Write_Eol;
Write_Switch_Char;
Write_Str ("Xnm=val Specify an external reference for GNAT Project Files");
Write_Eol;
Write_Switch_Char;
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;
Write_Str ("Source and Library search path switches:");
Write_Eol;
Write_Switch_Char;
Write_Str ("aLdir Skip missing library sources if ali in dir");
Write_Eol;
Write_Switch_Char;
Write_Str ("Adir like -aLdir -aIdir");
Write_Eol;
Write_Switch_Char;
Write_Str ("aOdir Specify library/object files search path");
Write_Eol;
Write_Switch_Char;
Write_Str ("aIdir Specify source files search path");
Write_Eol;
Write_Switch_Char;
Write_Str ("Idir Like -aIdir -aOdir");
Write_Eol;
Write_Switch_Char;
Write_Str ("I- Don't look for sources & library files");
Write_Str (" in the default directory");
Write_Eol;
Write_Switch_Char;
Write_Str ("Ldir Look for program libraries also in dir");
Write_Eol;
Write_Switch_Char;
Write_Str ("nostdinc Don't look for sources");
Write_Str (" in the system default directory");
Write_Eol;
Write_Switch_Char;
Write_Str ("nostdlib Don't look for library files");
Write_Str (" in the system default directory");
Write_Eol;
Write_Eol;
Write_Str ("To pass an arbitrary switch to the Compiler, ");
Write_Str ("Binder or Linker:");
Write_Eol;
Write_Switch_Char;
Write_Str ("cargs opts opts are passed to the compiler");
Write_Eol;
Write_Switch_Char;
Write_Str ("bargs opts opts are passed to the binder");
Write_Eol;
Write_Switch_Char;
Write_Str ("largs opts opts are passed to the linker");
Write_Eol;
Write_Switch_Char;
Write_Str ("margs opts opts are passed to gnatmake");
Write_Eol;
Usage;
end Makeusg;