URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [ada/] [makeusg.adb] - Blame information for rev 706

Details | Compare with Previous | View Log


------------------------------------------------------------------------------
--                                                                          --
--                         GNAT COMPILER COMPONENTS                         --
--                                                                          --
--                              M A K E U S G                               --
--                                                                          --
--                                 B o d y                                  --
--                                                                          --
--          Copyright (C) 1992-2011, 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 Makeutl;
with Osint;   use Osint;
with Output;  use Output;
with Switch;  use Switch;
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;
 
   Display_Usage_Version_And_Help;
 
   --  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 -vl
 
   Write_Str ("  -vl      Verbose output (low verbosity)");
   Write_Eol;
 
   --  Line for -vm
 
   Write_Str ("  -vm      Verbose output (medium verbosity)");
   Write_Eol;
 
   --  Line for -vh
 
   Write_Str ("  -vh      Equivalent to -v (high verbosity)");
   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 ("  --create-map-file   Create map file mainprog.map");
   Write_Eol;
 
   Write_Str ("  --create-map-file=mapfile");
   Write_Eol;
   Write_Str ("                      Create map file mapfile");
   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;
 
   --  Line for --source-info=
 
   Write_Str ("  ");
   Write_Str (Makeutl.Source_Info_Option);
   Write_Str ("file specify a source info file");
   Write_Eol;
 
   --  Line for --unchecked-shared-lib-imports
 
   Write_Str ("  ");
   Write_Str (Makeutl.Unchecked_Shared_Lib_Imports);
   Write_Eol;
   Write_Str ("            Allow shared libraries to import static libraries");
   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;

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [ada/] [makeusg.adb] - Blame information for rev 706

