Commit 92bfc900 authored by Michael Siegel's avatar Michael Siegel 👔
Browse files

Port global constants and `_show_version`

parent 45b1cbda
......@@ -3,7 +3,7 @@
--
-- a ____ to facilitate random note-taking -- rewrite…
--
-- Version 0.0.1-ada
-- Version 0.1.0-ada
--
--
-- Copyright 2021 Michael Siegel
......@@ -19,3 +19,22 @@
-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
-- OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
-- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
--
with Ada.Command_Line; use Ada.Command_Line;
with Ada.Text_IO; use Ada.Text_IO;
procedure Mote is
Program_Name : constant String := "mote";
Invocation_Name : constant String := Command_Name; -- Cut `*/`.
Program_Version : constant String := "0.1.0-ada";
Help_Tip : constant String
:= "Run '" & Invocation_Name & " help' for help.";
procedure Show_Version is
begin
Put_Line(Program_Name & " " & Program_Version);
end Show_Version;
begin
Show_Version;
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