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

Replace deprecated LazIsValidIdent with IsValidIdent.

Browse Source
This commit is contained in:
Juha 2024-09-29 02:21:32 +03:00
parent 3aae5b8b86
commit f9c4b5d7d1
7 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/buildintf/packagedependencyintf.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils,
// LazUtils
LazFileUtils, LazStringUtils;
LazFileUtils;
type
@ -108,12 +108,12 @@ implementation
function IsValidUnitName(AUnitName: String): Boolean;
begin
Result := LazIsValidIdent(AUnitName, True, True);
Result := IsValidIdent(AUnitName, True, True);
end;
function IsValidPkgName(APkgName: String): Boolean;
begin
Result := LazIsValidIdent(APkgName, True, True);
Result := IsValidIdent(APkgName, True, True);
end;
function PackageFileNameIsValid(const AFilename: string): boolean;

2
components/codetools/codetoolmanager.pas
View File

@ -3003,7 +3003,7 @@ begin
{$ENDIF}
if (TreeOfPCodeXYPosition=nil) or (TreeOfPCodeXYPosition.Count=0) then
exit(true);
if not LazIsValidIdent(NewIdentifier,True,True) then exit;
if not IsValidIdent(NewIdentifier,True,True) then exit;
ClearCurCodeTool;
SourceChangeCache.Clear;

4
components/codetools/directorycacher.pas
View File

@ -726,7 +726,7 @@ begin
UnitLinkLen:=UnitLinkEnd-UnitLinkStart;
if UnitLinkLen>0 then begin
TheUnitName:=copy(UnitLinks,UnitLinkStart,UnitLinkLen);
if LazIsValidIdent(TheUnitName,true,true) then begin
if IsValidIdent(TheUnitName,true,true) then begin
UnitLinkStart:=UnitLinkEnd+1;
UnitLinkEnd:=UnitLinkStart;
while (UnitLinkEnd<=length(UnitLinks))
@ -1761,7 +1761,7 @@ begin
aNameSpace:=NameSpaces;
NameSpaces:='';
end;
if LazIsValidIdent(aNameSpace,true,true) then begin
if IsValidIdent(aNameSpace,true,true) then begin
aName:=aNameSpace+'.'+AUnitName;
Result:=FindUnitSourceInCompletePath(aName,InFilename,AnyCase,
FPCSrcSearchRequiresPPU,'');

8
components/codetools/ppugraph.pas
View File

@ -35,9 +35,9 @@ uses
dynlibs,
{$ENDIF}
// LazUtils
LazStringUtils, LazUTF8,
LazUTF8, LazFileUtils,
// Codetools
PPUParser, CodeTree, FileProcs, LazFileUtils, BasicCodeTools, CodeGraph,
PPUParser, CodeTree, FileProcs, BasicCodeTools, CodeGraph,
CodeToolManager, CodeToolsStructs;
const
@ -671,7 +671,7 @@ begin
System.Delete(GroupName,i,1);
if (Groupname='') then continue;
Groupname:=FPCPPUGroupPrefix+LowerCase(Groupname);
if (not LazIsValidIdent(Groupname,true,true)) then continue;
if (not IsValidIdent(Groupname,true,true)) then continue;
AddFPCGroup(GroupName,AppendPathDelim(FPCPPUBaseDir)+FileInfo.Name);
end;
until FindNextUTF8(FileInfo)<>0;
@ -700,7 +700,7 @@ begin
if not FilenameExtIs(Filename,'ppu',true) then continue;
AUnitName:=ExtractFileNameOnly(Filename);
Filename:=AppendPathDelim(Directory)+Filename;
if not LazIsValidIdent(AUnitName,true,true) then begin
if not IsValidIdent(AUnitName,true,true) then begin
DebugLn(['TPPUGroups.AddFPCGroup NOTE: invalid ppu name: ',Filename]);
continue;
end;

6
components/ideintf/propedits.pp
View File

@ -37,7 +37,7 @@ uses
// LazControls
CheckBoxThemed,
// LazUtils
FileUtil, StringHashList, LazMethodList, LazLoggerBase, LazUtilities, LazStringUtils,
FileUtil, StringHashList, LazMethodList, LazLoggerBase, LazUtilities,
GraphType, FPCAdds, // for StrToQWord in older fpc versions
// IdeIntf
ObjInspStrConsts, PropEditUtils, TextTools,
@ -5485,7 +5485,7 @@ var
begin
NewMethodName := GetValue;
{$IFDEF VerboseMethodPropEdit}
debugln(['TMethodPropertyEditor.Edit OldValue="',NewMethodName,'" FromLookupRoot=',(LazIsValidIdent(NewMethodName, True, True) and PropertyHook.MethodFromLookupRoot(GetMethodValue))]);
debugln(['TMethodPropertyEditor.Edit OldValue="',NewMethodName,'" FromLookupRoot=',(IsValidIdent(NewMethodName, True, True) and PropertyHook.MethodFromLookupRoot(GetMethodValue))]);
DumpStack;
{$ENDIF}
if IsValidIdent(NewMethodName)
@ -7017,7 +7017,7 @@ var
begin
Result.Code := nil;
Result.Data := nil;
if LazIsValidIdent(aName,true,true) and Assigned(ATypeInfo) then
if IsValidIdent(aName,true,true) and Assigned(ATypeInfo) then
begin
i := GetHandlerCount(htCreateMethod);
while GetNextHandlerIndex(htCreateMethod, i) do

4
components/todolist/todolist.pas
View File

@ -66,7 +66,7 @@ uses
LCLType, LclIntf, Forms, Controls, StdCtrls, Dialogs, ComCtrls,
ActnList, XMLPropStorage, ExtCtrls,
// LazUtils
LazFileUtils, LazStringUtils, LazFileCache, LazLoggerBase, LazTracer,
LazFileUtils, LazFileCache, LazLoggerBase, LazTracer,
// Codetools
CodeToolManager, FileProcs,
// IDEIntf
@ -389,7 +389,7 @@ begin
CurOwner:=nil;
CurProject:=nil;
CurPkg:=nil;
if LazIsValidIdent(IDEItem,true) then begin
if IsValidIdent(IDEItem,true,true) then begin
// package
CurPkg:=PackageEditingInterface.FindPackageWithName(IDEItem);
CurOwner:=CurPkg;

2
ide/buildmanager.pas
View File

@ -1847,7 +1847,7 @@ begin
else
continue;
CurUnitName:=ExtractFilenameOnly(CurFilename);
if not LazIsValidIdent(CurUnitName) then
if not IsValidIdent(CurUnitName) then
continue;
//DebugLn(['TBuildManager.CheckUnitPathForAmbiguousPascalFiles ',CurUnitName,' ',CurFilename]);
// check if unit already found