summaryrefslogtreecommitdiff
path: root/gcc/ada/prj-pp.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/prj-pp.ads')
-rw-r--r--gcc/ada/prj-pp.ads22
1 files changed, 14 insertions, 8 deletions
diff --git a/gcc/ada/prj-pp.ads b/gcc/ada/prj-pp.ads
index ac6c03db326..85bbdeb82ec 100644
--- a/gcc/ada/prj-pp.ads
+++ b/gcc/ada/prj-pp.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2008, Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2010, 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- --
@@ -43,17 +43,21 @@ package Prj.PP is
type Write_Str_Ap is access procedure (S : String);
+ subtype Max_Length_Of_Line is Positive range 50 .. 255;
+
procedure Pretty_Print
(Project : Prj.Tree.Project_Node_Id;
In_Tree : Prj.Tree.Project_Node_Tree_Ref;
- Increment : Positive := 3;
- Eliminate_Empty_Case_Constructions : Boolean := False;
- Minimize_Empty_Lines : Boolean := False;
- W_Char : Write_Char_Ap := null;
- W_Eol : Write_Eol_Ap := null;
- W_Str : Write_Str_Ap := null;
+ Increment : Positive := 3;
+ Eliminate_Empty_Case_Constructions : Boolean := False;
+ Minimize_Empty_Lines : Boolean := False;
+ W_Char : Write_Char_Ap := null;
+ W_Eol : Write_Eol_Ap := null;
+ W_Str : Write_Str_Ap := null;
Backward_Compatibility : Boolean;
- Id : Prj.Project_Id := Prj.No_Project);
+ Id : Prj.Project_Id := Prj.No_Project;
+ Max_Line_Length : Max_Length_Of_Line :=
+ Max_Length_Of_Line'Last);
-- Output a project file, using either the default output routines, or the
-- ones specified by W_Char, W_Eol and W_Str.
--
@@ -77,6 +81,8 @@ package Prj.PP is
--
-- Id is used to compute the display name of the project including its
-- proper casing.
+ --
+ -- Max_Line_Length is the maximum line length in the project file.
private