Complete previous check-in: add Style_Check_Xtra_Parens.
From-SVN: r91289
This commit is contained in:
parent
bef638f4d4
commit
62b6316473
|
@ -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;
|
||||
|
||||
|
|
Loading…
Reference in New Issue