1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
6 -- (Default Version) --
10 -- Copyright (C) 2001-2005, Ada Core Technologies, Inc. --
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, 59 Temple Place - Suite 330, Boston, --
21 -- MA 02111-1307, 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 Dynamic_Option return String is
136 function Is_Object_Ext (Ext : String) return Boolean is
137 pragma Unreferenced (Ext);
146 function Is_C_Ext (Ext : String) return Boolean is
147 pragma Unreferenced (Ext);
156 function Is_Archive_Ext (Ext : String) return Boolean is
157 pragma Unreferenced (Ext);
166 function Libgnat return String is
171 ------------------------
172 -- Library_Exists_For --
173 ------------------------
175 function Library_Exists_For
176 (Project : Project_Id; In_Tree : Project_Tree_Ref) return Boolean
178 pragma Unreferenced (Project);
179 pragma Unreferenced (In_Tree);
182 end Library_Exists_For;
184 ---------------------------
185 -- Library_File_Name_For --
186 ---------------------------
188 function Library_File_Name_For
189 (Project : Project_Id;
190 In_Tree : Project_Tree_Ref) return Name_Id
192 pragma Unreferenced (Project);
193 pragma Unreferenced (In_Tree);
196 end Library_File_Name_For;
202 function Object_Ext return String is
211 function PIC_Option return String is
216 -----------------------------------------------
217 -- Standalone_Library_Auto_Init_Is_Supported --
218 -----------------------------------------------
220 function Standalone_Library_Auto_Init_Is_Supported return Boolean is
223 end Standalone_Library_Auto_Init_Is_Supported;
225 ---------------------------
226 -- Support_For_Libraries --
227 ---------------------------
229 function Support_For_Libraries return Library_Support is
232 end Support_For_Libraries;