pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Check for reserved words type and end as identifier names

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2342 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_
2012-03-15 11:58:18 +00:00
parent a7d87c1cfa
commit 56cdbd977f
1 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
applications/idlparser/idlgenpascal.pas
View File

@ -77,6 +77,16 @@ begin
result := AValue;
end;
function IdentifierNameToPascalName(AName: string) : string;
begin
case lowercase(AName) of
'type': result := 'a'+AName;
'end' : result := 'an'+AName;
else
result := AName;
end;
end;
procedure GeneratePascalSource(const AnIdlList: TIDLList; const PascalCode: tstrings;TypeConvList, CTypesList: TStrings; AlwaysAddPrefixToParam: boolean);
var
@ -117,17 +127,17 @@ begin
s := s + ' procedure '
else
s := s + ' function ';
s := s + anIDLMember.MemberName + '(';
s := s + IdentifierNameToPascalName(anIDLMember.MemberName) + '(';
for m := 0 to anIDLMember.Params.Count-1 do
begin
anIDLMemberParameter := (anIDLMember.Params.Items[m]) as TIDLMemberParameter;
AParamName := anIDLMemberParameter.ParamName;
AParamName := IdentifierNameToPascalName(anIDLMemberParameter.ParamName);
if AlwaysAddPrefixToParam or HasDoubleIdentifier(anIDL,AParamName) then // It could be that the name is used in a inherited class
begin
if AParamName[1] in ['a','e','o','u','i'] then
AParamName := 'An'+AParamName
AParamName := 'an'+AParamName
else
AParamName := 'A'+AParamName;
AParamName := 'a'+AParamName;
end;
if m > 0 then s := s + '; ';
@ -147,7 +157,7 @@ begin
if not anIDLMember.MemberReadonly then
s := s + ' procedure Set' +anIDLMember.MemberName + '(a'+anIDLMember.MemberName+': '+ PasType+'); safecall;' + LineEnding;
s := s + ' property ' +anIDLMember.MemberName+ ' : '+PasType+
s := s + ' property ' +IdentifierNameToPascalName(anIDLMember.MemberName)+ ' : '+PasType+
' read Get' +anIDLMember.MemberName;
if not anIDLMember.MemberReadonly then
s := s + ' write Set' +anIDLMember.MemberName;