+ -------------------
+ -- No_Lib_Prefix --
+ -------------------
+
+ function No_Lib_Prefix (Filename : String) return String is
+ begin
+ if Filename (Filename'First .. Filename'First + 2) = "lib" then
+ return Filename (Filename'First + 3 .. Filename'Last);
+ else
+ return Filename;
+ end if;
+ end No_Lib_Prefix;
+
+ -- Local variables
+
+ Def_File : String renames Def_Filename;
+ Dll_File : constant String := Get_Dll_Name (Lib_Filename);
+ Base_Filename : constant String :=
+ MDLL.Fil.Ext_To (No_Lib_Prefix (Lib_Filename));
+ Lib_File : constant String := "lib" & Base_Filename & ".dll.a";
+
+ -- Start of processing for Build_Import_Library