diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/config.ads.in | 8 | ||||
| -rw-r--r-- | src/hvinfo_util.adb | 2 | ||||
| -rw-r--r-- | src/hvinfo_util.ads | 2 |
3 files changed, 11 insertions, 1 deletions
diff --git a/src/config.ads.in b/src/config.ads.in new file mode 100644 index 0000000..386ad60 --- /dev/null +++ b/src/config.ads.in @@ -0,0 +1,8 @@ +package Config is + + Linux : constant Boolean := $LINUX; + FreeBSD : constant Boolean := $FREEBSD; + + Version : constant String := $VERSION; + +end Config; diff --git a/src/hvinfo_util.adb b/src/hvinfo_util.adb index daad56d..d4e3f20 100644 --- a/src/hvinfo_util.adb +++ b/src/hvinfo_util.adb @@ -11,7 +11,7 @@ package body HVInfo_Util is procedure Print_Version is begin - IO.Put_Line ("hvinfo 0.1"); + IO.Put_Line ("hvinfo " & Config.Version); IO.Put_Line ("Copyright 2015 Daniil Baturin <daniil@baturin.org>"); IO.Put_Line (""); IO.Put_Line ("This program is free software, distributed under the terms"); diff --git a/src/hvinfo_util.ads b/src/hvinfo_util.ads index d45667e..b2530e9 100644 --- a/src/hvinfo_util.ads +++ b/src/hvinfo_util.ads @@ -1,6 +1,8 @@ with Ada.Command_line; with Ada.Text_IO; +with Config; + package HVInfo_Util is package IO renames Ada.Text_IO; |
