How to find the type of operating system.

How to find the type of operating system.

[ldries46]

How can I fin in which operating system a program runs and other details of 
that operating system. 

Re: How to find the type of operating system.

[Randy Brukardt]

"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.)

So I would say that essentially Ada provides no such information. Of course, 
individual Ada packages provide some information about the target system 
(System.Tick which gives info about Calendar.Time, various functions in 
Ada.Directories give info about the file system, etc.)

                                     Randy.

Re: How to find the type of operating system.

[Anh Vo]

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"));

Anh Vo

 

Re: How to find the type of operating system.

[Simon Wright]

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.

Re: How to find the type of operating system.

[Randy Brukardt]

"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.

Re: How to find the type of operating system.

[Jeffrey R. Carter]

On 04/07/2016 12:31 AM, Randy Brukardt wrote:
> "Simon Wright" <simon@pushface.org> wrote in message
> news:lyoa9ludbf.fsf@pushface.org...
>> Anh Vo <anhvofrcaus@gmail.com> writes:
>>>
>>> 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. :-)

Clearly, "Unix/Linux".

-- 
Jeff Carter
"They name the boy Jonathan Ralph Starkwell,
after Virgil's mother."
Take the Money and Run
141

Re: How to find the type of operating system.

[Lucretia]

On Wednesday, 6 April 2016 16:55:51 UTC+1, ldries46  wrote:
> How can I fin in which operating system a program runs and other details of 
> that operating system.

You know what OS you're compiling on, so define a variable in GPR OS and set it on compile. During compile, set the source dirs to include an os specific one and in there put a package which defines the OS:

package OS is
   type OSes is (Linux, Windows, MacOS, iOS, etc.);

   This : OSes := Linux; --  For the linux/os.ads file.
end OS;

Re: How to find the type of operating system.

[Victor Porton]

Lucretia wrote:

> On Wednesday, 6 April 2016 16:55:51 UTC+1, ldries46  wrote:
>> How can I fin in which operating system a program runs and other details
>> of that operating system.
> 
> You know what OS you're compiling on, so define a variable in GPR OS and
> set it on compile. During compile, set the source dirs to include an os
> specific one and in there put a package which defines the OS:
> 
> package OS is
>    type OSes is (Linux, Windows, MacOS, iOS, etc.);
> 
>    This : OSes := Linux; --  For the linux/os.ads file.
> end OS;

You've forgotten to add "constant" keyword for "This" object.

-- 
Victor Porton - http://portonvictor.org