diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-03-05 14:00:51 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-03-05 14:00:51 +0600 |
| commit | 257335197da3d6bb49d97515c82a5bb4a8fe1831 (patch) | |
| tree | 2c4a6475cbaa32188d766f03e8db6c5a6d3f1ff7 /src/hvinfo.adb | |
| parent | 4e6920f5a2b7b830e56a2b89c82a9e0c214f1d1a (diff) | |
| download | hvinfo-257335197da3d6bb49d97515c82a5bb4a8fe1831.tar.gz hvinfo-257335197da3d6bb49d97515c82a5bb4a8fe1831.zip | |
Initial import of barely working stuff.
Diffstat (limited to 'src/hvinfo.adb')
| -rw-r--r-- | src/hvinfo.adb | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/hvinfo.adb b/src/hvinfo.adb new file mode 100644 index 0000000..e87507e --- /dev/null +++ b/src/hvinfo.adb @@ -0,0 +1,13 @@ +with Interfaces; use Interfaces; +with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; +with Ada.Text_IO; use Ada.Text_IO; + +with Hypervisor_Check; use Hypervisor_Check; + +procedure HVInfo is +begin + + Put_Line (To_String (Get_Vendor_String)); + +end HVInfo; + |