@@ -7,7 +7,7 @@
Loading
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,23 +725,27 @@
Loading
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%
1
ignore:
2
  - "tools/mknodes"
3
  - "src/frontends/aadl_ema"
4
  - "src/frontends/ao4aadl"
5
  - "src/transfo"
6
  - "doc"
Sunburst
The inner-most circle is the entire project, moving away from the center are folders then, finally, a single file. The size and color of each slice is representing the number of statements and the coverage, respectively.
Icicle
The top section represents the entire project. Proceeding with folders and finally individual files. The size and color of each slice is representing the number of statements and the coverage, respectively.
Grid
Each block represents a single file in the project. The size and color of each block is represented by the number of statements and the coverage, respectively.
Loading