From 32da824fdd74614455fc104e56f879ee16f595d1 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 15 Sep 2021 05:32:49 +0200
Subject: vhdl: move Get_Source_Identifier to vhdl-utils

---
 src/vhdl/vhdl-utils.adb | 19 +++++++++++++++++++
 src/vhdl/vhdl-utils.ads |  6 ++++++
 2 files changed, 25 insertions(+)

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-utils.adb b/src/vhdl/vhdl-utils.adb
index c18892620..16351ad86 100644
--- a/src/vhdl/vhdl-utils.adb
+++ b/src/vhdl/vhdl-utils.adb
@@ -18,6 +18,8 @@ with Name_Table;
 with Str_Table;
 with Std_Names; use Std_Names;
 with Flags;
+with Files_Map;
+
 with Vhdl.Std_Package;
 with Vhdl.Errors; use Vhdl.Errors;
 with PSL.Nodes;
@@ -1988,6 +1990,23 @@ package body Vhdl.Utils is
       end case;
    end Get_File_Signature;
 
+   function Get_Source_Identifier (Decl : Node) return Name_Id
+   is
+      use Files_Map;
+      use Name_Table;
+      Loc : constant Location_Type := Get_Location (Decl);
+      Len : constant Natural := Get_Name_Length (Get_Identifier (Decl));
+      subtype Ident_Str is String (1 .. Len);
+      File : Source_File_Entry;
+      Pos : Source_Ptr;
+      Buf : File_Buffer_Acc;
+   begin
+      Location_To_File_Pos (Loc, File, Pos);
+      Buf := Get_File_Source (File);
+      return Get_Identifier
+        (Ident_Str (Buf (Pos .. Pos + Source_Ptr (Len - 1))));
+   end Get_Source_Identifier;
+
    function Get_HDL_Node (N : PSL_Node) return Iir is
    begin
       return Iir (PSL.Nodes.Get_HDL_Node (N));
diff --git a/src/vhdl/vhdl-utils.ads b/src/vhdl/vhdl-utils.ads
index fbea75776..b2d38334e 100644
--- a/src/vhdl/vhdl-utils.ads
+++ b/src/vhdl/vhdl-utils.ads
@@ -421,6 +421,12 @@ package Vhdl.Utils is
                                  Res : in out String;
                                  Off : in out Natural);
 
+   --  Like Get_Identifier but return a Name_Id for the same casing as it
+   --  appears in the source file.
+   --  Not useful for analysis as VHDL is case insentive, but could be
+   --  useful for error messages or tooling.
+   function Get_Source_Identifier (Decl : Node) return Name_Id;
+
    --  IIR wrapper around Get_HDL_Node/Set_HDL_Node.
    function Get_HDL_Node (N : PSL_Node) return Iir;
    procedure Set_HDL_Node (N : PSL_Node; Expr : Iir);
-- 
cgit v1.2.3