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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [ada/] [bindusg.adb] - Blame information for rev 16

Go to most recent revision | Details | Compare with Previous | View Log


------------------------------------------------------------------------------
--                                                                          --
--                         GNAT COMPILER COMPONENTS                         --
--                                                                          --
--                             B I N D U S G                                --
--                                                                          --
--                                B o d y                                   --
--                                                                          --
--          Copyright (C) 1992-2005, 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 2,  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 COPYING.  If not, write --
-- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --
-- Boston, MA 02110-1301, USA.                                              --
--                                                                          --
-- 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;
 
procedure Bindusg is
 
--  Start of processing for Bindusg
 
begin
   --  Usage line
 
   Write_Str ("Usage: ");
   Write_Program_Name;
   Write_Char (' ');
   Write_Str ("switches lfile");
   Write_Eol;
   Write_Eol;
 
   --  Line for -aO switch
 
   Write_Str ("  -aOdir    Specify library files search path");
   Write_Eol;
 
   --  Line for -aI switch
 
   Write_Str ("  -aIdir    Specify source files search path");
   Write_Eol;
 
   --  Line for a switch
 
   Write_Str ("  -a        Automatically initialize elaboration procedure");
   Write_Eol;
 
   --  Line for A switch
 
   Write_Str ("  -A        Generate binder program in Ada (default)");
   Write_Eol;
 
   --  Line for -b switch
 
   Write_Str ("  -b        Generate brief messages to std");
   Write_Str ("err even if verbose mode set");
   Write_Eol;
 
   --  Line for -c switch
 
   Write_Str ("  -c        Check only, no generation of b");
   Write_Str ("inder output file");
   Write_Eol;
 
   --  Line for C switch
 
   Write_Str ("  -C        Generate binder program in C");
   Write_Eol;
 
   --  Line for D switch
 
   Write_Str ("  -Dnnn     Default secondary stack size = nnn bytes");
   Write_Eol;
 
   --  Line for -e switch
 
   Write_Str ("  -e        Output complete list of elabor");
   Write_Str ("ation order dependencies");
   Write_Eol;
 
   --  Line for -E switch
 
   Write_Str ("  -E        Store tracebacks in Exception occurrences");
   Write_Eol;
 
   --  The -f switch is voluntarily omitted, because it is obsolete
 
   --  Line for -F switch
 
   Write_Str ("  -F        Force checking of elaboration Flags");
   Write_Eol;
 
   --  Line for -h switch
 
   Write_Str ("  -h        Output this usage (help) infor");
   Write_Str ("mation");
   Write_Eol;
 
   --  Lines for -I switch
 
   Write_Str ("  -Idir     Specify library and source files search path");
   Write_Eol;
 
   Write_Str ("  -I-       Don't look for sources & library files");
   Write_Str (" in default directory");
   Write_Eol;
 
   --  Line for -K switch
 
   Write_Str ("  -K        Give list of linker options specified for link");
   Write_Eol;
 
   --  Line for -l switch
 
   Write_Str ("  -l        Output chosen elaboration order");
   Write_Eol;
 
   --  Line of -L switch
 
   Write_Str ("  -Lxyz     Library build: adainit/final ");
   Write_Str ("renamed to xyzinit/final, implies -n");
   Write_Eol;
 
   --  Line for -m switch
 
   Write_Str ("  -mnnn     Limit number of detected error");
   Write_Str ("s to nnn (1-999999)");
   Write_Eol;
 
   --  Line for -M switch
 
   Write_Str ("  -Mxyz     Rename generated main program from main to xyz");
   Write_Eol;
 
   --  Line for -n switch
 
   Write_Str ("  -n        No Ada main program (foreign main routine)");
   Write_Eol;
 
   --  Line for -nostdinc
 
   Write_Str ("  -nostdinc Don't look for source files");
   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 -o switch
 
   Write_Str ("  -o file   Give the output file name (default is b~xxx.adb) ");
   Write_Eol;
 
   --  Line for -O switch
 
   Write_Str ("  -O        Give list of objects required for link");
   Write_Eol;
 
   --  Line for -p switch
 
   Write_Str ("  -p        Pessimistic (worst-case) elaborat");
   Write_Str ("ion order");
   Write_Eol;
 
   --  Line for -r switch
 
   Write_Str ("  -r        List restrictions that could be a");
   Write_Str ("pplied to this partition");
   Write_Eol;
 
   --  Line for -s switch
 
   Write_Str ("  -s        Require all source files to be");
   Write_Str (" present");
   Write_Eol;
 
   --  Line for -Sxx switch
 
   Write_Str ("  -S??      Sin/lo/hi/xx for Initialize_Scalars");
   Write_Str (" invalid/low/high/hex");
   Write_Eol;
 
   --  Line for -static
 
   Write_Str ("  -static   Link against a static GNAT run time");
   Write_Eol;
 
   --  Line for -shared
 
   Write_Str ("  -shared   Link against a shared GNAT run time");
   Write_Eol;
 
   --  Line for -t switch
 
   Write_Str ("  -t        Tolerate time stamp and other consistency errors");
   Write_Eol;
 
   --  Line for -T switch
 
   Write_Str ("  -Tn       Set time slice value to n milliseconds (n >= 0)");
   Write_Eol;
 
   --  Line for -v switch
 
   Write_Str ("  -v        Verbose mode. Error messages, ");
   Write_Str ("header, summary output to stdout");
   Write_Eol;
 
   --  Lines for -w switch
 
   Write_Str ("  -wx       Warning mode. (x=s/e for supp");
   Write_Str ("ress/treat as error)");
   Write_Eol;
 
   --  Line for -x switch
 
   Write_Str ("  -x        Exclude source files (check ob");
   Write_Str ("ject consistency only)");
   Write_Eol;
 
   --  Line for X switch
 
   Write_Str ("  -Xnnn     Default exit status value = nnn");
   Write_Eol;
 
   --  Line for -z switch
 
   Write_Str ("  -z        No main subprogram (zero main)");
   Write_Eol;
 
   --  Line for --RTS
 
   Write_Str ("  --RTS=dir specify the default source and object search path");
   Write_Eol;
 
   --  Line for sfile
 
   Write_Str ("  lfile     Library file names");
   Write_Eol;
 
