1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
6 -- (Default Version) --
10 -- Copyright (C) 2001-2005, AdaCore --
12 -- GNAT is free software; you can redistribute it and/or modify it under --
13 -- terms of the GNU General Public License as published by the Free Soft- --
14 -- ware Foundation; either version 2, or (at your option) any later ver- --
15 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
16 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
17 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
18 -- for more details. You should have received a copy of the GNU General --
19 -- Public License distributed with GNAT; see file COPYING. If not, write --
20 -- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
21 -- Boston, MA 02110-1301, USA. --
23 -- GNAT was originally developed by the GNAT team at New York University. --
24 -- Extensive contributions were provided by Ada Core Technologies Inc. --
26 ------------------------------------------------------------------------------
28 -- This is the default version which does not support libraries.
29 -- All subprograms are dummies, because they are never called,
30 -- except Support_For_Libraries which returns None.
32 package body MLib.Tgt is
38 function Archive_Builder return String is
43 -----------------------------
44 -- Archive_Builder_Options --
45 -----------------------------
47 function Archive_Builder_Options return String_List_Access is
49 return new String_List'(1 => new String'("cr"));
50 end Archive_Builder_Options;
56 function Archive_Ext return String is
65 function Archive_Indexer return String is
70 -----------------------------
71 -- Archive_Indexer_Options --
72 -----------------------------
74 function Archive_Indexer_Options return String_List_Access is
76 return new String_List (1 .. 0);
77 end Archive_Indexer_Options;
79 ---------------------------
80 -- Build_Dynamic_Library --
81 ---------------------------
83 procedure Build_Dynamic_Library
84 (Ofiles : Argument_List;
85 Foreign : Argument_List;
86 Afiles : Argument_List;
87 Options : Argument_List;
88 Options_2 : Argument_List;
89 Interfaces : Argument_List;
90 Lib_Filename : String;
92 Symbol_Data : Symbol_Record;
93 Driver_Name : Name_Id := No_Name;
94 Lib_Version : String := "";
95 Auto_Init : Boolean := False)
97 pragma Unreferenced (Ofiles);
98 pragma Unreferenced (Foreign);
99 pragma Unreferenced (Afiles);
100 pragma Unreferenced (Options);
101 pragma Unreferenced (Options_2);
102 pragma Unreferenced (Interfaces);
103 pragma Unreferenced (Lib_Filename);
104 pragma Unreferenced (Lib_Dir);
105 pragma Unreferenced (Symbol_Data);
106 pragma Unreferenced (Driver_Name);
107 pragma Unreferenced (Lib_Version);
108 pragma Unreferenced (Auto_Init);
112 end Build_Dynamic_Library;
118 function DLL_Ext return String is
127 function DLL_Prefix return String is
136 function Dynamic_Option return String is
145 function Is_Object_Ext (Ext : String) return Boolean is
146 pragma Unreferenced (Ext);
155 function Is_C_Ext (Ext : String) return Boolean is
156 pragma Unreferenced (Ext);
165 function Is_Archive_Ext (Ext : String) return Boolean is
166 pragma Unreferenced (Ext);
175 function Libgnat return String is
180 ------------------------
181 -- Library_Exists_For --
182 ------------------------
184 function Library_Exists_For
185 (Project : Project_Id; In_Tree : Project_Tree_Ref) return Boolean
187 pragma Unreferenced (Project);
188 pragma Unreferenced (In_Tree);
191 end Library_Exists_For;
193 ---------------------------
194 -- Library_File_Name_For --
195 ---------------------------
197 function Library_File_Name_For
198 (Project : Project_Id;
199 In_Tree : Project_Tree_Ref) return Name_Id
201 pragma Unreferenced (Project);
202 pragma Unreferenced (In_Tree);
205 end Library_File_Name_For;
211 function Object_Ext return String is
220 function PIC_Option return String is
225 -----------------------------------------------
226 -- Standalone_Library_Auto_Init_Is_Supported --
227 -----------------------------------------------
229 function Standalone_Library_Auto_Init_Is_Supported return Boolean is
232 end Standalone_Library_Auto_Init_Is_Supported;
234 ---------------------------
235 -- Support_For_Libraries --
236 ---------------------------
238 function Support_For_Libraries return Library_Support is
241 end Support_For_Libraries;