Commit 32f88b85 authored by Michael Siegel's avatar Michael Siegel 👔
Browse files

Add some structuring comments to declarative region of main procedure

parent 46b1f3b9
......@@ -3,7 +3,7 @@
--
-- a ____ to facilitate random note-taking -- rewrite…
--
-- Version 0.28.5
-- Version 0.28.6
--
--
-- Copyright 2021 Michael Siegel
......@@ -33,9 +33,11 @@ with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
procedure Mote is
package Env_Vars renames Ada.Environment_Variables;
-------- GOBAL CONSTANTS --------
Program_Name : constant String := "mote";
Invocation_Name : constant String := Simple_Name(Command_Name);
Program_Version : constant String := "0.28.5";
Program_Version : constant String := "0.28.6";
Base_Dir : constant String := Env_Vars.Value("HOME") & "/.mote_R";
Data_Dir : constant String := Base_Dir & "/notes";
......@@ -44,6 +46,10 @@ procedure Mote is
-- Conf_File : constant String := Conf_Dir & "/mote.conf";
Next_ID_File : constant String := Base_Dir & "/next_id";
-------- GLOBAL PARAMETERS --------
-------- AUXILIARY SUBPROGRAMS --------
function Base36_To_Dec (Base36_String : String) return Natural is
Base36_Base : constant := 36;
Base36_Digits : constant String := "0123456789abcdefghijklmnopqrstuvwxyz";
......@@ -87,6 +93,8 @@ procedure Mote is
return To_String(Result);
end Dec_To_Base36;
-------- USER COMMANDS --------
procedure Show_Help is
-- Display help text
-- Provide per-command help text, depending on what sub-command was run,
......
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