Commit c048d372 authored by Michael Siegel's avatar Michael Siegel 👔
Browse files

Remove any leading path from `Invocation_Name`

parent 4e1cb322
......@@ -23,11 +23,12 @@
with Ada.Command_Line; use Ada.Command_Line;
with Ada.Containers.Indefinite_Vectors;
with Ada.Directories; use Ada.Directories;
with Ada.Text_IO; use Ada.Text_IO;
procedure Mote is
Program_Name : constant String := "mote";
Invocation_Name : constant String := Command_Name; -- Cut `*/`.
Invocation_Name : constant String := Base_Name(Command_Name);
Program_Version : constant String := "0.28.0";
procedure Show_Help is
......@@ -65,5 +66,7 @@ procedure Mote is
Put_Line(Program_Name & " " & Program_Version);
end Show_Version;
begin
null;
Show_Version;
Show_Help;
-- null;
end Mote;
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