1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
9 -- Copyright (C) 2001-2007, AdaCore --
11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 3, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
15 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
16 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
17 -- for more details. You should have received a copy of the GNU General --
18 -- Public License distributed with GNAT; see file COPYING3. If not, go to --
19 -- http://www.gnu.org/licenses for a complete copy of the license. --
21 -- GNAT was originally developed by the GNAT team at New York University. --
22 -- Extensive contributions were provided by Ada Core Technologies Inc. --
24 ------------------------------------------------------------------------------
26 -- This is the default version which does not support libraries.
27 -- All subprograms are dummies, because they are never called,
28 -- except Support_For_Libraries which returns None.
33 with MLib.Tgt.Specific;
34 pragma Warnings (Off, MLib.Tgt.Specific);
35 -- MLib.Tgt.Specific is with'ed only for elaboration purposes
37 package body MLib.Tgt is
43 function Archive_Builder return String is
45 return Archive_Builder_Ptr.all;
48 -----------------------------
49 -- Archive_Builder_Default --
50 -----------------------------
52 function Archive_Builder_Default return String is
55 end Archive_Builder_Default;
57 -----------------------------
58 -- Archive_Builder_Options --
59 -----------------------------
61 function Archive_Builder_Options return String_List_Access is
63 return Archive_Builder_Options_Ptr.all;
64 end Archive_Builder_Options;
66 -------------------------------------
67 -- Archive_Builder_Options_Default --
68 -------------------------------------
70 function Archive_Builder_Options_Default return String_List_Access is
72 return new String_List'(1 => new String'("cr"));
73 end Archive_Builder_Options_Default;
75 ------------------------------------
76 -- Archive_Builder_Append_Options --
77 ------------------------------------
79 function Archive_Builder_Append_Options return String_List_Access is
81 return Archive_Builder_Append_Options_Ptr.all;
82 end Archive_Builder_Append_Options;
84 --------------------------------------------
85 -- Archive_Builder_Append_Options_Default --
86 --------------------------------------------
88 function Archive_Builder_Append_Options_Default return String_List_Access is
90 return new String_List'(1 => new String'("q"));
91 end Archive_Builder_Append_Options_Default;
97 function Archive_Ext return String is
99 return Archive_Ext_Ptr.all;
102 -------------------------
103 -- Archive_Ext_Default --
104 -------------------------
106 function Archive_Ext_Default return String is
109 end Archive_Ext_Default;
111 ---------------------
112 -- Archive_Indexer --
113 ---------------------
115 function Archive_Indexer return String is
117 return Archive_Indexer_Ptr.all;
120 -----------------------------
121 -- Archive_Indexer_Default --
122 -----------------------------
124 function Archive_Indexer_Default return String is
127 end Archive_Indexer_Default;
129 -----------------------------
130 -- Archive_Indexer_Options --
131 -----------------------------
133 function Archive_Indexer_Options return String_List_Access is
135 return Archive_Indexer_Options_Ptr.all;
136 end Archive_Indexer_Options;
138 -------------------------------------
139 -- Archive_Indexer_Options_Default --
140 -------------------------------------
142 function Archive_Indexer_Options_Default return String_List_Access is
144 return new String_List (1 .. 0);
145 end Archive_Indexer_Options_Default;
147 ---------------------------
148 -- Build_Dynamic_Library --
149 ---------------------------
151 procedure Build_Dynamic_Library
152 (Ofiles : Argument_List;
153 Options : Argument_List;
154 Interfaces : Argument_List;
155 Lib_Filename : String;
157 Symbol_Data : Symbol_Record;
158 Driver_Name : Name_Id := No_Name;
159 Lib_Version : String := "";
160 Auto_Init : Boolean := False)
163 Build_Dynamic_Library_Ptr
173 end Build_Dynamic_Library;
175 ------------------------------
176 -- Default_Symbol_File_Name --
177 ------------------------------
179 function Default_Symbol_File_Name return String is
181 return Default_Symbol_File_Name_Ptr.all;
182 end Default_Symbol_File_Name;
184 --------------------------------------
185 -- Default_Symbol_File_Name_Default --
186 --------------------------------------
188 function Default_Symbol_File_Name_Default return String is
191 end Default_Symbol_File_Name_Default;
197 function DLL_Ext return String is
199 return DLL_Ext_Ptr.all;
202 ---------------------
203 -- DLL_Ext_Default --
204 ---------------------
206 function DLL_Ext_Default return String is
215 function DLL_Prefix return String is
217 return DLL_Prefix_Ptr.all;
220 ------------------------
221 -- DLL_Prefix_Default --
222 ------------------------
224 function DLL_Prefix_Default return String is
227 end DLL_Prefix_Default;
233 function Dynamic_Option return String is
235 return Dynamic_Option_Ptr.all;
238 ----------------------------
239 -- Dynamic_Option_Default --
240 ----------------------------
242 function Dynamic_Option_Default return String is
245 end Dynamic_Option_Default;
251 function Is_Object_Ext (Ext : String) return Boolean is
253 return Is_Object_Ext_Ptr (Ext);
256 ---------------------------
257 -- Is_Object_Ext_Default --
258 ---------------------------
260 function Is_Object_Ext_Default (Ext : String) return Boolean is
263 end Is_Object_Ext_Default;
269 function Is_C_Ext (Ext : String) return Boolean is
271 return Is_C_Ext_Ptr (Ext);
274 ----------------------
275 -- Is_C_Ext_Default --
276 ----------------------
278 function Is_C_Ext_Default (Ext : String) return Boolean is
281 end Is_C_Ext_Default;
287 function Is_Archive_Ext (Ext : String) return Boolean is
289 return Is_Archive_Ext_Ptr (Ext);
292 ----------------------------
293 -- Is_Archive_Ext_Default --
294 ----------------------------
296 function Is_Archive_Ext_Default (Ext : String) return Boolean is
299 end Is_Archive_Ext_Default;
305 function Libgnat return String is
307 return Libgnat_Ptr.all;
310 ---------------------
311 -- Libgnat_Default --
312 ---------------------
314 function Libgnat_Default return String is
319 ------------------------
320 -- Library_Exists_For --
321 ------------------------
323 function Library_Exists_For
324 (Project : Project_Id; In_Tree : Project_Tree_Ref) return Boolean
327 return Library_Exists_For_Ptr (Project, In_Tree);
328 end Library_Exists_For;
330 --------------------------------
331 -- Library_Exists_For_Default --
332 --------------------------------
334 function Library_Exists_For_Default
335 (Project : Project_Id; In_Tree : Project_Tree_Ref) return Boolean
338 if not In_Tree.Projects.Table (Project).Library then
339 Prj.Com.Fail ("INTERNAL ERROR: Library_Exists_For called " &
340 "for non library project");
345 Lib_Dir : constant String :=
347 (In_Tree.Projects.Table (Project).Library_Dir);
348 Lib_Name : constant String :=
350 (In_Tree.Projects.Table (Project).Library_Name);
353 if In_Tree.Projects.Table (Project).Library_Kind = Static then
354 return Is_Regular_File
355 (Lib_Dir & Directory_Separator & "lib" &
356 Fil.Append_To (Lib_Name, Archive_Ext));
359 return Is_Regular_File
360 (Lib_Dir & Directory_Separator & DLL_Prefix &
361 Fil.Append_To (Lib_Name, DLL_Ext));
365 end Library_Exists_For_Default;
367 ---------------------------
368 -- Library_File_Name_For --
369 ---------------------------
371 function Library_File_Name_For
372 (Project : Project_Id;
373 In_Tree : Project_Tree_Ref) return File_Name_Type
376 return Library_File_Name_For_Ptr (Project, In_Tree);
377 end Library_File_Name_For;
379 -----------------------------------
380 -- Library_File_Name_For_Default --
381 -----------------------------------
383 function Library_File_Name_For_Default
384 (Project : Project_Id;
385 In_Tree : Project_Tree_Ref) return File_Name_Type
388 if not In_Tree.Projects.Table (Project).Library then
389 Prj.Com.Fail ("INTERNAL ERROR: Library_File_Name_For called " &
390 "for non library project");
395 Lib_Name : constant String :=
397 (In_Tree.Projects.Table (Project).Library_Name);
400 if In_Tree.Projects.Table (Project).Library_Kind =
404 Name_Buffer (1 .. Name_Len) := "lib";
405 Add_Str_To_Name_Buffer (Fil.Append_To (Lib_Name, Archive_Ext));
408 Add_Str_To_Name_Buffer (DLL_Prefix);
409 Add_Str_To_Name_Buffer (Fil.Append_To (Lib_Name, DLL_Ext));
415 end Library_File_Name_For_Default;
417 --------------------------------------
418 -- Library_Major_Minor_Id_Supported --
419 --------------------------------------
421 function Library_Major_Minor_Id_Supported return Boolean is
423 return Library_Major_Minor_Id_Supported_Ptr.all;
424 end Library_Major_Minor_Id_Supported;
426 ----------------------------------------------
427 -- Library_Major_Minor_Id_Supported_Default --
428 ----------------------------------------------
430 function Library_Major_Minor_Id_Supported_Default return Boolean is
433 end Library_Major_Minor_Id_Supported_Default;
439 function Object_Ext return String is
441 return Object_Ext_Ptr.all;
444 ------------------------
445 -- Object_Ext_Default --
446 ------------------------
448 function Object_Ext_Default return String is
451 end Object_Ext_Default;
457 function PIC_Option return String is
459 return PIC_Option_Ptr.all;
462 ------------------------
463 -- PIC_Option_Default --
464 ------------------------
466 function PIC_Option_Default return String is
469 end PIC_Option_Default;
471 -----------------------------------------------
472 -- Standalone_Library_Auto_Init_Is_Supported --
473 -----------------------------------------------
475 function Standalone_Library_Auto_Init_Is_Supported return Boolean is
477 return Standalone_Library_Auto_Init_Is_Supported_Ptr.all;
478 end Standalone_Library_Auto_Init_Is_Supported;
480 -------------------------------------------------------
481 -- Standalone_Library_Auto_Init_Is_Supported_Default --
482 -------------------------------------------------------
484 function Standalone_Library_Auto_Init_Is_Supported_Default return Boolean is
487 end Standalone_Library_Auto_Init_Is_Supported_Default;
489 ---------------------------
490 -- Support_For_Libraries --
491 ---------------------------
493 function Support_For_Libraries return Library_Support is
495 return Support_For_Libraries_Ptr.all;
496 end Support_For_Libraries;
498 -----------------------------------
499 -- Support_For_Libraries_Default --
500 -----------------------------------
502 function Support_For_Libraries_Default return Library_Support is
505 end Support_For_Libraries_Default;