Commit 49a6ebca authored by TASTE User's avatar TASTE User

Put on hold the new AST creation

parent 5c188499
......@@ -1467,6 +1467,7 @@ procedure BuildSupport is
IV_Root : Node_Id;
AST : Complete_Interface_View;
pragma Unreferenced (AST);
begin
Banner;
......@@ -1483,11 +1484,11 @@ begin
Get_String_Name ("interfaceview.others");
IV_Root := Root_System (Instantiate_Model (Root => Interface_Root));
AST := AADL_to_Ada_IV (IV_Root);
for each of AST.Flat_Functions loop
Put_Line ("AST: " & To_String (Each.Prefix.Value_Or (US ("")))
& " " & To_String (Each.Name));
end loop;
-- AST := AADL_to_Ada_IV (IV_Root);
-- for each of AST.Flat_Functions loop
-- Put_Line ("AST: " & To_String (Each.Prefix.Value_Or (US ("")))
-- & " " & To_String (Each.Name));
-- end loop;
Process_Interface_View (IV_Root);
-- (Root_System (Instantiate_Model (Root => Interface_Root)));
......
with "ocarina";
with "templates_parser"; -- from libtemplates-parser11.10.1-dev
-- with "templates_parser"; -- from libtemplates-parser11.10.1-dev
project BuildSupport is
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment