Commit 27fc9af7 authored by yoogx's avatar yoogx

* Separate script engine from main function, minor reorganization

parent b61d04dc
This diff is collapsed.
package Ocarina.Scripts is
procedure Ocarina_Shell;
-- Launch Ocarina interactive mode
Standard_Input : Boolean := True;
end Ocarina.Scripts;
with Output; use Output;
with Ocarina.Configuration; use Ocarina.Configuration;
package body Ocarina.Utils is
-------------
-- Version --
-------------
procedure Version is
begin
Write_Line
("Ocarina " & Ocarina_Version
& " (" & Ocarina_SVN_Revision & ")");
if Ocarina_Last_Configure_Date /= "" then
Write_Line ("Build date: " & Ocarina_Last_Configure_Date);
end if;
Write_Line
("Copyright (c) 2003-2009 Telecom ParisTech, 2010-"
& Ocarina_Last_Configure_Year & " ESA & ISAE");
end Version;
end Ocarina.Utils;
package Ocarina.Utils is
procedure Version;
-- Display version information
end Ocarina.Utils;
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