Re: How to detect OS type and version?

[Rob Norris <firstname.lastname@baesystems.com>]

On Thu, 13 Oct 2005 12:59:16 +0100, "Martin Dowie"
<martin.dowie@baesystems.com> wrote:

>That way doesn't give the version of the OS.
>

I tried to imply that with "Not very exact, but may be useful"...

Once you know the system is Unix like (including VMS??) they should
have the 'uname -a' shell command which could be called by some Ada
function that wraps around C pragma system call in stdlib.h.

For Windows systems the command is 'ver'.

Something like:


with Interfaces.C.Strings;
with Ada.Text_IO;

--
--
function C_System (Command : in Interfaces.C.Strings.chars_ptr) 
	return Integer;
pragma Import (C, C_System, "system");

--
--
function Shell_Command (Command : in String) return Integer is
 C_Command : Interfaces.C.Strings.chars_ptr :=
	Interfaces.C.Strings.New_String (Command);
begin
 return C_System (C_Command);
end Shell_Command;


type os_type is (Unix, Windows, Unknown);

--
--
function What_OS return os_type is
begin
  if gnat.os_lib.directory_separator = '/' then
    if shell_Command ("uname -a") = -1 then
	Ada.Text_IO.Put_Line ("OS version inspection failed");
    end if;	
    return Unix;
  elsif gnat.os_lib.directory_separator = '\' then
    if shell_Command ("ver") = -1 then
	Ada.Text_IO.Put_Line ("OS version inspection failed");
    end if;	
    return Windows;
  else
    return Unknown;
  end if;
end What_OS;


procedure main is
  Ada.Text_IO.OS_Type'Image (what_os);
end main;