paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 04:36:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added -V to print version

Browse Source
This commit is contained in:
armin 2005-01-11 21:13:12 +00:00
parent fb51876d85
commit 1e050cf077
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
utils/fpcm/fpcmake.pp
View File

@ -241,6 +241,7 @@ begin
writeln('Operations:'); writeln('Operations:');
writeln(' -p Generate Package.fpc'); writeln(' -p Generate Package.fpc');
writeln(' -w Write Makefile'); writeln(' -w Write Makefile');
writeln(' -V Print fpcmake version and exit');
writeln(''); writeln('');
writeln('Options:'); writeln('Options:');
writeln(' -T<target>[,target] Support only specified targets. If "-Tall", all targets are'); writeln(' -T<target>[,target] Support only specified targets. If "-Tall", all targets are');
@ -253,13 +254,19 @@ begin
end; end;
procedure printVersion;
begin
writeln (TitleDate);
halt(0);
end;
Procedure ProcessOpts; Procedure ProcessOpts;
{ {
Process command line opions, and checks if command line options OK. Process command line opions, and checks if command line options OK.
} }
const const
ShortOpts = 'pwqrvh?T:'; ShortOpts = 'pwqrvh?VT:';
var var
C : char; C : char;
begin begin
@ -280,6 +287,7 @@ begin
'T' : ParaTargets:=OptArg; 'T' : ParaTargets:=OptArg;
'?' : Usage; '?' : Usage;
'h' : Usage; 'h' : Usage;
'V' : printVersion;
end; end;
until false; until false;
end; end;
@ -294,7 +302,10 @@ begin
end. end.
{ {
$Log$ $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 * use cpu-os style
Revision 1.10 2004/12/05 11:18:04 hajny Revision 1.10 2004/12/05 11:18:04 hajny