diff options
Diffstat (limited to 'gcc-4.4.3/gcc/ada/mlib-fil.adb')
-rw-r--r-- | gcc-4.4.3/gcc/ada/mlib-fil.adb | 149 |
1 files changed, 0 insertions, 149 deletions
diff --git a/gcc-4.4.3/gcc/ada/mlib-fil.adb b/gcc-4.4.3/gcc/ada/mlib-fil.adb deleted file mode 100644 index 8632ef3ca..000000000 --- a/gcc-4.4.3/gcc/ada/mlib-fil.adb +++ /dev/null @@ -1,149 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT COMPILER COMPONENTS -- --- -- --- M L I B . F I L -- --- -- --- B o d y -- --- -- --- Copyright (C) 2001-2007, AdaCore -- --- -- --- 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 3, 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 COPYING3. If not, go to -- --- http://www.gnu.org/licenses for a complete copy of the license. -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - --- This package provides a set of routines to deal with file extensions - -with Ada.Strings.Fixed; -with MLib.Tgt; - -package body MLib.Fil is - - use Ada; - - package Target renames MLib.Tgt; - - --------------- - -- Append_To -- - --------------- - - function Append_To - (Filename : String; - Ext : String) return String - is - begin - if Ext'Length = 0 then - return Filename; - - elsif Filename (Filename'Last) = '.' then - if Ext (Ext'First) = '.' then - return Filename & Ext (Ext'First + 1 .. Ext'Last); - - else - return Filename & Ext; - end if; - - else - if Ext (Ext'First) = '.' then - return Filename & Ext; - - else - return Filename & '.' & Ext; - end if; - end if; - end Append_To; - - ------------ - -- Ext_To -- - ------------ - - function Ext_To - (Filename : String; - New_Ext : String := "") return String - is - use Strings.Fixed; - - J : constant Natural := - Index (Source => Filename, - Pattern => ".", - Going => Strings.Backward); - - begin - if J = 0 then - if New_Ext = "" then - return Filename; - else - return Filename & "." & New_Ext; - end if; - - else - if New_Ext = "" then - return Head (Filename, J - 1); - else - return Head (Filename, J - 1) & '.' & New_Ext; - end if; - end if; - end Ext_To; - - ------------- - -- Get_Ext -- - ------------- - - function Get_Ext (Filename : String) return String is - use Strings.Fixed; - - J : constant Natural := - Index (Source => Filename, - Pattern => ".", - Going => Strings.Backward); - - begin - if J = 0 then - return ""; - else - return Filename (J .. Filename'Last); - end if; - end Get_Ext; - - ---------------- - -- Is_Archive -- - ---------------- - - function Is_Archive (Filename : String) return Boolean is - Ext : constant String := Get_Ext (Filename); - begin - return Target.Is_Archive_Ext (Ext); - end Is_Archive; - - ---------- - -- Is_C -- - ---------- - - function Is_C (Filename : String) return Boolean is - Ext : constant String := Get_Ext (Filename); - begin - return Target.Is_C_Ext (Ext); - end Is_C; - - ------------ - -- Is_Obj -- - ------------ - - function Is_Obj (Filename : String) return Boolean is - Ext : constant String := Get_Ext (Filename); - begin - return Target.Is_Object_Ext (Ext); - end Is_Obj; - -end MLib.Fil; |