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

code completion now copies procedure calling conventions

Browse Source 
git-svn-id: trunk@3777 -
This commit is contained in:
mattias 2003-01-02 05:02:24 +00:00
parent 47413cf3e4
commit 27d3422fce
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/codetools/pascalparsertool.pas
View File

@ -60,6 +60,7 @@ type
phpWithDefaultValues, // extract default values
phpWithResultType, // extract colon + result type
phpWithOfObject, // extract 'of object'
phpWithCallingSpecs, // extract cdecl; inline;
phpWithComments, // extract comments
phpInUpperCase, // turn to uppercase
phpCommentsToSpace, // replace comments with a single space
@ -81,7 +82,7 @@ type
TParseProcHeadAttributes = set of TParseProcHeadAttribute;
TProcHeadExtractPos = (phepNone, phepStart, phepName, phepParamList,
phepResultType);
phepResultType, phepSpecifiers);
TTreeRange = (trInterface, trAll, trTillCursor);
@ -282,6 +283,7 @@ const
'phpWithDefaultValues',
'phpWithResultType',
'phpWithOfObject',
'phpWithCallingSpecs',
'phpWithComments',
'phpInUpperCase',
'phpCommentsToSpace',
@ -3469,12 +3471,30 @@ begin
ExtractNextAtom(phpWithOfObject in Attr,Attr);
if not UpAtomIs('OBJECT') then exit;
ExtractNextAtom(phpWithOfObject in Attr,Attr);
end else begin
exit;
end;
end;
// read semicolon
if CurPos.Flag=cafSemicolon then
ExtractNextAtom(true,Attr);
// read specifiers
if phpWithCallingSpecs in Attr then begin
while (CurPos.StartPos<=ProcNode.FirstChild.EndPos) do begin
if CurPos.Flag=cafSemicolon then begin
ExtractNextAtom(false,Attr);
end else begin
if (UpAtomIs('INLINE') or UpAtomIs('CDECL')) then begin
ExtractNextAtom(phpWithCallingSpecs in Attr,Attr);
ExtractMemStream.Write(';',1);
end
else if (CurPos.Flag=cafEdgedBracketOpen) then begin
ReadTilBracketClose(false);
ExtractNextAtom(false,Attr);
end else begin
ExtractNextAtom(false,Attr);
end;
end;
end;
end;
// copy memorystream to Result string
Result:=GetExtraction;