paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 20:32:20 +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(' -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