end Bindusg;

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [ada/] [bindusg.adb] - Blame information for rev 16

Line No.	Rev	Author	Line
1	12	jlechner	`------------------------------------------------------------------------------`
2			`-- --`
3			`-- GNAT COMPILER COMPONENTS --`
4			`-- --`
5			`-- B I N D U S G --`
6			`-- --`
7			`-- B o d y --`
8			`-- --`
9			`-- Copyright (C) 1992-2005, 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 2, 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 COPYING. If not, write --`
19			`-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --`
20			`-- Boston, MA 02110-1301, USA. --`
21			`-- --`
22			`-- GNAT was originally developed by the GNAT team at New York University. --`
23			`-- Extensive contributions were provided by Ada Core Technologies Inc. --`
24			`-- --`
25			`------------------------------------------------------------------------------`
26
27			`with Osint; use Osint;`
28			`with Output; use Output;`
29
30			`procedure Bindusg is`
31
32			`-- Start of processing for Bindusg`
33
34			`begin`
35			`-- Usage line`
36
37			`Write_Str ("Usage: ");`
38			`Write_Program_Name;`
39			`Write_Char (' ');`
40			`Write_Str ("switches lfile");`
41			`Write_Eol;`
42			`Write_Eol;`
43
44			`-- Line for -aO switch`
45
46			`Write_Str (" -aOdir Specify library files search path");`
47			`Write_Eol;`
48
49			`-- Line for -aI switch`
50
51			`Write_Str (" -aIdir Specify source files search path");`
52			`Write_Eol;`
53
54			`-- Line for a switch`
55
56			`Write_Str (" -a Automatically initialize elaboration procedure");`
57			`Write_Eol;`
58
59			`-- Line for A switch`
60
61			`Write_Str (" -A Generate binder program in Ada (default)");`
62			`Write_Eol;`
63
64			`-- Line for -b switch`
65
66			`Write_Str (" -b Generate brief messages to std");`
67			`Write_Str ("err even if verbose mode set");`
68			`Write_Eol;`
69
70			`-- Line for -c switch`
71
72			`Write_Str (" -c Check only, no generation of b");`
73			`Write_Str ("inder output file");`
74			`Write_Eol;`
75
76			`-- Line for C switch`
77
78			`Write_Str (" -C Generate binder program in C");`
79			`Write_Eol;`
80
81			`-- Line for D switch`
82
83			`Write_Str (" -Dnnn Default secondary stack size = nnn bytes");`
84			`Write_Eol;`
85
86			`-- Line for -e switch`
87
88			`Write_Str (" -e Output complete list of elabor");`
89			`Write_Str ("ation order dependencies");`
90			`Write_Eol;`
91
92			`-- Line for -E switch`
93
94			`Write_Str (" -E Store tracebacks in Exception occurrences");`
95			`Write_Eol;`
96
97			`-- The -f switch is voluntarily omitted, because it is obsolete`
98
99			`-- Line for -F switch`
100
101			`Write_Str (" -F Force checking of elaboration Flags");`
102			`Write_Eol;`
103
104			`-- Line for -h switch`
105
106			`Write_Str (" -h Output this usage (help) infor");`
107			`Write_Str ("mation");`
108			`Write_Eol;`
109
110			`-- Lines for -I switch`
111
112			`Write_Str (" -Idir Specify library and source files search path");`
113			`Write_Eol;`
114
115			`Write_Str (" -I- Don't look for sources & library files");`
116			`Write_Str (" in default directory");`
117			`Write_Eol;`
118
119			`-- Line for -K switch`
120
121			`Write_Str (" -K Give list of linker options specified for link");`
122			`Write_Eol;`
123
124			`-- Line for -l switch`
125
126			`Write_Str (" -l Output chosen elaboration order");`
127			`Write_Eol;`
128
129			`-- Line of -L switch`
130
131			`Write_Str (" -Lxyz Library build: adainit/final ");`
132			`Write_Str ("renamed to xyzinit/final, implies -n");`
133			`Write_Eol;`
134
135			`-- Line for -m switch`
136
137			`Write_Str (" -mnnn Limit number of detected error");`
138			`Write_Str ("s to nnn (1-999999)");`
139			`Write_Eol;`
140
141			`-- Line for -M switch`
142
143			`Write_Str (" -Mxyz Rename generated main program from main to xyz");`
144			`Write_Eol;`
145
146			`-- Line for -n switch`
147
148			`Write_Str (" -n No Ada main program (foreign main routine)");`
149			`Write_Eol;`
150
151			`-- Line for -nostdinc`
152
153			`Write_Str (" -nostdinc Don't look for source files");`
154			`Write_Str (" in the system default directory");`
155			`Write_Eol;`
156
157			`-- Line for -nostdlib`
158
159			`Write_Str (" -nostdlib Don't look for library files");`
160			`Write_Str (" in the system default directory");`
161			`Write_Eol;`
162
163			`-- Line for -o switch`
164
165			`Write_Str (" -o file Give the output file name (default is b~xxx.adb) ");`
166			`Write_Eol;`
167
168			`-- Line for -O switch`
169
170			`Write_Str (" -O Give list of objects required for link");`
171			`Write_Eol;`
172
173			`-- Line for -p switch`
174
175			`Write_Str (" -p Pessimistic (worst-case) elaborat");`
176			`Write_Str ("ion order");`
177			`Write_Eol;`
178
179			`-- Line for -r switch`
180
181			`Write_Str (" -r List restrictions that could be a");`
182			`Write_Str ("pplied to this partition");`
183			`Write_Eol;`
184
185			`-- Line for -s switch`
186
187			`Write_Str (" -s Require all source files to be");`
188			`Write_Str (" present");`
189			`Write_Eol;`
190
191			`-- Line for -Sxx switch`
192
193			`Write_Str (" -S?? Sin/lo/hi/xx for Initialize_Scalars");`
194			`Write_Str (" invalid/low/high/hex");`
195			`Write_Eol;`
196
197			`-- Line for -static`
198
199			`Write_Str (" -static Link against a static GNAT run time");`
200			`Write_Eol;`
201
202			`-- Line for -shared`
203
204			`Write_Str (" -shared Link against a shared GNAT run time");`
205			`Write_Eol;`
206
207			`-- Line for -t switch`
208
209			`Write_Str (" -t Tolerate time stamp and other consistency errors");`
210			`Write_Eol;`
211
212			`-- Line for -T switch`
213
214			`Write_Str (" -Tn Set time slice value to n milliseconds (n >= 0)");`
215			`Write_Eol;`
216
217			`-- Line for -v switch`
218
219			`Write_Str (" -v Verbose mode. Error messages, ");`
220			`Write_Str ("header, summary output to stdout");`
221			`Write_Eol;`
222
223			`-- Lines for -w switch`
224
225			`Write_Str (" -wx Warning mode. (x=s/e for supp");`
226			`Write_Str ("ress/treat as error)");`
227			`Write_Eol;`
228
229			`-- Line for -x switch`
230
231			`Write_Str (" -x Exclude source files (check ob");`
232			`Write_Str ("ject consistency only)");`
233			`Write_Eol;`
234
235			`-- Line for X switch`
236
237			`Write_Str (" -Xnnn Default exit status value = nnn");`
238			`Write_Eol;`
239
240			`-- Line for -z switch`
241
242			`Write_Str (" -z No main subprogram (zero main)");`
243			`Write_Eol;`
244
245			`-- Line for --RTS`
246
247			`Write_Str (" --RTS=dir specify the default source and object search path");`
248			`Write_Eol;`
249
250			`-- Line for sfile`
251
252			`Write_Str (" lfile Library file names");`
253			`Write_Eol;`
254
255			`end Bindusg;`