blob: 6b1dd4d3499854db87e59614e7e7ee8e94ffb0c9 [file] [log] [blame]
-- --
-- --
-- G N A T S Y M --
-- --
-- B o d y --
-- --
-- Copyright (C) 2003-2004 Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 2, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
-- for more details. You should have received a copy of the GNU General --
-- Public License distributed with GNAT; see file COPYING. If not, write --
-- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
-- MA 02111-1307, USA. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
-- This utility application creates symbol files in a format that is
-- platform-dependent.
-- A symbol file is a text file that lists the symbols to be exported from
-- a shared library. The format of a symbol file depends on the platform;
-- it may be a simple enumeration of the symbol (one per line) or a more
-- elaborate format (on VMS, for example). A symbol file may be used as an
-- input to the platform linker when building a shared library.
-- This utility is not available on all platforms. It is currently supported
-- only on OpenVMS.
-- gnatsym takes as parameters:
-- - the name of the symbol file to create
-- - (optional) the policy to create the symbol file
-- - (optional) the name of the reference symbol file
-- - the names of one or more object files where the symbols are found
with GNAT.Command_Line; use GNAT.Command_Line;
with GNAT.OS_Lib; use GNAT.OS_Lib;
with Gnatvsn; use Gnatvsn;
with Osint; use Osint;
with Output; use Output;
with Symbols; use Symbols;
with Table;
procedure Gnatsym is
Empty_String : aliased String := "";
Empty : constant String_Access := Empty_String'Unchecked_Access;
-- To initialize variables Reference and Version_String
Copyright_Displayed : Boolean := False;
-- A flag to prevent multiple display of the Copyright notice
Success : Boolean := True;
Symbol_Policy : Policy := Autonomous;
Verbose : Boolean := False;
-- True when -v switch is used
Quiet : Boolean := False;
-- True when -q switch is used
Symbol_File_Name : String_Access := null;
-- The name of the symbol file
Reference_Symbol_File_Name : String_Access := Empty;
-- The name of the reference symbol file
Version_String : String_Access := Empty;
-- The version of the library. Used on VMS.
package Object_Files is new Table.Table
(Table_Component_Type => String_Access,
Table_Index_Type => Natural,
Table_Low_Bound => 0,
Table_Initial => 10,
Table_Increment => 10,
Table_Name => "Gnatsymb.Object_Files");
-- A table to store the object file names
Object_File : Natural := 0;
-- An index to traverse the Object_Files table
procedure Display_Copyright;
-- Display Copyright notice
procedure Parse_Cmd_Line;
-- Parse the command line switches and file names
procedure Usage;
-- Display the usage
-- Display_Copyright --
procedure Display_Copyright is
if not Copyright_Displayed then
Write_Str ("GNATSYMB ");
Write_Str (Gnat_Version_String);
Write_Str (" Copyright 2003-2004 Free Software Foundation, Inc");
Copyright_Displayed := True;
end if;
end Display_Copyright;
-- Parse_Cmd_Line --
procedure Parse_Cmd_Line is
case GNAT.Command_Line.Getopt ("c C q r: s: v V:") is
when ASCII.NUL =>
when 'c' =>
Symbol_Policy := Compliant;
when 'C' =>
Symbol_Policy := Controlled;
when 'q' =>
Quiet := True;
when 'r' =>
Reference_Symbol_File_Name :=
new String'(GNAT.Command_Line.Parameter);
when 's' =>
Symbol_File_Name := new String'(GNAT.Command_Line.Parameter);
when 'v' =>
Verbose := True;
when 'V' =>
Version_String := new String'(GNAT.Command_Line.Parameter);
when others =>
Fail ("invalid switch: ", Full_Switch);
end case;
end loop;
-- Get the file names
S : constant String_Access :=
new String'(GNAT.Command_Line.Get_Argument);
exit when S'Length = 0;
Object_Files.Table (Object_Files.Last) := S;
end loop;
when Invalid_Switch =>
Fail ("invalid switch : ", Full_Switch);
end Parse_Cmd_Line;
-- Usage --
procedure Usage is
Write_Line ("gnatsym [options] object_file {object_file}");
Write_Line (" -c Compliant policy");
Write_Line (" -C Controlled policy");
Write_Line (" -q Quiet mode");
Write_Line (" -r<ref> Reference symbol file name");
Write_Line (" -s<sym> Symbol file name");
Write_Line (" -v Verbose mode");
Write_Line (" -V<ver> Version");
Write_Line ("Specifying a symbol file with -s<sym> is compulsory");
end Usage;
-- Start of processing of Gnatsym
-- Initialize Object_Files table
Object_Files.Set_Last (0);
-- Parse the command line
if Verbose then
end if;
-- If there is no symbol file or no object files on the command line,
-- display the usage and exit with an error status.
if Symbol_File_Name = null or else Object_Files.Last = 0 then
OS_Exit (1);
if Verbose then
Write_Str ("Initializing symbol file """);
Write_Str (Symbol_File_Name.all);
Write_Line ("""");
end if;
-- Initialize symbol file and, if specified, read reference file
(Symbol_File => Symbol_File_Name.all,
Reference => Reference_Symbol_File_Name.all,
Symbol_Policy => Symbol_Policy,
Quiet => Quiet,
Version => Version_String.all,
Success => Success);
-- Process the object files in order. Stop as soon as there is
-- something wrong.
Object_File := 0;
while Success and then Object_File < Object_Files.Last loop
Object_File := Object_File + 1;
if Verbose then
Write_Str ("Processing object file """);
Write_Str (Object_Files.Table (Object_File).all);
Write_Line ("""");
end if;
Process (Object_Files.Table (Object_File).all, Success);
end loop;
-- Finalize the object file
if Success then
if Verbose then
Write_Str ("Finalizing """);
Write_Str (Symbol_File_Name.all);
Write_Line ("""");
end if;
Finalize (Quiet, Success);
end if;
-- Fail if there was anything wrong
if not Success then
Fail ("unable to build symbol file");
end if;
end if;
end Gnatsym;