Commit 3ddd55de authored by Jerome Hugues's avatar Jerome Hugues

* On_Generate: return value based on the number of errors

          spotted during backend execution
parent 10d3c22a
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2014-2015 ESA & ISAE. -- -- Copyright (C) 2014-2016 ESA & ISAE. --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify under -- -- Ocarina is free software; you can redistribute it and/or modify under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -242,6 +242,7 @@ package body Ocarina.Python_Cmd is ...@@ -242,6 +242,7 @@ package body Ocarina.Python_Cmd is
pragma Unreferenced (Command); pragma Unreferenced (Command);
begin begin
Ocarina.Utils.Generate (Nth_Arg (Data, 1, "")); Ocarina.Utils.Generate (Nth_Arg (Data, 1, ""));
Set_Return_Value (Data, Errors.N_Errors = 0);
end On_Generate; end On_Generate;
--------------------- ---------------------
...@@ -444,8 +445,6 @@ package body Ocarina.Python_Cmd is ...@@ -444,8 +445,6 @@ package body Ocarina.Python_Cmd is
-- On_Get_Property_Sets -- -- On_Get_Property_Sets --
-------------------------- --------------------------
-- procedure Get_PropertyBinding return Node_List;
procedure On_Get_Property_Sets procedure On_Get_Property_Sets
(Data : in out Callback_Data'Class; Command : String); (Data : in out Callback_Data'Class; Command : String);
......
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