1 ------------------------------------------------------------------------------
3 -- GBIND BINDER COMPONENTS --
11 -- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
13 -- GNAT is free software; you can redistribute it and/or modify it under --
14 -- terms of the GNU General Public License as published by the Free Soft- --
15 -- ware Foundation; either version 2, or (at your option) any later ver- --
16 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
17 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
18 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
19 -- for more details. You should have received a copy of the GNU General --
20 -- Public License distributed with GNAT; see file COPYING. If not, write --
21 -- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
22 -- MA 02111-1307, USA. --
24 -- GNAT was originally developed by the GNAT team at New York University. --
25 -- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
27 ------------------------------------------------------------------------------
29 with Osint
; use Osint
;
30 with Output
; use Output
;
34 procedure Write_Switch_Char
;
35 -- Write two spaces followed by appropriate switch character
37 procedure Write_Switch_Char
is
40 Write_Char
(Switch_Character
);
41 end Write_Switch_Char
;
43 -- Start of processing for Bindusg
48 Write_Str
("Usage: ");
51 Write_Str
("switches lfile");
55 -- Line for -aO switch
58 Write_Str
("aOdir Specify library files search path");
61 -- Line for -aI switch
64 Write_Str
("aIdir Specify source files search path");
70 Write_Str
("A Generate binder program in Ada (default)");
76 Write_Str
("b Generate brief messages to std");
77 Write_Str
("err even if verbose mode set");
83 Write_Str
("c Check only, no generation of b");
84 Write_Str
("inder output file");
90 Write_Str
("C Generate binder program in C");
96 Write_Str
("e Output complete list of elabor");
97 Write_Str
("ation order dependencies");
100 -- Line for -E switch
103 Write_Str
("E Store tracebacks in Exception occurrences");
106 -- Line for -h switch
109 Write_Str
("h Output this usage (help) infor");
110 Write_Str
("mation");
113 -- Line for -I switch
116 Write_Str
("Idir Specify library and source files search path");
119 -- Line for -I- switch
122 Write_Str
("I- Don't look for sources & library files");
123 Write_Str
(" in default directory");
126 -- Line for -K switch
129 Write_Str
("K Give list of linker options specified for link");
132 -- Line for -l switch
135 Write_Str
("l Output chosen elaboration order");
141 Write_Str
("Lxyz Library build: adainit/final ");
142 Write_Str
("renamed to xyzinit/final, implies -n");
145 -- Line for -M switch
148 Write_Str
("Mxyz Rename generated main program from main to xyz");
151 -- Line for -m switch
154 Write_Str
("mnnn Limit number of detected error");
155 Write_Str
("s to nnn (1-999)");
158 -- Line for -n switch
161 Write_Str
("n No Ada main program (foreign main routine)");
164 -- Line for -nostdinc
167 Write_Str
("nostdinc Don't look for source files");
168 Write_Str
(" in the system default directory");
171 -- Line for -nostdlib
174 Write_Str
("nostdlib Don't look for library files");
175 Write_Str
(" in the system default directory");
178 -- Line for -o switch
181 Write_Str
("o file Give the output file name (default is b~xxx.adb) ");
184 -- Line for -O switch
187 Write_Str
("O Give list of objects required for link");
190 -- Line for -p switch
193 Write_Str
("p Pessimistic (worst-case) elaborat");
194 Write_Str
("ion order");
197 -- Line for -s switch
200 Write_Str
("s Require all source files to be");
201 Write_Str
(" present");
204 -- Line for -Sxx switch
207 Write_Str
("S?? Sin/lo/hi/xx for Initialize_Scalars");
208 Write_Str
(" invalid/low/high/hex");
214 Write_Str
("static Link against a static GNAT run time");
220 Write_Str
("shared Link against a shared GNAT run time");
223 -- Line for -t switch
226 Write_Str
("t Tolerate time stamp and other consistency errors");
229 -- Line for -T switch
232 Write_Str
("Tn Set time slice value to n microseconds (n >= 0)");
235 -- Line for -v switch
238 Write_Str
("v Verbose mode. Error messages, ");
239 Write_Str
("header, summary output to stdout");
242 -- Lines for -w switch
245 Write_Str
("wx Warning mode. (x=s/e for supp");
246 Write_Str
("ress/treat as error)");
249 -- Line for -x switch
252 Write_Str
("x Exclude source files (check ob");
253 Write_Str
("ject consistency only)");
256 -- Line for -z switch
259 Write_Str
("z No main subprogram (zero main)");
264 Write_Str
(" lfile Library file names");