Include directives now show in function list

Villavu · Oct 2, 2023 · a708ab6 · a708ab6
1 parent e2f9c44
commit a708ab6
Show file tree

Hide file tree

Showing 4 changed files with 19 additions and 18 deletions.
diff --git a/DocGen/images/icon.ico b/DocGen/images/icon.ico
diff --git a/Source/codetools/simba.ide_codetools_parser.pas b/Source/codetools/simba.ide_codetools_parser.pas
@@ -589,6 +589,7 @@ constructor TDeclaration_IncludeDirective.Create(AParser: TCodeParser; AFileName
   inherited Create(AParser, nil, AParser.Lexer.TokenPos, AParser.Lexer.TokenPos + AParser.Lexer.TokenLen);
 
   FileName := AFileName;
+  Name := ChangeFileExt(ExtractFileName(FileName), '');
 end;
 
 constructor TDeclaration_Type.Create(AParser: TCodeParser; AOwner: TDeclaration; AStart: Integer; AEnd: Integer);
@@ -1324,7 +1325,7 @@ procedure TCodeParser.FindGlobals;
   for I := 0 to FItems.Count - 1 do
   begin
     Decl := FItems[I];
-    if (Decl.Name = '') then
+    if (Decl.Name = '') or (Decl.ClassType = TDeclaration_IncludeDirective) then
       Continue;
 
     if (Decl is TDeclaration_Method) and Decl.isObjectMethod then

diff --git a/Source/forms/simba.functionlistform.lfm b/Source/forms/simba.functionlistform.lfm
@@ -1,7 +1,7 @@
 object SimbaFunctionListForm: TSimbaFunctionListForm
-  Left = 1145
+  Left = 1530
   Height = 301
-  Top = 680
+  Top = 748
   Width = 765
   Caption = 'Function List'
   DesignTimePPI = 120

diff --git a/Source/forms/simba.functionlistform.pas b/Source/forms/simba.functionlistform.pas
@@ -87,15 +87,13 @@ implementation
 
 function GetImage(const Decl: TDeclaration): Integer;
 begin
-  //if (Decl is TDeclaration_Method) and Decl.isFunction       then Result := IMG_FUNC   else
-  //if (Decl is TDeclaration_Method) and Decl.isProcedure      then Result := IMG_PROC   else
-  //if (Decl is TDeclaration_Method) and Decl.isOperatorMethod then Result := IMG_FUNC   else
-  if (Decl is TDeclaration_Method)                           then Result := IMG_FUNC   else
-  if (Decl is TDeclaration_EnumElement)                      then Result := IMG_ENUM   else
-  if (Decl is TDeclaration_Type)                             then Result := IMG_TYPE   else
-  if (Decl is TDeclaration_Const)                            then Result := IMG_CONST  else
-  if (Decl is TDeclaration_Var)                              then Result := IMG_VAR    else
-  if (Decl is TDeclaration_Anchor)                           then Result := IMG_ANCHOR else
+  if (Decl is TDeclaration_Method)           then Result := IMG_FUNC   else
+  if (Decl is TDeclaration_EnumElement)      then Result := IMG_ENUM   else
+  if (Decl is TDeclaration_Type)             then Result := IMG_TYPE   else
+  if (Decl is TDeclaration_Const)            then Result := IMG_CONST  else
+  if (Decl is TDeclaration_Var)              then Result := IMG_VAR    else
+  if (Decl is TDeclaration_Anchor)           then Result := IMG_ANCHOR else
+  if (Decl is TDeclaration_IncludeDirective) then Result := IMG_FILE   else
     Result := -1;
 end;
 
@@ -121,11 +119,13 @@ function GetHint(const Decl: TDeclaration): String;
     else
       Result := Decl.Name
   else
-  if (Decl is TDeclaration_Method) then Result := TDeclaration_Method(Decl).HeaderString                                                                  else
-  if (Decl is TDeclaration_Type)   then Result := 'type '    + Decl.Name + ' = ' + Decl.TextNoCommentsSingleLine                                          else
-  if (Decl is TDeclaration_Const)  then Result := 'const '   + Decl.Name + TDeclaration_Var(Decl).VarTypeString + TDeclaration_Var(Decl).VarDefaultString else
-  if (Decl is TDeclaration_Var)    then Result := 'var '     + Decl.Name + TDeclaration_Var(Decl).VarTypeString + TDeclaration_Var(Decl).VarDefaultString else
-  if (Decl is TDeclaration_Anchor) then Result := 'Anchor "' + Decl.Name + '"'                                                                            else
+  if (Decl is TDeclaration_Method)           then Result := TDeclaration_Method(Decl).HeaderString                                                                  else
+  if (Decl is TDeclaration_Type)             then Result := 'type '    + Decl.Name + ' = ' + Decl.TextNoCommentsSingleLine                                          else
+  if (Decl is TDeclaration_Const)            then Result := 'const '   + Decl.Name + TDeclaration_Var(Decl).VarTypeString + TDeclaration_Var(Decl).VarDefaultString else
+  if (Decl is TDeclaration_Var)              then Result := 'var '     + Decl.Name + TDeclaration_Var(Decl).VarTypeString + TDeclaration_Var(Decl).VarDefaultString else
+  if (Decl is TDeclaration_Anchor)           then Result := 'Anchor "' + Decl.Name + '"'                                                                            else
+  if (Decl is TDeclaration_IncludeDirective) then Result := TDeclaration_IncludeDirective(Decl).FileName
+  else
     Result := '';
 end;
 
@@ -291,7 +291,7 @@ procedure TSimbaFunctionListForm.Fill;
 begin
   RunInMainThread(@BeginUpdate);
 
-  if CanUpdate then
+  if {%H-}CanUpdate then
   begin
     FCodeInsight.SetScript(Script, ScriptFileName);
     FCodeInsight.Run();