paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 03:27:12 +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 phpWithDefaultValues, // extract default values
phpWithResultType, // extract colon + result type phpWithResultType, // extract colon + result type
phpWithOfObject, // extract 'of object' phpWithOfObject, // extract 'of object'
phpWithCallingSpecs, // extract cdecl; inline;
phpWithComments, // extract comments phpWithComments, // extract comments
phpInUpperCase, // turn to uppercase phpInUpperCase, // turn to uppercase
phpCommentsToSpace, // replace comments with a single space phpCommentsToSpace, // replace comments with a single space
@ -81,7 +82,7 @@ type
TParseProcHeadAttributes = set of TParseProcHeadAttribute; TParseProcHeadAttributes = set of TParseProcHeadAttribute;
TProcHeadExtractPos = (phepNone, phepStart, phepName, phepParamList, TProcHeadExtractPos = (phepNone, phepStart, phepName, phepParamList,
phepResultType); phepResultType, phepSpecifiers);
TTreeRange = (trInterface, trAll, trTillCursor); TTreeRange = (trInterface, trAll, trTillCursor);
@ -282,6 +283,7 @@ const
'phpWithDefaultValues', 'phpWithDefaultValues',
'phpWithResultType', 'phpWithResultType',
'phpWithOfObject', 'phpWithOfObject',
'phpWithCallingSpecs',
'phpWithComments', 'phpWithComments',
'phpInUpperCase', 'phpInUpperCase',
'phpCommentsToSpace', 'phpCommentsToSpace',
@ -3469,12 +3471,30 @@ begin
ExtractNextAtom(phpWithOfObject in Attr,Attr); ExtractNextAtom(phpWithOfObject in Attr,Attr);
if not UpAtomIs('OBJECT') then exit; if not UpAtomIs('OBJECT') then exit;
ExtractNextAtom(phpWithOfObject in Attr,Attr); ExtractNextAtom(phpWithOfObject in Attr,Attr);
end else begin
exit;
end; end;
end; end;
// read semicolon
if CurPos.Flag=cafSemicolon then if CurPos.Flag=cafSemicolon then
ExtractNextAtom(true,Attr); 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 // copy memorystream to Result string
Result:=GetExtraction; Result:=GetExtraction;