Re: How to detect OS type and version?

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

On Thu, 13 Oct 2005 02:35:13 GMT, "Roger Blum"
<rogerblum@hawaii.rr.com> wrote:

>Is there a way within Ada (GNAT 3.15p) to tell whether the application is 
>running on Linux or Windows (and the version of the OS)?
>
>Regards,
>Roger 
>

One lazy dirty method is to inspect the path or directory separators.

Not very exact, but may be useful eg: 

type os_type is (Unix, Windows, Unknown);

function What_OS return os_type is
  if gnat.os_lib.directory_separator = '/' then
    return Unix;
  elsif gnat.os_lib.directory_separator = '\' then
    return Windows;
  else
    return Unknown;
  end if;
end What_OS;