From 12c9b7e793642b9713fae6a924813fe49d220517 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 29 Apr 2022 08:52:59 +0200
Subject: ghdldrv: allow --work within files for import command

---
 src/ghdldrv/ghdllocal.adb | 79 +++++++++++++++++++++++++++++++++++------------
 1 file changed, 60 insertions(+), 19 deletions(-)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb
index 06602e6a5..4ed71a590 100644
--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -822,6 +822,8 @@ package body Ghdllocal is
       pragma Unreferenced (Cmd);
       use Errorout;
 
+      First_Work_Library : Iir;
+
       Id : Name_Id;
       Design_File : Iir_Design_File;
       Unit : Iir;
@@ -832,30 +834,46 @@ package body Ghdllocal is
          return;
       end if;
 
+      First_Work_Library := Libraries.Work_Library;
+
       --  Parse all files.
       for I in Args'Range loop
-         Id := Name_Table.Get_Identifier (Args (I).all);
-         Design_File := Vhdl.Sem_Lib.Load_File_Name (Id);
-
-         if Nbr_Errors > 0 then
-            raise Compilation_Error;
-         end if;
+         declare
+            Arg : String renames Args (I).all;
+            pragma Assert (Arg'First = 1);
+         begin
+            if Arg'Last > 7 and then Arg (1 .. 7) = "--work=" then
+               Id := Libraries.Decode_Work_Option (Arg);
+               if Id = Null_Identifier then
+                  return;
+               end if;
+               Libraries.Work_Library_Name := Id;
+               Libraries.Load_Work_Library (True);
+            else
+               Id := Name_Table.Get_Identifier (Arg);
+               Design_File := Vhdl.Sem_Lib.Load_File_Name (Id);
 
-         Unit := Get_First_Design_Unit (Design_File);
-         while Unit /= Null_Iir loop
-            if Flag_Verbose then
-               Lib := Get_Library_Unit (Unit);
-               Disp_Library_Unit (Lib);
-               if Is_Top_Entity (Lib) then
-                  Put (" **");
+               if Nbr_Errors > 0 then
+                  raise Compilation_Error;
                end if;
-               New_Line;
+
+               Unit := Get_First_Design_Unit (Design_File);
+               while Unit /= Null_Iir loop
+                  if Flag_Verbose then
+                     Lib := Get_Library_Unit (Unit);
+                     Disp_Library_Unit (Lib);
+                     if Is_Top_Entity (Lib) then
+                        Put (" **");
+                     end if;
+                     New_Line;
+                  end if;
+                  Next_Unit := Get_Chain (Unit);
+                  Set_Chain (Unit, Null_Iir);
+                  Libraries.Add_Design_Unit_Into_Library (Unit);
+                  Unit := Next_Unit;
+               end loop;
             end if;
-            Next_Unit := Get_Chain (Unit);
-            Set_Chain (Unit, Null_Iir);
-            Libraries.Add_Design_Unit_Into_Library (Unit);
-            Unit := Next_Unit;
-         end loop;
+         end;
       end loop;
 
       --  Analyze all files.
@@ -879,7 +897,30 @@ package body Ghdllocal is
          end loop;
       end if;
 
+      Libraries.Work_Library_Name := Get_Identifier (First_Work_Library);
+      Libraries.Load_Work_Library (True);
       Libraries.Save_Work_Library;
+      Set_Elab_Flag (First_Work_Library, True);
+
+      --  Save all libraries referenced.
+      for I in Args'Range loop
+         declare
+            Arg : String renames Args (I).all;
+            pragma Assert (Arg'First = 1);
+         begin
+            if Arg'Last > 7 and then Arg (1 .. 7) = "--work=" then
+               Id := Libraries.Decode_Work_Option (Arg);
+               pragma Assert (Id /= Null_Identifier);
+               Libraries.Work_Library_Name := Id;
+               Libraries.Load_Work_Library (True);
+               if not Get_Elab_Flag (Libraries.Work_Library) then
+                  --  Save once.
+                  Set_Elab_Flag (Libraries.Work_Library, True);
+                  Libraries.Save_Work_Library;
+               end if;
+            end if;
+         end;
+      end loop;
    exception
       when Compilation_Error =>
          Error ("importation has failed due to compilation error");
-- 
cgit v1.2.3