Line No.	Rev	Author	Line
1	706	jeremybenn	`------------------------------------------------------------------------------`
2			`-- --`
3			`-- GNAT COMPILER COMPONENTS --`
4			`-- --`
5			`-- M A K E U S G --`
6			`-- --`
7			`-- B o d y --`
8			`-- --`
9			`-- Copyright (C) 1992-2011, 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			`with Makeutl;`
27			`with Osint; use Osint;`
28			`with Output; use Output;`
29			`with Switch; use Switch;`
30			`with Usage;`
31
32			`procedure Makeusg is`
33
34			`-- Start of processing for Makeusg`
35
36			`begin`
37			`-- Usage line`
38
39			`Write_Str ("Usage: ");`
40			`Osint.Write_Program_Name;`
41			`Write_Str (" opts name ");`
42			`Write_Str ("{[-cargs opts] [-bargs opts] [-largs opts] [-margs opts]}");`
43			`Write_Eol;`
44			`Write_Eol;`
45			`Write_Str (" name is one or more file name from which you");`
46			`Write_Str (" can omit the .adb or .ads suffix");`
47			`Write_Eol;`
48			`Write_Eol;`
49
50			`-- GNATMAKE switches`
51
52			`Write_Str ("gnatmake switches:");`
53			`Write_Eol;`
54
55			`Display_Usage_Version_And_Help;`
56
57			`-- Line for -a`
58
59			`Write_Str (" -a Consider all files, even readonly ali files");`
60			`Write_Eol;`
61
62			`-- Line for -b`
63
64			`Write_Str (" -b Bind only");`
65			`Write_Eol;`
66
67			`-- Line for -B`
68
69			`Write_Str (" -B Build, bind and link full project");`
70			`Write_Eol;`
71
72			`-- Line for -c`
73
74			`Write_Str (" -c Compile only");`
75			`Write_Eol;`
76
77			`-- Line for -C`
78
79			`Write_Str (" -C Cache source mappings: " &`
80			`"invoke compiler with temp mapping file");`
81			`Write_Eol;`
82
83			`-- Line for -C=<mapping file>`
84
85			`Write_Str (" -C=mapp Cache source mappings: " &`
86			`"invoke compiler with mapping file mapp");`
87			`Write_Eol;`
88
89			`-- Line for -D`
90
91			`Write_Str (" -D dir Specify dir as the object directory");`
92			`Write_Eol;`
93
94			`-- Line for -eI`
95
96			`Write_Str (" -eI Index of unit in multi-unit source file");`
97			`Write_Eol;`
98
99			`-- Line for -eL`
100
101			`Write_Str (" -eL Follow symbolic links when processing " &`
102			`"project files");`
103			`Write_Eol;`
104
105			`-- Line for -eS`
106
107			`Write_Str (" -eS Echo commands to stdout instead of stderr");`
108			`Write_Eol;`
109
110			`-- Line for -f`
111
112			`Write_Str (" -f Force recompilations of non predefined units");`
113			`Write_Eol;`
114
115			`-- Line for -F`
116
117			`Write_Str (" -F Full project path name in brief error messages");`
118			`Write_Eol;`
119
120			`-- Line for -i`
121
122			`Write_Str (" -i In place. Replace existing ali file, ");`
123			`Write_Str ("or put it with source");`
124			`Write_Eol;`
125
126			`-- Line for -jnnn`
127
128			`Write_Str (" -jnum Use nnn processes to compile");`
129			`Write_Eol;`
130
131			`-- Line for -k`
132
133			`Write_Str (" -k Keep going after compilation errors");`
134			`Write_Eol;`
135
136			`-- Line for -l`
137
138			`Write_Str (" -l Link only");`
139			`Write_Eol;`
140
141			`-- Line for -m`
142
143			`Write_Str (" -m Minimal recompilation");`
144			`Write_Eol;`
145
146			`-- Line for -M`
147
148			`Write_Str (" -M List object file dependences for Makefile");`
149			`Write_Eol;`
150
151			`-- Line for -n`
152
153			`Write_Str (" -n Check objects up to date, output next file ");`
154			`Write_Str ("to compile if not");`
155			`Write_Eol;`
156
157			`-- Line for -o`
158
159			`Write_Str (" -o name Choose an alternate executable name");`
160			`Write_Eol;`
161
162			`-- Line for -p`
163
164			`Write_Str (" -p Create missing obj, lib and exec dirs");`
165			`Write_Eol;`
166
167			`-- Line for -P`
168
169			`Write_Str (" -Pproj Use GNAT Project File proj");`
170			`Write_Eol;`
171
172			`-- Line for -q`
173
174			`Write_Str (" -q Be quiet/terse");`
175			`Write_Eol;`
176
177			`-- Line for -R`
178
179			`Write_Str (" -R Do not use a run_path_option when linking");`
180			`Write_Eol;`
181
182			`-- Line for -s`
183
184			`Write_Str (" -s Recompile if compiler switches have changed");`
185			`Write_Eol;`
186
187			`-- Line for -u`
188
189			`Write_Str (" -u Unique compilation, only compile the given files");`
190			`Write_Eol;`
191
192			`-- Line for -U`
193
194			`Write_Str (" -U Unique compilation for all sources of all projects");`
195			`Write_Eol;`
196
197			`-- Line for -v`
198
199			`Write_Str (" -v Display reasons for all (re)compilations");`
200			`Write_Eol;`
201
202			`-- Line for -vl`
203
204			`Write_Str (" -vl Verbose output (low verbosity)");`
205			`Write_Eol;`
206
207			`-- Line for -vm`
208
209			`Write_Str (" -vm Verbose output (medium verbosity)");`
210			`Write_Eol;`
211
212			`-- Line for -vh`
213
214			`Write_Str (" -vh Equivalent to -v (high verbosity)");`
215			`Write_Eol;`
216
217			`-- Line for -vPx`
218
219			`Write_Str (" -vPx Specify verbosity when parsing GNAT Project Files");`
220			`Write_Eol;`
221
222			`-- Line for -we`
223
224			`Write_Str (" -we Treat all warnings as errors");`
225			`Write_Eol;`
226
227			`-- Line for -wn`
228
229			`Write_Str (" -wn Normal warning mode (cancels -we/-ws)");`
230			`Write_Eol;`
231
232			`-- Line for -ws`
233
234			`Write_Str (" -ws Suppress all warnings");`
235			`Write_Eol;`
236
237			`-- Line for -x`
238
239			`Write_Str (" -x " &`
240			`"Allow compilation of needed units external to the projects");`
241			`Write_Eol;`
242
243			`-- Line for -X`
244
245			`Write_Str (" -Xnm=val Specify an external reference for GNAT " &`
246			`"Project Files");`
247			`Write_Eol;`
248
249			`-- Line for -z`
250
251			`Write_Str (" -z No main subprogram (zero main)");`
252			`Write_Eol;`
253			`Write_Eol;`
254
255			`Write_Str (" --create-map-file Create map file mainprog.map");`
256			`Write_Eol;`
257
258			`Write_Str (" --create-map-file=mapfile");`
259			`Write_Eol;`
260			`Write_Str (" Create map file mapfile");`
261			`Write_Eol;`
262
263			`Write_Str (" --GCC=command Use this gcc command");`
264			`Write_Eol;`
265
266			`Write_Str (" --GNATBIND=command Use this gnatbind command");`
267			`Write_Eol;`
268
269			`Write_Str (" --GNATLINK=command Use this gnatlink command");`
270			`Write_Eol;`
271			`Write_Eol;`
272
273			`-- Source and Library search path switches`
274
275			`Write_Str ("Project, Source and Library search path switches:");`
276			`Write_Eol;`
277
278			`-- Line for -aP`
279
280			`Write_Str (" -aPdir Add directory dir to project search path");`
281			`Write_Eol;`
282
283			`-- Line for -aL`
284
285			`Write_Str (" -aLdir Skip missing library sources if ali in dir");`
286			`Write_Eol;`
287
288			`-- Line for -A`
289
290			`Write_Str (" -Adir like -aLdir -aIdir");`
291			`Write_Eol;`
292
293			`-- Line for -aO switch`
294
295			`Write_Str (" -aOdir Specify library/object files search path");`
296			`Write_Eol;`
297
298			`-- Line for -aI switch`
299
300			`Write_Str (" -aIdir Specify source files search path");`
301			`Write_Eol;`
302
303			`-- Line for -I switch`
304
305			`Write_Str (" -Idir Like -aIdir -aOdir");`
306			`Write_Eol;`
307
308			`-- Line for -I- switch`
309
310			`Write_Str (" -I- Don't look for sources & library files");`
311			`Write_Str (" in the default directory");`
312			`Write_Eol;`
313
314			`-- Line for -L`
315
316			`Write_Str (" -Ldir Look for program libraries also in dir");`
317			`Write_Eol;`
318
319			`-- Line for -nostdinc`
320
321			`Write_Str (" -nostdinc Don't look for sources");`
322			`Write_Str (" in the system default directory");`
323			`Write_Eol;`
324
325			`-- Line for -nostdlib`
326
327			`Write_Str (" -nostdlib Don't look for library files");`
328			`Write_Str (" in the system default directory");`
329			`Write_Eol;`
330
331			`-- Line for --RTS`
332
333			`Write_Str (" --RTS=dir specify the default source and object search"`
334			`& " path");`
335			`Write_Eol;`
336
337			`-- Line for --subdirs=`
338
339			`Write_Str (" --subdirs=dir real obj/lib/exec dirs are subdirs");`
340			`Write_Eol;`
341
342			`-- Line for --source-info=`
343
344			`Write_Str (" ");`
345			`Write_Str (Makeutl.Source_Info_Option);`
346			`Write_Str ("file specify a source info file");`
347			`Write_Eol;`
348
349			`-- Line for --unchecked-shared-lib-imports`
350
351			`Write_Str (" ");`
352			`Write_Str (Makeutl.Unchecked_Shared_Lib_Imports);`
353			`Write_Eol;`
354			`Write_Str (" Allow shared libraries to import static libraries");`
355			`Write_Eol;`
356			`Write_Eol;`
357
358			`-- General Compiler, Binder, Linker switches`
359
360			`Write_Str ("To pass an arbitrary switch to the Compiler, ");`
361			`Write_Str ("Binder or Linker:");`
362			`Write_Eol;`
363
364			`-- Line for -cargs`
365
366			`Write_Str (" -cargs opts opts are passed to the compiler");`
367			`Write_Eol;`
368
369			`-- Line for -bargs`
370
371			`Write_Str (" -bargs opts opts are passed to the binder");`
372			`Write_Eol;`
373
374			`-- Line for -largs`
375
376			`Write_Str (" -largs opts opts are passed to the linker");`
377			`Write_Eol;`
378
379			`-- Line for -margs`
380
381			`Write_Str (" -margs opts opts are passed to gnatmake");`
382			`Write_Eol;`
383
384			`-- Add usage information for gcc`
385
386			`Usage;`
387
388			`end Makeusg;`