Commit 9cc8a70e authored by Maxime Perrotin's avatar Maxime Perrotin

Get properly the program directory

parent c87b811b
......@@ -3,11 +3,10 @@
-- LGPL license, see LICENSE file
with Ada.Text_IO,
Ada.Command_Line,
GNAT.Directory_Operations,
GNAT.OS_Lib,
GNAT.Command_Line,
Templates_Parser,
Templates_Parser.Utils,
Ocarina.AADL_Values,
Ocarina.Configuration,
Ocarina.FE_AADL.Parser,
......@@ -18,10 +17,10 @@ with Ada.Text_IO,
package body TASTE.Parser_Utils is
use Ada.Text_IO,
GNAT.Directory_Operations,
GNAT.OS_Lib,
GNAT.Command_Line,
Templates_Parser,
Templates_Parser.Utils,
Ocarina.Instances.Queries,
Ocarina.ME_AADL,
TASTE.Templates;
......@@ -42,8 +41,7 @@ package body TASTE.Parser_Utils is
procedure Parse_Command_Line (Result : out Taste_Configuration) is
Config : Command_Line_Configuration;
begin
Result.Binary_Path :=
new String'(Dir_Name (Ada.Command_Line.Command_Name));
Result.Binary_Path := new String'(Get_Program_Directory);
Define_Switch (Config, Output => Result.Interface_View'Access,
Switch => "-i:", Long_Switch => "--interfaceview=",
Help => "Mandatory interface view (AADL model)",
......
package TASTE.Parser_Version is
Parser_Release : constant String :=
"539e376 ; Commit Date: Wed Jan 3 18:21:39 2018 ";
"c87b811 ; Commit Date: Wed Jan 3 20:39:51 2018 ";
Ocarina_Version : constant String :=
"Ocarina 2017.x (Working Copy from rd078c54)";
end TASTE.Parser_Version;
\ No newline at end of file
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