OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Complete previous check-in: add Style_Check_Xtra_Parens. 

From-SVN: r91289
This commit is contained in:
Arnaud Charlet 2004-11-25 14:07:56 +01:00
parent bef638f4d4
commit 62b6316473
1 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
gcc/ada/stylesw.adb
View File

@ -46,12 +46,13 @@ package body Stylesw is
Style_Check_Layout := False;
Style_Check_Max_Line_Length := False;
Style_Check_Max_Nesting_Level := False;
Style_Check_Order_Subprograms := False;
Style_Check_Pragma_Casing := False;
Style_Check_References := False;
Style_Check_Specs := False;
Style_Check_Standard := False;
Style_Check_Order_Subprograms := False;
Style_Check_Tokens := False;
Style_Check_Xtra_Parens := False;
end Reset_Style_Check_Options;
------------------------------
@ -118,6 +119,7 @@ package body Stylesw is
Add ('r', Style_Check_References);
Add ('s', Style_Check_Specs);
Add ('t', Style_Check_Tokens);
Add ('x', Style_Check_Xtra_Parens);
if Style_Check_Max_Line_Length then
P := P + 1;
@ -184,31 +186,31 @@ package body Stylesw is
:= Character'Pos (C) - Character'Pos ('0');
when 'a' =>
Style_Check_Attribute_Casing := True;
Style_Check_Attribute_Casing := True;
when 'b' =>
Style_Check_Blanks_At_End := True;
Style_Check_Blanks_At_End := True;
when 'c' =>
Style_Check_Comments := True;
Style_Check_Comments := True;
when 'e' =>
Style_Check_End_Labels := True;
Style_Check_End_Labels := True;
when 'f' =>
Style_Check_Form_Feeds := True;
Style_Check_Form_Feeds := True;
when 'h' =>
Style_Check_Horizontal_Tabs := True;
Style_Check_Horizontal_Tabs := True;
when 'i' =>
Style_Check_If_Then_Layout := True;
Style_Check_If_Then_Layout := True;
when 'k' =>
Style_Check_Keyword_Casing := True;
Style_Check_Keyword_Casing := True;
when 'l' =>
Style_Check_Layout := True;
Style_Check_Layout := True;
when 'L' =>
Style_Max_Nesting_Level := 0;
@ -240,11 +242,11 @@ package body Stylesw is
Style_Check_Max_Nesting_Level := Style_Max_Nesting_Level /= 0;
when 'm' =>
Style_Check_Max_Line_Length := True;
Style_Max_Line_Length := 79;
Style_Check_Max_Line_Length := True;
Style_Max_Line_Length := 79;
when 'n' =>
Style_Check_Standard := True;
Style_Check_Standard := True;
when 'N' =>
Reset_Style_Check_Options;
@ -276,7 +278,7 @@ package body Stylesw is
or else Options (J) not in '0' .. '9';
end loop;
Style_Check_Max_Line_Length := Style_Max_Line_Length /= 0;
Style_Check_Max_Line_Length := Style_Max_Line_Length /= 0;
when 'o' =>
Style_Check_Order_Subprograms := True;
@ -293,6 +295,9 @@ package body Stylesw is
when 't' =>
Style_Check_Tokens := True;
when 'x' =>
Style_Check_Xtra_Parens := True;
when ' ' =>
null;