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

pas2js: fixed option --simpleserver and -d relative path

Browse Source 
git-svn-id: trunk@49008 -
(cherry picked from commit 29dee4a0d3)
This commit is contained in:
Mattias Gaertner 2021-03-19 10:31:46 +00:00 committed by Florian Klämpfl
parent 6eaceb2f53
commit 2ccfde90d0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
utils/pas2js/httpcompiler.pp
View File

@ -558,12 +558,13 @@ begin
S:=Checkoptions('shqd:ni:p:wP::cm:',['help','quiet','noindexpage','directory:','port:','indexpage:','watch','project::','config:','simpleserver','mimetypes:']); S:=Checkoptions('shqd:ni:p:wP::cm:',['help','quiet','noindexpage','directory:','port:','indexpage:','watch','project::','config:','simpleserver','mimetypes:']);
if (S<>'') or HasOption('h','help') then if (S<>'') or HasOption('h','help') then
usage(S); usage(S);
FServeOnly:=HasOption('s','serve-only'); FServeOnly:=HasOption('s','simpleserver');
Quiet:=HasOption('q','quiet'); Quiet:=HasOption('q','quiet');
Port:=StrToIntDef(GetOptionValue('p','port'),3000); Port:=StrToIntDef(GetOptionValue('p','port'),3000);
D:=GetOptionValue('d','directory'); D:=GetOptionValue('d','directory');
if D='' then if D='' then
D:=GetCurrentDir; D:=GetCurrentDir;
D:=ExpandFileName(D);
if HasOption('m','mimetypes') then if HasOption('m','mimetypes') then
MimeTypesFile:=GetOptionValue('m','mimetypes'); MimeTypesFile:=GetOptionValue('m','mimetypes');
if MimeTypesFile='' then if MimeTypesFile='' then