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

pas2js: compileserver: added commandline param --version

Browse Source
This commit is contained in:
mattias 2022-01-18 16:54:45 +01:00
parent f8aaab3cd7
commit d76cfdd913
1 changed files with 10 additions and 4 deletions

14
utils/pas2js/httpcompiler.pp
View File

@ -12,8 +12,8 @@ uses
Pas2JSCompilerCfg, ssockets;
Const
HTTPCompilerVersion = '1.0';
nErrTooManyThreads = -1;
nExitCodeSocketError = 1;
Type
@ -53,7 +53,6 @@ Type
Property Compiles[AIndex : Integer] : TCompileItem Read GetC; default;
end;
{ TCompileThread }
TCompileThread = class(TThread)
@ -277,6 +276,7 @@ begin
{AllowWriteln}
if (Msg<>'') then
Writeln('Error: ',Msg);
Writeln('Version ',HTTPCompilerVersion);
Writeln('Usage ',ExtractFileName(ParamStr(0)),' [options] ');
Writeln('Where options is one or more of : ');
Writeln('-A --api=location,secret Enable location management API.');
@ -768,9 +768,15 @@ Var
S : String;
begin
S:=Checkoptions('shqd:ni:p:wP::cm:A:I:',['help','quiet','noindexpage','directory:','port:','indexpage:','watch','project::','config:','simpleserver','mimetypes:','api:','interface:']);
S:=Checkoptions('shqVd:ni:p:wP::cm:A:I:',['help','quiet','version','noindexpage','directory:','port:','indexpage:','watch','project::','config:','simpleserver','mimetypes:','api:','interface:']);
if (S<>'') or HasOption('h','help') then
usage(S);
Usage(S);
if HasOption('V','version') then
begin
writeln(HTTPCompilerVersion);
Terminate;
exit;
end;
if HasOption('c','config') then
ConfigFile:=GetOptionValue('c','config')
else