aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.8.3/gcc/ada/mlib-fil.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.8.3/gcc/ada/mlib-fil.adb')
-rw-r--r--gcc-4.8.3/gcc/ada/mlib-fil.adb149
1 files changed, 149 insertions, 0 deletions
diff --git a/gcc-4.8.3/gcc/ada/mlib-fil.adb b/gcc-4.8.3/gcc/ada/mlib-fil.adb
new file mode 100644
index 000000000..8632ef3ca
--- /dev/null
+++ b/gcc-4.8.3/gcc/ada/mlib-fil.adb
@@ -0,0 +1,149 @@
+------------------------------------------------------------------------------
+-- --
+-- 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;