Add a function that maps vendor strings to names.

Also, don't overuse global use clauses.

1 files changed, 8 insertions, 3 deletions

diff --git a/src/hypervisor_check.ads b/src/hypervisor_check.ads
index e69f9f5..dea832e 100644
--- a/src/hypervisor_check.ads
+++ b/src/hypervisor_check.ads
@@ -1,18 +1,23 @@
 with Interfaces; use Interfaces;
 with System.Machine_Code; use System.Machine_Code;
-with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
+--with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
+with Ada.Strings.Unbounded;
 
 package Hypervisor_Check is
 
+    package US renames Ada.Strings.Unbounded;
+
     Hypervisor_Leaf : constant := 16#40000000#;
     type CPUID_Registers is array (1 .. 4) of Unsigned_32;
 
     function CPUID (Arg : Unsigned_32) return CPUID_Registers;
 
-    function String_of_U32 (Arg : Unsigned_32) return Unbounded_String;
+    function String_of_U32 (Arg : Unsigned_32) return US.Unbounded_String;
 
     function Hypervisor_Present return Boolean;
 
-    function Get_Vendor_String return Unbounded_String;
+    function Get_Vendor_String return US.Unbounded_String;
+
+    function Get_Vendor_Name return US.Unbounded_String;
 
 end Hypervisor_Check;