mirror of
git://gcc.gnu.org/git/gcc.git
synced 2024-12-20 15:49:54 +08:00
d4deddd7e9
2005-11-14 Vincent Celier <celier@adacore.com> * switch.adb (Bad_Switch): New procedure (Scan_Nat, Scan_Pos): Directly call Osint.Fail with the appropriate message when in error. * switch.ads (Bad_Switch, Bad_Switch_Value, Missing_Switch_Value, Too_Many_Output_Files): Remove declarations, no longer used. (Scan_Nat): New parameter Switch (Scan_Pos): Ditto (Bad_Switch): New procedure * switch-b.adb (Scan_Binder_Switches): Replace "raise Bad_Switch;" with call to new procedure Bad_Switch. Call Scan_Pos and Scan_Natwith new parameter Switch. Replace "raise Too_Many_Output_Files;" with call to Osint.Fail. Do not handle any exception. From-SVN: r107011
92 lines
4.4 KiB
Ada
92 lines
4.4 KiB
Ada
------------------------------------------------------------------------------
|
|
-- --
|
|
-- GNAT COMPILER COMPONENTS --
|
|
-- --
|
|
-- S W I T C H --
|
|
-- --
|
|
-- S p e c --
|
|
-- --
|
|
-- Copyright (C) 1992-2005 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, 51 Franklin Street, Fifth Floor, --
|
|
-- Boston, MA 02110-1301, USA. --
|
|
-- --
|
|
-- GNAT was originally developed by the GNAT team at New York University. --
|
|
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
|
-- --
|
|
------------------------------------------------------------------------------
|
|
|
|
-- This package together with a child package appropriate to the client
|
|
-- tool scans switches. Note that the body of the appropraite Usage package
|
|
-- must be coordinated with the switches that are recognized by this package.
|
|
-- These Usage packages also act as the official documentation for the
|
|
-- switches that are recognized. In addition, package Debug documents
|
|
-- the otherwise undocumented debug switches that are also recognized.
|
|
|
|
with Types; use Types;
|
|
|
|
package Switch is
|
|
|
|
-- Note: The default switch character is indicated by Switch_Character,
|
|
-- but regardless of what it is, a hyphen is always allowed as an
|
|
-- (alternative) switch character.
|
|
|
|
-- Note: In GNAT, the case of switches is not significant if
|
|
-- Switches_Case_Sensitive is False. If this is the case, switch
|
|
-- characters, or letters appearing in the parameter to a switch, may be
|
|
-- either upper case or lower case.
|
|
|
|
-----------------
|
|
-- Subprograms --
|
|
-----------------
|
|
|
|
function Is_Switch (Switch_Chars : String) return Boolean;
|
|
-- Returns True iff Switch_Chars is at least two characters long,
|
|
-- and the first character indicates it is a switch.
|
|
|
|
function Is_Front_End_Switch (Switch_Chars : String) return Boolean;
|
|
-- Returns True iff Switch_Chars represents a front-end switch,
|
|
-- ie. it starts with -I or -gnat.
|
|
|
|
private
|
|
|
|
-- This section contains some common routines used by the tool dependent
|
|
-- child packages (there is one such child package for each tool that
|
|
-- uses Switches to scan switches - Compiler/gnatbind/gnatmake/.
|
|
|
|
Switch_Max_Value : constant := 999_999;
|
|
-- Maximum value permitted in switches that take a value
|
|
|
|
procedure Scan_Nat
|
|
(Switch_Chars : String;
|
|
Max : Integer;
|
|
Ptr : in out Integer;
|
|
Result : out Nat;
|
|
Switch : Character);
|
|
-- Scan natural integer parameter for switch. On entry, Ptr points
|
|
-- just past the switch character, on exit it points past the last
|
|
-- digit of the integer value.
|
|
|
|
procedure Scan_Pos
|
|
(Switch_Chars : String;
|
|
Max : Integer;
|
|
Ptr : in out Integer;
|
|
Result : out Pos;
|
|
Switch : Character);
|
|
-- Scan positive integer parameter for switch. On entry, Ptr points
|
|
-- just past the switch character, on exit it points past the last
|
|
-- digit of the integer value.
|
|
|
|
procedure Bad_Switch (Switch : Character);
|
|
-- Fail with an appropriate message when a switch is not recognized
|
|
|
|
end Switch;
|