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

IDE: fpdoc editor: operator result identifier

Browse Source 
git-svn-id: trunk@28533 -
This commit is contained in:
mattias 2010-11-28 13:29:15 +00:00
parent 387f6553be
commit 75c181bb33
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/codehelp.pas
View File

@ -42,7 +42,7 @@ uses
Classes, SysUtils, LCLProc, Forms, Controls, FileUtil, Dialogs, AvgLvlTree,
// codetools
CodeAtom, CodeTree, CodeToolManager, FindDeclarationTool, BasicCodeTools,
CodeCache, CacheCodeTools, FileProcs,
PascalParserTool, CodeCache, CacheCodeTools, FileProcs,
{$IFDEF NewXMLCfg}
Laz2_DOM, Laz2_XMLRead, Laz2_XMLWrite,
{$ELSE}
@ -1750,12 +1750,22 @@ begin
end else begin
while CodeNode<>nil do begin
case CodeNode.Desc of
ctnVarDefinition, ctnConstDefinition, ctnTypeDefinition, ctnGenericType:
ctnVarDefinition:
if Tool.NodeIsResultIdentifier(CodeNode) then
// fpdoc prefixes the result variable with 'Identifier ' (don't ask)
NodeName:='Identifier '+Tool.ExtractDefinitionName(CodeNode)
else
NodeName:=Tool.ExtractDefinitionName(CodeNode);
ctnConstDefinition, ctnTypeDefinition, ctnGenericType:
NodeName:=Tool.ExtractDefinitionName(CodeNode);
ctnProperty:
NodeName:=Tool.ExtractPropName(CodeNode,false);
ctnProcedure:
NodeName:=Tool.ExtractProcName(CodeNode,[]);
if Tool.NodeIsOperator(CodeNode) then
NodeName:=Tool.ExtractProcHead(CodeNode,
[phpWithStart,phpWithResultType,phpWithoutSemicolon])
else
NodeName:=Tool.ExtractProcName(CodeNode,[]);
ctnEnumIdentifier:
NodeName:=GetIdentifier(@Tool.Src[CodeNode.StartPos]);
ctnIdentifier: