← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/gnat-gps/oneiric

« back to all changes in this revision

Viewing changes to tools/project_converter/convert-gpr.adb

  • Committer: Bazaar Package Importer
  • Author(s): Luca Falavigna
  • Date: 2008-08-18 12:35:49 UTC
  • mfrom: (10.1.1 squeeze)
  • Revision ID: james.westby@ubuntu.com-20080818123549-dp25qi8lg9f0x14t
Tags: 4.3~2008.08.09ubuntu1
Add lpia to supported architectures.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tools/project_converter/convert-gpr.adb
 
1
-----------------------------------------------------------------------
 
2
--                               G P S                               --
 
3
--                                                                   --
 
4
--                 Copyright (C) 2002-2008, AdaCore                  --
 
5
--                                                                   --
 
6
-- GPS is free  software;  you can redistribute it and/or modify  it --
 
7
-- under the terms of the GNU General Public License as published by --
 
8
-- the Free Software Foundation; either version 2 of the License, or --
 
9
-- (at your option) any later version.                               --
 
10
--                                                                   --
 
11
-- This program is  distributed in the hope that it will be  useful, --
 
12
-- but  WITHOUT ANY WARRANTY;  without even the  implied warranty of --
 
13
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --
 
14
-- General Public License for more details. You should have received --
 
15
-- a copy of the GNU General Public License along with this program; --
 
16
-- if not,  write to the  Free Software Foundation, Inc.,  59 Temple --
 
17
-- Place - Suite 330, Boston, MA 02111-1307, USA.                    --
 
18
-----------------------------------------------------------------------
 
19
 
1
20
with GNAT.IO;                   use GNAT.IO;
2
21
with Csets;                     use Csets;
3
22
with Prj;                       use Prj;
9
28
with Errout;                    use Errout;
10
29
with Namet;                     use Namet;
11
30
with Snames;                    use Snames;
12
 
with Types;                     use Types;
13
31
with GNAT.OS_Lib;               use GNAT.OS_Lib;
14
32
with GNAT.Directory_Operations; use GNAT.Directory_Operations;
15
33
with Ada.Command_Line;          use Ada.Command_Line;
 
34
with File_Utils;                use File_Utils;
16
35
 
17
36
package body Convert.Gpr is
18
37
 
58
77
         end loop;
59
78
 
60
79
         Put_Line (Prefix
61
 
                   & Format_Pathname (Path (Start .. Last - 1), UNIX) & '/');
 
80
                   & Name_As_Directory
 
81
                      (Format_Pathname (Path (Start .. Last - 1), UNIX)));
62
82
         Start := Last + 1;
63
83
      end loop;
64
84
   end Output_Path;
198
218
      Parse (Tree, Project, Gpr_Filename, Always_Errout_Finalize => True);
199
219
      Process (View_Tree, Project_View, Success,
200
220
               Project, Tree, Report_Error => null);
201
 
      Errout.Finalize;
 
221
      Errout.Finalize (True);
202
222
 
203
223
      if Success then
204
224
         declare
218
238
            Put_Line
219
239
              ("build_dir=" &
220
240
               Get_Name_String
221
 
                 (View_Tree.Projects.Table (Project_View).Exec_Directory));
 
241
                 (View_Tree.Projects.Table
 
242
                    (Project_View).Exec_Directory.Name));
222
243
            Put_Line ("comp_opt=-gnatQ -P" & Gpr_Filename);
223
244
            Put_Line ("make_cmd=" & Compiler & " ${comp_opt} ${main}");
224
245
            Put_Line ("comp_cmd=" & Compiler