paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 12:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: h2p: auto renaming names with pascal keywords

Browse Source 
git-svn-id: trunk@14679 -
This commit is contained in:
mattias 2008-03-28 13:17:50 +00:00
parent a202dc6d57
commit d27123529d
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/codetools/h2pastool.pas
View File

@ -2171,9 +2171,16 @@ function TH2PasTool.CreateH2PNode(var PascalName: string; const CName: string;
const PascalCode: string; const PascalCode: string;
ParentNode: TH2PNode; IsGlobal: boolean; InsertAsPreLast: boolean): TH2PNode; ParentNode: TH2PNode; IsGlobal: boolean; InsertAsPreLast: boolean): TH2PNode;
begin begin
if (PascalName<>'') and IsGlobal and (PascalDesc<>ctnNone) if (PascalName<>'') and (PascalDesc<>ctnNone) and IsValidIdent(PascalName)
and IsValidIdent(PascalName) then then begin
PascalName:=CreateUniquePascalName(PascalName); if WordIsKeyWord.DoItCaseInsensitive(PChar(PascalName)) then begin
// C name is keyword => auto rename
PascalName:=PascalName+'_';
end;
if IsGlobal then
PascalName:=CreateUniquePascalName(PascalName);
end;
Result:=TH2PNode.Create; Result:=TH2PNode.Create;
Result.PascalName:=PascalName; Result.PascalName:=PascalName;
Result.CName:=CName; Result.CName:=CName;