diff options
Diffstat (limited to 'gcc/ada/prj-pp.ads')
-rw-r--r-- | gcc/ada/prj-pp.ads | 22 |
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 |