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

* Fix selection of package

Browse Source 
git-svn-id: trunk@32895 -
This commit is contained in:
michael 2016-01-09 17:46:24 +00:00
parent 4ccc75e2e8
commit a87e83e9b7
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
utils/fpdoc/fpdoc.pp
View File

@ -178,16 +178,20 @@ end;
procedure TFPDocApplication.ParseCommandLine;
Const
SOptProject = '--project=';
SOptPackage = '--package=';
Function ProjectOpt(Const s : string) : boolean;
begin
Result:=(Copy(s,1,3)='-p=') or (Copy(s,1,10)='--project=');
Result:=(Copy(s,1,3)='-p=') or (Copy(s,1,Length(SOptProject))=SOptProject);
end;
Function PackageOpt(Const s : string) : boolean;
begin
Result:=((Copy(s,1,3)='-a=') or (Copy(s,1,10)='--package='));
Result:=((Copy(s,1,3)='-a=') or (Copy(s,1,Length(SOptPackage))=SOptPackage));
end;
var
@ -195,17 +199,18 @@ var
s : string;
begin
// Check project
for i := 1 to ParamCount do
begin
s:=ParamStr(I);
If ProjectOpt(S) then
ParseOption(s);
If (FCreator.Packages.Count=1) then
FPackage:=FCreator.Packages[0]
else if (FCreator.Options.DefaultPackageName<>'') then
Fpackage:=FCreator.Packages.FindPackage(FCreator.Options.DefaultPackageName);
end;
If (FCreator.Packages.Count=1) then
FPackage:=FCreator.Packages[0]
else if (FCreator.Options.DefaultPackageName<>'') then
Fpackage:=FCreator.Packages.FindPackage(FCreator.Options.DefaultPackageName);
If FCreator.Project.Packages.Count=0 then
begin // Add default package if none defined
FPackage:=FCreator.Packages.Add as TFPDocPackage;
@ -224,6 +229,11 @@ begin
ParseOption(s);
end;
SelectedPackage; // Will print error if none available.
// Set defaults
if FCreator.Options.BackEnd='' then
FCreator.Options.BackEnd:='html';
if SelectedPackage.Output='' then
SelectedPackage.Output:=SelectedPackage.Name;
end;
procedure TFPDocApplication.ParseOption(Const S : String);
@ -369,11 +379,6 @@ begin
FCreator.Options.BackendOptions.Add(Arg);
end;
end;
// Set defaults
if FCreator.Options.BackEnd='' then
FCreator.Options.BackEnd:='html';
if SelectedPackage.Output='' then
SelectedPackage.Output:=SelectedPackage.Name;
end;
Procedure TFPDocApplication.DoRun;