1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT COMPILER COMPONENTS                         --
4--                                                                          --
5--                     M L I B . T G T. S P E C I F I C                     --
6--                                                                          --
7--                                 B o d y                                  --
8--                                                                          --
9--          Copyright (C) 2003-2011, Free Software Foundation, Inc.         --
10--                                                                          --
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.          --
20--                                                                          --
21-- GNAT was originally developed  by the GNAT team at  New York University. --
22-- Extensive contributions were provided by Ada Core Technologies Inc.      --
23--                                                                          --
24------------------------------------------------------------------------------
25
26--  This is the bare board version of the body
27
28with Sdefault;
29with Types; use Types;
30
31package body MLib.Tgt.Specific is
32
33   -----------------------
34   -- Local Subprograms --
35   -----------------------
36
37   function Get_Target_Prefix return String;
38   --  Returns the required prefix for some utilities
39   --  (such as ar and ranlib) that depend on the real target.
40
41   --  Non default subprograms
42
43   function Archive_Builder return String;
44
45   function Archive_Indexer return String;
46
47   procedure Build_Dynamic_Library
48     (Ofiles       : Argument_List;
49      Options      : Argument_List;
50      Interfaces   : Argument_List;
51      Lib_Filename : String;
52      Lib_Dir      : String;
53      Symbol_Data  : Symbol_Record;
54      Driver_Name  : Name_Id := No_Name;
55      Lib_Version  : String  := "";
56      Auto_Init    : Boolean := False);
57
58   function DLL_Ext return String;
59
60   function Dynamic_Option return String;
61
62   function Library_Major_Minor_Id_Supported return Boolean;
63
64   function PIC_Option return String;
65
66   function Standalone_Library_Auto_Init_Is_Supported return Boolean;
67
68   function Support_For_Libraries return Library_Support;
69
70   ---------------------
71   -- Archive_Builder --
72   ---------------------
73
74   function Archive_Builder return String is
75   begin
76      return Get_Target_Prefix & "ar";
77   end Archive_Builder;
78
79   ---------------------
80   -- Archive_Indexer --
81   ---------------------
82
83   function Archive_Indexer return String is
84   begin
85      return Get_Target_Prefix & "ranlib";
86   end Archive_Indexer;
87
88   ---------------------------
89   -- Build_Dynamic_Library --
90   ---------------------------
91
92   procedure Build_Dynamic_Library
93     (Ofiles       : Argument_List;
94      Options      : Argument_List;
95      Interfaces   : Argument_List;
96      Lib_Filename : String;
97      Lib_Dir      : String;
98      Symbol_Data  : Symbol_Record;
99      Driver_Name  : Name_Id := No_Name;
100      Lib_Version  : String  := "";
101      Auto_Init    : Boolean := False)
102   is
103      pragma Unreferenced (Ofiles);
104      pragma Unreferenced (Options);
105      pragma Unreferenced (Interfaces);
106      pragma Unreferenced (Lib_Filename);
107      pragma Unreferenced (Lib_Dir);
108      pragma Unreferenced (Symbol_Data);
109      pragma Unreferenced (Driver_Name);
110      pragma Unreferenced (Lib_Version);
111      pragma Unreferenced (Auto_Init);
112
113   begin
114      null;
115   end Build_Dynamic_Library;
116
117   -------------
118   -- DLL_Ext --
119   -------------
120
121   function DLL_Ext return String is
122   begin
123      return "";
124   end DLL_Ext;
125
126   --------------------
127   -- Dynamic_Option --
128   --------------------
129
130   function Dynamic_Option return String is
131   begin
132      return "";
133   end Dynamic_Option;
134
135   -----------------------
136   -- Get_Target_Prefix --
137   -----------------------
138
139   function Get_Target_Prefix return String is
140      Target_Name : constant String_Ptr := Sdefault.Target_Name;
141
142   begin
143      --  Target_name is the program prefix without '-' but with a trailing '/'
144
145      return Target_Name (Target_Name'First .. Target_Name'Last - 1) & '-';
146   end Get_Target_Prefix;
147
148   --------------------------------------
149   -- Library_Major_Minor_Id_Supported --
150   --------------------------------------
151
152   function Library_Major_Minor_Id_Supported return Boolean is
153   begin
154      return False;
155   end Library_Major_Minor_Id_Supported;
156
157   ----------------
158   -- PIC_Option --
159   ----------------
160
161   function PIC_Option return String is
162   begin
163      return "";
164   end PIC_Option;
165
166   -----------------------------------------------
167   -- Standalone_Library_Auto_Init_Is_Supported --
168   -----------------------------------------------
169
170   function Standalone_Library_Auto_Init_Is_Supported return Boolean is
171   begin
172      return False;
173   end Standalone_Library_Auto_Init_Is_Supported;
174
175   ---------------------------
176   -- Support_For_Libraries --
177   ---------------------------
178
179   function Support_For_Libraries return Library_Support is
180   begin
181      return Static_Only;
182   end Support_For_Libraries;
183
184begin
185   Archive_Builder_Ptr := Archive_Builder'Access;
186   Archive_Indexer_Ptr := Archive_Indexer'Access;
187   Build_Dynamic_Library_Ptr := Build_Dynamic_Library'Access;
188   DLL_Ext_Ptr := DLL_Ext'Access;
189   Dynamic_Option_Ptr := Dynamic_Option'Access;
190   Library_Major_Minor_Id_Supported_Ptr :=
191                                Library_Major_Minor_Id_Supported'Access;
192   PIC_Option_Ptr := PIC_Option'Access;
193   Standalone_Library_Auto_Init_Is_Supported_Ptr :=
194     Standalone_Library_Auto_Init_Is_Supported'Access;
195   Support_For_Libraries_Ptr := Support_For_Libraries'Access;
196end MLib.Tgt.Specific;
197