paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 15:28:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazBuild: Support dots in package names. Issue #35166, patch from Imants Gulbis.

Browse Source 
git-svn-id: trunk@60545 -
This commit is contained in:
juha 2019-02-28 21:18:29 +00:00
parent d4a8763c35
commit 5f5140a80c
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/lazbuild.lpr
View File

@ -327,8 +327,7 @@ begin
if TheProject.IsVirtual then
CodeToolBoss.SetGlobalValue(ExternalMacroStart+'ProjPath',VirtualDirectory)
else
CodeToolBoss.SetGlobalValue(ExternalMacroStart+'ProjPath',
Project1.Directory)
CodeToolBoss.SetGlobalValue(ExternalMacroStart+'ProjPath',Project1.Directory)
end;
function TLazBuildApplication.OnIDEMessageDialog(const aCaption, aMsg: string;
@ -372,7 +371,7 @@ begin
if not FileExistsUTF8(Filename) then
begin
// Check for packages if the specified name is a valid identifier
if LazIsValidIdent(OriginalFileName) then begin
if PackageFileNameIsValid(OriginalFileName) then begin
if PackageAction=lpaAddPkgLinks then begin
Error(ErrorFileNotFound,'lpk file expected, but '+OriginalFilename+' found');
Exit;
@ -487,11 +486,10 @@ begin
XMLConfig.Free;
end;
// check Package Name
if (Result.Name='') or (not LazIsValidIdent(Result.Name,true,false)) then begin
if (Result.Name='') or not IsValidPkgName(Result.Name) then
Error(ErrorPackageNameInvalid,
Format(lisPkgMangThePackageNameOfTheFileIsInvalid,
[Result.Name, LineEnding, Result.Filename]));
end;
// check if Package with same name is already loaded
ConflictPkg:=PackageGraph.FindPackageWithName(Result.Name,nil);
if ConflictPkg<>nil then begin
@ -1051,7 +1049,7 @@ begin
PkgFilename:='';
if CompareFileExt(PackageNamesOrFiles[i],'.lpk')=0 then
PkgFilename:=ExpandFileNameUTF8(PackageNamesOrFiles[i])
else if LazIsValidIdent(PackageNamesOrFiles[i]) then begin
else if IsValidPkgName(PackageNamesOrFiles[i]) then begin
PackageLink:=TLazPackageLink(LazPackageLinks.FindLinkWithPkgName(PackageNamesOrFiles[i]));
if PackageLink=nil then
begin