From 7ffcf4d622e4f9608574033c328cba1f7f7c9ca5 Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Sun, 5 Apr 2015 22:26:57 +0600 Subject: Build scripts revamp. --- src/config.ads.in | 8 ++++++++ src/hvinfo_util.adb | 2 +- src/hvinfo_util.ads | 2 ++ 3 files changed, 11 insertions(+), 1 deletion(-) create mode 100644 src/config.ads.in (limited to 'src') 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 "); 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; -- cgit v1.2.3