Re: How to find the type of operating system.

["Randy Brukardt" <randy@rrsoftware.com>]

"Simon Wright" <simon@pushface.org> wrote in message 
news:lyoa9ludbf.fsf@pushface.org...
> Anh Vo <anhvofrcaus@gmail.com> writes:
>
>> On Wednesday, April 6, 2016 at 2:41:33 PM UTC-7, Randy Brukardt wrote:
>>> "ldries46" <bertus.dries@planet.nl> wrote in message
>>> news:57053167$0$4216$e4fe514c@news.kpn.nl...
>>> > How can I fin in which operating system a program runs and other 
>>> > details
>>> > of that operating system.
>>>
>>> Ada has System.System_Name provides an implementation-defined indication 
>>> of
>>> the name of the target, but that often isn't set in any useful way. 
>>> (Dunno
>>> what GNAT does with it, if anything.)
>>
>> With GNAT, I managed to make it work for Windows and Linux/Unix not long 
>> ago.
>>
>>    Dir_Separator : Character;
>>    pragma Import (C, Dir_Separator, "__gnat_dir_separator");
>>    --...
>>    Put_Line ("The program is run on OS: => " &
>>              (if Dir_Separator = '\' then "Windows" else "Unix/Linux"));
>
> GNAT.OS_Lib.Directory_Separator provides exactly this functionality.

Presumably you could get that value from a suitable use of 
Ada.Directories.Compose, which would eliminate the 
implementation-definedness for at least that check. But what you'd decide on 
VMS I'm not sure. :-)

                                     Randy.