Add a function to check if DMI is available on Linux.

This is useful for Xen PV vs. HVM detection.

1 files changed, 13 insertions, 0 deletions

diff --git a/src/hypervisor_check.adb b/src/hypervisor_check.adb
index a8bf9a6..113f5f3 100644
--- a/src/hypervisor_check.adb
+++ b/src/hypervisor_check.adb
@@ -96,6 +96,19 @@ package body Hypervisor_Check is
         return Vendor_Name;
     end Get_Vendor_Name;
 
+    function DMI_Available return Boolean is
+    begin
+        if Config.Linux then
+            if Directories.Exists("/sys/class/dmi") then
+                return True;
+            else
+                return False;
+            end if;
+        else
+            raise OS_Not_Supported;
+        end if;
+    end DMI_Available;
+
     function Get_DMI_Vendor_String return US.Unbounded_String is
         Name : US.Unbounded_String;
     begin