codetools: GetSmartHint: show anonymous arrays

git-svn-id: trunk@37104 -

components/codetools/examples/listinterfaceclasses.pas

@@ -20,7 +20,7 @@
  ***************************************************************************
 
   Abstract:
-    Example, how to setup the codetools, load a pascal unit and list of classes
+    Example, how to setup the codetools, load a pascal unit and list all classes
     defined in the interface.
 }
 program ListInterfaceClasses;

components/codetools/finddeclarationtool.pas

@@ -2209,7 +2209,6 @@ begin
     if Node.Parent<>nil then begin
       ANode:=Node.Parent;
       while ANode<>nil do begin
-        if ANode.Desc in AllClassSections then begin
         case ANode.Desc of
         ctnClassPrivate:
           Result+='private ';
@@ -2224,8 +2223,6 @@ begin
         else
           break;
         end;
-        end else if ANode.Desc in ([ctnParameterList]+AllClasses) then
-          break;
         ANode:=ANode.Parent;
       end;
     end;
@@ -2250,7 +2247,7 @@ begin
         end;
 
         // add class name
-        ClassStr := ExtractClassName(Node.Parent, False, true);
+        ClassStr := ExtractClassPath(Node.Parent);
         if ClassStr <> '' then Result += ClassStr + '.';
 
         Result:=Result+ExtractDefinitionName(Node);
@@ -2296,7 +2293,7 @@ begin
           case Node.Desc of
           ctnConstDefinition:
             begin
-              DebugLn('TFindDeclarationTool.FindSmartHint const without subnode "',ExtractNode(Node,[]),'"');
+              DebugLn('TFindDeclarationTool.GetSmartHint const without subnode "',ExtractNode(Node,[]),'"');
               NodeStr:=ExtractCode(Node.StartPos
                                  +GetIdentLen(@Src[Node.StartPos]),
                                  Node.EndPos,[phpCommentsToSpace]);
@@ -2396,7 +2393,7 @@ begin
       end
 
     else
-      DebugLn('ToDo: TFindDeclarationTool.FindSmartHint ',Node.DescAsString);
+      DebugLn('ToDo: TFindDeclarationTool.GetSmartHint ',Node.DescAsString);
     end;
   end;
   if WithPosition then begin

components/codetools/pascalreadertool.pas

@@ -141,8 +141,9 @@ type
     function NodeIsResultType(Node: TCodeTreeNode): boolean;
 
     // classes
-    function ExtractClassName(ClassNode: TCodeTreeNode;
+    function ExtractClassName(Node: TCodeTreeNode;
         InUpperCase: boolean; WithParents: boolean = true): string;
+    function ExtractClassPath(Node: TCodeTreeNode): string;
     function ExtractClassInheritance(ClassNode: TCodeTreeNode;
         Attr: TProcHeadAttributes): string;
     function FindClassNode(StartNode: TCodeTreeNode;
@@ -586,30 +587,74 @@ begin
     Result:=Result+';';
 end;
 
-function TPascalReaderTool.ExtractClassName(ClassNode: TCodeTreeNode;
+function TPascalReaderTool.ExtractClassName(Node: TCodeTreeNode;
   InUpperCase: boolean; WithParents: boolean): string;
+var
+  InArray: Boolean;
 begin
   Result:='';
-  while ClassNode<>nil do begin
+  while Node<>nil do begin
-    if ClassNode.Desc in [ctnTypeDefinition,ctnGenericType] then begin
+    case Node.Desc of
-      if Result<>'' then Result:='.'+Result;
+    ctnTypeDefinition,ctnGenericType:
-      if ClassNode.Desc=ctnTypeDefinition then
-        Result:=GetIdentifier(@Src[ClassNode.StartPos])+Result
-      else if ClassNode.FirstChild<>nil then
       begin
-        if (Scanner.CompilerMode = cmDELPHI) and (ClassNode.Desc = ctnGenericType) then
+        if Result<>'' then Result:='.'+Result;
-          Result := Result + ExtractNode(ClassNode.FirstChild.NextBrother, []);
+        if Node.Desc=ctnTypeDefinition then
-        Result:=GetIdentifier(@Src[ClassNode.FirstChild.StartPos])+Result;
+          Result:=GetIdentifier(@Src[Node.StartPos])+Result
+        else if Node.FirstChild<>nil then
+        begin
+          if (Scanner.CompilerMode = cmDELPHI) and (Node.Desc = ctnGenericType) then
+            Result := Result + ExtractNode(Node.FirstChild.NextBrother, []);
+          Result:=GetIdentifier(@Src[Node.FirstChild.StartPos])+Result;
         end;
         if not WithParents then break;
       end;
-    ClassNode:=ClassNode.Parent;
+    ctnParameterList:
+      break;
+    end;
+    Node:=Node.Parent;
   end;
 
   if InUpperCase then
     Result:=UpperCaseStr(Result);
 end;
 
+function TPascalReaderTool.ExtractClassPath(Node: TCodeTreeNode): string;
+var
+  InArray: Boolean;
+begin
+  Result:='';
+  InArray:=false;
+  while Node<>nil do begin
+    case Node.Desc of
+    ctnTypeDefinition,ctnGenericType:
+      begin
+        if Result<>'' then Result:='.'+Result;
+        if Node.Desc=ctnTypeDefinition then
+          Result:=GetIdentifier(@Src[Node.StartPos])+Result
+        else if Node.FirstChild<>nil then
+        begin
+          if (Scanner.CompilerMode = cmDELPHI) and (Node.Desc = ctnGenericType) then
+            Result := Result + ExtractNode(Node.FirstChild.NextBrother, []);
+          Result:=GetIdentifier(@Src[Node.FirstChild.StartPos])+Result;
+        end;
+      end;
+    ctnParameterList:
+      break;
+    ctnRangedArrayType, ctnOpenArrayType:
+       begin
+         InArray := True;
+         Result := '[]' + Result;
+       end;
+    ctnVarDefinition:
+       if InArray then begin
+         Result := GetIdentifier(@Src[Node.StartPos]) + Result;
+         InArray := False;
+       end;
+    end;
+    Node:=Node.Parent;
+  end;
+end;
+
 function TPascalReaderTool.ExtractClassInheritance(
   ClassNode: TCodeTreeNode; Attr: TProcHeadAttributes): string;
 begin