mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-01 08:26:16 +02:00
* added -V to print version
This commit is contained in:
parent
fb51876d85
commit
1e050cf077
@ -241,6 +241,7 @@ begin
|
||||
writeln('Operations:');
|
||||
writeln(' -p Generate Package.fpc');
|
||||
writeln(' -w Write Makefile');
|
||||
writeln(' -V Print fpcmake version and exit');
|
||||
writeln('');
|
||||
writeln('Options:');
|
||||
writeln(' -T<target>[,target] Support only specified targets. If "-Tall", all targets are');
|
||||
@ -253,13 +254,19 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
procedure printVersion;
|
||||
begin
|
||||
writeln (TitleDate);
|
||||
halt(0);
|
||||
end;
|
||||
|
||||
|
||||
Procedure ProcessOpts;
|
||||
{
|
||||
Process command line opions, and checks if command line options OK.
|
||||
}
|
||||
const
|
||||
ShortOpts = 'pwqrvh?T:';
|
||||
ShortOpts = 'pwqrvh?VT:';
|
||||
var
|
||||
C : char;
|
||||
begin
|
||||
@ -280,6 +287,7 @@ begin
|
||||
'T' : ParaTargets:=OptArg;
|
||||
'?' : Usage;
|
||||
'h' : Usage;
|
||||
'V' : printVersion;
|
||||
end;
|
||||
until false;
|
||||
end;
|
||||
@ -294,7 +302,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.11 2005-01-10 20:33:09 peter
|
||||
Revision 1.12 2005-01-11 21:13:12 armin
|
||||
* added -V to print version
|
||||
|
||||
Revision 1.11 2005/01/10 20:33:09 peter
|
||||
* use cpu-os style
|
||||
|
||||
Revision 1.10 2004/12/05 11:18:04 hajny
|
||||
|
Loading…
Reference in New Issue
Block a user