Other files ignored by Codecov
tests/github/issue_282/test.aadl
is new.
tests/MANIFEST
has changed.
7 | 7 | -- B o d y -- |
|
8 | 8 | -- -- |
|
9 | 9 | -- Copyright (C) 2008-2009 Telecom ParisTech, -- |
|
10 | + | -- 2010-2019 ESA & ISAE, 2019-2021 OpenAADL -- |
|
10 | 11 | -- -- |
|
11 | 12 | -- Ocarina is free software; you can redistribute it and/or modify under -- |
|
12 | 13 | -- terms of the GNU General Public License as published by the Free Soft- -- |
725 | 725 | Scan_Token; |
|
726 | 726 | ||
727 | 727 | if Token = T_List then |
|
728 | - | Is_A_List := True; |
|
729 | - | Multiplicity := 1; |
|
728 | + | Is_A_List := True; |
|
730 | 729 | ||
731 | - | Save_Lexer (Loc); |
|
732 | - | Scan_Token; |
|
730 | + | loop |
|
731 | + | -- Parse nested "list of" |
|
732 | + | Multiplicity := Multiplicity + 1; |
|
733 | 733 | ||
734 | - | if Token = T_Of then |
|
734 | + | Save_Lexer (Loc); |
|
735 | 735 | Scan_Token; |
|
736 | - | if Token /= T_List then |
|
737 | - | Restore_Lexer (Loc); |
|
736 | + | if Token = T_Of then |
|
737 | + | Scan_Token; |
|
738 | + | if Token /= T_List then |
|
739 | + | Restore_Lexer (Loc); |
|
740 | + | exit; |
|
741 | + | end if; |
|
738 | 742 | else |
|
739 | - | Multiplicity := 2; -- XXX shall we iterate? BNF says yes |
|
743 | + | Restore_Lexer (Loc); |
|
744 | + | exit; |
|
740 | 745 | end if; |
|
741 | - | else |
|
742 | - | Restore_Lexer (Loc); |
|
743 | - | end if; |
|
746 | + | end loop; |
|
744 | 747 | ||
748 | + | -- Current token has be to "list" for P_Multi_Valued_Property |
|
745 | 749 | Property_Definition_Value := P_Multi_Valued_Property; |
|
746 | 750 | Single_Default_Value := No_Node; |
|
747 | 751 |
Files | Coverage |
---|---|
src | 70.54% |
Project Totals (369 files) | 70.54% |