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