libadalang/extensions/analysis/node_sloc_image at 25.2 - libadalang - ProxGit

ada/libadalang

mirror of https://github.com/AdaCore/libadalang.git synced 2026-02-12 12:28:54 -08:00

Files

Pierre-Marie de Rodat 27bb4248f2 Hide the sloc range for nodes in the Standard unit from Image

(cherry picked from commit 48f1248dc0)

2024-11-28 14:43:47 +00:00

12 lines

264 B

Ada

Raw Permalink Blame History

 ## vim: filetype=ada
 declare
    Filename : constant String := +Self.Unit.Filename.Base_Name;
 begin
    if Filename = "__standard" then
       return "in Standard";
    else
       return To_Text (Filename) & ":" & To_Text (Image (Sloc_Range (Self)));
    end if;
 end;